X-Git-Url: http://git.shiar.net/perl/schtarr.git/blobdiff_plain/576f66c9fde876c86b20c3da21ce254cd3f3ba78..3cf62787f6c8f6d7a7972bc3f09e5e3ddc92447e:/scmap

diff --git a/scmap b/scmap
index 2787355..f636b25 100755
--- 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);