termcol: 256-colour tables (like 88)
authorMischa POSLAWSKY <perl@shiar.org>
Tue, 13 Oct 2009 19:20:49 +0000 (19:20 +0000)
committerMischa POSLAWSKY <perl@shiar.org>
Tue, 13 Oct 2009 22:38:42 +0000 (22:38 +0000)
termcol.plp

index 446b9c5..c7c74bf 100644 (file)
@@ -109,3 +109,24 @@ print "</table>\n\n";
 :></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>
+