*Кривая Миллера.#13#10(По мотивам статьи  А.Колесникова "Сложность и красота". andr61@mail.ru )#13#10Базовая кривая Миллера, первая в списках X,Y.#13#10#13#10Автор MAV#13#10andreimav@yandex.ru
Make(delphi)
ver(4.01 build 174)
Add(MainForm,2953706,28,63)
{
 Width=800
 Height=600
 Color=0
 Position=1
 Point(Handle)
 Point(onPaint)
 Point(doPicture)
 link(onCreate,12264902:doStart,[(67,83)(67,139)(16,139)(16,153)])
}
Add(MathParse,1320664,308,63)
{
 DataCount=1
 MathStr=""
 Point(doMathStr)
 link(onResult,11018812:doCalc,[])
 link(X1,13170476:Var2,[(314,52)(286,52)])
}
Add(Img_Point,4080144,336,126)
{
 DrawSource=1
 Color=16711935
 Point(X)
 Point(Y)
 Point(Color)
 link(Bitmap,5532989:Var3,[(342,114)])
 link(X,1320664:Result,[(349,110)(314,110)])
 link(Y,11018812:Result,[])
 link(Color,15637219:Item,[(363,114)(376,114)(376,276)(342,276)])
}
Add(Math,7127396,266,63)
{
 Op2=0.003141593
 link(onResult,1320664:doCalc,[])
 link(Op1,13170476:Var1,[(272,37)])
}
Add(For,735409,210,63)
{
 End=2000
 link(onEvent,7127396:doOperation,[])
}
Add(GetDataEx,13170476,273,28)
{
 link(Data,7127396:Result,[(286,23)(257,23)(257,103)(272,103)])
}
Add(For,4392070,168,63)
{
 End=100
 link(onEvent,735409:doFor,[])
 link(onStop,13721318:doSleepMks,[(204,76)(204,106)(9,106)(9,195)])
}
Add(MathParse,11018812,350,63)
{
 DataCount=1
 MathStr=""
 Point(doMathStr)
 link(onResult,4080144:doDraw,[(394,69)(394,101)(324,101)(324,132)])
 link(X1,13170476:Var3,[(356,37)])
}
Add(StrList,12148496,210,119)
{
 @Hint=#1:X|
 Strings=#47:(sin(0.99 * %1) - 0.7 * cos(3.01 * %1))*220+395|46:(sin(0.99 * %1) - 0.1 * tg(3.01 * %1))*220+395|47:(sin(0.99 * %1) - 0.7 * sin(3.01 * %1))*220+395|47:(cos(0.99 * %1) - 0.8 * cos(3.01 * %1))*220+395|47:(cos(0.99 * %1) - 0.7 * cos(3.01 * %1))*220+395|46:(sin(0.99 * %1) - 0.1 * tg(3.01 * %1))*220+395|0:|
}
Add(StrList,6633011,259,119)
{
 @Hint=#1:Y|
 Strings=#48:(cos(1.01 * %1) + 0.1 * sin(15.03 * %1))*190+285|48:(sin(1.01 * %1) + 0.45 * sin(1.01 * %1))*190+285|48:(sin(1.01 * %1) + 0.1 * sin(15.03 * %1))*190+285|47:(tg(1.01 * %1) + 0.2 * ctg(15.03 * %1))*190+285|48:(cos(1.01 * %1) + 0.1 * cos(15.03 * %1))*190+285|48:(ctg(1.01 * %1) + 0.1 * sin(15.03 * %1))*190+285|
}
Add(StrList,13463013,336,168)
{
 Strings=#8:16732672|7:3438579|8:16745184|7:2731728|7:3468991|3:255|
}
Add(ArrayRW,10077079,210,182)
{
 link(onRead,1320664:doMathStr,[(302,188)(302,76)])
 link(Array,12148496:Array,[(216,173)(230,173)])
}
Add(ArrayRW,16716907,252,210)
{
 link(onRead,11018812:doMathStr,[(317,216)(317,76)])
 link(Array,6633011:Array,[(258,173)(279,173)])
}
Add(ArrayRW,15637219,336,231)
{
 link(Array,13463013:Array,[(342,222)(356,222)])
}
Add(Hub,1404153,154,182)
{
 OutCount=4
 link(onEvent1,10077079:doRead,[])
 link(onEvent2,16716907:doRead,[(195,195)(195,216)])
 link(onEvent3,15637219:doRead,[(178,202)(178,237)])
 link(onEvent4,4392070:doFor,[(187,209)(187,139)(156,139)(156,69)])
}
Add(Counter,2748034,98,182)
{
 Max=5
 Default=-1
 link(onNext,1404153:doEvent1,[])
}
Add(Hub,13391172,70,175)
{
 InCount=2
 link(onEvent1,1959568:doCreate,[(89,181)(89,244)])
 link(onEvent2,2748034:doNext,[])
}
Add(Thread,12264902,28,147)
{
 Delay=0
 FastStop=0
 link(onExec,13391172:doEvent1,[(65,153)(65,181)])
}
Add(Sleep,13721318,28,189)
{
 Delay=3000000
 link(onSleep,13391172:doEvent2,[(65,195)(65,188)])
}
Add(Bitmap,1959568,98,224)
{
 HWidth=800
 HHeight=600
 FillColor=657930
 Point(doCreate)
 Point(onCreate)
 link(onCreate,15481996:doData,[(137,230)(137,261)(86,261)(86,272)])
}
Add(DoData,15481996,98,266)
{
 link(onEventData,11649559:doDraw,[])
 link(Data,1959568:Bitmap,[])
}
Add(Img_Bmp,11649559,140,266)
{
 DrawSource=1
 Point(X)
 Point(Y)
 link(Bitmap,5532989:Var2,[])
}
Add(GetDataEx,5532989,133,105)
{
 Angle=3
 link(Data,2953706:Handle,[(34,114)])
}