summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/fonts/source/public/ibygrk/ebary4.mf
blob: 05e5598eaceb14fd853e98f3902ee7c93222a46f (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
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;