termcol: fix index numbers of 88-colour greyscale ramp
authorMischa POSLAWSKY <perl@shiar.org>
Fri, 4 Dec 2009 19:37:54 +0000 (19:37 +0000)
committerMischa POSLAWSKY <perl@shiar.org>
Fri, 4 Dec 2009 19:38:06 +0000 (19:38 +0000)
Loop with sequence number so index can be derived.  Replace measured colour
values with equivalent algorithm.

termcol.plp

index 10d68ac..ee27125 100644 (file)
@@ -104,7 +104,7 @@ for my $r (0 .. 3) {
 print "\n";
 
 print '<table><tr>';
-print colcell(80, ($_) x 3) for 46, 92, 115, 139, 162, 185, 208, 231;
+print colcell(80+$_, (($_ + 2 + ($_>0)) * 255/11) x 3) for 0 .. 7;
 print "</table>\n\n";
 
 :></div>