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
|
%-------------------------------------------------------------
% This is ETH_MRF.MF as of Apr, 1996 by Jochen Metzinger
% originally distributed by Abass B. Alamnehe [February, 1993]
%-------------------------------------------------------------
iff known eth_mya:
cmchar "The letter ~mA";
beginchar(eth_mya,16u#,.5[cap_height#,x_height#],0);
adjust_fit(-.2u#,1u#);
if .5w <> good.x .5w :change_width; fi pickup fine.nib;
penpos0(vair,90); penpos1(vair,90); penpos0'(vair,90); penpos2(stem,-180);
penpos3(stem,180); penpos4(vair,200); penpos5(vair,270); penpos5'(stem,-0);
penpos6(stem,-0); penpos6'(stem,0); penpos7(stem,180); penpos11(stem,180);
penpos8(stem,180); penpos8'(vair,270); penpos9(stem,0);
penpos9'(stem,0); penpos10(stem,180);
penpos12(vair,270); penpos13(stem,0); penpos13'(stem,0);
lft x2r=hround u; x9'l=hround(w); x9r=x9'l-.5stem; x0'=x9;
x5'=x5l=w-.625w; x1=x5l+stem;
lft x4r=hround(x2r+1.25stem); x6=x5l+stem; x12l=x8r=w-.375w; x7r=x8r-.5u;
x3=.5[x6,x2r]; x11r=hround(x7r-stem); x8'r=x9r-u;
x10r=hround(x7r+stem); x13=w-3u; x13'=x13-stem;
top y0=top y0'=0.85h+o; y9=0.85h+oo; top y1=.825h+o; y2=y1-.25h; bot y4=.4h;
y3=.5[y1,y2]; y5'=y4+oo; y6=.5[y0,y1]-oo;
y7=.5[y0,y1]; y12=y8=y4+.05h-oo; y11=y8+.1h; y8'=y8+oo;
y10=y7-.1h; bot y13=-0.05h; y13'=.25(y9-y13)+y13; y9'=.8(y9-y13)+y13;
filldraw stroke z6e--z5'e...{left}z4e..super_arc.e(2,1)---z0'e;
filldraw stroke z8'e{left}...z12e;
filldraw stroke z9e..controls z9'e and z13'e ..z13e;
pickup fine.nib; filldraw stroke z7e..controls z10e and z11e..z8e{right};
penpos14(stem,0); penpos15(stem,5);
x14r=x15r=x7r; y14=y7; y15=y14+0.175h;
filldraw stroke z14e--z15e;
x16=x15l+.25u; x17=x15r; y16=y17=y15-oo;
upper_left_wing(16); upper_right_wing(17);
penlabels(0,1,2,3,4,5,5',6,7,8,8',9,10,11,12,14,15); endchar;
iff known eth_rya:
cmchar "The letter ~ri";
beginchar(eth_rya,10u#,.5[cap_height#,x_height#],paren_depth#);
adjust_fit(0,1u#);
pickup fine.nib; penpos0(stem,180); penpos1(stem,180); penpos2(stem,180);
pos3(vair,270); pos4(vair,270); penpos5(stem,0); penpos6(stem,10);
x0l=x1l=w-3u; x2r=u; x3=w-5.5u; x4=w-4.5u; x5r=w-u; x6r=x5r-.5u;
top y0=.95h; y1=.85h; y2=.2h-o; bot y3=.025h; y4=.065h; y5=.2h; y6=.3h;
filldraw stroke z0e{down}...z1e...z2e{down}...z3e---z4e..z5e{up}...z6e;
x14=x0l; x15=x0r; y14=y15=y0;
rt_half_ellipse(14,1.5u); lft_half_ellipse(15,1.5u);
penlabels(0,1,2,3,4,5,6); endchar;
iff known eth_fya:
cmchar "The letter ~fi";
beginchar(eth_fya,10u#,.5[cap_height#,x_height#],paren_depth#);
adjust_fit(0,3u#);
pickup fine.nib; penpos0(stem,180); penpos1(stem,180);
penpos2(1.1stem,180); penpos3(stem,195); pos4(vair,270); pos5(vair,270);
pos6(vair,270); penpos6'(1.2stem,360);
x0l=x1l=w-3u; x2r=.5u; x3r=x2r+u; x4=w-2.5u; x5=w-1.5u;
top y0=.95h; y1=.85h; y2=.15h; bot y3=0; y4=.1h; y5=.1h;
filldraw stroke z0e...z1e...z2e{down}...z3e...z4e---z5e;
x6=x5-.5u; x6'=x6+2.5u; y6=y5; y6'=y6+.25h; filldraw stroke pulled_arc.e(6,6');
penpos7(stem,25); penpos8(stem,0); pos9(vair,90);
x7=x4-1.5u; x8=x7+.5u; x9=x2l; y7=y4-o; y9=.3h; y8=y7+.4(y9-y7);
filldraw stroke z7e..pulled_arc.e(8,9) shifted(.25u,-.025h) rotated 15;
x14=x0l; x15=x0r; y14=y15=y0;
rt_half_ellipse(14,1.5u); lft_half_ellipse(15,1.5u);
penlabels(0,1,2,3,4,5,6); endchar;
|
