--- deliantra/Deliantra-Client/DC/OpenGL.pm 2006/05/26 18:28:23 1.2 +++ deliantra/Deliantra-Client/DC/OpenGL.pm 2006/06/17 15:07:53 1.3 @@ -12,6 +12,7 @@ our $DEBUG = 1; our %INIT_HOOK; +our %SHUTDOWN_HOOK; sub import { my $caller = caller; @@ -39,10 +40,16 @@ glDisable GL_DEPTH_TEST; glDepthMask 0; glHint GL_PERSPECTIVE_CORRECTION_HINT, GL_FASTEST; + glDrawBuffer GL_BACK; + glReadBuffer GL_BACK; $_->() for values %INIT_HOOK; } +sub shutdown { + $_->() for values %SHUTDOWN_HOOK; +} + sub gl_check { return unless $DEBUG;