summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/fonts/source/public/eiad/eiadbxi10.mf
blob: 5297706a96a6f0c0461611bbebeec02d216264d8 (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
%% This file is public domain.
%% Originally written 1998, Ivan A Derzhanski.
%% Notice added by Clea F. Rees 2009/01/06.
%% 
% Bold Extended Irish Italic
if unknown cmbase: input cmbase fi
 
design_size := 10;
font_identifier:="EIADBXI"; font_size design_size * pt#;
 
% This font is a modification of Computer Modern Bold Extended.
 
input c-cmbx;
 
u#:=                     % unit width
    ((u#*360pt#) - (design_size * 1.8))/360pt#;
 
letter_fit#:=      % extra space added to all sidebars
    (if design_size <  8: (-(design_size*10)+80)
                    else: (0)fi)/360pt#;
 
crisp#:=                 % diameter of serif corners
    ((crisp#*360pt#) + (design_size * 13))/360pt#;
 
hair#:=                  % lowercase hairline breadth
    ((hair#*360pt#) + (design_size * 3))/360pt#;
 
stem#:=                  % lowercase stem breadth
    ((stem#*360pt#) - (design_size * 3))/360pt#;
 
curve#:=                 % lowercase curve breadth
    ((curve#*360pt#) - (design_size * 3))/360pt#;
 
ess#:=                   % breadth in middle of lowercase s
    ((ess#*360pt#) - (design_size * 3))/360pt#;
 
flare#:=                 % diameter of bulbs or breadth of terminals
    ((flare#*360pt#) - (design_size * 3))/360pt#;
 
dot_size#:=              % diameter of dots
    ((dot_size#*360pt#) - (design_size * 3))/360pt#;
 
cap_hair#:=              % uppercase hairline breadth
    ((cap_hair#*360pt#) + (design_size * 3))/360pt#;
 
cap_stem#:=              % uppercase stem breadth
    ((cap_stem#*360pt#) - (design_size * 2))/360pt#;
 
cap_curve#:=             % uppercase curve breadth
    ((cap_curve#*360pt#) - (design_size * 3))/360pt#;
 
cap_ess#:=               % breadth in middle of uppercase s
    ((cap_ess#*360pt#) - (design_size * 3) - 0.001)/360pt#;
 
jut#:=                   % protrusion of lowercase serifs
    ((jut#*360pt#) + (design_size * 2))/360pt#;
 
beak_jut#:=              % horizontal protrusion of beak serifs
    ((beak_jut#*360pt#) - (design_size * 1) - 0.00032)/360pt#;
 
o#:=                     % amount of overshoot for curves
    ((o#*360pt#) + (design_size * 2))/360pt#;
 
apex_o#:=                % amount of overshoot for diagonal junctions
    ((apex_o#*360pt#) + (design_size * 3) + 0.00091)/360pt#;
 
slant:=                  % tilt ratio $(\Delta x/\Delta y)$
    0.25;
 
variant_g:=              % should an italic-style g be used?
    true;
 
generate gaelach         % switch to the driver file