summaryrefslogtreecommitdiff
path: root/language/ethiopia/ethiop/mf/eth_acce.mf
blob: d6c23b7962f92ff4c6106f1ba26a94af587190b0 (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
%-------------------------------------------------------------
% This is ETH_ACCE.MF   as of Dec, 1995 by Jochen Metzinger
% originally distributed by Abass B. Alamnehe [February, 1993]
%-------------------------------------------------------------

iff known eth_d_accent:
cmchar "d accent";
beginchar(eth_d_accent,10u#,.5[cap_height#,x_height#],paren_depth#);
italcorr asc_height#*slant-serif_fit#+.5stem#-2u#;
adjust_fit(0,0)

penpos9(1.3stem,0); penpos10(1.3stem,0); penpos11(1.3stem,0);
x9r+.5u=x10r=.6w; x11r=x10r-.5u; y9=.85h; y10=h; y11=y10+.05h;
filldraw stroke z9e---z10e{up}...{left}z11e;
penlabels(9,10,11); endchar;


iff known eth_rassigea:
cmchar "Rassigea accent";
beginchar(eth_rassigea,11u#,.5[cap_height#,x_height#],0);
adjust_fit(0,0);

penpos6(stem,0); penpos7(stem,0); x6=.5w; x7=.5w; y6=h+o; y7=h;
lft_half_ellipse(6,2u); rt_half_ellipse(7,2u);
penlabels(1,2,2',3,4,6,7); endchar;


iff known eth_girigea:
cmchar "Girigea accent";
beginchar(eth_girigea,11u#,.5[cap_height#,x_height#],0);
adjust_fit(0,0);

x3=.675w; y3=-.1h;  rt_wing(3,1.75u,0);
x4=.675w; y4=-.1h;  lft_wing(4,1.75u,0);
penlabels(3,4); endchar;


iff known eth_rass:
cmchar "rass accent";
beginchar(eth_rass,11u#,.5[cap_height#,x_height#],0);
adjust_fit(0,0);

x14=.5w; x15=.5w; y14=y15=h;
upper_left_wing(14); upper_right_wing(15);
penlabels(1,2,2',3,4,6,7); endchar;