blob: f1bbcc93f1e68f5ea3e3a9ec1df4bddf13209e21 (
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
|
%% This file is public domain.
%% Originally written 1998, Ivan A Derzhanski.
%% Notice added by Clea F. Rees 2009/01/06.
%%
% Irish Caps and Small Caps 10 point
if unknown cmbase: input cmbase fi
design_size := 10;
font_identifier:="EIADCSC"; font_size design_size * pt#;
% first come parameters used to set the uppercase letters
% (including some for lowercase that aren't actually used)
% These parameters are nearly the same as the Computer Modern Roman
% parameters.
input c-cmr;
u#:= % unit width
((u#*360pt#) + (design_size * 1))/360pt#;
letter_fit#:= % extra space added to all sidebars
((letter_fit#*360pt#) + (design_size * 5))/360pt#;
ligs:=1; % level of ligatures to be included
% now come replacements used to set the lowercase caps
lower.u#:= % unit width
(u#*360pt#*16)/(21*360pt#);
lower.width_adj#:= % width adjustment for certain characters
width_adj#;
lower.cap_serif_fit#:= % extra sidebar near uppercase serifs
(cap_serif_fit#*360pt#*4)/(5*360pt#);
lower.letter_fit#:= % extra space added to all sidebars
(letter_fit#*36pt#*24)/(5*360pt#);
lower.body_height#:= % height of tallest characters
(body_height#*36pt#*20.0)/(27.0*36pt#);
lower.cap_height#:= % height of caps
(cap_height#*36pt#*18.5)/(24.6*36pt#);
lower.x_height#:= % height of lowercase without ascenders
(x_height#*36pt#*116)/(155*36pt#);
lower.bar_height#:= % height of crossbar in lowercase e
(bar_height#*36pt#*65)/(87*36pt#);
lower.comma_depth#:= % depth of comma below baseline
(comma_depth#*36pt#*52)/(70*36pt#);
lower.stem#:= % lowercase stem breadth
(stem#*360pt#*21)/(25*360pt#);
lower.flare#:= % diameter of bulbs or breadth of terminals
(flare#*360pt#*25)/(33*360pt#);
lower.cap_hair#:= % uppercase hairline breadth
(cap_hair#*36pt#*91)/(11*360pt#);
lower.cap_stem#:= % uppercase stem breadth
(cap_stem#*360pt#*26)/(32*360pt#);
lower.cap_curve#:= % uppercase curve breadth
(cap_curve#*360pt#*31)/(37*360pt#);
lower.cap_ess#:= % breadth in middle of uppercase s
(cap_ess#*360pt#*28)/(35*360pt#);
lower.cap_jut#:= % protrusion of uppercase serifs
(cap_jut#*360pt#*26)/(37*360pt#);
lower.beak_jut#:= % horizontal protrusion of beak serifs
(beak_jut#*360pt#*7)/(10*360pt#);
lower.beak#:= % vertical protrusion of beak serifs
(beak#*36pt#*52)/(7*360pt#);
lower.slab#:= % serif and arm thickness
(slab#*36pt#*91)/(11*360pt#);
lower.cap_bar#:= % uppercase bar thickness
(cap_bar#*36pt#*91)/(11*360pt#);
lower.cap_band#:= % uppercase thickness above/below lobes
(cap_band#*36pt#*91)/(11*360pt#);
lower.cap_notch_cut#:= % max breadth above/below uppercase notches
cap_notch_cut#;
lower.o#:= % amount of overshoot for curves
(o#*360pt#*5)/(8*360pt#);
lower.apex_o#:= % amount of overshoot for diagonal junctions
(apex_o#*360pt#*4)/(8*360pt#);
lower.fudge:= % factor applied to weights of heavy characters
fudge;
generate gaec7cb % switch to the driver file
|
