… | |
… | |
74 | $GL_EXT{GL_ARB_texture_non_power_of_two} |
74 | $GL_EXT{GL_ARB_texture_non_power_of_two} |
75 | or warn "WARNING: non-power-of-two opengl extension required"; |
75 | or warn "WARNING: non-power-of-two opengl extension required"; |
76 | |
76 | |
77 | $FONTSIZE = int $HEIGHT / 50; |
77 | $FONTSIZE = int $HEIGHT / 50; |
78 | |
78 | |
|
|
79 | ############################################################################# |
|
|
80 | |
|
|
81 | glClearColor 0, 0, 0, 0; |
|
|
82 | |
|
|
83 | glEnable GL_TEXTURE_2D; |
|
|
84 | glEnable GL_COLOR_MATERIAL; |
|
|
85 | glShadeModel GL_FLAT; |
|
|
86 | glDisable GL_DEPTH_TEST; |
|
|
87 | glBlendFunc GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA; |
|
|
88 | |
|
|
89 | $_->() for @GL_INIT; |
|
|
90 | |
|
|
91 | ############################################################################# |
|
|
92 | |
79 | $STATUS_LINE = new Crossfire::Client::Widget::Label |
93 | $STATUS_LINE = new Crossfire::Client::Widget::Label |
80 | 0, $HEIGHT * 59 / 60 - $FONTSIZE, 1, $FONTSIZE, |
94 | 0, $HEIGHT * 59 / 60 - $FONTSIZE, 1, $FONTSIZE, |
81 | ""; |
95 | ""; |
82 | $TOPLEVEL->add ($STATUS_LINE); |
96 | $TOPLEVEL->add ($STATUS_LINE); |
83 | |
97 | |
… | |
… | |
110 | $TOPLEVEL->add ($tw); |
124 | $TOPLEVEL->add ($tw); |
111 | |
125 | |
112 | # $f->move ($WIDTH - 200, 0); |
126 | # $f->move ($WIDTH - 200, 0); |
113 | # $TOPLEVEL->add ($f); |
127 | # $TOPLEVEL->add ($f); |
114 | } |
128 | } |
115 | |
|
|
116 | glClearColor 0, 0, 0, 0; |
|
|
117 | |
|
|
118 | glEnable GL_TEXTURE_2D; |
|
|
119 | glEnable GL_COLOR_MATERIAL; |
|
|
120 | glShadeModel GL_FLAT; |
|
|
121 | glDisable GL_DEPTH_TEST; |
|
|
122 | glBlendFunc GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA; |
|
|
123 | |
|
|
124 | $_->() for @GL_INIT; |
|
|
125 | } |
129 | } |
126 | |
130 | |
127 | sub start_game { |
131 | sub start_game { |
128 | $SDL_TIMER = add Glib::Timeout 1000/50, sub { |
132 | $SDL_TIMER = add Glib::Timeout 1000/50, sub { |
129 | ($SDL_CB{$SDL_EV->type} || sub { warn "unhandled event ", $SDL_EV->type })->() |
133 | ($SDL_CB{$SDL_EV->type} || sub { warn "unhandled event ", $SDL_EV->type })->() |