… | |
… | |
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$/; |