summaryrefslogtreecommitdiff
path: root/fonts/eiad/source/eiadtcsc10.mf
blob: c346a6ab47435840bbc239201c00625ea63913b8 (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
%% This file is public domain.
%% Originally written 1998, Ivan A Derzhanski.
%% Notice added by Clea F. Rees 2009/01/06.
%% 
% 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