-{
- 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],
- );
- print "</table>\n";
-}
-
-if ($ENV{PATH_INFO} =~ /256/) {
- print "<h2>256-colour space</h2>\n";
- print "<table class=mapped>\n";
- print coltable_hsv(6,
- sub {
- $_[2] + 6 * ($_[1] + 6 * $_[0]) + 16,
- map { $_ && $_*40 + 55 } @_
- },
- [ map { $_ * 10 + 8 } 0 .. 23 ],
- );
- print "</table>\n";
-}