Fixed test script.

git-svn-id: http://www.villavu.com/repositories/merlijn/mufasa@86 3f818213-9676-44b0-a9b4-5e4c4e03d09d
This commit is contained in:
Wizzup? 2009-09-23 04:29:22 +00:00
parent cdb1b97465
commit 2a00089fc6
1 changed files with 2 additions and 2 deletions

View File

@ -11,12 +11,12 @@ begin
setcolortolerancespeed(i);
t := getsystemtime;
for j := 0 to 100 do
findcolortolerance(x, y, 255, 0, 0, w, h, 40);
findcolortolerance(x, y, 255, 0, 0, w -1 , h -1, 40);
t2 := getsystemtime;
writeln('Time for 101 tries: ' + inttostr(t2 - t) + ' ms.');
writeln('That is ' + FloatToStr((t2 - t) / 101) + ' ms each.');
if findcolortolerance(x, y, 255, 0, 0, w, h, 40) then
if findcolortolerance(x, y, 255, 0, 0, w-1, h-1, 40) then
begin
writeln('CTS: ' + inttostr(I) + '; Found the colour at (' + inttostr(x) + ', ' +
inttostr(y) + ')');