--- deliantra/Deliantra-Client/DC/OpenGL.pm 2007/08/19 14:09:28 1.10 +++ deliantra/Deliantra-Client/DC/OpenGL.pm 2007/12/26 21:03:21 1.14 @@ -1,9 +1,9 @@ -package CFPlus::OpenGL; +package DC::OpenGL; use strict; use Carp (); -use CFPlus; +use DC; our %GL_EXT; our $GL_VERSION; @@ -21,7 +21,7 @@ no strict; - my $symtab = *{"main::CFPlus::OpenGL::"}{HASH}; + my $symtab = *{"main::DC::OpenGL::"}{HASH}; for (keys %$symtab) { *{"$caller\::$_"} = *$_ @@ -70,14 +70,22 @@ glHint GL_LINE_SMOOTH_HINT , $hint; glHint GL_POLYGON_SMOOTH_HINT , $hint; glHint GL_GENERATE_MIPMAP_HINT , $hint; + glHint GL_TEXTURE_COMPRESSION_HINT , $hint; #glDrawBuffer GL_BACK; #glReadBuffer GL_BACK; $_->() for values %INIT_HOOK; } +sub quit { + undef $GL_VERSION; + undef %GL_EXT; +} + sub shutdown { $_->() for values %SHUTDOWN_HOOK; + + quit; } sub gl_check {