… | |
… | |
2742 | glDrawPixels $w, $h, $format, GL_UNSIGNED_BYTE, $data; |
2742 | glDrawPixels $w, $h, $format, GL_UNSIGNED_BYTE, $data; |
2743 | |
2743 | |
2744 | if (my @w = @{ $para->{widget} }) { |
2744 | if (my @w = @{ $para->{widget} }) { |
2745 | my @s = $layout->get_shapes; |
2745 | my @s = $layout->get_shapes; |
2746 | |
2746 | |
|
|
2747 | glDisable GL_BLEND; |
2747 | for (@w) { |
2748 | for (@w) { |
2748 | my ($dx, $dy) = splice @s, 0, 2, (); |
2749 | my ($dx, $dy) = splice @s, 0, 2, (); |
2749 | |
2750 | |
2750 | $_->{x} = $dx + $para->{indent}; |
2751 | $_->{x} = $dx + $para->{indent}; |
2751 | $_->{y} = $dy + $y - $y0; |
2752 | $_->{y} = $dy + $y - $y0; |
2752 | |
2753 | |
2753 | $_->draw; |
2754 | $_->draw; |
2754 | } |
2755 | } |
|
|
2756 | glEnable GL_BLEND; |
|
|
2757 | glBlendFunc GL_ONE, GL_ONE_MINUS_SRC_ALPHA; |
2755 | } |
2758 | } |
2756 | } |
2759 | } |
2757 | |
2760 | |
2758 | $y += $h; |
2761 | $y += $h; |
2759 | } |
2762 | } |