| … | |
… | |
| 148 | $data = $self->{data}; |
148 | $data = $self->{data}; |
| 149 | } elsif (exists $self->{rendercb}) { |
149 | } elsif (exists $self->{rendercb}) { |
| 150 | glViewport 0, 0, $self->{width}, $self->{height}; |
150 | glViewport 0, 0, $self->{width}, $self->{height}; |
| 151 | glMatrixMode GL_PROJECTION; |
151 | glMatrixMode GL_PROJECTION; |
| 152 | glLoadIdentity; |
152 | glLoadIdentity; |
| 153 | glOrtho 0, $self->{width}, 0, $self->{height}, -100, 100; |
153 | glOrtho 0, $self->{width}, 0, $self->{height}, -10000, 10000; |
| 154 | glMatrixMode GL_MODELVIEW; |
154 | glMatrixMode GL_MODELVIEW; |
| 155 | glPushmatrix; |
155 | glPushmatrix; |
| 156 | glLoadIdentity; |
156 | glLoadIdentity; |
| 157 | glClear GL_COLOR_BUFFER_BIT; |
157 | glClear GL_COLOR_BUFFER_BIT; |
| 158 | |
158 | |
| … | |
… | |
| 206 | return unless exists $self->{name}; |
206 | return unless exists $self->{name}; |
| 207 | |
207 | |
| 208 | glDeleteTextures delete $self->{name}; |
208 | glDeleteTextures delete $self->{name}; |
| 209 | } |
209 | } |
| 210 | |
210 | |
| 211 | push @::GLINIT, sub { |
211 | push @::GL_INIT, sub { |
| 212 | $_->upload |
212 | $_->upload |
| 213 | for grep $_, @textures; |
213 | for grep $_, @textures; |
| 214 | }; |
214 | }; |
| 215 | |
215 | |
| 216 | 1; |
216 | 1; |
