Update of /project/imago/cvsroot/imago/src In directory clnet:/tmp/cvs-serv3701
Modified Files: convolve.lisp Log Message: Fix bug in CONVOLVE for grayscale images
--- /project/imago/cvsroot/imago/src/convolve.lisp 2005/01/03 20:56:02 1.2 +++ /project/imago/cvsroot/imago/src/convolve.lisp 2007/06/14 13:11:05 1.3 @@ -61,7 +61,8 @@ as x2 = (+ x dx) when (<= 0 x2 (1- width)) do (let ((factor (aref matrix (+ dy 2) (+ dx 2)))) - (incf sum (* (image-pixel image x2 y2) + (incf sum (* (gray-intensity + (image-pixel image x2 y2)) factor))))) (let ((color (+ (floor sum divisor) offset))) (setf pixel2 (make-gray (limit-value color 0 255))))))