… | |
… | |
26 | |
26 | |
27 | our $FACECACHE; |
27 | our $FACECACHE; |
28 | |
28 | |
29 | our $CFG; |
29 | our $CFG; |
30 | our $CONN; |
30 | our $CONN; |
|
|
31 | our $FAST; # fast, low-quality mode |
31 | |
32 | |
32 | our @SDL_MODES; |
33 | our @SDL_MODES; |
33 | our $WIDTH; |
34 | our $WIDTH; |
34 | our $HEIGHT; |
35 | our $HEIGHT; |
35 | our $FULLSCREEN; |
36 | our $FULLSCREEN; |
… | |
… | |
82 | $last_refresh = SDL::GetTicks; |
83 | $last_refresh = SDL::GetTicks; |
83 | |
84 | |
84 | CFClient::gl_init; |
85 | CFClient::gl_init; |
85 | |
86 | |
86 | $FONTSIZE = int $HEIGHT / 40; |
87 | $FONTSIZE = int $HEIGHT / 40; |
87 | |
|
|
88 | ############################################################################# |
|
|
89 | |
|
|
90 | glClearColor 0.45, 0.45, 0.45, 1; |
|
|
91 | |
|
|
92 | glEnable GL_TEXTURE_2D; |
|
|
93 | glEnable GL_COLOR_MATERIAL; |
|
|
94 | glShadeModel GL_FLAT; |
|
|
95 | glDisable GL_DEPTH_TEST; |
|
|
96 | glBlendFunc GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA; |
|
|
97 | |
88 | |
98 | ############################################################################# |
89 | ############################################################################# |
99 | |
90 | |
100 | $DEBUG_STATUS = new CFClient::UI::Label padding => 0; |
91 | $DEBUG_STATUS = new CFClient::UI::Label padding => 0; |
101 | $CFClient::UI::TOPLEVEL->add ($DEBUG_STATUS); |
92 | $CFClient::UI::TOPLEVEL->add ($DEBUG_STATUS); |