… | |
… | |
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 | |