X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/0b4be0d5ff71ca539da8e741826d499a5d649004..c9e24e105a536e99e4c2221e9e3dffe15eb78132:/termcol.plp diff --git a/termcol.plp b/termcol.plp index 395c208..ee27125 100644 --- a/termcol.plp +++ b/termcol.plp @@ -104,10 +104,11 @@ for my $r (0 .. 3) { print "\n"; print ''; -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 "
\n\n"; -:> +:> +<: if ($ENV{PATH_INFO} =~ /256/) { :>
@@ -132,8 +133,9 @@ for my $row (0, 12) { print "\n"; } print "\n"; -:>
+:> +<: } :>