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