From: Mischa POSLAWSKY <perl@shiar.org>
Date: Tue, 13 Oct 2009 19:20:49 +0000 (+0000)
Subject: termcol: 256-colour tables (like 88)
X-Git-Tag: v1.3~113
X-Git-Url: http://git.shiar.nl/sheet.git/commitdiff_plain/0934eb163565512a7e1622f931a2f6a60b7c0872?hp=8b8c77dbf30f70a1e8ade679a62f08e130f959a2

termcol: 256-colour tables (like 88)
---

diff --git a/termcol.plp b/termcol.plp
index 446b9c5..c7c74bf 100644
--- a/termcol.plp
+++ b/termcol.plp
@@ -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>
+