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) + ,@body)) + (defvar *gl-begun*) (defvar *gl-stop*)