termcol: 256-colour tables (like 88)

diff --git a/termcol.plp b/termcol.plp
index 446b9c55d1866f04395c65a2b2b8a853849a1b70..c7c74bfb754f3811edd29e7a44b98aa7d6e10930 100644 (file)
--- a/termcol.plp
+++ b/termcol.plp
@@ -109,3 +109,24 @@ print "</table>\n\n";
 :></li>
 </ul>
 
 :></li>
 </ul>
 

+<hr>
+<h2>256-colour space</h2><ul>
+<:
+for my $r (0 .. 5) {
+       print '<li><table>';
+       for my $g (0 .. 5) {
+               print '<tr>';
+               for my $b (0 .. 5) {
+                       print colcell($r*6*6 + $g*6 + $b + 16, map { $_ && $_*40 + 55 } $r, $g, $b);
+               }
+       }
+       print "</table>\n";
+}
+print "\n";
+
+print '<li><table><tr>', (map { colcell(232+$_, ($_*10 + 8) x 3) } $_ .. $_+11), "</table>\n"
+       for 0, 12;
+print "\n";
+:></li>
+</ul>
+