Deliantra-Client/DC/OpenGL.pm

package CFPlus::OpenGL;

use strict;

use Carp ();
use CFPlus;

our %GL_EXT;
our $GL_VERSION;

our $GL_NPOT;
our $GL_COMPRESS;
our $GL_BFSEP; # blendfuncseparate

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;

   unless (defined $::CFG->{force_opengl11}) {
      # try to find a suitable default
      if (
         $GL_VERSION >= 2.0
         && (!$GL_EXT{GL_ARB_texture_non_power_of_two}
             || !$GL_EXT{GL_EXT_blend_func_separate})
     ) {
        $::CFG->{force_opengl11} = 1;
     } else {
        $::CFG->{force_opengl11} = 0;
     }
   }

   if ($::CFG->{force_opengl11}) {
      $GL_VERSION = 1.1;
      %GL_EXT = ();
   }

   $GL_BFSEP    = $GL_EXT{GL_EXT_blend_func_separate}      || $GL_VERSION >= 2.0;
   $GL_NPOT     = $GL_EXT{GL_ARB_texture_non_power_of_two} || $GL_VERSION >= 2.0;
   $GL_COMPRESS = $GL_EXT{GL_ARB_texture_compression}      || $GL_VERSION >= 1.3;

   disable_GL_EXT_blend_func_separate
      unless $GL_BFSEP;

   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.10
Committed:	Sun Aug 19 14:09:28 2007 UTC (16 years, 9 months ago) by root
Branch:	MAIN
Changes since 1.9:	+21 -3 lines
Log Message:	- found another reason fx gpus are so slow: they also emulate blendfuncseparate in sofware, resulting in major slowdowns. worse, force_opengl11 did not disable usage of this 2.0 extension at all. - auto-guess the initial setting of force_opengl11 to be off for cards announcing opengl 2.0 support but not the earlier extensions included in it, which supposedly is enough to rule out geforce fx cards.
#	User	Rev	Content
1	root	1.4	package CFPlus::OpenGL;
2	root	1.1
3			use strict;
4
5	root	1.2	use Carp ();
6	root	1.4	use CFPlus;
7	root	1.2
8			our %GL_EXT;
9			our $GL_VERSION;
10
11			our $GL_NPOT;
12	root	1.9	our $GL_COMPRESS;
13	root	1.10	our $GL_BFSEP; # blendfuncseparate
14	root	1.2
15			our $DEBUG = 1;
16			our %INIT_HOOK;
17	root	1.3	our %SHUTDOWN_HOOK;
18	root	1.1
19			sub import {
20			my $caller = caller;
21
22			no strict;
23
24	root	1.4	my $symtab = *{"main::CFPlus::OpenGL::"}{HASH};
25	root	1.1
26			for (keys %$symtab) {
27	root	1.2	{"$caller\::$_"} = $_
28			if /^(?:gl[A-Z_]\|GL_)/;
29	root	1.1	}
30			}
31
32	root	1.2	sub init {
33	root	1.10	$GL_VERSION = gl_version * 1;
34			%GL_EXT = map +($_ => 1), split /\s+/, gl_extensions;
35
36			unless (defined $::CFG->{force_opengl11}) {
37			# try to find a suitable default
38			if (
39			$GL_VERSION >= 2.0
40			&& (!$GL_EXT{GL_ARB_texture_non_power_of_two}
41			\|\| !$GL_EXT{GL_EXT_blend_func_separate})
42			) {
43			$::CFG->{force_opengl11} = 1;
44			} else {
45			$::CFG->{force_opengl11} = 0;
46			}
47			}
48
49	root	1.9	if ($::CFG->{force_opengl11}) {
50	root	1.8	$GL_VERSION = 1.1;
51			%GL_EXT = ();
52			}
53	root	1.2
54	root	1.10	$GL_BFSEP = $GL_EXT{GL_EXT_blend_func_separate} \|\| $GL_VERSION >= 2.0;
55	root	1.9	$GL_NPOT = $GL_EXT{GL_ARB_texture_non_power_of_two} \|\| $GL_VERSION >= 2.0;
56			$GL_COMPRESS = $GL_EXT{GL_ARB_texture_compression} \|\| $GL_VERSION >= 1.3;
57	root	1.2
58	root	1.10	disable_GL_EXT_blend_func_separate
59			unless $GL_BFSEP;
60
61	root	1.2	glDisable GL_COLOR_MATERIAL;
62			glShadeModel GL_FLAT;
63			glDisable GL_DITHER;
64			glDisable GL_DEPTH_TEST;
65			glDepthMask 0;
66	root	1.5
67			my $hint = $::FAST ? GL_FASTEST : GL_NICEST;
68			glHint GL_PERSPECTIVE_CORRECTION_HINT, $hint;
69	root	1.6	glHint GL_POINT_SMOOTH_HINT , $hint;
70	root	1.5	glHint GL_LINE_SMOOTH_HINT , $hint;
71			glHint GL_POLYGON_SMOOTH_HINT , $hint;
72			glHint GL_GENERATE_MIPMAP_HINT , $hint;
73			#glDrawBuffer GL_BACK;
74			#glReadBuffer GL_BACK;
75	root	1.2
76			$_->() for values %INIT_HOOK;
77			}
78
79	root	1.3	sub shutdown {
80			$_->() for values %SHUTDOWN_HOOK;
81			}
82
83	root	1.2	sub gl_check {
84			return unless $DEBUG;
85
86			if (my $error = glGetError) {
87			my ($format, @args) = @_;
88			Carp::cluck sprintf "opengl error %x while $format", $error, @args;
89			}
90			}
91
92			1;
93