--- deliantra/Deliantra-Client/DC/OpenGL.pm	2006/04/19 23:37:49	1.1
+++ deliantra/Deliantra-Client/DC/OpenGL.pm	2007/07/19 23:29:17	1.5
@@ -1,20 +1,68 @@
-package CFClient::OpenGL;
+package CFPlus::OpenGL;
 
 use strict;
 
-#use CFClient;
+use Carp ();
+use CFPlus;
+
+our %GL_EXT;
+our $GL_VERSION;
+
+our $GL_NPOT;
+
+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\::$_"} = \&$_
-         if /^(?:gl|GL_)/;
+      *{"$caller\::$_"} = *$_
+         if /^(?:gl[A-Z_]|GL_)/;
    }
 }
 
-1
+sub init {
+   $GL_VERSION = gl_version * 1;
+   %GL_EXT = map +($_ => 1), split /\s+/, gl_extensions;
+
+   $GL_NPOT = $GL_EXT{GL_ARB_texture_non_power_of_two} || $GL_VERSION >= 2;
+   $GL_NPOT = 0 if gl_vendor =~ /ATI Technologies/; # ATI doesn't get it right...
+
+   glDisable GL_COLOR_MATERIAL;
+   glShadeModel GL_FLAT;
+   glDisable GL_DITHER;
+   glDisable GL_DEPTH_TEST;
+   glDepthMask 0;
+
+   my $hint = $::FAST ? GL_FASTEST : GL_NICEST;
+   glHint GL_PERSPECTIVE_CORRECTION_HINT, $hint;
+   glHint GL_LINE_SMOOTH_HINT           , $hint;
+   glHint GL_POLYGON_SMOOTH_HINT        , $hint;
+   glHint GL_GENERATE_MIPMAP_HINT       , $hint;
+   #glDrawBuffer GL_BACK;
+   #glReadBuffer GL_BACK;
+
+   $_->() for values %INIT_HOOK;
+}
+
+sub shutdown {
+   $_->() for values %SHUTDOWN_HOOK;
+}
+
+sub gl_check {
+   return unless $DEBUG;
+
+   if (my $error = glGetError) {
+      my ($format, @args) = @_;
+      Carp::cluck sprintf "opengl error %x while $format", $error, @args;
+   }
+}
+
+1;
+