… | |
… | |
201 | #} |
201 | #} |
202 | |
202 | |
203 | sub new_from_layout { |
203 | sub new_from_layout { |
204 | my ($class, $layout, %arg) = @_; |
204 | my ($class, $layout, %arg) = @_; |
205 | |
205 | |
206 | my ($w, $h, $data) = $layout->render; |
206 | my ($w, $h, $data, $format, $internalformat) = $layout->render; |
207 | |
207 | |
208 | $class->new ( |
208 | $class->new ( |
209 | w => $w, |
209 | w => $w, |
210 | h => $h, |
210 | h => $h, |
211 | data => $data, |
211 | data => $data, |
212 | format => GL_ALPHA, |
212 | format => $format, |
213 | internalformat => GL_ALPHA, |
213 | internalformat => $format, |
214 | type => GL_UNSIGNED_BYTE, |
214 | type => GL_UNSIGNED_BYTE, |
215 | %arg, |
215 | %arg, |
216 | ) |
216 | ) |
217 | } |
217 | } |
218 | |
218 | |