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)))) + + +