Update of /project/cells/cvsroot/cell-cultures/cl-magick In directory common-lisp.net:/tmp/cvs-serv5472/cl-magick
Modified Files: wand-texture.lisp Log Message:
Date: Sun Jul 4 11:59:44 2004 Author: ktilton
Index: cell-cultures/cl-magick/wand-texture.lisp diff -u cell-cultures/cl-magick/wand-texture.lisp:1.1 cell-cultures/cl-magick/wand-texture.lisp:1.2 --- cell-cultures/cl-magick/wand-texture.lisp:1.1 Sat Jun 26 11:38:39 2004 +++ cell-cultures/cl-magick/wand-texture.lisp Sun Jul 4 11:59:44 2004 @@ -66,7 +66,7 @@ (pixels (wand-get-image-pixels (mgk-wand self) 0 0 (car (image-size self)) (cdr (image-size self))))) - (assert (not clo::*listingp*)) + ;; (assert (not *ogl-listing-p*)) (gl-bind-texture gl_texture_2d tx)
(progn ;; useless?? @@ -92,7 +92,7 @@ &aux (sz (image-size self))) #+not (format t "~&wand-render tex ~a ~a ~a" (texture-name self) self :size sz :bbox (list left top right bottom)) - (assert clo::*listingp*) + ;;(assert *ogl-listing-p*) (with-attrib (gl_texture_bit);; gl_enable_bit gl_hint_bit gl_line_bit gl_color_buffer_bit) (wand-texture-activate self) #+tilingworksbutslower