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.3 by root, Sat Jun 17 15:07:53 2006 UTC vs.
Revision 1.8 by root, Sun Aug 12 01:49:09 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;
… …
17sub import { 17sub import {
18 my $caller = caller; 18 my $caller = caller;
19 19
20 no strict; 20 no strict;
21 21
22 my $symtab = *{"main::CFClient::OpenGL::"}{HASH}; 22 my $symtab = *{"main::CFPlus::OpenGL::"}{HASH};
23 23
24 for (keys %$symtab) { 24 for (keys %$symtab) {
25 *{"$caller\::$_"} = *$_ 25 *{"$caller\::$_"} = *$_
26 if /^(?:gl[A-Z_]|GL_)/; 26 if /^(?:gl[A-Z_]|GL_)/;
27 } 27 }
28} 28}
29 29
30sub init { 30sub init {
31 if ($::CFG->{opengl11}) {
32 $GL_VERSION = 1.1;
33 %GL_EXT = ();
34 } else {
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;
37 }
33 38
34 $GL_NPOT = $GL_EXT{GL_ARB_texture_non_power_of_two} || $GL_VERSION >= 2; 39 $GL_NPOT = $GL_EXT{GL_ARB_texture_non_power_of_two} || $GL_VERSION >= 2;
35 $GL_NPOT = 0 if gl_vendor =~ /ATI Technologies/; # ATI doesn't get it right...
36 40
37 glDisable GL_COLOR_MATERIAL; 41 glDisable GL_COLOR_MATERIAL;
38 glShadeModel GL_FLAT; 42 glShadeModel GL_FLAT;
39 glDisable GL_DITHER; 43 glDisable GL_DITHER;
40 glDisable GL_DEPTH_TEST; 44 glDisable GL_DEPTH_TEST;
41 glDepthMask 0; 45 glDepthMask 0;
46
47 my $hint = $::FAST ? GL_FASTEST : GL_NICEST;
42 glHint GL_PERSPECTIVE_CORRECTION_HINT, GL_FASTEST; 48 glHint GL_PERSPECTIVE_CORRECTION_HINT, $hint;
49 glHint GL_POINT_SMOOTH_HINT , $hint;
50 glHint GL_LINE_SMOOTH_HINT , $hint;
51 glHint GL_POLYGON_SMOOTH_HINT , $hint;
52 glHint GL_GENERATE_MIPMAP_HINT , $hint;
43 glDrawBuffer GL_BACK; 53 #glDrawBuffer GL_BACK;
44 glReadBuffer GL_BACK; 54 #glReadBuffer GL_BACK;
45 55
46 $_->() for values %INIT_HOOK; 56 $_->() for values %INIT_HOOK;
47} 57}
48 58
49sub shutdown { 59sub shutdown {

Diff Legend

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