| … | |
… | |
| 154 | (map { |
154 | (map { |
| 155 | ( |
155 | ( |
| 156 | "(", |
156 | "(", |
| 157 | "+clone", |
157 | "+clone", |
| 158 | -crop => (sprintf "%dx%d+%d+%d", $T, $T, $_->[0] * $T, $_->[1] * $T), |
158 | -crop => (sprintf "%dx%d+%d+%d", $T, $T, $_->[0] * $T, $_->[1] * $T), |
|
|
159 | "+repage", |
| 159 | -write => "png:$_->[2]~", |
160 | -write => "png:$_->[2]~", |
| 160 | "+delete", |
161 | "+delete", |
| 161 | ")", |
162 | ")", |
| 162 | ) |
163 | ) |
| 163 | } @todo), |
164 | } @todo), |
| … | |
… | |
| 226 | my $magicmap = delete $o->{magicmap} if exists $o->{magicmap}; |
227 | my $magicmap = delete $o->{magicmap} if exists $o->{magicmap}; |
| 227 | |
228 | |
| 228 | my $anim = delete $o->{anim}; |
229 | my $anim = delete $o->{anim}; |
| 229 | |
230 | |
| 230 | if ($anim) { |
231 | if ($anim) { |
| 231 | $o->{animation} = "$o->{_name}$ext"; |
232 | $o->{animation} = "$o->{_name}"; |
| 232 | |
233 | |
| 233 | for (@$anim) { |
234 | for (@$anim) { |
| 234 | $_ .= $ext unless /^facings\s/; |
235 | $_ .= $ext unless /^facings\s/; |
| 235 | } |
236 | } |
| 236 | |
237 | |
| 237 | $ANIM{"$o->{_name}$ext"} = |
238 | $ANIM{"$o->{_name}$ext"} = |
| 238 | join "", map "$_\n", |
239 | join "", map "$_\n", |
| 239 | "anim $o->{_name}$ext", |
240 | "anim $o->{_name}", |
| 240 | @$anim, |
241 | @$anim, |
| 241 | "mina"; |
242 | "mina"; |
| 242 | } |
243 | } |
| 243 | |
244 | |
| 244 | for my $face ($o->{face} || (), @{$anim || []}) { |
245 | for my $face ($o->{face} || (), @{$anim || []}) { |
