blob: a6d2e16c7849ddff8ab000923770226194575046 (
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
|
% Irish Typewriter Caps and Small Caps 10 point
if unknown cmbase: input cmbase fi
design_size := 10;
font_identifier:="EIADTCSC"; font_size design_size * pt#;
% first come parameters used to set the uppercase letters
% (including some for lowercase that aren't actually used)
input c-cmtt;
% now come replacements used to set the lowercase caps
lower.u#:= % unit width
u#;
lower.width_adj#:= % width adjustment for certain characters
width_adj#;
lower.cap_serif_fit#:= % extra sidebar near uppercase serifs
cap_serif_fit#;
lower.letter_fit#:= % extra space added to all sidebars
((letter_fit#*360pt#) + (design_size * 3))/360pt#;
lower.body_height#:= % height of tallest characters
(body_height#*36pt#*19)/(25*36pt#);
lower.cap_height#:= % height of caps
(cap_height#*36pt#*17)/(22*36pt#);
lower.x_height#:= % height of lowercase without ascenders
(x_height#*36pt#*12)/(15.5*36pt#);
lower.bar_height#:= % height of crossbar in lowercase e
((bar_height#*36pt#*62)+0.002)/(79*36pt#);
lower.comma_depth#:= % depth of comma below baseline
(comma_depth#*360pt#*38)/(50*360pt#);
lower.stem#:= % lowercase stem breadth
stem#;
lower.flare#:= % diameter of bulbs or breadth of terminals
(flare#*360pt#*30)/(32*360pt#);
lower.cap_hair#:= % uppercase hairline breadth
cap_hair#;
lower.cap_stem#:= % uppercase stem breadth
cap_stem#;
lower.cap_curve#:= % uppercase curve breadth
cap_curve#;
lower.cap_ess#:= % breadth in middle of uppercase s
cap_ess#;
lower.cap_jut#:= % protrusion of uppercase serifs
((cap_jut#*360pt#*26)+0.01)/(34*360pt#);
lower.beak_jut#:= % horizontal protrusion of beak serifs
beak_jut#;
lower.beak#:= % vertical protrusion of beak serifs
((beak#*360pt#*26)+0.01)/(34*360pt#);
lower.slab#:= % serif and arm thickness
slab#;
lower.cap_bar#:= % uppercase bar thickness
cap_bar#;
lower.cap_band#:= % uppercase thickness above/below lobes
cap_band#;
lower.cap_notch_cut#:= % max breadth above/below uppercase notches
(cap_notch_cut#*360pt#*24)/(25*360pt#);
lower.o#:= % amount of overshoot for curves
((o#*360pt#*3)-0.0018)/(4*360pt#);
lower.apex_o#:= % amount of overshoot for diagonal junctions
(apex_o#*360pt#*2)/(3*360pt#);
lower.fudge:= % factor applied to weights of heavy characters
((fudge*10*85)+0.001)/(81*10);
generate gaec7cb % switch to the driver file
|