blob: b1ebcc5f159fd9e067d1ae27cdfc98d6c1087ce0 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
|
#!/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 ""
|