| … | |
… | |
| 115 | |
115 | |
| 116 | $self |
116 | $self |
| 117 | } |
117 | } |
| 118 | |
118 | |
| 119 | sub new_from_image { |
119 | sub new_from_image { |
| 120 | my ($class, $image) = @_; |
120 | my ($class, $image, %arg) = @_; |
| 121 | |
121 | |
| 122 | $class->new (image => $image) |
122 | $class->new (image => $image, %arg) |
| 123 | } |
123 | } |
| 124 | |
124 | |
| 125 | sub new_from_file { |
125 | sub new_from_file { |
| 126 | my ($class, $path) = @_; |
126 | my ($class, $path) = @_; |
| 127 | |
127 | |
| … | |
… | |
| 199 | $tw = $th = 1; |
199 | $tw = $th = 1; |
| 200 | $data = "\x00" x 64; |
200 | $data = "\x00" x 64; |
| 201 | } |
201 | } |
| 202 | |
202 | |
| 203 | $self->{minified} = [CFClient::average $tw, $th, $data] |
203 | $self->{minified} = [CFClient::average $tw, $th, $data] |
| 204 | if defined $data; |
204 | if $self->{minify}; |
| 205 | |
205 | |
| 206 | unless ($GL_NPOT) { |
206 | unless ($GL_NPOT) { |
| 207 | # TODO: does not work for zero-sized textures |
207 | # TODO: does not work for zero-sized textures |
| 208 | $tw = topot $tw; |
208 | $tw = topot $tw; |
| 209 | $th = topot $th; |
209 | $th = topot $th; |
