[cello-cvs] CVS cello/cl-magick

[ktilton]

Update of /project/cello/cvsroot/cello/cl-magick
In directory clnet:/tmp/cvs-serv22894/cl-magick

Modified Files:
	wand-image.lisp 
Log Message:


--- /project/cello/cvsroot/cello/cl-magick/wand-image.lisp	2006/07/06 22:09:11	1.2
+++ /project/cello/cvsroot/cello/cl-magick/wand-image.lisp	2006/07/07 14:09:15	1.3
@@ -98,7 +98,6 @@
     (let* ((columns (- last-col first-col))
            (rows (- last-row first-row))
            (pixels (fgn-alloc :unsigned-char (* 3 columns rows) :wand-image)))
-      (ukt:trc "wand pixels has colrowa" columns rows)
       
       ;(print (list "wand-get-image-pixels got" wand (* 3 columns rows) pixels))
       (magick-get-image-pixels wand first-col first-row columns rows "RGB" 0 pixels )
@@ -108,7 +107,7 @@
                   (print `(writeimage ,(magick-write-image wand (format nil "C:\\TEST~a.GIF" testn))))
                   #+not (print `(writeimage ,(magick-write-image wand "C:\\TEST.BMP"))))
       
-      (loop for row below 16 do
+      #+jesfoolinaround(loop for row below 16 do
             (loop for col below 16 by 1
                 for offset = (+ (* row columns 3) (* col 3))
                 do (print (loop for bn below 3