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.
#	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	our $GL_COMPRESS;
13	our $GL_BFSEP; # blendfuncseparate
14
15	our $DEBUG = 1;
16	our %INIT_HOOK;
17	our %SHUTDOWN_HOOK;
18
19	sub import {
20	my $caller = caller;
21
22	no strict;
23
24	my $symtab = *{"main::CFPlus::OpenGL::"}{HASH};
25
26	for (keys %$symtab) {
27	{"$caller\::$_"} = $_
28	if /^(?:gl[A-Z_]\|GL_)/;
29	}
30	}
31
32	sub init {
33	$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	if ($::CFG->{force_opengl11}) {
50	$GL_VERSION = 1.1;
51	%GL_EXT = ();
52	}
53
54	$GL_BFSEP = $GL_EXT{GL_EXT_blend_func_separate} \|\| $GL_VERSION >= 2.0;
55	$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
58	disable_GL_EXT_blend_func_separate
59	unless $GL_BFSEP;
60
61	glDisable GL_COLOR_MATERIAL;
62	glShadeModel GL_FLAT;
63	glDisable GL_DITHER;
64	glDisable GL_DEPTH_TEST;
65	glDepthMask 0;
66
67	my $hint = $::FAST ? GL_FASTEST : GL_NICEST;
68	glHint GL_PERSPECTIVE_CORRECTION_HINT, $hint;
69	glHint GL_POINT_SMOOTH_HINT , $hint;
70	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
76	$_->() for values %INIT_HOOK;
77	}
78
79	sub shutdown {
80	$_->() for values %SHUTDOWN_HOOK;
81	}
82
83	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