Deliantra-Client/DC/OpenGL.pm

package CFPlus::OpenGL;

use strict;

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::CFPlus::OpenGL::"}{HASH};

   for (keys %$symtab) {
      *{"$caller\::$_"} = *$_
         if /^(?:gl[A-Z_]|GL_)/;
   }
}

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 = $GL_VERSION >= 2; # some pre-2.0 cards seem to fall back to software rendering
   $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_POINT_SMOOTH_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;

Revision:	1.7
Committed:	Thu Aug 9 05:38:30 2007 UTC (16 years, 10 months ago) by root
Branch:	MAIN
Changes since 1.6:	+2 -1 lines
Log Message:	disable npot on <2.0 opengl cards as those might announce support for it but then fall back to software rendering once you use mipmapping and other stuff.
#	Content
1	package CFPlus::OpenGL;
2
3	use strict;
4
5	use Carp ();
6	use CFPlus;
7
8	our %GL_EXT;
9	our $GL_VERSION;
10
11	our $GL_NPOT;
12
13	our $DEBUG = 1;
14	our %INIT_HOOK;
15	our %SHUTDOWN_HOOK;
16
17	sub import {
18	my $caller = caller;
19
20	no strict;
21
22	my $symtab = *{"main::CFPlus::OpenGL::"}{HASH};
23
24	for (keys %$symtab) {
25	{"$caller\::$_"} = $_
26	if /^(?:gl[A-Z_]\|GL_)/;
27	}
28	}
29
30	sub init {
31	$GL_VERSION = gl_version * 1;
32	%GL_EXT = map +($_ => 1), split /\s+/, gl_extensions;
33
34	# $GL_NPOT = $GL_EXT{GL_ARB_texture_non_power_of_two} \|\| $GL_VERSION >= 2;
35	$GL_NPOT = $GL_VERSION >= 2; # some pre-2.0 cards seem to fall back to software rendering
36	$GL_NPOT = 0 if gl_vendor =~ /ATI Technologies/; # ATI doesn't get it right...
37
38	glDisable GL_COLOR_MATERIAL;
39	glShadeModel GL_FLAT;
40	glDisable GL_DITHER;
41	glDisable GL_DEPTH_TEST;
42	glDepthMask 0;
43
44	my $hint = $::FAST ? GL_FASTEST : GL_NICEST;
45	glHint GL_PERSPECTIVE_CORRECTION_HINT, $hint;
46	glHint GL_POINT_SMOOTH_HINT , $hint;
47	glHint GL_LINE_SMOOTH_HINT , $hint;
48	glHint GL_POLYGON_SMOOTH_HINT , $hint;
49	glHint GL_GENERATE_MIPMAP_HINT , $hint;
50	#glDrawBuffer GL_BACK;
51	#glReadBuffer GL_BACK;
52
53	$_->() for values %INIT_HOOK;
54	}
55
56	sub shutdown {
57	$_->() for values %SHUTDOWN_HOOK;
58	}
59
60	sub gl_check {
61	return unless $DEBUG;
62
63	if (my $error = glGetError) {
64	my ($format, @args) = @_;
65	Carp::cluck sprintf "opengl error %x while $format", $error, @args;
66	}
67	}
68
69	1;
70