mirror of
https://github.com/moparisthebest/Simba
synced 2024-12-24 16:28:53 -05:00
5d1ffa2c7d
Feel free to test, though.
Current results are fast enough for now, but I'm sure we can improve the speed a bit more.
I set the optimalisations to -O2 instead of -01, it makes a difference of about 1.5x with CTS 2.
Results:
W, H = 826, 597
FindColorTolerance, with no hit:
CTS0: 11.316831683168 ms
CTS1: 25.396039603960 ms
CTS2: 37.613861386139 ms
git-svn-id: http://www.villavu.com/repositories/merlijn/mufasa@50 3f818213-9676-44b0-a9b4-5e4c4e03d09d
43 lines
1001 B
Plaintext
43 lines
1001 B
Plaintext
program new;
|
|
var
|
|
x,y,w,h,i,j,t,t2:integer;
|
|
begin
|
|
getclientdimensions(w,h);
|
|
writeln(inttostr(w) + ', ' + inttostr(h));
|
|
|
|
|
|
for i := 0 to 2 do
|
|
begin
|
|
setcolortolerancespeed(i);
|
|
t := getsystemtime;
|
|
for j := 0 to 100 do
|
|
findcolortolerance(x, y, 255, 0, 0, w, h, 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
|
|
begin
|
|
writeln('CTS: ' + inttostr(I) + '; Found the colour at (' + inttostr(x) + ', ' +
|
|
inttostr(y) + ')');
|
|
movemouse(x, y);
|
|
wait(1000);
|
|
end else
|
|
writeln('not found');
|
|
end;
|
|
end.
|
|
|
|
Compiled succesfully in 7 ms.
|
|
826, 597
|
|
Time for 101 tries: 1143 ms.
|
|
That is 11.316831683168 ms each.
|
|
not found
|
|
Time for 101 tries: 2565 ms.
|
|
That is 25.396039603960 ms each.
|
|
not found
|
|
Time for 101 tries: 3799 ms.
|
|
That is 37.613861386139 ms each.
|
|
not found
|
|
Succesfully executed
|
|
|