#!/bin/csh -f
# need csh because of foreach used for running gftopk

echo "\
This script runs metafont and gftopk to produce the \
following fonts / family / shapes:\
\
  *********************************************************\
  gothic: ygoth, yfrak, yswab, yinit (as of oldgerm.dtx)\
  gothic: suet14, schwell\
  *********************************************************\
\
Give metafont mode as first argument (default = localfont)\
\
Volker Kuhlmann \
    9, 16, 21 July 94; 8 Apr 95; 8 Apr 96\
v.kuhlmann@elec.canterbury.ac.nz\
"


# CHANGELOG
#
# 8 Apr 96 (VK)
#	Added sueterlin, schwell.
# 8 Apr 95 (VK)
#	Metafont mode can now be given as $1. Using \scrollmode;.


if ( $#argv > 0 ) set MODE=$1
if ( ! $?MODE ) set MODE=localfont
echo ""
echo "**********************************"
echo 'metafont mode is set to: '$MODE
echo "**********************************"
echo ""

set MFARG='\mode='"$MODE"'; \scrollmode;'


# INITIAL
mf "$MFARG"' \mag=magstep(0);' 		input yinitas	# 38.6pt
mf "$MFARG"' \mag=magstep(1);'		input yinitas	# 46.5pt
mf "$MFARG"' \mag=magstep(2);'		input yinitas	# 55.7pt
mf "$MFARG"' \mag=magstep(3);'		input yinitas	# 66.9pt
mf "$MFARG"' \mag=magstep(4);'		input yinitas	# 80.0pt
mf "$MFARG"' \mag=magstep(5);'		input yinitas	# 96.4pt

# GOTHIC, also TEXTUR
mf "$MFARG"' \mag=magstep(0);'		input ygoth
mf "$MFARG"' \mag=magstep(1);'		input ygoth	# 12pt
mf "$MFARG"' \mag=magstep(2);'		input ygoth	# 14.4pt
mf "$MFARG"' \mag=magstep(3);'		input ygoth	# 17.28pt
mf "$MFARG"' \mag=magstep(4);'		input ygoth	# 20.74pt
mf "$MFARG"' \mag=magstep(5);'		input ygoth	# 24.88pt

# FRAKTUR
mf "$MFARG"' \mag=magstep(0);'		input yfrak
mf "$MFARG"' \mag=magstep(1);'		input yfrak	# 12pt
mf "$MFARG"' \mag=magstep(2);'		input yfrak	# 14.4pt
mf "$MFARG"' \mag=magstep(3);'		input yfrak	# 17.28pt
mf "$MFARG"' \mag=magstep(4);'		input yfrak	# 20.74pt
mf "$MFARG"' \mag=magstep(5);'		input yfrak	# 24.88pt

# SCHWABACHER
mf "$MFARG"' \mag=magstep(0);'		input yswab
mf "$MFARG"' \mag=magstep(1);'		input yswab	# 12pt
mf "$MFARG"' \mag=magstep(2);'		input yswab	# 14.4pt
mf "$MFARG"' \mag=magstep(3);'		input yswab	# 17.28pt
mf "$MFARG"' \mag=magstep(4);'		input yswab	# 20.74pt
mf "$MFARG"' \mag=magstep(5);'		input yswab	# 24.88pt

# SUETERLIN
# (only some sizes)
mf "$MFARG"' \mag=magstep(0);'		input suet14
mf "$MFARG"' \mag=magstep(1);'		input suet14	# 12pt
mf "$MFARG"' \mag=magstep(2);'		input suet14	# 14.4pt
#mf "$MFARG"' \mag=magstep(3);'		input suet14	# 17.28pt
#mf "$MFARG"' \mag=magstep(4);'		input suet14	# 20.74pt
mf "$MFARG"' \mag=magstep(5);'		input suet14	# 24.88pt

# SCHWELL
# (only some sizes)
mf "$MFARG"' \mag=magstep(0);'		input schwell
mf "$MFARG"' \mag=magstep(1);'		input schwell	# 12pt
mf "$MFARG"' \mag=magstep(2);'		input schwell	# 14.4pt
#mf "$MFARG"' \mag=magstep(3);'		input schwell	# 17.28pt
#mf "$MFARG"' \mag=magstep(4);'		input schwell	# 20.74pt
mf "$MFARG"' \mag=magstep(5);'		input schwell	# 24.88pt

# CMFRAK
# (only gothic font in dc encoding)
# ... left for later ...


echo ""
echo "Metafont finished."
echo ""



echo "Now running GFtoPK."

# note this requires csh or tcsh
foreach file (*gf)
  gftopk $file
end

echo "GFtoPK finished."
echo ""

echo ""
echo "To complete the font installation, do the following:"
echo "  copy all .tfm-files into the tfm directory"
echo "  copy all .pk-files into the pk-directory"
echo "  delete all .gf files."
echo ""
echo "Have a nice day."
echo ""