Update of /project/cello/cvsroot/cello/kt-opengl In directory clnet:/tmp/cvs-serv2556/kt-opengl Modified Files: ogl-utils.lisp Log Message: --- /project/cello/cvsroot/cello/kt-opengl/ogl-utils.lisp 2006/08/21 04:28:29 1.4 +++ /project/cello/cvsroot/cello/kt-opengl/ogl-utils.lisp 2006/08/24 17:35:08 1.5 @@ -81,6 +81,12 @@ (gl-get-integerv gl_scissor_box box) box)) +(ukt::export! ogl-current-color) +(defun ogl-current-color () + (let ((rgba (fgn-alloc 'glint 4 :ogl-current-color))) + (gl-get-integerv gl_current_color rgba) + rgba)) + (defun ogl-bounds (ff-box) (loop for n below 4 collecting (eltgli ff-box n)))