- print '<table class=mapped>';
- printf '<colgroup span=%d>', 3 * @{$_} for @colmap;
- for my $h (grep { $colmap[0][0][$_] } 0 .. $#{ $colmap[0][0] }) {
- print '<tr>';
- print colcell(@$_) for map { $_->[$h] } map { @{$_} } @colmap;
- }
+ print "<h2>88-colour space</h2>\n";
+ print "<table class=mapped>\n";
+ print coltable_hsv(4,
+ sub {
+ $_[2] + 4 * ($_[1] + 4 * $_[0]) + 16,
+ map { (0, 139, 205, 255)[$_] } @_
+ },
+ [map { ($_ + 2 + ($_>0)) * 255/11 } 0 .. 7],
+ );