termcol: generate 88-colour map using common function

[sheet.git] / termcol.plp

diff --git a/termcol.plp b/termcol.plp
index d945079bbab1cbec8b9af2f5a7ab7062707c700d..18593abd76f84aca8323ab7685accd2cfbd7ccd0 100644 (file)
--- a/termcol.plp
+++ b/termcol.plp
@@ -228,22 +228,10 @@ for my $term (@termlist) {
 <div class="section">
 <h2>88-colour space</h2>
 <:
-for my $r (0 .. 3) {
-       print '<table>';
-       for my $g (0 .. 3) {
-               print '<tr>';
-               for my $b (0 .. 3) {
-                       my $index = $r*4*4 + $g*4 + $b + 16;
-                       print colcell($index, map {(0, 139, 205, 255)[$_]} $r, $g, $b);
-               }
-       }
-       print "</table>\n";
-}
-print "\n";
-
-print '<table><tr>';
-print colcell(80+$_, (($_ + 2 + ($_>0)) * 255/11) x 3) for 0 .. 7;
-print "</table>\n\n";
+print coltable_hsv(4,
+       sub {(0, 139, 205, 255)[$_]},
+       [map { ($_ + 2 + ($_>0)) * 255/11 } 0 .. 7],
+);
 
 :></div>
 <: if ($ENV{PATH_INFO} =~ /256/) { :>