| … | |
… | |
| 481 | |
481 | |
| 482 | while ($o = $o->{more}) { |
482 | while ($o = $o->{more}) { |
| 483 | my $face = $FACE{$o->{face}} |
483 | my $face = $FACE{$o->{face}} |
| 484 | or (warn "no gfx found for arch '$a->{_name}' at ($x*|$y*)\n"), next; |
484 | or (warn "no gfx found for arch '$a->{_name}' at ($x*|$y*)\n"), next; |
| 485 | |
485 | |
| 486 | $x1 = min $x1, $x+$o->{x}; $y1 = min $y1, $y+$o->{y}; |
486 | $x1 = min $x1, $x + $o->{x}; $y1 = min $y1, $y + $o->{y}; |
| 487 | $x2 = max $x2, $x+$o->{x}; $y2 = max $y2, $y+$o->{y}; |
487 | $x2 = max $x2, $x + $o->{x}; $y2 = max $y2, $y + $o->{y}; |
| 488 | |
488 | |
| 489 | push @{ $a->{_more} }, [$x+$o->{x}, $y+$o->{y}]; |
489 | push @{ $a->{_more} }, [$x + $o->{x}, $y + $o->{y}]; |
| 490 | push @{ $data->[$x+$o->{x}][$y+$o->{y}] }, { |
490 | push @{ $data->[$x+$o->{x}][$y+$o->{y}] }, { |
| 491 | _virtual => $a, |
491 | _virtual => $a, |
| 492 | _virtual_x => $x, |
492 | _virtual_x => $x, |
| 493 | _virtual_y => $y, |
493 | _virtual_y => $y, |
| 494 | _face => $face->{idx}, |
494 | _face => $face->{idx}, |
