… | |
… | |
161 | |
161 | |
162 | # rendering means we need to scale in some way |
162 | # rendering means we need to scale in some way |
163 | my $render = $self->{render_cb} || $rw != $dw || $th != $dh; |
163 | my $render = $self->{render_cb} || $rw != $dw || $th != $dh; |
164 | |
164 | |
165 | if ($render) { |
165 | if ($render) { |
166 | #d#glClear 0,0,0,0; |
|
|
167 | glViewport 0, 0, $tw, $th; |
166 | glViewport 0, 0, $tw, $th; |
|
|
167 | glClear 0, 0, 0, 0; |
168 | glMatrixMode GL_PROJECTION; |
168 | glMatrixMode GL_PROJECTION; |
169 | glLoadIdentity; |
169 | glLoadIdentity; |
170 | glOrtho 0, $tw, 0, $th, -10000, 10000; |
170 | glOrtho 0, $tw, 0, $th, -10000, 10000; |
171 | glMatrixMode GL_MODELVIEW; |
171 | glMatrixMode GL_MODELVIEW; |
172 | glLoadIdentity; |
172 | glLoadIdentity; |