X-Git-Url: http://git.shiar.net/perl/schtarr.git/blobdiff_plain/d4581a2bec64edc2357aef32345819ee2917b279..ff9b85e54ab93517afc757390ed3750aafc48e03:/Data-StarCraft/lib/Data/StarCraft/Tileset.pm

diff --git a/Data-StarCraft/lib/Data/StarCraft/Tileset.pm b/Data-StarCraft/lib/Data/StarCraft/Tileset.pm
index 891c12b..f1fcd3e 100644
--- a/Data-StarCraft/lib/Data/StarCraft/Tileset.pm
+++ b/Data-StarCraft/lib/Data/StarCraft/Tileset.pm
@@ -169,7 +169,9 @@ sub tileavg {
 	$info->{walk} = sum(@{ $tile->{subtype} }) >> 4;
 	my @rgb;
 	for my $subcol (@{ $tile->{subcol} }) {
-		$rgb[$_] += $subcol->[$_] for 0 .. 2;
+		$rgb[0] += $subcol->[0];
+		$rgb[1] += $subcol->[1]; # seperate for speed
+		$rgb[2] += $subcol->[2];
 	}
 	$info->{col} = [ map {$_ >> 4} @rgb ];
 	return $info;