#!/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:\
\
  *********************************************************\
  mfnfss: pandora (as of pandora.dtx)\
  *********************************************************\
\
Give metafont mode as first argument (default = localfont)\
\
Volker Kuhlmann\
    9 July 94; 8 Apr 95; 8 Apr 96\
v.kuhlmann@elec.canterbury.ac.nz\
"


# CHANGELOG
#
# 8 Apr 96 (VK)
#	Added \scrollmode. Fixed docs.
#	Added pntt 10,11,12pt. Note: no fd files for pntt!
# 8 Apr 95 (VK)
#	Metafont mode can now be given as $1.


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;'


# PANDORA ROMAN
mf "$MFARG"' \mag=magstep(-3.8);'	input pnr10	# 5pt
mf "$MFARG"' \mag=magstep(-2.8);'	input pnr10	# 6pt
mf "$MFARG"' \mag=magstep(-1.96);'	input pnr10	# 7pt
mf "$MFARG"' \mag=magstep(-1.22);'	input pnr10	# 8pt
mf "$MFARG"' \mag=magstep(-0.578);'	input pnr10	# 9pt
mf "$MFARG"' \mag=magstep(0);'		input pnr10
mf "$MFARG"' \mag=magstep(0.5);'	input pnr10	# 10.95pt
mf "$MFARG"' \mag=magstep(1);'		input pnr10	# 12pt
mf "$MFARG"' \mag=magstep(2);'		input pnr10	# 14.4pt
mf "$MFARG"' \mag=magstep(3);'		input pnr10	# 17.28pt
mf "$MFARG"' \mag=magstep(4);'		input pnr10	# 20.74pt
mf "$MFARG"' \mag=magstep(5);'		input pnr10	# 24.88pt

# PANDORA ROMAN BOLD
mf "$MFARG"' \mag=magstep(-3.8);'	input pnb10	# 5pt
mf "$MFARG"' \mag=magstep(-2.8);'	input pnb10	# 6pt
mf "$MFARG"' \mag=magstep(-1.96);'	input pnb10	# 7pt
mf "$MFARG"' \mag=magstep(-1.22);'	input pnb10	# 8pt
mf "$MFARG"' \mag=magstep(-0.578);'	input pnb10	# 9pt
mf "$MFARG"' \mag=magstep(0);'		input pnb10
mf "$MFARG"' \mag=magstep(0.5);'	input pnb10	# 10.95pt
mf "$MFARG"' \mag=magstep(1);'		input pnb10	# 12pt
mf "$MFARG"' \mag=magstep(2);'		input pnb10	# 14.4pt
mf "$MFARG"' \mag=magstep(3);'		input pnb10	# 17.28pt
mf "$MFARG"' \mag=magstep(4);'		input pnb10	# 20.74pt
mf "$MFARG"' \mag=magstep(5);'		input pnb10	# 24.88pt

# PANDORA ROMAN SLANTED
mf "$MFARG"' \mag=magstep(-3.8);'	input pnsl10	# 5pt
mf "$MFARG"' \mag=magstep(-2.8);'	input pnsl10	# 6pt
mf "$MFARG"' \mag=magstep(-1.96);'	input pnsl10	# 7pt
mf "$MFARG"' \mag=magstep(-1.22);'	input pnsl10	# 8pt
mf "$MFARG"' \mag=magstep(-0.578);'	input pnsl10	# 9pt
mf "$MFARG"' \mag=magstep(0);'		input pnsl10
mf "$MFARG"' \mag=magstep(0.5);'	input pnsl10	# 10.95pt
mf "$MFARG"' \mag=magstep(1);'		input pnsl10	# 12pt
mf "$MFARG"' \mag=magstep(2);'		input pnsl10	# 14.4pt
mf "$MFARG"' \mag=magstep(3);'		input pnsl10	# 17.28pt
mf "$MFARG"' \mag=magstep(4);'		input pnsl10	# 20.74pt
mf "$MFARG"' \mag=magstep(5);'		input pnsl10	# 24.88pt

# PANDORA SANS
mf "$MFARG"' \mag=magstep(-3.8);'	input pnss10	# 5pt
mf "$MFARG"' \mag=magstep(-2.8);'	input pnss10	# 6pt
mf "$MFARG"' \mag=magstep(-1.96);'	input pnss10	# 7pt
mf "$MFARG"' \mag=magstep(-1.22);'	input pnss10	# 8pt
mf "$MFARG"' \mag=magstep(-0.578);'	input pnss10	# 9pt
mf "$MFARG"' \mag=magstep(0);'		input pnss10
mf "$MFARG"' \mag=magstep(0.5);'	input pnss10	# 10.95pt
mf "$MFARG"' \mag=magstep(1);'		input pnss10	# 12pt
mf "$MFARG"' \mag=magstep(2);'		input pnss10	# 14.4pt
mf "$MFARG"' \mag=magstep(3);'		input pnss10	# 17.28pt
mf "$MFARG"' \mag=magstep(4);'		input pnss10	# 20.74pt
mf "$MFARG"' \mag=magstep(5);'		input pnss10	# 24.88pt

# PANDORA SANS BOLD
mf "$MFARG"' \mag=magstep(-3.8);'	input pnssb10	# 5pt
mf "$MFARG"' \mag=magstep(-2.8);'	input pnssb10	# 6pt
mf "$MFARG"' \mag=magstep(-1.96);'	input pnssb10	# 7pt
mf "$MFARG"' \mag=magstep(-1.22);'	input pnssb10	# 8pt
mf "$MFARG"' \mag=magstep(-0.578);'	input pnssb10	# 9pt
mf "$MFARG"' \mag=magstep(0);'		input pnssb10
mf "$MFARG"' \mag=magstep(0.5);'	input pnssb10	# 10.95pt
mf "$MFARG"' \mag=magstep(1);'		input pnssb10	# 12pt
mf "$MFARG"' \mag=magstep(2);'		input pnssb10	# 14.4pt
mf "$MFARG"' \mag=magstep(3);'		input pnssb10	# 17.28pt
mf "$MFARG"' \mag=magstep(4);'		input pnssb10	# 20.74pt
mf "$MFARG"' \mag=magstep(5);'		input pnssb10	# 24.88pt

# PANDORA SANS SLANTED
mf "$MFARG"' \mag=magstep(-3.8);'	input pnssi10	# 5pt
mf "$MFARG"' \mag=magstep(-2.8);'	input pnssi10	# 6pt
mf "$MFARG"' \mag=magstep(-1.96);'	input pnssi10	# 7pt
mf "$MFARG"' \mag=magstep(-1.22);'	input pnssi10	# 8pt
mf "$MFARG"' \mag=magstep(-0.578);'	input pnssi10	# 9pt
mf "$MFARG"' \mag=magstep(0);'		input pnssi10
mf "$MFARG"' \mag=magstep(0.5);'	input pnssi10	# 10.95pt
mf "$MFARG"' \mag=magstep(1);'		input pnssi10	# 12pt
mf "$MFARG"' \mag=magstep(2);'		input pnssi10	# 14.4pt
mf "$MFARG"' \mag=magstep(3);'		input pnssi10	# 17.28pt
mf "$MFARG"' \mag=magstep(4);'		input pnssi10	# 20.74pt
mf "$MFARG"' \mag=magstep(5);'		input pnssi10	# 24.88pt

# PANDORA TYPEWRITER
mf "$MFARG"' \mag=magstep(0);'		input pntt9
mf "$MFARG"' \mag=magstep(0.182);'	input pntt9	# 10pt
mf "$MFARG"' \mag=magstep(1.076);'	input pntt9	# 10.95pt
mf "$MFARG"' \mag=magstep(1.578);'	input pntt9	# 12pt


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 ""