ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/deliantra/Deliantra-Client/DC/OpenGL.pm
(Generate patch)

Comparing deliantra/Deliantra-Client/DC/OpenGL.pm (file contents):
Revision 1.2 by root, Fri May 26 18:28:23 2006 UTC vs.
Revision 1.12 by root, Wed Dec 26 19:11:13 2007 UTC

1package CFClient::OpenGL; 1package CFPlus::OpenGL;
2 2
3use strict; 3use strict;
4 4
5use Carp (); 5use Carp ();
6use CFClient; 6use CFPlus;
7 7
8our %GL_EXT; 8our %GL_EXT;
9our $GL_VERSION; 9our $GL_VERSION;
10 10
11our $GL_NPOT; 11our $GL_NPOT;
12our $GL_COMPRESS;
13our $GL_BFSEP; # blendfuncseparate
12 14
13our $DEBUG = 1; 15our $DEBUG = 1;
14our %INIT_HOOK; 16our %INIT_HOOK;
17our %SHUTDOWN_HOOK;
15 18
16sub import { 19sub import {
17 my $caller = caller; 20 my $caller = caller;
18 21
19 no strict; 22 no strict;
20 23
21 my $symtab = *{"main::CFClient::OpenGL::"}{HASH}; 24 my $symtab = *{"main::CFPlus::OpenGL::"}{HASH};
22 25
23 for (keys %$symtab) { 26 for (keys %$symtab) {
24 *{"$caller\::$_"} = *$_ 27 *{"$caller\::$_"} = *$_
25 if /^(?:gl[A-Z_]|GL_)/; 28 if /^(?:gl[A-Z_]|GL_)/;
26 } 29 }
… …
28 31
29sub init { 32sub init {
30 $GL_VERSION = gl_version * 1; 33 $GL_VERSION = gl_version * 1;
31 %GL_EXT = map +($_ => 1), split /\s+/, gl_extensions; 34 %GL_EXT = map +($_ => 1), split /\s+/, gl_extensions;
32 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;
33 $GL_NPOT = $GL_EXT{GL_ARB_texture_non_power_of_two} || $GL_VERSION >= 2; 55 $GL_NPOT = $GL_EXT{GL_ARB_texture_non_power_of_two} || $GL_VERSION >= 2.0;
34 $GL_NPOT = 0 if gl_vendor =~ /ATI Technologies/; # ATI doesn't get it right... 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;
35 60
36 glDisable GL_COLOR_MATERIAL; 61 glDisable GL_COLOR_MATERIAL;
37 glShadeModel GL_FLAT; 62 glShadeModel GL_FLAT;
38 glDisable GL_DITHER; 63 glDisable GL_DITHER;
39 glDisable GL_DEPTH_TEST; 64 glDisable GL_DEPTH_TEST;
40 glDepthMask 0; 65 glDepthMask 0;
66
67 my $hint = $::FAST ? GL_FASTEST : GL_NICEST;
41 glHint GL_PERSPECTIVE_CORRECTION_HINT, GL_FASTEST; 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 glHint GL_TEXTURE_COMPRESSION_HINT , $hint;
74 #glDrawBuffer GL_BACK;
75 #glReadBuffer GL_BACK;
42 76
43 $_->() for values %INIT_HOOK; 77 $_->() for values %INIT_HOOK;
78}
79
80sub quit {
81 undef $GL_VERSION;
82 undef %GL_EXT;
83}
84
85sub shutdown {
86 $_->() for values %SHUTDOWN_HOOK;
87
88 quit;
44} 89}
45 90
46sub gl_check { 91sub gl_check {
47 return unless $DEBUG; 92 return unless $DEBUG;
48 93

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines