| … | |
… | |
| 76 | |
76 | |
| 77 | my ($maxh, $maxw) = (0, 0); # maximum sizes, to set map width/height later |
77 | my ($maxh, $maxw) = (0, 0); # maximum sizes, to set map width/height later |
| 78 | my $max_line_height = 1; |
78 | my $max_line_height = 1; |
| 79 | |
79 | |
| 80 | for (my $i = 0; $i < $num; $i++) { |
80 | for (my $i = 0; $i < $num; $i++) { |
| 81 | defined ${$archs->[$i]}->{face} or next; |
|
|
| 82 | |
|
|
| 83 | # check whether this tile was already written (see below at (b)) |
81 | # check whether this tile was already written (see below at (b)) |
| 84 | unless (defined $map->{map}[$x][$y]) { |
82 | unless (defined $map->{map}[$x][$y]) { |
| 85 | my ($x1, $y1, $x2, $y2) = arch_extents ${$archs->[$i]}; |
83 | my ($x1, $y1, $x2, $y2) = arch_extents ${$archs->[$i]}; |
| 86 | |
84 | |
| 87 | if ($x + $x2 - $x1 + 1 > $width) { |
85 | if ($x + $x2 - $x1 + 1 > $width) { |
