[cello-cvs] CVS cello/cl-magick

[ktilton]

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

Modified Files:
	wand-texture.lisp 
Log Message:


--- /project/cello/cvsroot/cello/cl-magick/wand-texture.lisp	2006/09/05 23:05:37	1.7
+++ /project/cello/cvsroot/cello/cl-magick/wand-texture.lisp	2006/10/13 05:57:27	1.8
@@ -42,14 +42,14 @@
              (grow-sz (cons (expt 2 (ceiling (log (car (image-size self)) 2)))
 			    (expt 2 (ceiling (log (cdr (image-size self)) 2)))))
              (best-fit-sz (best-fit-cons trunc-sz (image-size self) grow-sz)))
-        (print `(texture-name> gennning texture ,self)) ;; frgo: debug...
+        ;;(print `(texture-name> gennning texture ,self)) ;; frgo: debug...
         (unless (equal (image-size self) best-fit-sz)
-          (print `(texture-name> tex-refit ,(image-size self) to ,best-fit-sz)) ;; frgo: debug...
+          ;;(print `(texture-name> tex-refit ,(image-size self) to ,best-fit-sz)) ;; frgo: debug...
           (magick-scale-image (mgk-wand self) (car best-fit-sz) (cdr best-fit-sz))
 ;;; gaussian-filter 0)
           (setf (image-size self) best-fit-sz))
         
-        (print `(texture-name> new image size , self ,(image-size self))) ;; frgo: debug...
+        ;;(print `(texture-name> new image size , self ,(image-size self))) ;; frgo: debug...
         (let ((tx (wand-image-to-texture self)))
           (if (plusp tx)
               (setf (texture-name self) tx)
@@ -70,7 +70,7 @@
 				       (cdr (image-size self)))))
     ;;(assert (not *ogl-listing-p*))
     (assert (plusp tx))
-    (cells:trc "!!!!wand-image-to-texture genning new tx: ~a" tx) ;; frgo: debug...
+    (cells:trc nil "!!!!wand-image-to-texture genning new tx: ~a" tx) ;; frgo: debug...
     (gl-bind-texture gl_texture_2d tx)
       
     (progn ;; useless??
@@ -87,7 +87,7 @@
     (gl-tex-image2d  gl_texture_2d 0 3 (car (image-size self)) (cdr (image-size self))
 		     0 gl_rgb gl_unsigned_byte pixels)
     (kt-opengl::glec :tex-image)
-    (print `(wand-image-to-texture loaded texture sized ,(image-size self))) ;; frgo: debug...
+    ;;(print `(wand-image-to-texture loaded texture sized ,(image-size self))) ;; frgo: debug...
       
     (fgn-free pixels)
     tx))