mirror of
https://github.com/moparisthebest/Simba
synced 2024-11-11 11:55:02 -05:00
19 lines
465 B
Plaintext
19 lines
465 B
Plaintext
|
program new;
|
||
|
|
var
|
||
|
|
bmp1,bmp2 : integer;
|
||
|
|
begin
|
||
|
|
repeat
|
||
|
|
bmp1 := BitmapFromClient(0,0,514,240);
|
||
|
|
wait(150);
|
||
|
|
bmp2 := BitmapFromClient(0,0,514,240);
|
||
|
|
|
||
|
|
Writeln(CalculatePixelShift(bmp1,bmp2,inttobox(416,87,514,240)));
|
||
|
|
Writeln(floattostr(CalculatePixelTolerance(bmp1,bmp2,inttobox(416,87,514,240),0)));
|
||
|
|
Writeln(floattostr(CalculatePixelTolerance(bmp1,bmp2,inttobox(416,87,514,240),1)));
|
||
|
|
freebitmap(bmp1);
|
||
|
|
freebitmap(bmp2);
|
||
|
|
wait(150);
|
||
|
|
until false;
|
||
|
|
|
||
|
|
end.
|