Вверх ↑
Ответов: 8887
Рейтинг: 823
#1: 2021-02-20 23:44:19 ЛС | профиль | цитата
Rysik, картинки в компьютере не аналоговые, а растровые и передвинуть точку можно не менее, чем на целое число пикселей. А играть переливанием цвета -- считать замучаетесь


Add(MainForm,10166470,357,49)
{
Left=300
Top=200
link(onCreate,4352979:doCreate,[])
}
Add(Img_Point,5703441,238,196)
{
Color=16711680
Size=16
Point(X)
Point(Y)
link(onDraw,15989258:doDraw,[])
link(Bitmap,12608432:Var1,[(244,173)])
link(X,8703955:Count,[(251,166)(209,166)])
link(Y,7066475:Count,[])
}
Add(Timer,11092191,112,119)
{
Interval=10
link(onTimer,4798535:doEvent1,[])
}
Add(Img_Point,15989258,336,196)
{
Color=255
Size=16
Point(X)
Point(Y)
link(onDraw,708838:doRefresh,[(401,202)(401,146)])
link(Bitmap,12608432:Var2,[])
link(X,13315843:Count,[(349,166)(307,166)])
link(Y,915761:Count,[])
}
Add(Counter,8703955,203,126)
{
Max=127
link(onNext,7066475:doNext,[])
}
Add(Counter,7066475,252,126)
{
Max=127
link(onNext,13315843:doPrev,[(291,132)(291,139)])
}
Add(Counter,13315843,301,126)
{
Max=127
link(onNext,915761:doPrev,[(340,132)(340,139)])
}
Add(Counter,915761,350,126)
{
Max=127
link(onNext,5703441:doDraw,[(389,132)(389,223)(228,223)(228,202)])
}
Add(Image,708838,413,126)
{
Left=135
Top=55
Width=128
Height=128
Point(doRefresh)
link(Bitmap,4352979:Bitmap,[])
}
Add(Bitmap,4352979,413,49)
{
HWidth=128
HHeight=128
FillColor=12639424
Point(doCreate)
}
Add(Hub,4798535,161,119)
{
link(onEvent1,708838:doLoad,[(186,125)(186,118)(404,118)(404,132)])
link(onEvent2,8703955:doNext,[])
}
Add(GetDataEx,12608432,336,168)
{
Angle=1
link(Data,708838:ImageBitmap,[(419,173)])
}

карма: 19

0