#!perl -w #blue has the least power for $g(0.7,0.85,1){ $hg=int($g*255+0.5); for $r(0,0.8,1){ $hr=int($r*255+0.5); for$b(0,0.7,1){ $hb=int($b*255+0.5); $c=sprintf("%02x%02x%02x",$hr,$hg,$hb); push @colors,$c; } } } #print "$_\n" for(@colors); #kill off 7 of the mid-blue colors, leaving 20 for(1..7){ for(;;){ $i=rand@colors; $col=$colors[$i]; $bb=substr $col,4,2; last if $bb ne '00' and $bb ne 'ff' and not$killed{$col}; } #print "$col\n"; $killed{$col}=1; } for(@colors){ next if $killed{$_}; push @nn,$_; } @colors=sort@nn; #print "$_\n" for(@colors); print "\n"; for$row(0..3){ print""; for$col(0..4){ $i=5*$row+$col; print qq(\n); } print""; } print "

-x-

\n";