%------------------------------------------------------------- % This is ETH_NUM.MF as of Dec, 1995 by Jochen Metzinger % originally distributed by Abass B. Alamnehe [February, 1993] %------------------------------------------------------------- iff known eth_100_100: cmchar "Ethiopic numeral 10000"; beginchar(eth_100_100,13u#,.5[cap_height#,x_height#],paren_depth#); adjust_fit(u#,u#); pickup fine.nib; penpos0(stem,180); penpos1(stem,180); penpos2(stem,180); pos3(vair,105); penpos4(curve,0); pos5(vair,270); penpos0'(stem,180); penpos2'(stem,180); x2r = 0; x1=x0; x2r=x0-1.5u; x3=x0+2u; x4r=x0+4.5u; x5=x2l; x0'=x0+.5u; x2'r=x2r+.25u; y0=.2h; y1=.3h; y2=.6h; top y3=.8h; y5=.45h; y4=.65h; bot y0'=.1h; y2'=.4h; filldraw stroke z5e{right}..{up}z4e..{left}z3e; filldraw stroke z3e{left}...{down}z2e..z2'e...z1e..z0e{down}..{right}z0'e; pickup fine.nib; penpos20(stem,180); penpos21(stem,180); penpos22(stem,180); pos23(vair,105); penpos24(curve,0); pos25(vair,270); penpos20'(stem,180); penpos22'(stem,180); x24r = w; x21=x20; x22r=x20-1.5u; x23=x20+2u; x24r=x20+4.5u; x25=x22l; x20'=x20+.5u; x22'r=x22r+.25u; y20=.2h; y21=.3h; y22=.6h; top y23=.8h; y24=.65h; y25=.45h; bot y20'=.1h; y22'=.4h; filldraw stroke z25e{right}..{up}z24e..{left}z23e; filldraw stroke z23e{left}...{down}z22e..z22'e...z21e..z20e{down}..{right}z20'e; pickup fine.nib; pos5'(vair,270); z5'=z1l; filldraw stroke z5'e--z25e; x9=x10=.5[x3,x23]; y9=y10=h+.075h; lft_wing(9,2u,.01h); rt_wing(10,1.75u,.01h); x11=x12=.5[x0',x20']; bot y11=bot y12=-o; lft_wing(11,2u,.01h); rt_wing(12,2.25u,.01h); penlabels(0,0',1,2,2',3,4,5, 9,10,11,12, 20,20',21,22,22',23,24,25); endchar; iff known eth_100: cmchar "Ethiopic numeral 100"; beginchar(eth_100,10u#,.5[cap_height#,x_height#],paren_depth#); adjust_fit(-u#,u#); % THE RIGHT TOP ARC pickup fine.nib; penpos0(stem,180); penpos1(stem,180); penpos2(stem,180); penpos2'(stem,180); pos3(vair,105); penpos0'(stem,180); x0=.5w; x0'=.5w+.5u; x1=x0; x2r=w-6.5u; x2'r=x2r+.25u; x3=w-3u; bot y0'=.1h; y0=.2h; y1=.3h; y2=.6h; y2'=.4h; top y3=.8h; filldraw stroke z3e{left}...{down}z2e..z2'e...z1e..z0e{down}..{right}z0'e; penpos4(curve,0); pos5(vair,270); x5=x2l; x4r=w-.5u; y5=.45h; y4=.65h; filldraw stroke z5e{right}..{up}z4e{up}..{left}z3e; x9=x10=.65w; y9=y10=h+.075h; lft_wing(9,1.5u,.01h); rt_wing(10,1.25u,.01h); x11=x12=.55w; bot y11=bot y12=-o; lft_wing(11,1.5u,.01h); rt_wing(12,1.5u,.01h); penlabels(0,0',1,2,3,4,5); endchar; iff known eth_90: cmchar "Ethiopic numeral 90"; beginchar(eth_90,10u#,.5[cap_height#,x_height#],paren_depth#); adjust_fit(.5u#,0); pickup fine.nib; penpos0(stem,5); penpos1(stem,0); penpos2(stem,0); penpos3(stem,0); penpos4(stem,0); penpos5(stem,0); penpos6(stem,0); pos7(vair,45); x1=.5w; x0=x1+.5u; x2r=w-1.25u; x3=x0+1.5u; x4l=w-5u; x5l=x4l-.25u; x6l=w-4.5u; x7=.5w; bot y0=.1h; y1=.2h; y2=.55h; y3+o=y4=.55h; y5=y4+.025h; y6=.7h; top y7=.8h; filldraw stroke z0e{left}...{up}z1e---z3e; filldraw stroke z4e{left}...{up}z5e---z6e{up}...{left}z7e; x8=x7; y8=y7; lft_wing(8,1.5u,o); x9=x10=.5w; y9=y10=h+.075h; lft_wing(9,1.5u,.01h); rt_wing(10,1.25u,.01h); x11=x12=.45w; bot y11=bot y12=-o; lft_wing(11,1.5u,.01h); rt_wing(12,1.5u,.01h); penlabels(0,1,2,3,4,5,6,7); endchar; iff known eth_80: cmchar "Ethiopic numeral 80"; beginchar(eth_80,10u#,.55[cap_height#,x_height#],0); adjust_fit(3u#,2.5u#) if .5w <> good.x .5w :change_width; fi pickup fine.nib; %LEFT STEM penpos0(stem,0); penpos1(stem,0); penpos1'(stem,0); x0=w-7u; x1=x0-.5u; x1'=x1-.5u; y0=.75h-o; y1=.15h; y1'=.15(y0-y1)+y1; filldraw stroke z0e--z1'e{down}..{right}z1e; %RIGHT STEM penpos3(stem,0); penpos3'(stem,0); penpos2(stem,0); x2=w-x0; x3=x2-.5u; x3'=x3-.5u; y2=.75h; y3=.15h; y3'=.15(y2-y3)+y3; filldraw stroke z2e--z3'e{down}..{right}z3e; x4=x0r; x4'=x2l; y4=y0; y4'=y2; draw z4--z4'; x5=x0l; x6=x2r; y5=y0; y6=y2; lft_wing(5,2u,.015h); rt_wing(6,1.5u,.015h); x9=x10=.55w; y9=y10=h+.075h; lft_wing(9,1.75u,.01h); rt_wing(10,1.5u,.01h); x11=x12=.5w; bot y11=bot y12=-o; lft_wing(11,1.75u,.01h); rt_wing(12,1.5u,.01h); penlabels(0,1,2,3,4,5); endchar; iff known eth_70: cmchar "Ethiopic numeral 70"; beginchar(eth_70,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=.8h; top y0'=y0; y1=.6h; y2=.275h; y2'=.15h-oo; y3=.175h+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); x9=x10=.55w; y9=y10=h+.075h; lft_wing(9,1.5u,.01h); rt_wing(10,1.5u,.01h); x11=x12=.5w; bot y11=bot y12=-o; lft_wing(11,1.5u,.01h); rt_wing(12,1.5u,.01h); penlabels(0,1,2,2',3); endchar; iff known eth_60: cmchar "Ethiopic numeral 60"; beginchar(eth_60,10u#,.5[cap_height#,x_height#],0); adjust_fit(1.5u#,1.5u#); if .5w <> good.x .5w :change_width; fi pickup fine.nib; pickup fine.nib; penpos1(stem,0); penpos2(stem,0); penpos1'(stem,0); penpos2'(stem,0); x1=w-5u; x1'=x1-.5u; x2=x1'+u; x2=x2'-.5u; top y1=.8h; y2=.3h; y1'=y2'+o=y2+.6(y1-y2); filldraw stroke z1e--z1'e; filldraw stroke z2'e--z2e; x3=x1l; x4=x1r; y3=y4=y1; lft_wing(3,2u,.015h); rt_wing(4,2.5u,.015h); x5=x2l; x6=x2r; y5=y6=y2; lft_wing(5,2.25u,.015h); rt_wing(6,1.5u,.010h); x9=x10=.55w; y9=y10=h+.075h; lft_wing(9,1.5u,.01h); rt_wing(10,1.5u,.01h); x11=x12=.5w; bot y11=bot y12=-o; lft_wing(11,1.5u,.01h); rt_wing(12,1.5u,.01h); penlabels(1,2,3,4,6,7); endchar; iff known eth_50: cmchar "Ethiopic numeral 50"; beginchar(eth_50,8.5u#,.55[cap_height#,x_height#],paren_depth#); adjust_fit(u#,.5u#); pickup fine.nib; penpos0(stem,180); penpos1(stem,180); penpos2(stem,180); penpos3(stem,180); pos4(vair,270); penpos8(stem,0); penpos8'(stem,0); penpos9(stem,0); penpos9'(stem,0); x0r=hround max(.7u,1.45u-.5curve); x3r=x0r+hair; x1r=x0r+hair; x2r=x0r-stem; x4l=.5w+fine; x8r=w-x0r-stem; x8'r=x8r+.5u; x9r=x8r-.5u; x9'r=x9r-.25u; top y0=top y8=.75h+o; y3=.45h; y1=.75(y0-y3)+y3; y2=.25(y0-y3)+y3; y4=y7=y3+o; bot y9=.1h; y8'=y9+.85(y8-y9); y9'=y9+.1(y8-y9); filldraw stroke z0e..controls z1e and z2e..z3e{right}...z4e; filldraw stroke z8e{right}..{down}z8'e--z9'e{down}..{right}z9e; x19=x20=.45w; y19=y20=h+.075h; lft_wing(19,1.25u,.01h); rt_wing(20,1.25u,.01h); x21=x12=.45w; bot y21=bot y12=-o; lft_wing(21,1.25u,.01h); rt_wing(12,1.25u,.01h); penlabels(1,2,3,4,5,6,7,8,9,10,11); endchar; iff known eth_40: cmchar "Ethiopic numeral 40"; beginchar(eth_40,13.5u#,.55[cap_height#,x_height#],paren_depth#); adjust_fit(serif_fit#+stem_shift#,-1.25u#); pickup fine.nib; penpos0(stem,180); penpos1(stem,180); penpos2(stem,180); penpos3(stem,180); pos4(vair,270); penpos5(stem,0); penpos6(stem,0); penpos7(stem,0); penpos8'(stem,0); penpos8(stem,0); penpos9(stem,0); pos10(vair,270); penpos9'(stem,0); pos11(stem,180); x0r=hround max(.7u,1.45u-.5curve)+u; x3r=x0r+hair; x1r=x0r+hair; x2r=x0r-stem; x5r=.525w; x6r=hround(x5r+fine); x7r=x4l=hround(x5r-.25stem); x8r=w-x0r-u; x8'r=x8r+.25u; x9r=x8'r-u; x9'r=x9r-.25u; x10r=.75[x5r,x8r]; x11r=x4r-u; top y0=top y5=top y8=.775h; y3=.45h; y1=.75(y0-y3)+y3; y6=.75(y0-y3)+y3; y2=.25(y0-y3)+y3; y4=y7=y3+o; bot y9=.15h; y8'=y9+.85(y8-y9); y9'=y9+.15(y8-y9); y10=y4; y11=y4+.1h; filldraw stroke pulled_arc.e(11,10); filldraw stroke z5e..controls z6e..z7e; filldraw stroke z0e..controls z1e and z2e..z3e{right}...z4e; filldraw stroke z8e{right}..{down}z8'e--z9'e{down}..{right}z9e; x19=x20=.5w; y19=y20=h+.075h; lft_wing(19,1.5u,.01h); rt_wing(20,1.5u,.01h); x21=x12=.425w; bot y21=bot y12=-o; lft_wing(21,1.5u,.01h); rt_wing(12,1.5u,.01h); penlabels(1,2,3,4,5,6,7,8,9,10,11); endchar; iff known eth_30: cmchar "Ethiopic numeral 30"; beginchar(eth_30,12u#,.5[cap_height#,x_height#],paren_depth#); adjust_fit(.5u#,0); if vair < fine.breadth:vair:=fine.breadth; fi pickup fine.nib; penpos0(stem,0); penpos0'(stem,0); penpos1(stem,0); penpos1'(stem,0); pos2(vair,90); penpos3(stem,180); penpos4(stem,180); penpos4'(stem,0); pos5(vair,270); penpos6(stem,180); penpos7(stem,180); pos8(vair,135); x0r=x1r=w-1.25u; x0'r=x0r-.5stem; x1'=x1r; x2=(x0l-1.25u); x3l=x4l=(x2-1.25u); x4'r=x4l; x5=(x4r-1.25u); x6l=(x5-1.25u); x7l=.5[x5,x6l]; x8l=x5; y0=.13h+oo; y1=.65h; y0'=.25(y1-y0)+y0; y1'=.75(y1-y0)+y0; y2=.75h; y3=y1'; y4=y4'=y0'+.15h; y5=y0'-.1h; y6=y4; y7=y1'; y8=y2; filldraw stroke z0e..controls z0'e and z1'e..super_arc.e(1,2).. super_arc.e(2,3)..z3e{down}...z4e; filldraw stroke super_arc.e(8,6) & super_arc.e(6,5) & super_arc.e(5,4'); x9=x10=.575w; y9=y10=h+.075h; lft_wing(9,1.5u,.01h); rt_wing(10,1.5u,.01h); x11=x12=.5w; bot y11=bot y12=-o; lft_wing(11,1.5u,.01h); rt_wing(12,1.5u,.01h); penlabels(1,2,3,4,5,6,7,8); endchar; iff known eth_20: cmchar "Ethiopic numeral 20"; beginchar(eth_20,10u#,.5[cap_height#,x_height#],paren_depth#); adjust_fit(u#,u#); pickup fine.nib; penpos0(stem,5); penpos0'(stem,0); penpos1(stem,0); penpos1'(stem,0); x0=x0'=.5w; x1=x0-2u; x1'=x1-.5u; y0=.775h; y1=.15h; y0'=y1+.8(y0-y1); y1'=y1+.15(y0-y1); filldraw stroke z0e{down}..z0'e..z1'e{down}..{right}z1e; pos2(vair,90); penpos2'(stem,0); penpos3(stem,0); penpos3'(stem,0); x2=.5[x0,x1']; x2'=x2+3.5u; x3'=x2'+.5u; x3=x3'+.25u; y2=.5[y0,y1']; y2'=y2-.05h; y3'=y1'; y3=y1; filldraw stroke z2e{right}...z2'e...{down}z3'e..z3e; x4=x0l; y4=y0l; lft_wing(4,2u,.015h); x5=x0r; y5=y0r; rt_wing(5,2u,.015h); x9=x10=.525w; y9=y10=h+.075h; lft_wing(9,1.5u,.01h); rt_wing(10,1.5u,.01h); x11=x12=.5w; bot y11=bot y12=-o; lft_wing(11,1.5u,.01h); rt_wing(12,1.5u,.01h); penlabels(1,2,3,4,5,6,7,8); endchar; iff known eth_10: cmchar "Ethiopic numeral 10"; beginchar(eth_10,10u#,.55[cap_height#,x_height#],paren_depth#); adjust_fit(0,0); pickup fine.nib; penpos0(stem,5); penpos1(stem,0); penpos1'(stem,0); penpos0'(stem,0); x1=w-5u; x1'=x1-.5u; x0=w-x1; x0'=x0+.5u; top y0=.825h; bot y1=.15h; y0'=y1+.85(y0-y1); y1'=y1+.15(y0-y1); filldraw stroke z0e{right}..{down}z0'e--z1'e{down}..{right}z1e; % BOTTOM AND TOP WINGS x9=x10=.55w; y9=y10=h+.075h; lft_wing(9,2u,.015h); rt_wing(10,1.5u,.015h); x11=x12=.55w; bot y11=bot y12=-o; lft_wing(11,2u,.015h); rt_wing(12,1.5u,.015h); labels(range 0 thru 13); endchar; iff known eth_9: cmchar "Ethiopic numeral 9"; beginchar(eth_9,10u#,.5[cap_height#,x_height#],paren_depth#); adjust_fit(u#,0) % THE RIGHT STEM AND ARC pickup fine.nib; penpos0(stem,200); penpos1(stem,180); penpos2(stem,180); pos3(vair,270); pos4(vair,270); penpos5(stem,0); penpos6(stem,0); penpos7(stem,15); x0r=1.5u; x1r=2u; x2r=1.35u; x3r=.4w; x4=.5w; x5l=w-3.75u; x6l=w-3.25u; x7l=.6w; y0=.7h; y1=.6h; y2=.3h; bot y3=.1h; bot y4=.125h; y5=.4h; y6=.675h; top y7=.8h; filldraw stroke z0e...{down}z1e--z2e...z3e..z4e..z5e...z6e...z7e; pos1'(vair,90); pos5'(vair,90); x1'=x1; y1'=y1-.15h; x5'=x6; y5'=y1'+.1h; draw z1'--z5'; x9=x10=.5w; y9=y10=h+.075h; lft_wing(9,1.5u,.015h); rt_wing(10,1.5u,.015h); x11=x12=.45w; bot y11=bot y12=00; lft_wing(11,1.5u,.015h); rt_wing(12,1.5u,.015h); penlabels(0,1,2,3,4,5,6,7); endchar; iff known eth_8: cmchar "Ethiopic numeral 8"; beginchar(eth_8,10u#,.5[cap_height#,x_height#],paren_depth#); adjust_fit(2u#,u#); pickup fine.nib; penpos0(stem,0); penpos1(stem,0); x0=.5w; x1=x0-.5u; y0=.775h; y1=.225h; filldraw stroke z0e--z1e; x3=x0l; x4=x0r; y3=y4=y0; lft_wing(3,1.75u,.015h); rt_wing(4,1.75u,.015h); x5=x1l; x6=x1r; y5=y6=y1; lft_wing(5,1.75u,.015h); rt_wing(6,1.75u,.015h); % UPPER AND LOWER RING x9=x10=.5w; y9=y10=h+.075h; lft_wing(9,1.25u,.005h); rt_wing(10,1.25u,.005h); x11=x12=.45w; y11=y12=-.05h; lft_wing(11,1.25u,.005h); rt_wing(12,1.25u,.005h); penlabels(1,2,3,4,5,6,7,8,9,10,11,12); endchar; iff known eth_7: cmchar "Ethiopic numeral 7"; beginchar(eth_7,10u#,.55[cap_height#,x_height#],paren_depth#); adjust_fit(u#,u#); pickup fine.nib; penpos0(stem,5); penpos1(stem,0); penpos1'(stem,0); penpos0'(stem,0); x1=w-5.5u; x1'=x1-.5u; x0=w-x1+.5u; x0'=x0+.5u; top y0=.8h; bot y1=.15h; y0'=y1+.85(y0-y1); y1'=y1+.15(y0-y1); filldraw stroke z0e{right}..{down}z0'e--z1'e{down}..{right}z1e; x3=x0l; x2=x1; y3=y0; y2=y1; lft_wing(3,1.75u,.025h); rt_half_ellipse(2,2.5u); % BOTTOM AND TOP WINGS x9=x10=.575w; y9=y10=h+.075h; lft_wing(9,2u,.015h); rt_wing(10,1.5u,.015h); x11=x12=.5w; bot y11=bot y12=-o; lft_wing(11,2u,.015h); rt_wing(12,1.5u,.015h); labels(range 0 thru 13); endchar; iff known eth_6: cmchar "Ethiopic numeral 6"; beginchar(eth_6,10u#,.55[cap_height#,x_height#],paren_depth#); adjust_fit(0,0); pickup fine.nib; penpos0(stem,5); penpos1(stem,0); penpos1'(stem,0); penpos0'(stem,0); x1=w-5.5u; x1'=x1-.5u; x0=w-x1+.5u; x0'=x0+.5u; top y0=.75h; bot y1=.1h; y0'=y1+.85(y0-y1); y1'=y1+.15(y0-y1); filldraw stroke z0e{right}..{down}z0'e--z1'e{down}..{right}z1e; x3=x0l; x2=x1; y3=y0; y2=y1; lft_half_ellipse(3,1.75u); half_ring(2); % BOTTOM AND TOP WINGS x9=x10=.55w; y9=y10=h+.075h; lft_wing(9,2u,.015h); rt_wing(10,1.5u,.015h); x11=x12=.55w; bot y11=bot y12=-o; lft_wing(11,2u,.015h); rt_wing(12,1.5u,.015h); labels(range 0 thru 13); endchar; iff known eth_5: cmchar "Ethiopic numeral 5"; beginchar(eth_5,10u#,.5[cap_height#,x_height#],paren_depth#); adjust_fit(0,u#); pickup fine.nib; penpos0(stem,180); penpos1(stem,180); penpos2(stem,180); pos3(bar,270); pos4(bar,360); lft x0=x1=hround(w-5u); x2l=x0-2.5u; x3l=hround(w-6.5u); x4=w-4u; y0=.8h+o; y1=.7h+o; y2=.3h+o; y3=.15h+o; y4=.2h+o; filldraw stroke z0e{down}...z1e...z2e{down}...z3e---z4e; % RIGHT WING x6=x1; y6=y1-.1h+o; rt_wing(6,2u,0); % RIGHT LOWER WING x7=x4; y7=y4; rt_half_ellipse(7,0); % x9=x10=.55w; y9=y10=h+.075h; lft_wing(9,2u,.015h); rt_wing(10,1.5u,.015h); x11=x12=.55w; bot y11=bot y12=00; lft_wing(11,2u,.015h); rt_wing(12,1.5u,.015h); penlabels(1,2,3,4,5,6); endchar; iff known eth_4: cmchar "Ethiopic numeral 4"; beginchar(eth_4,9u#,.5[cap_height#,x_height#],paren_depth#); adjust_fit(u#,u#); pickup fine.nib; pos1(vair,90); pos3(vair,-90); penpos2(stem,180); penpos4(stem,0); x2r=u; x4r=w-x2r; x1=x3=.5w; y1r=.8h; y3r=.2h; y2l=y4l=.5[y1r,y3r]; filldraw stroke pulled_arc.e(1,2)..pulled_arc.e(2,3).. pulled_arc.e(3,4)..pulled_arc.e(4,1); % bowl x9=x10=.55w; y9=y10=h+.075h; lft_wing(9,2u,.015h); rt_wing(10,1.5u,.015h); x11=x12=.55w; bot y11=bot y12=00; lft_wing(11,2u,.015h); rt_wing(12,1.5u,.015h); penlabels(1,2,3,4,5,6,7,8,9,10,11,12); endchar; iff known eth_3: cmchar "Ethiopic numeral 3"; beginchar(eth_3,9u#,.5[cap_height#,x_height#],paren_depth#); adjust_fit(1u#,1u#); pickup fine.nib; penpos0(stem,0); penpos1(stem,0); penpos1'(stem,0); x0=x1=w-7u; x1'=x0-.5u; y0=.725h; y1=.125h; y1'=y1+.1h; filldraw stroke z0e--z1'e{down}..{right}z1e; % RIGHT PEAK pickup fine.nib; x3=w-6u-fine; y3=y0; rt_wing(3,3.25u,.015h); x9=x10=.55w; y9=y10=h+.075h; lft_wing(9,2u,.015h); rt_wing(10,1.5u,.015h); x11=x12=.55w; bot y11=bot y12=00; lft_wing(11,2u,.015h); rt_wing(12,1.5u,.015h); penlabels(1,2,3,4,5,6,7,8,9,10,11,12); endchar; iff known eth_2: cmchar "Ethiopic numeral 2"; beginchar(eth_2,10u#,.5[cap_height#,x_height#],paren_depth#); adjust_fit(-1u#,1.5u#); % THE RIGHT TOP ARC pickup fine.nib; pos0(vair,270); pos1(1.5vair,180); penpos2(stem,180); penpos2'(stem,180); pos3(vair,105); x1=w-4.5u; x2r=w-7u; x2'r=x2r+.2u; x3=w-3.5u; x0=w-2.5u; y1=.15h; y0=y1-o; y2=.6h; y2'=.45h; top y3=.85h; filldraw stroke z3e{left}...{down}z2e..z2'e...z1e; penpos4(stem,0); pos5(vair,270); x5=x2l; x4r=w-.75u; y5=.55h; y4=.7h; filldraw stroke z5e{right}..{up}z4e{up}..{left}z3e; x6=x1-.5u; y6=y1-oo; half_ring(6); x9=x10=.625w; y9=y10=h+.075h; lft_wing(9,2u,.015h); rt_wing(10,1.75u,.015h); x11=x12=.625w; bot y11=bot y12=00; lft_wing(11,2u,.015h); rt_wing(12,1.75u,.015h); penlabels(0,0',1,2,2',3,4,5,6,7); endchar; iff known eth_1: cmchar "Ethiopic numeral 1"; beginchar(eth_1,10u#,.5[cap_height#,x_height#],paren_depth#); adjust_fit(.5u#,u#); pickup fine.nib; penpos0(stem,0); penpos0'(stem,0); penpos1(stem,0); penpos2(stem,0); pos3(stem,0); lft x0=lft x1=w-5u; x0'=x0+.5u; x2l=w-8.5u; x3l=w-7u; y0=.8h; y0'=y0-.05h; y1=.65h; y2=.25h; bot y3=.1h; filldraw stroke z0e{right}..{down}z0'e{down}...z1e...z2e{down}...z3e{right}; pickup fine.nib; x4=w-7u; x5=w-5u; y4=y5=.13h; draw flex(z4,z5); pickup fine.nib; pos6(vair,135); penpos7(stem,0); pos8(vair,-135); x6=x1-1u-fine; x7=x1+2u; x8=x5; y6=.55h+o; y8=y4; y7=.5[y8,y6]; filldraw stroke super_arc.e(6,7) & super_arc.e(7,8); x9=x10=.575w; y9=y10=h+.05h; lft_wing(9,2u,.015h); rt_wing(10,2u,.015h); x11=x12=.5w; bot y11=bot y12=00; lft_wing(11,2u,.015h); rt_wing(12,2u,.015h); penlabels(1,2,3,4,5,6,7,8); endchar;