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

Diff Legend

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