$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;