[cello-cvs] CVS cello/kt-opengl

[fgoenninger]

Update of /project/cello/cvsroot/cello/kt-opengl
In directory clnet:/tmp/cvs-serv20427

Modified Files:
	ogl-macros.lisp 
Log Message:
Code cleanup.

--- /project/cello/cvsroot/cello/kt-opengl/ogl-macros.lisp	2006/10/01 12:30:01	1.9
+++ /project/cello/cvsroot/cello/kt-opengl/ogl-macros.lisp	2006/10/01 20:42:51	1.10
@@ -93,6 +93,10 @@
     (gl-pop-client-attrib)
     (glec :with-client-attrib-pop)))
 
+(defmacro with-ogl-isolation (&body body)
+  `(with-attrib (gl_lighting_bit gl_texture_bit gl_enable_bit gl_hint_bit gl_line_bit gl_color_buffer_bit)
+     , at body))
+
 (defvar *gl-begun*)
 (defvar *gl-stop*)