Path: utzoo!utgpu!jarvis.csri.toronto.edu!mailrus!cwjcc!gatech!udel!rochester!ken
From: ken@cs.rochester.edu (Ken Yap)
Newsgroups: comp.text
Subject: Re: where/how to get pxl files?
Keywords: for dview previewer (pc)
Message-ID: <1989Feb10.070252.3346@cs.rochester.edu>
Date: 10 Feb 89 12:02:52 GMT
References: <Feb.7.16.15.14.1989.21489@paul.rutgers.edu>
Reply-To: ken@cs.rochester.edu (Ken Yap)
Distribution: usa
Organization: U of Rochester, CS Dept, Rochester, NY
Lines: 189

You can ftp pk format fonts from score.stanford.edu and then convert to
pxl with pktopx. Remember to use tenex mode. Other tex distributions
may have the fonts (uunet?), but they may be bundled into tar files
with the rest of the sources, etc.

|I'd like to know the procedure for creating these fonts;
|I would imagine it involves Metafont and some conversion
|program... can't find anything in the Metafontbook though.

This seems a commonly asked question, so I'll post my scripts. First, I
assume you have generated cmmf with all the macros and mode_defs
preloaded. These scripts will generate a shell script of commands to
make some 370 files in gf format, the convert to pk on the spot. It
makes the 16 basic fonts and some LaTeX in magsteps 0 through 5 and
half, and the others in 0, 0.5, 1 and 2. There wasn't a standard when I
decided this but it seems to agree with current practice. Also these
scripts are Unix specific, but you could do the same thing with even a
BASIC program.

When you make the fonts, you should have the mf sources for the cm and
latex fonts in the current directory. These sources are also on score.
Finally, get the fastest machine you can to generate the fonts.  On a
Sun 3/260, I left the scripts running overnight. Hence the two step
process---if the second script breaks halfway, fix the problem, edit
the script and start where you left off.

#!/bin/sh
# This is a shell archive, meaning:
# 1. Remove everything above the #!/bin/sh line.
# 2. Save the resulting text in a file.
# 3. Execute the file with /bin/sh (not csh) to create the files:
#	genfonts
#	magpk
#	listfonts
# This archive created: Fri Feb 10 06:57:49 1989
# By:	Ken Yap ()
export PATH; PATH=/bin:$PATH
echo shar: extracting "'genfonts'" '(1927 characters)'
if test -f 'genfonts'
then
	echo shar: over-writing existing file "'genfonts'"
fi
cat << \SHAR_EOF > 'genfonts'
#!/bin/sh

# basic fonts in magsteps 0 through 5 and 0.5

for font in cmb10 cmbx10 cmbx5 cmbx7 cmcsc10 cmex10 cmmi10 cmmi5 cmmi7 \
	cmr10 cmr5 cmr7 cmsl10 cmss10 cmssbx10 cmsy10 cmsy5 cmsy7 cmti10 cmtt10
do
	for magstep in 0 0.5 1 2 3 4 5
	do
		res=`magpk $magstep`
		echo "cmmf '\mode=localfont;' '\mag=magstep$magstep;' '\batchmode;' input $font"
		echo gftopk $font.${res}gf
		echo rm $font.${res}gf
	done
done

# other fonts only in magsteps 0, 0.5 and 1

for font in cmbsy10 cmbx12 cmbx6 cmbx7 cmbx8 cmbx9 cmbxsl10 cmbxti10 \
	cmdunh10 cmff10 cmfi10 cmfib8 cmitt10 cmmi12 cmmi6 cmmi8 cmmi9 \
	cmmib10 cmr12 cmr17 cmr6 cmr8 cmr9 cmsl12 cmsl8 cmsl9 cmsltt10 \
	cmss12 cmss17 cmss8 cmss9 cmssdc10 cmssi10 cmssi12 cmssi17 \
	cmssi8 cmssi9 cmssq8 cmssqi8 cmsy6 cmsy8 cmsy9 cmtcsc10 cmtex10 \
	cmtex8 cmtex9 cmti12 cmti7 cmti8 cmti9 cmtt12 cmtt8 cmtt9 cmu10 \
	cmvtt10
do
	for magstep in 0 0.5 1
	do
		res=`magpk $magstep`
		echo "cmmf '\mode=localfont;' '\mag=magstep$magstep;' '\batchmode;' input $font"
		echo gftopk $font.${res}gf
		echo rm $font.${res}gf
	done
done

# specials

for magstep in 0 0.5 1
do
	res=`magpk $magstep`
	echo "cmmf '\mode=localfont;' '\mag=magstep$magstep;' '\batchmode;' input logo10"
	echo gftopk logo10.${res}gf
	echo rm logo10.${res}gf
done

echo "cmmf '\mode=localfont;' '\mag=magstep0;' '\batchmode;' input cminch"
echo gftopk cminch.300gf
echo rm cminch.300gf

# LaTeX fonts

for font in circle10 circlew10 lasy10 lasy5 lasy7 lasyb10 line10 linew10
do
	for magstep in 0 0.5 1 2 3 4 5
	do
		res=`magpk $magstep`
		echo "cmmf '\mode=localfont;' '\mag=magstep$magstep;' '\batchmode;' input $font"
		echo gftopk $font.${res}gf
		echo rm $font.${res}gf
	done
done

for font in lasy6 lasy8 lasy9
do
	for magstep in 0 0.5 1
	do
		res=`magpk $magstep`
		echo "cmmf '\mode=localfont;' '\mag=magstep$magstep;' '\batchmode;' input $font"
		echo gftopk $font.${res}gf
		echo rm $font.${res}gf
	done
done
SHAR_EOF
if test 1927 -ne "`wc -c 'genfonts'`"
then
	echo shar: error transmitting "'genfonts'" '(should have been 1927 characters)'
fi
chmod +x 'genfonts'
echo shar: extracting "'magpk'" '(223 characters)'
if test -f 'magpk'
then
	echo shar: over-writing existing file "'magpk'"
fi
cat << \SHAR_EOF > 'magpk'
#!/bin/sh
case $1 in
	0.5) echo 329 ;;
	0) echo 300 ;;
	1) echo 360 ;;
	2) echo 432 ;;
	3) echo 518 ;;
	4) echo 622 ;;
	5) echo 746 ;;
	6) echo 896 ;;
	7) echo 1075 ;;
	8) echo 1290 ;;
	9) echo 1548 ;;
	*) echo 000 ;;
esac
SHAR_EOF
if test 223 -ne "`wc -c 'magpk'`"
then
	echo shar: error transmitting "'magpk'" '(should have been 223 characters)'
fi
chmod +x 'magpk'
echo shar: extracting "'listfonts'" '(505 characters)'
if test -f 'listfonts'
then
	echo shar: over-writing existing file "'listfonts'"
fi
cat << \SHAR_EOF > 'listfonts'
#!/bin/sh
fontdir=/usr/lib/tex/fonts
trap 'rm /tmp/$$.sed /tmp/$$.awk' 0 1 2 3 15
cat > /tmp/$$.sed <<EOS
s/300pk/0/
s/329pk/0.5/
s/360pk/1/
s/432pk/2/
s/518pk/3/
s/622pk/4/
s/746pk/5/
s/896pk/6/
s/1075pk/7/
s/1290pk/8/
s/1548pk/9/
s/\./ /
EOS
cat > /tmp/$$.awk <<'EOS'
$1 == prev { printf "\t%s", $2 }
$1 != prev { printf "\n%-10s\t%s", $1, $2; prev = $1}
END { printf "\n" }
EOS
cd $fontdir;
ls cm*pk circle*pk lasy*pk line*pk logo*pk manual*pk \
	| sed -f /tmp/$$.sed \
	| sort \
	| awk -f /tmp/$$.awk
SHAR_EOF
if test 505 -ne "`wc -c 'listfonts'`"
then
	echo shar: error transmitting "'listfonts'" '(should have been 505 characters)'
fi
chmod +x 'listfonts'
#	End of shell archive
exit 0