#!/usr/bin/perl $template_b=LoadFile("template_tb.eps"); $template_w=LoadFile("template_tw.eps"); $szx=370; $szy=100; $templtmp="template_tmp.eps"; $idx=1; $c=0; open(RGB,"/usr/X11R6/lib/X11/rgb.txt"); open(HTML,"> colorindex$idx.html"); MakeHead(); while() { if(!(/(\d+)\s+(\d+)\s+(\d+)\s+(.+)$/)) { next; } $rgb=sprintf("#%02X%02X%02X",$1,$2,$3); $name=$4; if($name=~/\s/) { next; } if($name=~/[Gg]rey/) { next; } print "$idx-$c $name: $rgb\n"; $fnb="gifs/".$name."_b.gif"; $fnw="gifs/".$name."_w.gif"; MakeGif($name,$fnb,$fnw); print HTML "
  • '$name' ($rgb)
    \n"; print HTML "\"$name:$rgb\"\n"; print HTML "\"$name:$rgb\"
    \n"; $c++; if($c>=50) { MakeFoot(); close(HTML); $idx++; open(HTML,"> colorindex$idx.html"); MakeHead(); $c=0; } } MakeFoot(); close(HTML); close(RGB); # MakeGif("red","red_b.gif","red_w.gif"); sub MakeHead { print HTML 'Color index sample'."\n"; print HTML '
    '."\n"; for($i=1;$i<12;$i++) { print HTML "[$i]\n"; } print HTML "
    \n"; } sub MakeFoot { local($idxx)=$idx+1; print HTML "Next\n"; } sub MakeGif { local($color,$fnb,$fnw)=@_; MakeTemplate($color,$template_b); system("ps2gif $templtmp $fnb $szx $szy $color"); MakeTemplate($color,$template_w); system("ps2gif $templtmp $fnw $szx $szy $color"); } sub MakeTemplate { local($color,$cont)=@_; $cont=~s/TEMPLATE/$color/; open(MTF,"> $templtmp"); print MTF $cont; close(MTF); } sub LoadFile { local($fn)=@_[0]; open(F,$fn); local($r)=''; while() { $r.=$_; } close(F); return $r; }