%------------------------------------------------------------- % 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;