| … | |
… | |
| 425 | facings => $facings, |
425 | facings => $facings, |
| 426 | frames => \@frames, |
426 | frames => \@frames, |
| 427 | }; |
427 | }; |
| 428 | } |
428 | } |
| 429 | |
429 | |
| 430 | for my $face ($o->{face} || (), @{$anim || []}) { |
430 | for ($o->{face} || (), @{$anim || []}) { |
| 431 | next if $face =~ /^facings\s/; |
431 | next if /^facings\s/; |
|
|
432 | |
|
|
433 | my $face = $_; |
|
|
434 | $face =~ s/\+\d+\+\d+$//; # remove tile offset coordinates |
| 432 | |
435 | |
| 433 | my $info = $FACEINFO{$face} ||= { }; |
436 | my $info = $FACEINFO{$face} ||= { }; |
| 434 | $info->{arc} = $o; |
437 | $info->{arc} = $o; |
| 435 | |
438 | |
| 436 | next if $face =~ /^blank.x11$|^empty.x11$/; |
439 | next if $face =~ /^blank.x11$|^empty.x11$/; |
