From 2a00089fc6b5ce69c89d5e9f5e1efaf2ce81babe Mon Sep 17 00:00:00 2001
From: Wizzup? <Wizzup?@3f818213-9676-44b0-a9b4-5e4c4e03d09d>
Date: Wed, 23 Sep 2009 04:29:22 +0000
Subject: [PATCH] Fixed test script.

git-svn-id: http://www.villavu.com/repositories/merlijn/mufasa@86 3f818213-9676-44b0-a9b4-5e4c4e03d09d
---
 Tests/PS/colourtest.txt | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/Tests/PS/colourtest.txt b/Tests/PS/colourtest.txt
index 8be713c..65bfc4b 100644
--- a/Tests/PS/colourtest.txt
+++ b/Tests/PS/colourtest.txt
@@ -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) + ')');