It finds points, but doesn't seem to draw on the smart debug canvas(yes I do have debug enabled) What did I do wrong?Code:{.include srl/srl/misc/smart.scar} {.include srl/srl.scar} var road: TPointArray; Procedure DebugTPA(A : TPointArray; DC : integer); var mx, my, pic, OldDC,i: integer; begin GetClientDimensions(mx,my); Pic:= BitmapFromString(mx,my,''); OldDC := GetTargetDC; SetTargetDC(DC); for i := 0 to High(A) do FastSetPixel(Pic, A[i].x+mmx1, A[i].y+mmx1, 255); CopyCanvas(GetBitmapCanvas(Pic), GetClientCanvas, 0, 0, mx, my, 0, 0, mx, my); FreeBitmap(Pic); SetTargetDC(OldDC); end; begin //SetupSRL; SetTargetDc(SmartGetDC) FindColorsTolerance(road, 8161426, mmx1, mmy1, mmx2, mmy2, 15); DebugTPA(Road, SmartGetDebugDC); writeln(inttostr(high(road))); end.
Edit: nvm,
Code:FastSetPixel(Pic, A[i].x+mmx1, A[i].y+mmx1, 255); ---> FastSetPixel(Pic, A[i].x, A[i].y, 255);



Reply With Quote