|
DataMuseum.dkPresents historical artifacts from the history of: DKUUG/EUUG Conference tapes |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about DKUUG/EUUG Conference tapes Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - downloadIndex: T m
Length: 694 (0x2b6)
Types: TextFile
Names: »makefonts«
└─⟦060c9c824⟧ Bits:30007080 DKUUG TeX 2/12/89
└─⟦this⟧ »./DVIware/laser-setters/quicspool/wwfonts/makefonts«
└─⟦52210d11f⟧ Bits:30007239 EUUGD2: TeX 3 1992-12
└─⟦af5ba6c8e⟧ »unix3.0/DVIWARE.tar.Z«
└─⟦ca79c7339⟧
└─⟦this⟧ »DVIware/laser-setters/quicspool/wwfonts/makefonts«
#! /bin/sh
# $Header: makefonts,v 1.1 88/01/15 13:14:27 simpson Rel $
# $Log: makefonts,v $
#Revision 1.1 88/01/15 13:14:27 simpson
#initial release
#
#Revision 0.1 87/12/11 19:09:55 simpson
#beta test
#
# Creates the sizes
# 4 to 20
# 22 to 36 step 2
# 40 to 48 step 4
# using METAFONT
fontlist="`grep '^fonts' DESC | sed 's/fonts [0-9][0-9]* //'`"
for font in $fontlist; do
i=4
while [ $i -le 48 ];do
# Use mode type qms for a write-white engine
mf '\mode:=qms;' "mag:=$i/10;" input $font
gftopk $font.`expr $i \* 300 / 10`gf
if [ $i -ge 20 -a $i -le 34 ]; then
i=`expr $i + 2`
elif [ $i -ge 36 ]; then
i=`expr $i + 4`
else
i=`expr $i + 1`
fi
done
done