1 files changed, 168 insertions, 0 deletions
diff --git a/Master/texmf-dist/fonts/source/public/ethiop/eth_ku.mf b/Master/texmf-dist/fonts/source/public/ethiop/eth_ku.mf
new file mode 100644
index 00000000000..23f7d24fb89
--- /dev/null
+++ b/Master/texmf-dist/fonts/source/public/ethiop/eth_ku.mf
@@ -0,0 +1,168 @@
+%-------------------------------------------------------------
+% This is ETH_KU.MF     as of Dec, 1995 by Jochen Metzinger
+% originally distributed by Abass B. Alamnehe [February, 1993]
+%-------------------------------------------------------------
+
+iff known eth_kua:
+cmchar "The letter kua";
+beginchar(eth_kua,9u#,.5[cap_height#,x_height#],paren_depth#);
+adjust_fit(1.5u#,6.5u#)
+
+
+% THE RIGHT STEM AND ARC
+pickup fine.nib; penpos3(stem',0); penpos4(stem',0);
+penpos5(vair,90); penpos4'(stem',0); penpos3'(stem,0);
+top y3r=.55h; bot y4r=0;  y5r=.8h; y4'=.25(y3r-y4r)+y4r; y3'=y5+.05h;
+x4'r=x3r=w-1.5u; x4r=x4'r+fine; x5=x4r-3.5u; x3'=.5[x3,x5];
+
+% THE LEFT STEM AND ARC
+penpos7(stem',180); penpos8(stem',180); penpos8'(stem',180);
+x7=x8'=w-x4r; x8=x8'+fine;  y7=.4h-oo;  bot y8=0; y8'=y4';
+filldraw stroke z4e{z4'e-z4e}...z3e..super_arc.e(3,5)...
+super_arc.e(5,7)...z7e...z8e;
+
+penpos9(stem,0); penpos10(stem,0); penpos9'(stem,0); penpos10'(stem,0);
+x9r=x10r=x7; y9=y5r-.1h+o; top y10=h;
+x9'=x9-fine; x10'=x9+fine; y9'=.20(y10-y9)+y9; y10'=.80(y10-y9)+y9;
+filldraw stroke z9e..controls z10'e..z10e;
+
+penpos1(vair,90); penpos2(vair,90);
+x1l=.5[x4',x4]; x2=x1+3u; y1=y2=y4+.6(y5-y4); filldraw stroke z1e--z2e;
+x6=x2; y6=y2-.22h; large_ring(6,0);
+penlabels(1,2,3,4,4',5,6,7,8,8',9,10);  endchar;
+
+
+iff known eth_kue:
+cmchar "The letter kue";
+beginchar(eth_kue,9u#,.5[cap_height#,x_height#],paren_depth#);
+adjust_fit(1.5u#,5u#)
+
+
+% THE RIGHT STEM AND ARC
+pickup fine.nib; penpos3(stem',0); penpos4(stem',0);
+penpos5(vair,90); penpos4'(stem',0); penpos3'(stem,0);
+top y3r=.55h; bot y4r=0;  y5r=.8h; y4'=.25(y3r-y4r)+y4r; y3'=y5+.05h;
+x4'r=x3r=w-1.5u; x4r=x4'r+fine; x5=x4r-3.5u; x3'=.5[x3,x5];
+
+% THE LEFT STEM AND ARC
+penpos7(stem',180); penpos8(stem',180); penpos8'(stem',180);
+x7=x8'=w-x4r; x8=x8'+fine;  y7=.4h-oo;  bot y8=0; y8'=y4';
+filldraw stroke z4e{z4'e-z4e}...z3e..super_arc.e(3,5)...
+super_arc.e(5,7)...z7e...z8e;
+
+penpos9(stem,0); penpos10(stem,0); penpos9'(stem,0); penpos10'(stem,0);
+x9r=x10r=x7; y9=y5r-.1h+o; top y10=h;
+x9'=x9-fine; x10'=x9+fine; y9'=.20(y10-y9)+y9; y10'=.80(y10-y9)+y9;
+filldraw stroke z9e..controls z10'e..z10e;
+
+pos11(vair,90); pos11'(vair,90);
+penpos12(1.2stem,0); penpos12'(1.2stem,0); penpos13(1.2stem,0);
+x11=.5[x4,x4']; x11'=x11+1.5u; y11=y11'=y4+.8(y5-y4); draw z11--z11';
+x12l=x12'l=x11'r; x13l=x12l+fine;
+y12=y11; y12'=y12+.25h; y13=y12+.75(y12'-y12);
+filldraw stroke z12e..controls z13e..z12'e;
+
+x6=x12; y6=y12+oo; rt_wing(6,1.5u,0);
+penlabels(1,2,3,4,4',5,6,7,8,8',9,10);  endchar;
+
+
+iff known eth_kuI:
+cmchar "The letter kuI";
+beginchar(eth_kuI,9u#,.5[cap_height#,x_height#],paren_depth#);
+adjust_fit(1.5u#,7u#)
+
+
+% THE RIGHT STEM AND ARC
+pickup fine.nib; penpos3(stem',0); penpos4(stem',0);
+penpos5(vair,90); penpos4'(stem',0); penpos3'(stem,0);
+top y3r=.55h; bot y4r=0;  y5r=.8h; y4'=.25(y3r-y4r)+y4r; y3'=y5+.05h;
+x4'r=x3r=w-1.5u; x4r=x4'r+fine; x5=x4r-3.5u; x3'=.5[x3,x5];
+
+% THE LEFT STEM AND ARC
+penpos7(stem',180); penpos8(stem',180); penpos8'(stem',180);
+x7=x8'=w-x4r; x8=x8'+fine;  y7=.4h-oo;  bot y8=0; y8'=y4';
+filldraw stroke z4e{z4'e-z4e}...z3e..super_arc.e(3,5)...
+super_arc.e(5,7)...z7e...z8e;
+
+penpos9(stem,0); penpos10(stem,0); penpos9'(stem,0); penpos10'(stem,0);
+x9r=x10r=x7; y9=y5r-.1h+o; top y10=h;
+x9'=x9-fine; x10'=x9+fine; y9'=.20(y10-y9)+y9; y10'=.80(y10-y9)+y9;
+filldraw stroke z9e..controls z10'e..z10e;
+
+pos11(vair,90); pos11'(vair,90); penpos12(1.2stem,0); penpos12'(1.2stem,0);
+penpos13(1.2stem,0); penpos13'(1.2stem,0);
+x11=.5[x4,x4']; x11'=x11+3u; y11=y11'=y4+.6(y5-y4); draw z11--z11';
+x12l=x11'r; x13l=x12l-.5u; x12'l=x12l+.5u;  x13'l=x12'l-.25u;
+y12=y11-.1h; y12'=y12+.25h; y13=y12+.25(y12'-y12); y13'=y12+.75(y12'-y12);
+filldraw stroke z12e{left}..{up}z13e---z13'e..z12'e;
+x6=x12; y6=y12+oo; rt_wing(6,2u,0);
+penlabels(1,2,3,4,4',5,6,7,8,8',9,10);  endchar;
+
+
+iff known eth_kuA:
+cmchar "The letter kuA";
+beginchar(eth_kuA,9u#,.5[cap_height#,x_height#],paren_depth#);
+adjust_fit(1.5u#,1u#)
+
+% THE RIGHT STEM AND ARC
+pickup fine.nib; penpos3(stem',0); penpos4(stem,0);
+penpos5(vair,90); penpos4'(stem',0); penpos3'(stem,0);
+top y3r=.5h; bot y4r=.1h;  y5r=.8h; y4'=.25(y3r-y4r)+y4r; y3'=y5+.05h;
+x4'r=x3r=x4r=w-1.5u; x5=x4r-3.5u; x3'=.5[x3,x5];
+
+% THE LEFT STEM AND ARC
+penpos7(stem',180); x7=w-x4r; y7=.33h;
+filldraw stroke z4e...z3e..super_arc.e(3,5)...
+super_arc.e(5,7)...z7e;
+
+penpos9(stem,0); penpos10(stem,0); penpos9'(stem,0); penpos10'(stem,0);
+x9r=x10r=x7; y9=y5r-.1h+o; top y10=h;
+x9'=x9-fine; x10'=x9+fine; y9'=.20(y10-y9)+y9; y10'=.80(y10-y9)+y9;
+filldraw stroke z9e..controls z10'e..z10e;
+
+% right lower leg
+penpos13(stem,0); penpos12(stem,0); penpos13'(stem,0); penpos12'(stem,0);
+x13l=x12l=x4r; x13'l=x13l+fine; x12'l=x12l-fine;
+y13=y4-oo; bot y12=y4-.25h; y13'=y12+.8(y13-y12); y12'=y12+.2(y13-y12);
+filldraw stroke z13e..controls z13'e and z12'e..z12e;
+
+% left wing arm
+penpos14(hair,90); penpos15(hair,90);
+x14r=x4l; x15r=x14r-2.5u; y14=y4; y15=y14-.05h;
+draw z14---z15;
+% left lower wing
+z16=z15; t_wing(16);
+penlabels(1,2,3,4,4',5,6,7,9,10,11,12,13,14,15);  endchar;
+
+
+iff known eth_kuE:
+cmchar "The letter kuE";
+beginchar(eth_kuE,9u#,.5[cap_height#,x_height#],paren_depth#);
+adjust_fit(1.5u#,3u#)
+
+% THE RIGHT STEM AND ARC
+pickup fine.nib; penpos3(stem',0); penpos4(stem,0);
+penpos5(vair,90); penpos4'(stem',0); penpos3'(stem,0);
+top y3r=.5h; bot y4r=.1h;  y5r=.8h; y4'=.25(y3r-y4r)+y4r; y3'=y5+.05h;
+x4'r=x3r=x4r=w-1.5u; x5=x4r-3.5u; x3'=.5[x3,x5];
+
+% THE LEFT STEM AND ARC
+penpos7(stem',180); x7=w-x4r; y7=.33h;
+filldraw stroke z4e...z3e..super_arc.e(3,5)...
+super_arc.e(5,7)...z7e;
+
+penpos9(stem,0); penpos10(stem,0); penpos9'(stem,0); penpos10'(stem,0);
+x9r=x10r=x7; y9=y5r-.1h+o; top y10=h;
+x9'=x9-fine; x10'=x9+fine; y9'=.20(y10-y9)+y9; y10'=.80(y10-y9)+y9;
+filldraw stroke z9e..controls z10'e..z10e;
+
+% right lower half ring
+penpos12(stem,0); x12=x4; y12=y4; half_ring(12);
+
+% left wing arm
+penpos14(hair,90); penpos15(hair,90);
+x14r=x4l; x15r=x14r-2u; y14=y4; y15=y14-.05h;
+draw z14---z15;
+% left lower wing
+z16=z15; t_wing(16);
+penlabels(1,2,3,4,4',5,6,7,8,8',9,10,12,14,15);  endchar;