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.9 by root, Sun Aug 19 12:56:24 2007 UTC vs.
Revision 1.16 by root, Thu Nov 26 07:19:12 2009 UTC

1package CFPlus::OpenGL; 1package DC::OpenGL;
2 2
3use strict; 3use strict;
4 4
5use Carp (); 5use Carp ();
6use CFPlus; 6use DC;
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; 12our $GL_COMPRESS;
13our $GL_BFSEP; # blendfuncseparate
14our $APPLE_NVIDIA_BUG;
13 15
14our $DEBUG = 1; 16our $DEBUG = 1;
15our %INIT_HOOK; 17our %INIT_HOOK;
16our %SHUTDOWN_HOOK; 18our %SHUTDOWN_HOOK;
17 19
18sub import { 20sub import {
19 my $caller = caller; 21 my $caller = caller;
20 22
21 no strict; 23 no strict;
22 24
23 my $symtab = *{"main::CFPlus::OpenGL::"}{HASH}; 25 my $symtab = *{"main::DC::OpenGL::"}{HASH};
24 26
25 for (keys %$symtab) { 27 for (keys %$symtab) {
26 *{"$caller\::$_"} = *$_ 28 *{"$caller\::$_"} = *$_
27 if /^(?:gl[A-Z_]|GL_)/; 29 if /^(?:gl[A-Z_]|GL_)/;
28 } 30 }
29} 31}
30 32
31sub init { 33sub init {
34 $GL_VERSION = gl_version * 1;
35 %GL_EXT = map +($_ => 1), split /\s+/, gl_extensions;
36
37 unless (defined $::CFG->{force_opengl11}) {
38 # try to find a suitable default
39 if (
40 $GL_VERSION >= 2.0
41 && (!$GL_EXT{GL_ARB_texture_non_power_of_two}
42 || !$GL_EXT{GL_EXT_blend_func_separate})
43 ) {
44 $::CFG->{force_opengl11} = 1;
45 } else {
46 $::CFG->{force_opengl11} = 0;
47 }
48 }
49
32 if ($::CFG->{force_opengl11}) { 50 if ($::CFG->{force_opengl11}) {
33 $GL_VERSION = 1.1; 51 $GL_VERSION = 1.1;
34 %GL_EXT = (); 52 %GL_EXT = ();
35 } else {
36 $GL_VERSION = gl_version * 1;
37 %GL_EXT = map +($_ => 1), split /\s+/, gl_extensions;
38 } 53 }
39 54
55 $GL_BFSEP = $GL_EXT{GL_EXT_blend_func_separate} || $GL_VERSION >= 2.0;
40 $GL_NPOT = $GL_EXT{GL_ARB_texture_non_power_of_two} || $GL_VERSION >= 2.0; 56 $GL_NPOT = $GL_EXT{GL_ARB_texture_non_power_of_two} || $GL_VERSION >= 2.0;
41 $GL_COMPRESS = $GL_EXT{GL_ARB_texture_compression} || $GL_VERSION >= 1.3; 57 $GL_COMPRESS = $GL_EXT{GL_ARB_texture_compression} || $GL_VERSION >= 1.3;
58
59 $GL_COMPRESS = 0 if DC::OpenGL::gl_vendor eq "Apple Computer, Inc."; # there is no end to their suckage
60
61 $APPLE_NVIDIA_BUG = DC::OpenGL::gl_vendor eq "NVIDIA Corporation" && $^O eq "darwin";
62 apple_nvidia_bug $APPLE_NVIDIA_BUG;
63
64 disable_GL_EXT_blend_func_separate
65 unless $GL_BFSEP;
42 66
43 glDisable GL_COLOR_MATERIAL; 67 glDisable GL_COLOR_MATERIAL;
44 glShadeModel GL_FLAT; 68 glShadeModel GL_FLAT;
45 glDisable GL_DITHER; 69 glDisable GL_DITHER;
46 glDisable GL_DEPTH_TEST; 70 glDisable GL_DEPTH_TEST;
… …
50 glHint GL_PERSPECTIVE_CORRECTION_HINT, $hint; 74 glHint GL_PERSPECTIVE_CORRECTION_HINT, $hint;
51 glHint GL_POINT_SMOOTH_HINT , $hint; 75 glHint GL_POINT_SMOOTH_HINT , $hint;
52 glHint GL_LINE_SMOOTH_HINT , $hint; 76 glHint GL_LINE_SMOOTH_HINT , $hint;
53 glHint GL_POLYGON_SMOOTH_HINT , $hint; 77 glHint GL_POLYGON_SMOOTH_HINT , $hint;
54 glHint GL_GENERATE_MIPMAP_HINT , $hint; 78 glHint GL_GENERATE_MIPMAP_HINT , $hint;
79 glHint GL_TEXTURE_COMPRESSION_HINT , $hint;
55 #glDrawBuffer GL_BACK; 80 #glDrawBuffer GL_BACK;
56 #glReadBuffer GL_BACK; 81 #glReadBuffer GL_BACK;
57 82
58 $_->() for values %INIT_HOOK; 83 $_->() for values %INIT_HOOK;
59} 84}
60 85
86sub quit {
87 undef $GL_VERSION;
88 undef %GL_EXT;
89}
90
61sub shutdown { 91sub shutdown {
62 $_->() for values %SHUTDOWN_HOOK; 92 $_->() for values %SHUTDOWN_HOOK;
93
94 quit;
63} 95}
64 96
65sub gl_check { 97sub gl_check {
66 return unless $DEBUG; 98 return unless $DEBUG;
67 99

Diff Legend

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