Aziz писал(а):
Чуть упростил и замедлил
Add(Img_Point,10361775,364,266)
{
Color=-16777203
Size=2
Point(X)
Point(Y)
link(Bitmap,12465343:Bitmap,[(370,250)(230,250)])
link(X,14307840:Result,[])
link(Y,16095580:Result,[(384,250)(426,250)])
}
Add(Timer,11502362,168,203)
{
Interval=5
AutoStop=10000
link(onTimer,12465343:doRefresh,[])
}
Add(PaintBox,12465343,224,203)
{
Left=55
Top=10
Width=500
Height=500
Align=5
Color=16777215
WinStyle=1
ColorSp=0
Point(onClick)
link(onBeforeDraw,10043336:doNext,[])
}
Add(MathParse,14307840,371,203)
{
@Hint=#38:Math.sin((Math.PI * angl / 180) / 2), |30:x = 150 + R * cos ((pi *2)* t)|31:y = 150 + R * sin (-(pi *2)* t)|27:%3 + %2 * cos ((pi *2)* %1)|
MathStr="%2 + (%1*0.02)* cos(%1)"
AngleMode=1
link(X2,7963034:Var1,[(384,180)])
}
Add(MathParse,16095580,420,210)
{
@Hint=#30:x = 150 + R * cos ((pi *2)* t)|31:y = 150 + R * sin (-(pi *2)* t)|27:%3 + %2 * cos ((pi *2)* %1)|
MathStr="%2 + (%1*0.02)*sin(%1)"
AngleMode=1
link(X2,7963034:Var2,[])
}
Add(Hub,8911218,329,203)
{
OutCount=3
link(onEvent1,14307840:doCalc,[])
link(onEvent2,16095580:doCalc,[])
link(onEvent3,10361775:doDraw,[(354,223)(354,272)])
}
Add(Memory,7855591,427,119)
{
@Hint=#6:Centre|
Default=Integer(240)
}
Add(GetDataEx,7963034,427,175)
{
link(Data,7855591:Value,[])
}
Add(MainForm,15856356,112,196)
{
@Hint=#8:(c) Aziz|
Width=500
Height=500
Caption="Рисование окружности по формуле"
}
Add(CounterEx,10043336,280,203)
{
Max=10000
Direct=1
Point(doReset)
Point(onThroughMax)
link(onNext,8911218:doEvent1,[])
}