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

diff --git a/scmap b/scmap
index e5a2798..2787355 100755
--- a/scmap
+++ b/scmap
@@ -89,11 +89,7 @@ if (defined $mapsep{$SHOWMAP}) {
 
 			# 512x512 ~ 7s
 			my $tile = $tileset->tile($_);
-			$img->setscanline(
-				x => $x*4, y => $y*4 + $_, pixels => pack('(CCCx)*',
-					map { @$_ } @{ $tile->{subcol} }[$_*4 .. $_*4 + 3]
-				),
-			) for 0..3;
+			$img->paste(src => $tile->{sprite}, left => $x*4, top => $y*4);
 
 			# 4096x4096 ~ 75s
 #			my $tile = $tileset->sprite($tileset->{map}->[$_]);