[cells-cvs] CVS update: cell-cultures/cl-opengl/ogl-utils.lisp

[Kenny Tilton]

Update of /project/cells/cvsroot/cell-cultures/cl-opengl
In directory common-lisp.net:/tmp/cvs-serv12927/cl-opengl

Modified Files:
	ogl-utils.lisp 
Log Message:
Delete copy of celtic mainly
Date: Tue Oct 19 05:47:37 2004
Author: ktilton

Index: cell-cultures/cl-opengl/ogl-utils.lisp
diff -u cell-cultures/cl-opengl/ogl-utils.lisp:1.3 cell-cultures/cl-opengl/ogl-utils.lisp:1.4
--- cell-cultures/cl-opengl/ogl-utils.lisp:1.3	Fri Oct 15 05:37:55 2004
+++ cell-cultures/cl-opengl/ogl-utils.lisp	Tue Oct 19 05:47:37 2004
@@ -244,3 +244,15 @@
             (if (consp arg)
                 (mapcan 'flatten arg)
               (list arg))) args))
+
+
+(defparameter *dump-matrix* (fgn-alloc 'glfloat 16 :dump-matrix))
+(defun dump-matrix (matrix-id msg)
+  (gl-get-floatv matrix-id *dump-matrix*)
+  (format t "~&~a > ~a matrix> ~{~a ~}" msg
+    (cond ((eql matrix-id gl_modelview_matrix) 'modelview)
+      ((eql matrix-id GL_PROJECTION_MATRIX) 'projection))
+    (loop for n below 16 collecting (eltf *dump-matrix* n))))
+
+
+