
У меня, просто, нет слов.
------------ Дoбавленo в 19.23:
Леонид, а что является узким местом в работе этой схемы? PaintBox?
------------ Дoбавленo в 19.27:
Само вычисление, без отрисовки пикселя занимает всего 3 миллисекунды:
Add(MainForm,4180652,469,168)
{
Position=1
Point(Handle)
Point(PHandle)
}
Add(FTCG_Tools,5160442,364,175)
{
link(onEvent,10240246:doStop,[(404,181)(404,174)])
}
BEGIN_SDK
Add(EditMultiEx,5722645,70,35)
{
WorkCount=#7:doWork1|
EventCount=#7:onEvent|
DataCount=#4:Data|
Width=454
Height=291
link(doWork1,14752783:doValue,[(80,41)(80,146)])
}
Add(FT_Img_Point,2379337,252,217)
{
DrawSource=2
X=10
Y=10
Color=255
link(Bitmap,14752783:Value,[(258,195)(167,195)])
link(X,11233175:Position,[(265,184)(216,184)])
link(Y,7108345:Position,[(272,195)(314,195)])
link(Color,1362049:Result,[(279,201)(412,201)])
}
Add(FT_For,11233175,210,140)
{
End=200
Start=1
link(onEvent,5074214:doValue,[])
link(onStop,5722645:onEvent,[(251,153)(251,41)])
}
Add(FT_Memory,14752783,161,140)
{
link(onData,11233175:doFor,[])
}
Add(FT_For,7108345,308,140)
{
End=200
Start=1
link(onEvent,5496237:doOperation,[])
}
Add(FT_Memory,5074214,259,140)
{
link(onData,7108345:doFor,[])
}
Add(FT_Math,5496237,350,140)
{
OpType=2
ResultType=0
link(onResult,1362049:doOperation,[])
link(Op1,5074214:Value,[(356,128)(296,128)(296,177)(265,177)])
}
Add(FT_Math,1362049,406,140)
{
OpType=2
ResultType=0
link(Op1,5496237:Result,[(412,128)(390,128)(390,184)(356,184)])
link(Op2,4027851:Value,[(419,118)(125,118)])
}
Add(FT_Memory,4027851,119,63)
{
Default=Integer(6)
}
END_SDK
Add(PaintBox,16017229,273,154)
{
Left=85
Top=65
Width=200
Height=195
Point(PHandle)
Point(onPaint)
link(onPaint,15008825:doEvent1,[])
}
Add(TrackBar,12603025,364,105)
{
Left=90
Top=5
Width=195
Position=6
}
Add(Hub,15008825,329,161)
{
link(onEvent1,10240246:doStart,[])
link(onEvent2,5160442:doWork1,[(353,174)(353,181)])
}
Add(TimeCounter,10240246,413,161)
{
link(onStop,4180652:doCaption,[])
}
Ито, это хаб стандартного пакета может их отнимать.