Вверх ↑
Ответов: 1291
Рейтинг: 47
#1: 2023-03-28 03:27:14 ЛС | профиль | цитата
Может кому пригодится.


Add(Img_Point,10361775,455,315)
{
Color=-16777203
Size=10
Point(X)
Point(Y)
link(onDraw,12465343:doRefresh,[(499,321)(499,265)(443,265)(443,209)])
link(Bitmap,12465343:Bitmap,[])
link(X,14307840:Result,[(468,303)(335,303)])
link(Y,16095580:Result,[(475,303)(384,303)])
}
Add(Timer,11502362,126,329)
{
Interval=100
AutoStop=360
link(onTimer,1782630:doEvent1,[])
}
Add(Hub,1782630,210,329)
{
link(onEvent1,10043336:doNext,[(238,335)(238,384)])
}
Add(MainForm,5818658,140,161)
{
@Hint=#8:(c) Aziz|
Width=500
Height=500
Caption="Рисование окружности по формуле"
}
Add(PaintBox,12465343,455,203)
{
Left=55
Top=10
Width=245
Height=218
Align=5
Color=16777215
WinStyle=1
ColorSp=0
Point(onClick)
}
Add(MathParse,14307840,329,259)
{
@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)|
DataCount=3
MathStr="%3 + %2 * cos ((3.14 * %1 / 180))"
link(X2,9867155:Var2,[(342,229)(321,229)])
link(X3,11880627:Var2,[(349,229)(363,229)])
}
Add(CounterEx,10043336,252,378)
{
Max=359
link(onNext,8911218:doEvent1,[(292,384)(292,265)])
}
Add(For,8238168,252,322)
{
End=359
}
Add(MathParse,16095580,378,259)
{
@Hint=#30:x = 150 + R * cos ((pi *2)* t)|31:y = 150 + R * sin (-(pi *2)* t)|27:%3 + %2 * cos ((pi *2)* %1)|
DataCount=3
MathStr="%3 + %2 * sin (-(3.14 * %1 / 180))"
link(X2,9867155:Var3,[(391,215)])
link(X3,11880627:Var3,[(398,222)])
}
Add(Hub,8911218,301,259)
{
OutCount=3
link(onEvent1,14307840:doCalc,[])
link(onEvent2,16095580:doCalc,[(347,272)(347,265)])
link(onEvent3,10361775:doDraw,[(385,279)(385,321)])
}
Add(Memory,13135093,315,168)
{
Default=Integer(150)
}
Add(Memory,7855591,357,168)
{
Default=Integer(240)
}
Add(GetDataEx,9867155,315,210)
{
link(Data,13135093:Value,[])
}
Add(GetDataEx,11880627,357,217)
{
link(Data,7855591:Value,[])
}

карма: 3
Hiasm + Flowstone + CopperCube + GoDot + JS
0