#!/bin/sh

AFM=/usr/common/lib/tex3/fonts/afm
VF=/usr/common_master/lib/tex3/fonts/vf/PSLATEX
TFM=/usr/common_master/lib/tex3/fonts/tfm/PSLATEX

echo '# this should only be taken as a starting point' >psfonts.newext
echo '# execute this to install fonts' >cmnds
echo '# output (mostly garbage) from vptovf' >vperrs

# make smallcaps fonts

echo Making SmallCaps of...
while read afm new old
do
	echo $afm
	./afm2tfm $AFM/$afm -V vpl/$new.vpl tfm/$new.tfm
	ed - vpl/$new.vpl <<-yyy
        g/^(FAMILY/d
	g/^(CHECKSUM/d
	g/^   (FONTNAME/s/ [^ ]*)/ $old)/
	w
	q
	yyy
	vptovf vpl/$new.vpl vf/$new.vf tfm/$new.tfm >>vperrs
	echo mv -i vf/$new.vf $VF >>cmnds
	echo mv -i tfm/$new.tfm $TFM >>cmnds
done <<xxx
AvantGarde-Book		pagkc0	rpagk
AvantGarde-Demi		pagdc0	rpagd
Bookman-Light		pbklc0	rpbkl
Bookman-Demi		pbkdc0	rpbkd
Courier 		pcrrc0	rpcrr
Courier-Bold 		pcrbc0	rpcrb
Helvetica		phvrc0	rphvr
Helvetica-Bold		phvbc0	rphvb
Helvetica-Narrow	phvrcn0	rphvrrn
Helvetica-NarrowBold	phvbcn0	rphvbrn
NewCenturySchlbk-Roman	pncrc0	rpncr
NewCenturySchlbk-Bold	pncbc0	rpncb
Palatino-Roman		pplrc0	rpplr
Palatino-Bold		pplbc0	rpplb
Times-Roman		ptmrc0	rptmr
Times-Bold		ptmbc0	rptmb
xxx


# make oblique fonts

echo Making Oblique of...
while read afm new old slant
do
	echo $afm
	./afm2tfm $AFM/$afm -s $slant tfm/$new.tfm
	echo $new $afm-Oblique '"'$slant SlantFont'"' >>psfonts.newext
	echo mv -i tfm/$new.tfm $TFM >>cmnds
done <<xxx
Bookman-Light		pbklo0	rpbkl	.11
Bookman-Demi		pbkdo0	rpbkd	.11
NewCenturySchlbk-Roman	pncro0	rpncr	.11
NewCenturySchlbk-Bold	pncbo0	rpncb	.11
Palatino-Roman		pplro0	rpplr	.11
Palatino-Bold		pplbo0	rpplb	.11
Times-Roman		ptmro0	rptmr	.167
Times-Bold		ptmbo0	rptmb	.167
xxx



# make condensed fonts

echo Condensing...
while read afm new con
do
	echo $afm
	./afm2tfm $AFM/$afm -e $con tfm/$new.tfm
	if expr match "$afm" '.*Bold' >/dev/null 
	then	# bold fonts don't need thickening
		echo $new $afm-Narrow '"'$con ExtendFont'"' >>psfonts.newext
	else
		echo $new $afm-Narrow '"'$con ExtendFont 1.3 ThickenFont'"' >>psfonts.newext
	fi
	echo mv -i tfm/$new.tfm $TFM >>cmnds
done <<xxx
Courier 		pcrrrn0 .85
Courier-Bold		pcrbrn0 .85
Courier-Oblique		pcrron0	.85
Courier-BoldOblique	pcrbon0	.85
xxx

exit 0