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.10 by root, Sun Aug 19 14:09:28 2007 UTC vs.
Revision 1.14 by root, Wed Dec 26 21:03:21 2007 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;
… …
19sub import { 19sub import {
20 my $caller = caller; 20 my $caller = caller;
21 21
22 no strict; 22 no strict;
23 23
24 my $symtab = *{"main::CFPlus::OpenGL::"}{HASH}; 24 my $symtab = *{"main::DC::OpenGL::"}{HASH};
25 25
26 for (keys %$symtab) { 26 for (keys %$symtab) {
27 *{"$caller\::$_"} = *$_ 27 *{"$caller\::$_"} = *$_
28 if /^(?:gl[A-Z_]|GL_)/; 28 if /^(?:gl[A-Z_]|GL_)/;
29 } 29 }
… …
68 glHint GL_PERSPECTIVE_CORRECTION_HINT, $hint; 68 glHint GL_PERSPECTIVE_CORRECTION_HINT, $hint;
69 glHint GL_POINT_SMOOTH_HINT , $hint; 69 glHint GL_POINT_SMOOTH_HINT , $hint;
70 glHint GL_LINE_SMOOTH_HINT , $hint; 70 glHint GL_LINE_SMOOTH_HINT , $hint;
71 glHint GL_POLYGON_SMOOTH_HINT , $hint; 71 glHint GL_POLYGON_SMOOTH_HINT , $hint;
72 glHint GL_GENERATE_MIPMAP_HINT , $hint; 72 glHint GL_GENERATE_MIPMAP_HINT , $hint;
73 glHint GL_TEXTURE_COMPRESSION_HINT , $hint;
73 #glDrawBuffer GL_BACK; 74 #glDrawBuffer GL_BACK;
74 #glReadBuffer GL_BACK; 75 #glReadBuffer GL_BACK;
75 76
76 $_->() for values %INIT_HOOK; 77 $_->() for values %INIT_HOOK;
77} 78}
78 79
80sub quit {
81 undef $GL_VERSION;
82 undef %GL_EXT;
83}
84
79sub shutdown { 85sub shutdown {
80 $_->() for values %SHUTDOWN_HOOK; 86 $_->() for values %SHUTDOWN_HOOK;
87
88 quit;
81} 89}
82 90
83sub gl_check { 91sub gl_check {
84 return unless $DEBUG; 92 return unless $DEBUG;
85 93

Diff Legend

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