#!/bin/sh
# Create tfm files for built-in fonts and virtual fonts
# for each of them (and a few more).
# The map file has lines with
# field1 = Adobe name
# field2 = abbreviated name (if present; otherwise no abbreviation;
# should begin with an uppercase character)
# field3,4,5 = a "real" built-in font, and how to use it to derive
# the required one. e.g., 'F -e factor' to expand
# font F by factor; 'F -s slant' to oblique font F.
rm -f *.tfm *.vpl *.vf
# first, make some caps/small-caps fonts
echo 'afm2tfm AvantGarde-Book -V avantcsc Avant
afm2tfm Bookman-Light -V booklcsc Bookl
afm2tfm Helvetica -V helvcsc Helv
afm2tfm NewCenturySchlbk-Roman -V centcsc Cent
afm2tfm Palatino-Roman -V palcsc Pal
afm2tfm Times-Roman -V timescsc Times
rm *.tfm' > doit
# and generate the rest from the map file
awk 'BEGIN {l["A"]="a"; l["B"]="b"; l["C"]="c"; l["D"]="d"; l["E"]="e";
l["F"]="f"; l["G"]="g"; l["H"]="h"; l["I"]="i"; l["J"]="j";
l["K"]="k"; l["L"]="l"; l["M"]="m"; l["N"]="n"; l["O"]="o";
l["P"]="p"; l["Q"]="q"; l["R"]="r"; l["S"]="s"; l["T"]="t";
l["U"]="u"; l["V"]="v"; l["W"]="w"; l["X"]="x"; l["Y"]="y";
l["Z"]="z";
}
NF>=1 {
afm = (NF>2)? $3 : $1
tfm = (NF>1)? $2 : $1
vpl = l[substr(tfm,1,1)] substr(tfm,2)
printf "afm2tfm %s -v %s",afm,vpl
if(NF>3) printf(" %s %s",$4,$5)
printf " %s\n", tfm
if($1 ~ /Oblique/ || $1 ~ /Italic/)
printf "addgreekcaps -s %s\n", vpl
else
printf "addgreekcaps %s\n", vpl
}
' map >> doit
sh doit
# the virtual fonts are all wrong for non-text fonts
rm symbol.vpl symbolsl.vpl dingbats.vpl
for i in *.vpl
do
stem=`echo $i | sed 's/\.vpl//'`
vptovf $stem.vpl $stem.vf $stem.tfm
done
rm doit
