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