#!perl -w #colors in a box, not used as not enough variation print "\n"; $gamma=0.5; for$i(0..3){ print""; $vi=$i/3.0; $vi=$vi**$gamma; $x=int(255.0*$vi+0.5); for$j(0..4){ $vj=$j/4.0; $vj=$vj**$gamma; $y=int(255.0*$vj+0.5); $z=sprintf('%02xff%02x',$y,$x); #print"$x $y $z\n"; print qq(\n); } print""; } print "

-x-

\n";