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

Modified Files: cl-magick.lisp wand-image.lisp Log Message:

--- /project/cello/cvsroot/cello/cl-magick/cl-magick.lisp 2006/07/06 22:09:11 1.5 +++ /project/cello/cvsroot/cello/cl-magick/cl-magick.lisp 2006/08/22 16:12:35 1.6 @@ -20,6 +20,7 @@ ;;; FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS ;;; IN THE SOFTWARE.

+ (defpackage :cl-magick (:nicknames :mgk) (:use --- /project/cello/cvsroot/cello/cl-magick/wand-image.lisp 2006/08/21 04:28:28 1.4 +++ /project/cello/cvsroot/cello/cl-magick/wand-image.lisp 2006/08/22 16:12:35 1.5 @@ -100,7 +100,7 @@ (pixels (fgn-alloc :unsigned-char (* 3 columns rows) :wand-image)))

;(print (list "wand-get-image-pixels got" wand (* 3 columns rows) pixels)) - (cells:trc "image format" wand (magick-get-image-format wand)) + (cells:trc nil "image format" wand (magick-get-image-format wand)) (magick-get-image-pixels wand first-col first-row columns rows "RGB" 0 pixels ) #+testing (progn (incf testn)