| … | |
… | |
| 65 | # w => $surface->width, |
65 | # w => $surface->width, |
| 66 | # h => $surface->height, |
66 | # h => $surface->height, |
| 67 | # ) |
67 | # ) |
| 68 | #} |
68 | #} |
| 69 | |
69 | |
| 70 | sub new_from_layout { |
70 | #sub new_from_layout { |
| 71 | my ($class, $layout, %arg) = @_; |
71 | # my ($class, $layout, %arg) = @_; |
| 72 | |
72 | # |
| 73 | my ($w, $h, $data, $format, $internalformat) = $layout->render; |
73 | # my ($w, $h, $data, $format, $internalformat) = $layout->render; |
| 74 | |
74 | # |
| 75 | $class->new ( |
75 | # $class->new ( |
| 76 | w => $w, |
76 | # w => $w, |
| 77 | h => $h, |
77 | # h => $h, |
| 78 | data => $data, |
78 | # data => $data, |
| 79 | format => $format, |
79 | # format => $format, |
| 80 | internalformat => $format, |
80 | # internalformat => $format, |
| 81 | type => GL_UNSIGNED_BYTE, |
81 | # type => GL_UNSIGNED_BYTE, |
| 82 | %arg, |
82 | # %arg, |
| 83 | ) |
83 | # ) |
| 84 | } |
84 | #} |
| 85 | |
85 | |
| 86 | sub new_from_opengl { |
86 | sub new_from_opengl { |
| 87 | my ($class, $w, $h, $cb) = @_; |
87 | my ($class, $w, $h, $cb) = @_; |
| 88 | |
88 | |
| 89 | $class->new (w => $w || 1, h => $h || 1, render_cb => $cb) |
89 | $class->new (w => $w || 1, h => $h || 1, render_cb => $cb) |
