%-------------------------------------------------------------
% This is ETH_M.MF      as of Apr, 1996 by Jochen Metzinger
% originally distributed by Abass B. Alamnehe [February, 1993]
%-------------------------------------------------------------

iff known eth_ma:
cmchar "The letter ma";
beginchar(eth_ma,16u#,.5[cap_height#,x_height#],paren_depth#);
adjust_fit(0,0);

pickup fine.nib;
penpos1(vair,90); pos0(vair,90); penpos2(stem,180); penpos3(stem,180);
penpos3'(stem,180);
penpos4(vair,270); penpos5(stem,0); penpos6(stem,0); penpos7(vair,0);
penpos8(stem,180); penpos9(stem,180); penpos9'(stem,180);
penpos10'(vair,270); penpos10(vair,270); penpos11(stem,0);
penpos12(stem,0); penpos13(vair,90); penpos14(vair,90);

x1=w-11.5u; x0r=w-8u; x2r=w-14u; lft x3r=w-15u; lft x3'r=w-14.5u;
x4=w-12u; x5r=w-9.75u; rt x6r=w-7u;
x7=w-6.5u; x8r=w-6u; x9r=w-7u; x9'r=w-6.5u; x10'=x9'l;
x10=w-3.75u; x11l=w-3.25u; x12l=w-3u;
x13=w-4u; x14=w-5u;

y1r=.65h+o; y0r=.65h; y2=.5h; y3=.3h; y3'=.2h; y4=.2h+oo; 
y5=.2h-oo; y6=.65h; y7=.675h;
y8=.65h; y9=.275h; y9'=y10'=.225h; y10r=.225h; y11=.35h; 
y12=.6h; y13=.65h; y14=.65h;

filldraw stroke z0e...z1e...z2e..z3e...z3'e..z4e...z5e--z6e..z7e..z8e;
filldraw stroke z8e--z9e{down}..{right}z9'e;    
filldraw stroke z10'e..z10e...z11e..tension 1.2..z12e..z13e...z14e;
penlabels(0,1,2,3,3',4,5,6,7,8,9,10,10',11,12,13,14); endchar;


iff known eth_mU:
cmchar "The letter mU";
beginchar(eth_mU,16u#,.5[cap_height#,x_height#],paren_depth#);
adjust_fit(0,3.5u#);

pickup fine.nib;
penpos1(vair,90); pos0(vair,90); penpos2(stem,180); penpos3(stem,180);
penpos3'(stem,180);
penpos4(vair,270); penpos5(stem,0); penpos6(stem,0); penpos7(vair,0);
penpos8(stem,180); penpos9(stem,180); penpos9'(stem,180);
pos10'(vair,270); penpos10(vair,270); penpos11(stem,0);
penpos12(stem,0); penpos13(vair,90); penpos14(vair,90);

x1=w-11.5u; x0r=w-8u; x2r=w-14u; lft x3r=w-15u; lft x3'r=w-14.5u;
x4=w-12u; x5r=w-9.75u; rt x6r=w-7u;
x7=w-6.5u; x8r=w-6u; x9r=w-7u; x9'r=w-6.5u; x10'=x9'l;
x10=w-3.75u; x11l=w-3.25u; x12l=w-3u;
x13=w-4u; x14=w-5u;

y1r=.65h+o; y0r=.65h; y2=.5h; y3=.3h; y3'=.2h; y4=.2h+oo; y5=.2h-oo; 
 y6=.65h; y7=.675h;
y8=.65h; y9=.275h; y9'=y10'=.225h; y10r=.225h; y11=.35h; y12=.6h; 
 y13=.65h; y14=.65h;

filldraw stroke z0e...z1e...z2e..z3e...z3'e..z4e...z5e--z6e..z7e..z8e;
filldraw stroke z8e--z9e{down}..{right}z9'e;    
filldraw stroke z10'e..z10e...z11e..tension 1.2..z12e..z13e...z14e;
x15=x11r; y15=.5[y11,y12]; rt_half_ellipse(15,1.5u);
penlabels(0,1,2,3,3',4,5,6,7,8,9,10,10',11,12,13,14); endchar;


iff known eth_mI:
cmchar "The letter mI";
beginchar(eth_mI,16u#,.5[cap_height#,x_height#],0);
adjust_fit(-.2u#,2.5u#);
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); pos8'(vair,270); penpos9(stem,0);
penpos9'(stem,0); penpos10(stem,180); penpos14(stem,0);
pos12(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); y6=.5[y0,y1]-oo; x8'r=x9r-u;
x10r=hround(x7r+stem); x13=w-3u; x13'=x13-stem;

top y0=top y0'=h+o; y9=h+oo; top y1=.98h+o;  y2=y1-.3h; bot y4=.55h; 
 y3=.5[y1,y2]; y5'=y4+oo;
y7=.5[y0,y1]; y12=y8=y4+.05h-oo; y11=y8+.1h; y8'=y8+oo;
y10=y7-.1h; bot y13=00; 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};
x14l=x13; bot y14=00; rt_half_ellipse(14,1.5u);
penlabels(0,1,2,3,4,5,5',6,7,8,8',9,10,11,12,13,14); endchar;


iff known eth_mA:
cmchar "The letter mA";
beginchar(eth_mA,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); penpos14(stem,0);
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); y6=.5[y0,y1]-oo; x8'r=x9r-u;
x10r=hround(x7r+stem); x13=w-3u; x13'=x13-stem;

top y0=top y0'=h+o; y9=h+oo; top y1=.98h+o;  y2=y1-.3h; bot y4=.55h; 
 y3=.5[y1,y2]; y5'=y4+oo;
y7=.5[y0,y1]; y12=y8=y4+.05h-oo; y11=y8+.1h; y8'=y8+oo;
y10=y7-.1h; bot y13=00; 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};
penlabels(0,1,2,3,4,5,5',6,7,8,8',9,10,11,12); endchar;


iff known eth_mE:
cmchar "The letter mE";
beginchar(eth_mE,16u#,.5[cap_height#,x_height#],0);
adjust_fit(-.25u#,2.5u#);
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); penpos14(stem,0);
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); y6=.5[y0,y1]-oo; x8'r=x9r-u;
x10r=hround(x7r+stem); x13=w-3u; x13'=x13-stem;

top y0=top y0'=h+o; y9=h+oo; top y1=.98h+o;  y2=y1-.3h; bot y4=.55h; y3=.5[y1,y2]; 
 y5'=y4+oo;
y7=.5[y0,y1]; y12=y8=y4+.05h-oo; y11=y8+.1h; y8'=y8+oo;
y10=y7-.1h; bot y13=00; 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};
x14=x13; bot y14=0;  half_ring(14);
penlabels(0,1,2,3,4,5,5',6,7,8,8',9,10,11,12,13,14); endchar;


iff known eth_me:
cmchar "The letter me";
beginchar(eth_me,16u#,.5[cap_height#,x_height#],0);
adjust_fit(.5u#,0);
if .5w <> good.x .5w :change_width; fi pickup fine.nib;

penpos0(vair,90); penpos1(vair,90);
penpos0'(vair,90); penpos2(curve,180); penpos3(curve,180); penpos4(vair,270);
penpos6(stem,-0); penpos6'(stem,0); penpos7(stem,180); penpos11(stem,180);
penpos8(vair,270); penpos9(curve,0); penpos13(stem,0); penpos13'(stem,0);

x2r=hround u; x9r=hround(w-x2r); x3r=x2r+u;
x1=lft x6=w-.625w; lft x6'=lft x4=lft x6-fine;
rt x11=w-.37w; rt x7=rt x11-fine; x8=x0'=x0=.5[x7,x9];  
 x13l=x2r-fine; x13'l=x2r;

y6=.5[y0,y1]-oo; top y0=top y0'=h+o; top y1=.98h+o; y2=y1-.3h; bot y3=y2-.15h;
y4=y3-.05h; y6'=y4+.05h; y7=.5[y0,y1];  y8=y3+.05h;
y11=y8+.1h; y9=.5[y0,y3];  bot y13=00; y13'=y13+.15h;

filldraw stroke z0e--super_arc.e(1,2)...z3e...{right}z4e;
filldraw stroke z6e{down}...z6'e..controls z13'e ..z13e;
pickup fine.nib; filldraw stroke z7e..{down}z11e;
filldraw stroke pulled_super_arc.e(0',9)(superpull)..pulled_arc.e(9,8)..
pulled_arc.e(8,11);
penlabels(0,0',1,2,3,4,6,6',7,8,9,11,13,13'); endchar;


iff known eth_mO:
cmchar "The letter mO";
beginchar(eth_mO,16u#,.5[cap_height#,x_height#],0);
adjust_fit(.5u#,0);
if .5w <> good.x .5w :change_width; fi pickup fine.nib;

penpos0(vair,90); penpos1(vair,90); penpos0'(vair,90); penpos2(curve,180);
penpos3(curve,180); penpos4(vair,270);
penpos6(stem,-0); penpos6'(stem,0); penpos7(stem,180); penpos11(stem,180);
penpos8(vair,270); penpos9(curve,0); penpos13(stem,0);

x2r=hround u; x9r=hround(w-x2r); x3r=x2r+u;
x1=lft x6=w-.6w; lft x6'=lft x4=lft x6-fine;
rt x11=w-.37w; rt x7=rt x11-fine; x8=x0'=x0=.5[x7,x9]; lft x13=lft x6-u;

y6=.5[y0,y1]-oo; top y0=top y0'=h+o; top y1=.98h+o; y2=y1-.3h; bot y3=y2-.15h;
y4=y3-.05h; y6'=y4+.05h; y7=.5[y0,y1];  y8=y3+.05h;
y11=y8+.1h; y9=.5[y0,y3];  bot y13=00;

filldraw stroke z0e--super_arc.e(1,2)...z3e...{right}z4e;
filldraw stroke z6e{down}...z6'e...{down}z13e;
pickup fine.nib; filldraw stroke z7e..{down}z11e;
filldraw stroke pulled_super_arc.e(0',9)(superpull)..pulled_arc.e(9,8)..
pulled_arc.e(8,11);
penlabels(0,0',1,2,3,4,6,6',7,8,9,11,13); endchar;