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
|
% ecfrakge.mf General file, shape/series independent for all ecfrak fonts
% The positions of characters depending on cm or dc layouts
if dc_layout>0:
ae_ligature:=oct"346";
Ae_ligature:=oct"306";
ft_ligature:=oct"030";
ff_ligature:=oct"033";
ss_ligature:=oct"034";
st_ligature:=oct"035";
sf_ligature:=oct"036";
tz_ligature:=oct"037";
ch_ligature:=oct"027";
ck_ligature:=oct"275";
a_old:=oct"016";
e_old:=oct"017";
o_old:=oct"023";
u_old:=oct"024";
s_final:=oct"276";
en_dash:=oct"025";
em_dash:=oct"026";
eszet:=oct"377";
open_gaens:=oct"022";
close_gaens:=oct"020";
else:
ae_ligature:=oct"032";
Ae_ligature:=oct"035";
ft_ligature:=oct"005";
ff_ligature:=oct"013";
ss_ligature:=oct"014";
st_ligature:=oct"015";
sf_ligature:=oct"016";
tz_ligature:=oct"017";
ch_ligature:=oct"012";
ck_ligature:=oct"011";
a_old:=oct"000";
e_old:=oct"001";
o_old:=oct"002";
u_old:=oct"003";
s_final:=oct"010";
en_dash:=oct"173";
em_dash:=oct"174";
eszet:=oct"031";
open_gaens:=oct"134";
close_gaens:=oct"042";
fi;
def ext_angle(expr arg_angle) = angle(dir(arg_angle) xscaled bold_ratio) enddef;
def ext_dir(expr arg_angle) = dir(ext_angle(arg_angle)) enddef;
%if proofing>1: generate ycurrent; fi % switch to the driver file%
generate fkt1mis; % -sl 15-3-1991 / 24-3-1994 DT
generate fkt1low; % -sl 15-3-1991 / 25-3-94 DT
generate fkt1upp; % -sl 15-3-1991 / 24-3-1994 DT / 5-6-2000 CT
generate fkt1num;
generate fkt1oth; % -sl 15-3-1991 / 24-3-1994 DT
font_slant slant; font_x_height x_height#;
font_normal_space 6u#+2letter_fit#;
font_normal_stretch 3u#; font_normal_shrink 2u#;
font_quad 18u#+4letter_fit#;
font_extra_space 2u#;
ligtable "c": "h"=:ch_ligature,
"k"=:ck_ligature;
ligtable "f": "t"=:ft_ligature,
"f"=:ff_ligature;
ligtable "t": "z"=:tz_ligature;
ligtable oct"042": "a"=:oct"344",
"e"=:oct"353",
"o"=:oct"366",
"u"=:oct"374",
"s"=:eszet;
ligtable "*": "a"=:a_old,
"e"=:e_old,
"o"=:o_old,
"u"=:u_old,
"J"=:"$";
ligtable "`": "`"=:open_gaens;
ligtable "'": "'"=:close_gaens;
ligtable "-": "-"=:en_dash;
ligtable en_dash: "-"=:em_dash;
ligtable "s": "z"=:eszet,
"s"=:ss_ligature,
"t"=:st_ligature,
"f"=:sf_ligature,
":"=:s_final,
"|"=:s_final,
ss_ligature: "b" kern 1.03u#,
"d" kern 1.03u#,
"h" kern 1.03u#,
"k" kern 1.03u#,
"l" kern 1.03u#,
"i" kern 0.4u#,
"j" kern 0.4u#,
":"|=:s_final,
"|"|=:s_final,
s_final=:|>"s";
end.
endinput;
|
