%-------------------------------------------------------------
% This is ETH_R.MF      as of Dec, 1995 by Jochen Metzinger
% originally distributed by Abass B. Alamnehe [February, 1993]
%-------------------------------------------------------------

iff known eth_ra:
cmchar "The letter ra";
beginchar(eth_ra,10u#,.5[cap_height#,x_height#],paren_depth#);
adjust_fit(0,0);

pickup fine.nib; penpos0(stem,187);  penpos1(stem,180); penpos2(stem,180);
pos3(vair,270);   pos4(vair,360);
x0l=w-2u; x1l=x0l-.25u; x2r=u; x3r=w-6u; x4=w-4u;
top y0=.95h;  y1=.8h;  y2=.2h; bot y3=0; y4=.075h;
filldraw stroke z0e{down}...z1e...z2e{down}...z3e{right}..z4e;
x11=x4; y11=y4; rt_half_ellipse(11,0);
penlabels(0,1,2,3,4,5,6); endchar;


iff known eth_rU:
cmchar "The letter rU";
beginchar(eth_rU,10u#,.5[cap_height#,x_height#],paren_depth#);
adjust_fit(2u#,-u#);

pickup fine.nib; penpos0(stem,180);  penpos1(stem,180); penpos2(stem,180);
pos3(vair,270);   penpos5(stem,0); penpos6(stem,0);
penpos5'(stem,0);
lft x0=lft x1=hround(w-6u);  x2l=u; x3l=w-6.5u; x4=x3;
x5=x6=x4-.75u; x5'=x5-.5u;
top y0=.95h;  y1=.85h;  y2=.45h; y3=.35h; y5=.35h; y4=.35h; 
bot y6=0; y5'=y6+.075h;

filldraw stroke z0e{down}...z1e...z2e{down}...z3e{right};
rt_wing(4,2u,.015h);
filldraw stroke z5e---z5'e...z6e;
penlabels(0,1,2,3,4,5,6); endchar;


iff known eth_rI:
cmchar "The letter rI";
beginchar(eth_rI,10u#,.5[cap_height#,x_height#],paren_depth#);
adjust_fit(0,0);

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-1.5u;  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;
penlabels(0,1,2,3,4,5,6); endchar;


iff known eth_rA:
cmchar "The letter rA";
beginchar(eth_rA,12u#,.5[cap_height#,x_height#],paren_depth#);
adjust_fit(0,u#);

pickup fine.nib; penpos0(stem,180);  penpos1(stem,180); penpos2(stem,180);
pos3(vair,270); pos4(vair,270);
x0l=w-3.75u; x1l=x0l;  x2r=u; x3=w-7u; x4=w-6u;
top y0=.95h;  y1=.85h;  y2=.2h-o; bot y3=00; y4=.05h;
filldraw stroke z0e{down}...z1e...z2e{down}...z3e---z4e;

penpos5(1.3stem,195); pos6(vair,90);
x5=x4; x6=x5+1.5u; y5=y4; y6=y5+.25h; filldraw stroke pulled_arc.e(6,5);
x7=x6;  y7=y6;  rt_wing(7,2u,.015h);
penlabels(0,1,2,3,4,5,6,7); endchar;


iff known eth_rE:
cmchar "The letter rE";
beginchar(eth_rE,10u#,.5[cap_height#,x_height#],paren_depth#);
adjust_fit(0,2u#);

pickup fine.nib; penpos0(stem,187);  penpos1(stem,180); penpos2(stem,180);
pos3(vair,270);   pos4(vair,360);
x0l=w-2u; x1l=x0l-.25u; x2r=u; x3r=w-6u; x4=w-4u;
top y0=.95h;  y1=.8h;  y2=.2h; bot y3=0; y4=.075h;
filldraw stroke z0e{down}...z1e...z2e{down}...z3e{right}..z4e;
x5=x4; y5=y4; large_ring(5,10);
penlabels(0,1,2,3,4,5,6); endchar;


iff known eth_re:
cmchar "The letter re";
beginchar(eth_re,10u#,.5[cap_height#,x_height#],paren_depth#);
adjust_fit(0,0);

pickup fine.nib; pos0(vair,90);  pos0'(vair,90); pos1(stem,180);
penpos2(stem,180); pos2'(stem,200); pos3(vair,270);
x0=w-3.5u; x0'=x0-1.5u; x2r=u; x1r=1.75u; x2'r=x2r+.25h; x3=w-4u;
top y0=.95h; top y0'=y0; y1=.75h; y2=.175h;  y2'=.05h-oo;  y3=.075h+o;
filldraw stroke z0e...z0'e{left}...z1e..z2e{down}...z2'e...z3e;
x7=x3; y7=y3; rt_half_ellipse(7,0);
x8=x0l; y8=y0; r_wing(8);
penlabels(0,1,2,2',3); endchar;


iff known eth_rO:
cmchar "The letter rO";
beginchar(eth_rO,10u#,.5[cap_height#,x_height#],paren_depth#);
adjust_fit(0,2u#);

pickup fine.nib; pos0(vair,90);  pos0'(vair,90); pos1(stem,180);
penpos2(stem,180); pos2'(stem,200); pos3(vair,270);

x0=w-3.5u; x0'=x0-1.5u; x2r=u; x1r=1.75u; x2'r=x2r+.25h; x3=w-4u;
top y0=.95h; top y0'=y0; y1=.75h; y2=.175h;  y2'=.05h-oo;  y3=.075h+o;
filldraw stroke z0e...z0'e{left}...z1e..z2e{down}...z2'e...z3e;
x7=x3; y7=y3; rt_half_ellipse(7,0);
x8=x0; y8=y0-.225h; large_ring(8,5);
penlabels(0,1,2,2',3); endchar;


iff known eth_ruA:
cmchar "The letter ruA";
beginchar(eth_ruA,12u#,.5[cap_height#,x_height#],paren_depth#);
adjust_fit(0,u#);

pickup fine.nib; penpos0(stem,180);  penpos1(stem,180); penpos2(stem,180);
pos3(vair,270); pos4(vair,270);
x0l=w-3.75u; x1l=x0l;  x2r=u; x3=w-7u; x4=w-6u;
top y0=.95h;  y1=.85h;  y2=.2h-o; bot y3=00; y4=.05h;
filldraw stroke z0e{down}...z1e...z2e{down}...z3e---z4e;

penpos5(1.3stem,195); pos6(vair,90);
x5=x4; x6=x5+1.5u; y5=y4; y6=y5+.25h; filldraw stroke pulled_arc.e(6,5);
x7=x6;  y7=y6;  rt_wing(7,2u,.015h);

x14=x0r+.25u; x15=x0l; y14=y15=y0-oo;
upper_left_wing(14); upper_right_wing(15);
penlabels(0,1,2,3,4,5,6,7); endchar;