[imago-cvs] CVS update: imago/src/image-utilities.lisp

[Matthieu Villeneuve]

Update of /project/imago/cvsroot/imago/src
In directory common-lisp.net:/tmp/cvs-serv7078

Modified Files:
	image-utilities.lisp 
Log Message:
Fixed iteration bug in DO-LINE-PIXELS
Date: Mon Jan  3 22:24:38 2005
Author: mvilleneuve

Index: imago/src/image-utilities.lisp
diff -u imago/src/image-utilities.lisp:1.2 imago/src/image-utilities.lisp:1.3
--- imago/src/image-utilities.lisp:1.2	Mon Jan  3 21:56:02 2005
+++ imago/src/image-utilities.lisp	Mon Jan  3 22:24:38 2005
@@ -121,7 +121,7 @@
             (,index (+ (* ,width ,y) ,x)))
       (symbol-macrolet ((,color (row-major-aref ,pixels ,index)))
         (if (>= ,adx ,ady)
-            (let* ((,count ,adx)
+            (let* ((,count (1+ ,adx))
                    (,errmax ,adx)
                    (,errinc ,ady)
                    (,err (floor ,errmax 2)))
@@ -134,7 +134,7 @@
                       (decf ,err ,errmax))
                     (incf ,index ,x-inc)
                     (incf ,x ,x-inc)))
-            (let* ((,count ,ady)
+            (let* ((,count (1+ ,ady))
                    (,errmax ,ady)
                    (,errinc ,adx)
                    (,err (floor ,errmax 2)))