| … | |
… | |
| 168 | glBindTexture GL_TEXTURE_2D, $tex; |
168 | glBindTexture GL_TEXTURE_2D, $tex; |
| 169 | my $glerr=glGetError(); die "a: ".gluErrorString($glerr)."\n" if $glerr; |
169 | my $glerr=glGetError(); die "a: ".gluErrorString($glerr)."\n" if $glerr; |
| 170 | |
170 | |
| 171 | glTexParameter GL_TEXTURE_2D, GL_TEXTURE_MAG_FILTER, GL_LINEAR; |
171 | glTexParameter GL_TEXTURE_2D, GL_TEXTURE_MAG_FILTER, GL_LINEAR; |
| 172 | glTexParameter GL_TEXTURE_2D, GL_TEXTURE_MIN_FILTER, GL_LINEAR_MIPMAP_LINEAR; |
172 | glTexParameter GL_TEXTURE_2D, GL_TEXTURE_MIN_FILTER, GL_LINEAR_MIPMAP_LINEAR; |
|
|
173 | glTexParameter GL_TEXTURE_2D, GL_TEXTURE_WRAP_S, GL_CLAMP; |
|
|
174 | glTexParameter GL_TEXTURE_2D, GL_TEXTURE_WRAP_T, GL_CLAMP; |
| 173 | |
175 | |
| 174 | $surface->rgba; |
176 | $surface->rgba; |
| 175 | |
177 | |
| 176 | glTexImage2D GL_TEXTURE_2D, 0, |
178 | glTexImage2D GL_TEXTURE_2D, 0, |
| 177 | 4, # components |
179 | 4, # components |
