XXX: handle multiple MTXM chunks correctly (tileset obfuscation for example in BlitzX...

[perl/schtarr.git] / scmap

diff --git a/scmap b/scmap
index 2787355bd25d81bd784a4aa8e3bc3492320405a9..f636b25742250bf6d5fd8c921cc9bff38eac451e 100755 (executable)
--- a/scmap
+++ b/scmap
@@ -70,7 +70,7 @@ if (defined $mapsep{$SHOWMAP}) {
 
        if ($SHOWMAP eq "ppm") {
                use Imager;
-               my $img = Imager->new(xsize => $map->width * 4, ysize => $map->width * 4);
+               my $img = Imager->new(xsize => $map->width * 4, ysize => $map->height * 4);
 
                use Data::StarCraft::Tileset;
                my $era = world($map);