latex $1
mf "\mode:=localfont; scrollmode; input $1"
fgrep "% diagramf" $1.log >$1.dia
latex $1
mf "\mode:=localfont; scrollmode; input $1"
fgrep "% diagramf" $1.log >$1.dia
gftopk $1.300gf
mv $1.300pk $1.tfm /usr/TeX/lib/tex/fonts
rm $1.300gf
latex $1

