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.
|