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