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)))