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.4 by root, Sun Jul 30 13:16:44 2006 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;
12 12
13our $DEBUG = 1; 13our $DEBUG = 1;
14our %INIT_HOOK; 14our %INIT_HOOK;
15our %SHUTDOWN_HOOK;
15 16
16sub import { 17sub import {
17 my $caller = caller; 18 my $caller = caller;
18 19
19 no strict; 20 no strict;
20 21
21 my $symtab = *{"main::CFClient::OpenGL::"}{HASH}; 22 my $symtab = *{"main::CFPlus::OpenGL::"}{HASH};
22 23
23 for (keys %$symtab) { 24 for (keys %$symtab) {
24 *{"$caller\::$_"} = *$_ 25 *{"$caller\::$_"} = *$_
25 if /^(?:gl[A-Z_]|GL_)/; 26 if /^(?:gl[A-Z_]|GL_)/;
26 } 27 }
… …
37 glShadeModel GL_FLAT; 38 glShadeModel GL_FLAT;
38 glDisable GL_DITHER; 39 glDisable GL_DITHER;
39 glDisable GL_DEPTH_TEST; 40 glDisable GL_DEPTH_TEST;
40 glDepthMask 0; 41 glDepthMask 0;
41 glHint GL_PERSPECTIVE_CORRECTION_HINT, GL_FASTEST; 42 glHint GL_PERSPECTIVE_CORRECTION_HINT, GL_FASTEST;
43 glDrawBuffer GL_BACK;
44 glReadBuffer GL_BACK;
42 45
43 $_->() for values %INIT_HOOK; 46 $_->() for values %INIT_HOOK;
47}
48
49sub shutdown {
50 $_->() for values %SHUTDOWN_HOOK;
44} 51}
45 52
46sub gl_check { 53sub gl_check {
47 return unless $DEBUG; 54 return unless $DEBUG;
48 55

Diff Legend

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