Hello,
I think there is a small bug in the grayscale version of the convolve
method. Here is the diff:
$ diff convolve.lisp convolve-orig.lisp
64c64
< (incf sum (* (gray-intensity
(image-pixel image x2 y2))
---
> (incf sum (* (image-pixel image x2 y2)
another detail: SBCL complaints about a declaration in color.lisp:
$ diff color.lisp color-orig.lisp
91,95c91
< (let ((colormap
< #-sbcl(make-array 256 :element-type '(unsigned-byte 8))
< ;; make-color does not return an (unsigned-byte 8) sbcl does
< ;; not like that.
< #+sbcl(make-array 256)))
---
> (let ((colormap (make-array 256 :element-type '(unsigned-byte 8))))
--
Thibault Langlois
FCUL / DI
