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
|
savedpicture = barypicture; % it was cleared at the end of e.mf
%% but the dimensions set in e.mf remain.
% The acute and grave accents are lifted above the normal position and
% are also shortened slightly, with the reduction at the bottom of the
% accent. This is because epsilon has a much larger overshoot than
% other rounded characters, and the accent tends to bleed into it.
def eps_grave(expr center) =
if serifs: x22-x21=1/4w; x21-.5stem=hround(center-2/3(x22-x21)-.5stem);
else: lft x21l=hround (1/4w-.5stem); rt x22r=hround(center+.25u+.5vair); fi
begingroup;
numeric saved_h;
numeric saved_x_height;
saved_x_height = x_height;
saved_h=h;
save h;
save x_height;
h=saved_h + .75vair;
x_height = saved_x_height + vair;
generate_grave; penlabels(21,22);
endgroup;
enddef;
def eps_acute(expr center) =
if serifs: x21-x22=1/4w; x21+.5stem=hround(center+2/3(x21-x22)+.5stem);
else: rt x21r=hround (3/4w+.5stem); lft x22l=hround(center-.25u-.5vair); fi
begingroup;
numeric saved_h;
numeric saved_x_height;
saved_x_height = x_height;
saved_h=h;
save h;
save x_height;
h:=saved_h+.75vair;
x_height = saved_x_height + vair;
generate_grave; penlabels(21,22);
endgroup;
enddef;
cmchar "Lowercase epsilon with adjusted grave";
beginchar(e_bary,width#,acc_ht#,0);
this_letter; eps_grave(x_baryctr);
endchar;
cmchar "Lowercase epsilon with adjusted acute";
beginchar(e_oxy,width#,acc_ht#,0);
this_letter; eps_acute(x_baryctr); endchar;
%cmchar "Lowercase epsilon with rough breathing and acute";
%beginchar(e_asproxy,width#,acc_ht#,0);
%this_letter; spirit_acute(x_baryctr)<; endchar;
%cmchar "Lowercase epsilon with smooth breathing and acute";
%beginchar(e_lenoxy,width#,acc_ht#,0);
%this_letter; spirit_acute(x_baryctr)>; endchar;
cmchar "Lowercase epsilon with rough breathing and grave";
beginchar(e_asprbary,width#,acc_ht#,0);
this_letter; spirit_grave(x_baryctr)<; endchar;
cmchar "Lowercase epsilon with smooth breathing and grave";
beginchar(e_lenbary,width#,acc_ht#,0);
this_letter; spirit_grave(x_baryctr)>; endchar;
cmchar "Lowercase epsilon with circumflex (Attic)";
beginchar(e_peri,width#,acc_ht#,0);
this_letter; circumflex(x_baryctr); endchar;
cmchar "Lowercase epsilon with rough breathing and circumflex (Attic)";
beginchar(e_asprperi,width#,Circ_ht#,0);
this_letter; spirit_circumflex(x_baryctr)<; endchar;
cmchar "Lowercase epsilon with smooth breathing and circumflex (Attic)";
beginchar(e_lenperi,width#,Circ_ht#,0);
this_letter; spirit_circumflex(x_baryctr)>; endchar;
picture barypicture;
picture pic.iota;
picture savedpicture;
|
