}
print "</table>\n\n";
}
+
+if (exists $get{v}) {
+ print "<table class=mapped>\n";
+ print "<caption>Amstrad CPC</caption>\n";
+ print coltable_hsv(3, sub {
+ $_[2] + 3 * ($_[0] + 3 * $_[1]),
+ map { $_ && $_ * 127 + 1 } @_
+ });
+ print "</table>\n\n";
+}
:></div>
<hr>
my %greymap; # name => value
my @colmap; # saturation => value => hue => [name, r,g,b]
- my $offset = 16;
+ my $offset = 16 * ($dim > 3);
for my $r (0 .. $dim - 1) {
for my $g (0 .. $dim - 1) {