[cello-cvs] CVS cello/kt-opengl

[ktilton]

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