| … | |
… | |
| 1658 | : ($self->{h} - $tex->{h}) * 0.5); |
1658 | : ($self->{h} - $tex->{h}) * 0.5); |
| 1659 | }; |
1659 | }; |
| 1660 | |
1660 | |
| 1661 | glEnable GL_TEXTURE_2D; |
1661 | glEnable GL_TEXTURE_2D; |
| 1662 | |
1662 | |
|
|
1663 | my $w = List::Util::min $self->{w} + 4, $tex->{w}; |
|
|
1664 | my $h = List::Util::min $self->{h} + 2, $tex->{h}; |
|
|
1665 | |
| 1663 | if ($tex->{format} == GL_ALPHA) { |
1666 | if ($tex->{format} == GL_ALPHA) { |
| 1664 | glTexEnv GL_TEXTURE_ENV, GL_TEXTURE_ENV_MODE, GL_MODULATE; |
1667 | glTexEnv GL_TEXTURE_ENV, GL_TEXTURE_ENV_MODE, GL_MODULATE; |
| 1665 | glColor @{$self->{fg}}; |
1668 | glColor @{$self->{fg}}; |
| 1666 | $tex->draw_quad_alpha ($self->{ox}, $self->{oy}); |
1669 | $tex->draw_quad_alpha ($self->{ox}, $self->{oy}, $w, $h); |
| 1667 | } else { |
1670 | } else { |
| 1668 | glTexEnv GL_TEXTURE_ENV, GL_TEXTURE_ENV_MODE, GL_REPLACE; |
1671 | glTexEnv GL_TEXTURE_ENV, GL_TEXTURE_ENV_MODE, GL_REPLACE; |
| 1669 | $tex->draw_quad_alpha_premultiplied ($self->{ox}, $self->{oy}); |
1672 | $tex->draw_quad_alpha_premultiplied ($self->{ox}, $self->{oy}, $w, $h); |
| 1670 | } |
1673 | } |
| 1671 | |
1674 | |
| 1672 | glDisable GL_TEXTURE_2D; |
1675 | glDisable GL_TEXTURE_2D; |
| 1673 | } |
1676 | } |
| 1674 | |
1677 | |
