summaryrefslogtreecommitdiff
path: root/fonts/t1-fraktur/fkt1gen.mf
blob: b37856eb73ed6dfaa031af52e0b4b88ea2568d16 (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
% 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;