X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/278de4c46a99f7ebc9fdbf8354283cdef6a31c88..332ef38b8fac2c85650019759eede4a95c1fa623:/termcol.plp

diff --git a/termcol.plp b/termcol.plp
index 04b6e6e..4f97aba 100644
--- a/termcol.plp
+++ b/termcol.plp
@@ -221,6 +221,16 @@ for my $term (@termlist) {
 	}
 	print "</table>\n\n";
 }
+
+if (exists $get{v}) {
+	print "<table class=mapped>\n";
+	print "<caption>Amstrad CPC</caption>\n";
+	print coltable_hsv(3, sub {
+		$_[2] + 3 * ($_[0] + 3 * $_[1]),
+		map { $_ && $_ * 127 + 1 } @_
+	});
+	print "</table>\n\n";
+}
 :></div>
 
 <hr>
@@ -238,7 +248,7 @@ sub coltable_hsv {
 
 	my %greymap;  # name => value
 	my @colmap;  # saturation => value => hue => [name, r,g,b]
-	my $offset = 16;
+	my $offset = 16 * ($dim > 3);
 
 	for my $r (0 .. $dim - 1) {
 		for my $g (0 .. $dim - 1) {