moparisthebest/Simba
1
0
Fork 0
mirror of https://github.com/moparisthebest/Simba synced 2024-11-30 12:52:16 -05:00
Code Issues Releases Wiki Activity

Tests: Update BmpBench.

Browse Source
This commit is contained in:
Merlijn Wajer 2011-07-30 20:27:54 +02:00
parent 013daccf07
commit 55b0435a4e
1 changed files with 7 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
Tests/PS/bmpbench.simba
View File

@ -1,6 +1,5 @@
program new; program new;
//http://farm4.static.flickr.com/3067/2612399892_7df428d482.jpg
{Make the above bitmap your target}
var var
Bmp : integer; Bmp : integer;
x,y : integer; x,y : integer;
@ -19,11 +18,14 @@ begin
setcolortolerancespeed(c); setcolortolerancespeed(c);
t:=getsystemtime; t:=getsystemtime;
for i := 0 to 100 do for i := 0 to 10 do
findBitmapToleranceIn(bmp,x,y,0,0,w-1,h-1,10); findBitmapToleranceIn(bmp,x,y,0,0,w-1,h-1,10);
writeln((getsystemtime-t) / 100.0); writeln((getsystemtime-t) / 10.0);
if findBitmapToleranceIn(bmp,x,y,0,0,w-1,h-1,200) then if findBitmapToleranceIn(bmp,x,y,0,0,w-1,h-1,10) then
begin
writeln('found'); writeln('found');
movemouse(x,y);
end;
end; end;
{if FindBitmapToleranceIn(bmp,x,y,0,0,w-1,h-1,300) then {if FindBitmapToleranceIn(bmp,x,y,0,0,w-1,h-1,300) then