| … | |
… | |
| 148 | } |
148 | } |
| 149 | |
149 | |
| 150 | sub _draw { |
150 | sub _draw { |
| 151 | my ($self) = @_; |
151 | my ($self) = @_; |
| 152 | |
152 | |
| 153 | my ($w, $h) = $self->size_request;#TODO# use widht/height of texture |
153 | my ($w, $h) = $self->size_request;#TODO# use width/height of texture |
|
|
154 | |
| 154 | my $tex = $self->{texture} |
155 | my $tex = $self->{texture} |
| 155 | or return; |
156 | or return; |
| 156 | |
157 | |
| 157 | glEnable GL_BLEND; |
158 | glEnable GL_BLEND; |
| 158 | glEnable GL_TEXTURE_2D; |
159 | glEnable GL_TEXTURE_2D; |
| … | |
… | |
| 369 | glEnable GL_BLEND; |
370 | glEnable GL_BLEND; |
| 370 | glEnable GL_TEXTURE_2D; |
371 | glEnable GL_TEXTURE_2D; |
| 371 | glTexEnv GL_TEXTURE_ENV, GL_TEXTURE_ENV_MODE, GL_MODULATE; |
372 | glTexEnv GL_TEXTURE_ENV, GL_TEXTURE_ENV_MODE, GL_MODULATE; |
| 372 | glBindTexture GL_TEXTURE_2D, $tex->{name}; |
373 | glBindTexture GL_TEXTURE_2D, $tex->{name}; |
| 373 | |
374 | |
| 374 | glColor 1, 0, 1; |
375 | glColor 1, 1, 1, 0.8; |
| 375 | |
376 | |
| 376 | glBegin GL_QUADS; |
377 | glBegin GL_QUADS; |
| 377 | glTexCoord 0, 0; glVertex 0 , 0; |
378 | glTexCoord 0, 0; glVertex 0 , 0; |
| 378 | glTexCoord 0, 1; glVertex 0 , $tex->{height}; |
379 | glTexCoord 0, 1; glVertex 0 , $tex->{height}; |
| 379 | glTexCoord 1, 1; glVertex $tex->{width}, $tex->{height}; |
380 | glTexCoord 1, 1; glVertex $tex->{width}, $tex->{height}; |
