I want to make a constant debugging screen for color-finding. But the thing is, it is extremely slow. Is there any way I could speed this up? (Btw, I JUST learned about canvases... lol)
SCAR Code:
program CanvasTesting;
var
Buffer,Outline,a,c : integer;
Cols : TPointArray;
begin
ColorToleranceSpeed(2);
DisplayDebugImgWindow(764,502);
Buffer := BitmapFromString(764,502,'');
Outline := BitmapFromString(764,502,'');
repeat
FastDrawClear(Outline,0);
SetTransparentColor(Outline,0);
FindColorsSpiralTolerance(350,250,Cols,15461357,0,0,764,502,7);
c := Length(Cols);
for a := 0 to c - 1 do
FastSetPixel(Outline,Cols[a].x,Cols[a].y,255);
CopyClientToBitmap(Buffer,0,0,764,502);
FastDrawTransparent(0,0,Outline,Buffer);
SafeDrawBitmap(Buffer,GetDebugCanvas,0,0);
Wait(10);
until(false)
end.