[cello-cvs] CVS update: cl-magick/cl-magick-config.lisp cl-magick/cl-magick.lisp cl-magick/mgk-test.lisp cl-magick/wand-pixels.lisp cl-magick/wand-texture.lisp

Kenny Tilton ktilton at common-lisp.net
Wed Jun 15 21:08:03 UTC 2005


Update of /project/cello/cvsroot/cl-magick
In directory common-lisp.net:/tmp/cvs-serv25262

Modified Files:
	cl-magick-config.lisp cl-magick.lisp mgk-test.lisp 
	wand-pixels.lisp wand-texture.lisp 
Log Message:
OSX merge
Date: Wed Jun 15 23:08:02 2005
Author: ktilton

Index: cl-magick/cl-magick-config.lisp
diff -u cl-magick/cl-magick-config.lisp:1.1 cl-magick/cl-magick-config.lisp:1.2
--- cl-magick/cl-magick-config.lisp:1.1	Wed May 25 13:31:23 2005
+++ cl-magick/cl-magick-config.lisp	Wed Jun 15 23:08:02 2005
@@ -30,7 +30,7 @@
 (defparameter *magick-dynamic-lib*
   (make-pathname
     #+lispworks :host #-lispworks :device "c"
-    :directory '(:absolute "cell-cultures" "cell-cultures-user" "dynlib")
+    :directory '(:absolute "0dev" "user" "dynlib")
     :name "CORE_RL_wand_"
     :type "dll"))
 


Index: cl-magick/cl-magick.lisp
diff -u cl-magick/cl-magick.lisp:1.1 cl-magick/cl-magick.lisp:1.2
--- cl-magick/cl-magick.lisp:1.1	Wed May 25 13:31:23 2005
+++ cl-magick/cl-magick.lisp	Wed Jun 15 23:08:02 2005
@@ -24,12 +24,12 @@
     (:nicknames :mgk)
     (:use
      #:common-lisp
-     #-cormanlisp #:clos
+     #-(or cormanlisp ccl) #:clos
      #:hello-c
      #+cl-opengl
      #:cl-opengl ;; wands as opengl textures
      )
-  (:export #:wand-ensure-typed
+  (:export #:wand-manager #:wand-ensure-typed
     #:wands-clear #:wand-pixels #:wand-texture 
     #:wand-render
     #:image-size #:wand-texture-activate #:xim
@@ -46,7 +46,7 @@
 (defun magick-wand-template ()
   (path-to-wand
    (make-pathname
-     :directory '(:absolute "cell-cultures" "cell-cultures-user"
+     :directory '(:absolute "0dev" "user"
                    "graphics" "templates")
      :name "metal" :type "gif")))
 


Index: cl-magick/mgk-test.lisp
diff -u cl-magick/mgk-test.lisp:1.1 cl-magick/mgk-test.lisp:1.2
--- cl-magick/mgk-test.lisp:1.1	Wed May 25 13:31:23 2005
+++ cl-magick/mgk-test.lisp	Wed Jun 15 23:08:02 2005
@@ -23,10 +23,9 @@
 
 (in-package :cl-magick)
 
-
-#+cello
 (defun mgk-wand-dump (w &rest info)
-  (ukt::trc "mgk-wand-dump" w info)
+  (declare (ignorable w))
+  #+not (trc "mgk-wand-dump" w info)
   ;; (ukt::trc "> width"  (magick-get-image-width w))
   ;; (ukt::trc "> height"  (magick-get-image-height w))
   ;; (ukt::trc "> description" (magick-describe-image w))
@@ -264,7 +263,7 @@
 
 (defun test-image (filename filetype)
   (make-pathname
-    :directory '(:absolute "cell-cultures" "cell-cultures-user" "graphics" "shapers")
+    :directory '(:absolute "0dev" "user" "graphics" "shapers")
     :name (string filename)
     :type (string filetype)))
 


Index: cl-magick/wand-pixels.lisp
diff -u cl-magick/wand-pixels.lisp:1.1 cl-magick/wand-pixels.lisp:1.2
--- cl-magick/wand-pixels.lisp:1.1	Wed May 25 13:31:23 2005
+++ cl-magick/wand-pixels.lisp	Wed Jun 15 23:08:02 2005
@@ -39,12 +39,12 @@
   "only works in ortho mode I think; abstract out raster-pos for perspective"
   (declare (ignorable right left))
   (assert (pixels self))
-  (ukt::trc nil "!!!! pixelrender entry rasterpos:"
+  #+not (trc nil "!!!! pixelrender entry rasterpos:"
               (ogl-raster-pos-get) :lrtb (list left right top bottom)
     :image-sz sz)
   (let ((y-move (downs (+ 0 (abs (- top bottom))))))
     (with-bitmap-shifted (0 y-move)
-      ;;(ukt::trc nil "wand-render pixels move" 0 y-move :top top :bottom bottom)
+      ;; (trc nil "wand-render pixels move" 0 y-move :top top :bottom bottom)
       #+hush
       (if (ogl-get-boolean gl_current_raster_position_valid)
           (progn
@@ -68,7 +68,7 @@
       ;(gl-enable gl_blend) ;; debugging try
       (gl-blend-func gl_src_alpha gl_one_minus_src_alpha)
       (gl-polygon-mode gl_front_and_back gl_fill)
-      (cells::trc nil "wand-pixelling" (ogl-raster-pos-get))
+      #+not (trc nil "wand-pixelling" (ogl-raster-pos-get))
     
       (gl-draw-pixels (car sz) (cdr sz)
         gl_rgb gl_unsigned_byte (pixels self))


Index: cl-magick/wand-texture.lisp
diff -u cl-magick/wand-texture.lisp:1.1 cl-magick/wand-texture.lisp:1.2
--- cl-magick/wand-texture.lisp:1.1	Wed May 25 13:31:23 2005
+++ cl-magick/wand-texture.lisp	Wed Jun 15 23:08:02 2005
@@ -72,7 +72,7 @@
                     (cdr (image-size self)))))
       ;; (assert (not *ogl-listing-p*))
       (assert (plusp tx))
-      (ukt::trc "!!!!wand-image-to-texture genning new tx:" tx)
+      ;; (trc "!!!!wand-image-to-texture genning new tx: ~a" tx)
       (gl-bind-texture gl_texture_2d tx)
       
       (progn ;; useless??
@@ -96,7 +96,7 @@
   
   (defmethod wand-render ((self wand-texture) left top right bottom
                           &aux (sz (image-size self)))
-    (ukt::trc nil "wand-render tex-name:" (texture-name self) (tile-p self) self
+    #+not (trc nil "wand-render tex-name:" (texture-name self) (tile-p self) self
       :size sz :bbox (list left top right bottom))
     
     (with-attrib  (gl_texture_bit);; gl_enable_bit gl_hint_bit gl_line_bit gl_color_buffer_bit) 




More information about the Cello-cvs mailing list