#!/bin/csh
echo >dcfonts.map
echo >dcfonts.ref
echo >Fontmap.dc
foreach ffn (pfb/*.pfb)
   set file=$ffn:t
   set font=$file:r
   set fna="`echo $font '             ' | cut -c1-10`"
   echo "$fna$fna<$file" >>dcfonts.map
   echo "$fna$font" >>dcfonts.ref
   echo "/$fna($file) ;" >>Fontmap.dc
end
###