| … | … | ||
|---|---|---|---|
| 210 | } | 210 | } |
| 211 | 211 | ||
| 212 | sub new_from_opengl { | 212 | sub new_from_opengl { |
| 213 | my ($class, $w, $h, $cb) = @_; | 213 | my ($class, $w, $h, $cb) = @_; |
| 214 | 214 | ||
| 215 | $class->new (w => $w, h => $h, render_cb => $cb) | 215 | $class->new (w => $w || 1, h => $h || 1, render_cb => $cb) |
| 216 | } | 216 | } |
| 217 | 217 | ||
| 218 | sub topot { | 218 | sub topot { |
| 219 | (grep $_ >= $_[0], 1, 2, 4, 8, 16, 32, 64, 128, 256, 512, 1024, 2048, 4096, 8192, 16384, 32768)[0] | 219 | (grep $_ >= $_[0], 1, 2, 4, 8, 16, 32, 64, 128, 256, 512, 1024, 2048, 4096, 8192, 16384, 32768)[0] |
| 220 | } | 220 | } |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |