--- deliantra/Deliantra-Client/DC/OpenGL.pm 2006/05/26 18:28:23 1.2 +++ deliantra/Deliantra-Client/DC/OpenGL.pm 2006/07/30 13:16:44 1.4 @@ -1,9 +1,9 @@ -package CFClient::OpenGL; +package CFPlus::OpenGL; use strict; use Carp (); -use CFClient; +use CFPlus; our %GL_EXT; our $GL_VERSION; @@ -12,13 +12,14 @@ our $DEBUG = 1; our %INIT_HOOK; +our %SHUTDOWN_HOOK; sub import { my $caller = caller; no strict; - my $symtab = *{"main::CFClient::OpenGL::"}{HASH}; + my $symtab = *{"main::CFPlus::OpenGL::"}{HASH}; for (keys %$symtab) { *{"$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;