| … | |
… | |
| 306 | } |
306 | } |
| 307 | |
307 | |
| 308 | sub update { |
308 | sub update { |
| 309 | my ($self) = @_; |
309 | my ($self) = @_; |
| 310 | |
310 | |
|
|
311 | # we want to do this delayed... |
| 311 | $self->render_chld; |
312 | $self->render_chld; |
| 312 | $self->SUPER::update; |
313 | $self->SUPER::update; |
| 313 | } |
314 | } |
| 314 | |
315 | |
| 315 | sub render_chld { |
316 | sub render_chld { |
| … | |
… | |
| 639 | |
640 | |
| 640 | $height ||= $::FONTSIZE; |
641 | $height ||= $::FONTSIZE; |
| 641 | |
642 | |
| 642 | # TODO: color, and make height, xyz etc. optional |
643 | # TODO: color, and make height, xyz etc. optional |
| 643 | my $self = $class->SUPER::new ( |
644 | my $self = $class->SUPER::new ( |
|
|
645 | color => [1, 1, 1], |
| 644 | x => $x, |
646 | x => $x, |
| 645 | y => $y, |
647 | y => $y, |
| 646 | z => $z, |
648 | z => $z, |
| 647 | height => $height, |
649 | height => $height, |
| 648 | layout => new CFClient::Layout $height, |
650 | layout => new CFClient::Layout $height, |
| … | |
… | |
| 703 | glEnable GL_BLEND; |
705 | glEnable GL_BLEND; |
| 704 | glEnable GL_TEXTURE_2D; |
706 | glEnable GL_TEXTURE_2D; |
| 705 | glBlendFunc GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA; |
707 | glBlendFunc GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA; |
| 706 | glTexEnv GL_TEXTURE_ENV, GL_TEXTURE_ENV_MODE, GL_MODULATE; |
708 | glTexEnv GL_TEXTURE_ENV, GL_TEXTURE_ENV_MODE, GL_MODULATE; |
| 707 | |
709 | |
| 708 | glColor 1, 0, 0, 1; # TODO color |
710 | glColor @{$self->{color}}; |
| 709 | |
711 | |
| 710 | $tex->draw_quad (0, 0); |
712 | $tex->draw_quad (0, 0); |
| 711 | |
713 | |
| 712 | glDisable GL_BLEND; |
714 | glDisable GL_BLEND; |
| 713 | glDisable GL_TEXTURE_2D; |
715 | glDisable GL_TEXTURE_2D; |
