moparisthebest/Simba
1
0
Fork 0
mirror of https://github.com/moparisthebest/Simba synced 2025-01-30 23:00:18 -05:00
Code Issues Releases Wiki Activity

Fixed test script.

Browse Source 
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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
Tests/PS/colourtest.txt
View File

@ -11,12 +11,12 @@ begin
setcolortolerancespeed(i); setcolortolerancespeed(i);
t := getsystemtime; t := getsystemtime;
for j := 0 to 100 do 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; t2 := getsystemtime;
writeln('Time for 101 tries: ' + inttostr(t2 - t) + ' ms.'); writeln('Time for 101 tries: ' + inttostr(t2 - t) + ' ms.');
writeln('That is ' + FloatToStr((t2 - t) / 101) + ' ms each.'); 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 begin
writeln('CTS: ' + inttostr(I) + '; Found the colour at (' + inttostr(x) + ', ' + writeln('CTS: ' + inttostr(I) + '; Found the colour at (' + inttostr(x) + ', ' +
inttostr(y) + ')'); inttostr(y) + ')');