Initial commit

1 files changed, 217 insertions, 0 deletions

diff --git a/language/ethiopia/ethiop/mf/eth_hh.mf b/language/ethiopia/ethiop/mf/eth_hh.mf
new file mode 100644
index 0000000000..516a2fb385
--- /dev/null
+++ b/language/ethiopia/ethiop/mf/eth_hh.mf
@@ -0,0 +1,217 @@
+%-------------------------------------------------------------
+% This is ETH_HH.MF     as of Dec, 1995 by Jochen Metzinger
+% originally distributed by Abass B. Alamnehe [February, 1993]
+%-------------------------------------------------------------
+
+iff known eth_Ha:
+cmchar "The letter \d ha";
+beginchar(eth_Ha,14u#,.5[cap_height#,x_height#],0);
+adjust_fit(0,0);
+if .5w <> good.x .5w :change_width; fi pickup fine.nib;
+penpos0(stem,10); penpos1(stem,0); penpos2(stem,0); penpos4'(stem,180);
+penpos3(stem,0); penpos3'(stem,-20); penpos5(stem,180); penpos5'(stem,180);
+penpos4(stem,180); penpos7'(stem,0); penpos6(vair,90);
+penpos7(stem,0); penpos8(stem,0); penpos8'(stem,0);
+
+x0=hround(.5w); x1=x0+.5u; x2=x0-.5u; x3=x0;
+rt x8r=hround(w-1u); rt x8'r=hround(x8r-fine); x6=hround(.5w);
+rt x7'r=hround(x8r+2fine); rt x7r=hround(x8r+fine);
+lft x5r=lft x5'r=hround .5u; x4r=x5r+.25u; x4'r=x5r;
+
+top y0=h; bot y3=bot y8=bot y4=0; y4'=.1h; y2=y3+.1(y0-y3); y1=y3+.9(y0-y3);
+y7r=.3h; y6l=.55h; y8'=.75[y7,y8]; y7'=.25[y7,y8];
+%%%%%%%%%y7r=.35h; y6l=.55h; y8'=.25[y7,78]; y7'=y7-.25[y7,y8];
+y5=y6-.35h; y5'r=.5[y5,y4];
+filldraw stroke z0e{right}..{down}z1e--z2e{down}..{right}z3e;
+
+filldraw stroke z8e..controls z8'e and z7'e..pulled_arc.e(7,6);
+filldraw stroke z4e...z4'e...
+  pulled_arc.e(5,6);
+penlabels(0,1,2,3,4,5,5',6,7,8,8'); endchar;
+
+
+iff known eth_HU:
+cmchar "The letter HU";
+beginchar(eth_HU,14u#,.5[cap_height#,x_height#],0);
+adjust_fit(0,4u#);
+if .5w <> good.x .5w :change_width; fi pickup fine.nib;
+penpos0(stem,10); penpos1(stem,0); penpos2(stem,0); penpos4'(stem,180);
+penpos3(stem,0); penpos3'(stem,-20); penpos5(stem,180); penpos5'(stem,180);
+penpos4(stem,180); penpos7'(stem,0); penpos6(vair,90);
+penpos7(stem,0); penpos8(stem,0); penpos8'(stem,0);
+
+x0=hround(.5w); x1=x0+.5u; x2=x0-.5u; x3=x0;
+rt x8r=hround(w-1u); rt x8'r=hround(x8r-fine); x6=hround(.5w);
+rt x7'r=hround(x8r+2fine); rt x7r=hround(x8r+fine);
+lft x5r=lft x5'r=hround .5u; x4r=x5r+.25u; x4'r=x5r;
+
+top y0=h; bot y3=bot y8=bot y4=0; y4'=.1h; y2=y3+.1(y0-y3); y1=y3+.9(y0-y3);
+y7r=.3h; y6l=.55h; y8'=.75[y7,y8]; y7'=.25[y7,y8];
+y5=y6-.35h; y5'r=.5[y5,y4];
+filldraw stroke z0e{right}..{down}z1e--z2e{down}..{right}z3e;
+
+filldraw stroke z8e..controls z8'e and z7'e..pulled_arc.e(7,6);
+filldraw stroke z4e...z4'e...
+  pulled_arc.e(5,6);
+x9=x7r; y9=y7+.05h; rt_wing(9,2u,.025h);
+penlabels(0,1,2,3,4,5,5',6,7,8,8'); endchar;
+
+
+iff known eth_HI:
+cmchar "The letter HI";
+beginchar(eth_HI,14u#,.5[cap_height#,x_height#],0);
+adjust_fit(0,4u#);
+if .5w <> good.x .5w :change_width; fi pickup fine.nib;
+penpos0(stem,10); penpos1(stem,0); penpos2(stem,0); penpos4'(stem,180);
+penpos3(stem,0); penpos3'(stem,-20); penpos5(stem,180); penpos5'(stem,180);
+penpos4(stem,180); penpos7'(stem,0); pos6(vair,90);
+penpos7(stem,0); penpos8(stem,0); penpos8'(stem,0);
+
+x0=hround(.5w); x1=x0+.5u; x2=x0-.5u; x3=x0;
+rt x8r=hround(w-1u); rt x8'r=hround(x8r-fine); x6=hround(.5w);
+rt x7'r=hround(x8r+2fine); rt x7r=hround(x8r+fine);
+lft x5r=lft x5'r=hround .5u; x4r=x5r+.25u; x4'r=x5r;
+
+top y0=h; bot y3=bot y8=bot y4=0; y4'=.1h; y2=y3+.1(y0-y3); y1=y3+.9(y0-y3);
+y7r=.3h; y6l=.55h; y8'=.75[y7,y8]; y7'=.25[y7,y8];
+y5=y6-.35h; y5'r=.5[y5,y4];
+filldraw stroke z0e{right}..{down}z1e--z2e{down}..{right}z3e;
+
+filldraw stroke z8e..controls z8'e and z7'e..pulled_arc.e(7,6);
+filldraw stroke z4e...z4'e...pulled_arc.e(5,6);
+x9=x8r; bot y9=00; rt_half_ellipse(9,1.5u);
+penlabels(0,1,2,3,4,5,5',6,7,8,8'); endchar;
+
+
+iff known eth_HA:
+cmchar "The letter HA";
+beginchar(eth_HA,14u#,.5[cap_height#,x_height#],0);
+adjust_fit(0,0);
+if .5w <> good.x .5w :change_width; fi pickup fine.nib;
+penpos0(stem,10); penpos1(stem,0); penpos2(stem,0); penpos4'(stem,180);
+penpos3(stem,0); penpos3'(stem,-20); penpos5(stem,180); penpos5'(stem,180);
+penpos4(stem,180); penpos7'(stem,0); penpos6(vair,90);
+penpos7(stem,0); penpos8(stem,0); penpos8'(stem,0);
+
+x0=hround(.5w); x1=x0+.5u; x2=x0-.5u; x3=x0;
+rt x8r=hround(w-1u); rt x8'r=hround(x8r-fine); x6=hround(.5w);
+rt x7'r=hround(x8r+2fine); rt x7r=hround(x8r+fine);
+lft x5r=lft x5'r=hround .5u; x4r=x5r+.25u; x4'r=x5r;
+
+top y0=h; bot y3=.25h; bot y8=00; y4=.225h; y4'=.3h;
+y2=y3+.1(y0-y3); y1=y3+.9(y0-y3);
+y7r=.3h; y6l=.55h; y8'=.75[y7,y8]; y7'=.25[y7,y8];
+y5=y6-.25h; y5'r=.5[y5,y4];
+filldraw stroke z0e{right}..{down}z1e--z2e{down}..{right}z3e;
+
+filldraw stroke z8e..controls z8'e and z7'e..pulled_arc.e(7,6);
+filldraw stroke z4e...z4'e...pulled_arc.e(5,6);
+penlabels(0,1,2,3,4,5,5',6,7,8,8'); endchar;
+
+
+iff known eth_HE:
+cmchar "The letter HE";
+beginchar(eth_HE,14u#,.5[cap_height#,x_height#],0);
+adjust_fit(0,4u#);
+if .5w <> good.x .5w :change_width; fi pickup fine.nib;
+penpos0(stem,10); penpos1(stem,0); penpos2(stem,0); penpos4'(stem,180);
+penpos3(stem,0); penpos3'(stem,-20); penpos5(stem,180); penpos5'(stem,180);
+penpos4(stem,180); penpos7'(stem,0); penpos6(vair,90);
+penpos7(stem,0); penpos8(stem,0); penpos8'(stem,0);
+
+x0=hround(.5w); x1=x0+.5u; x2=x0-.5u; x3=x0;
+rt x8r=hround(w-1u); rt x8'r=hround(x8r-fine); x6=hround(.5w);
+rt x7'r=hround(x8r+2fine); rt x7r=hround(x8r+fine);
+lft x5r=lft x5'r=hround .5u; x4r=x5r+.25u; x4'r=x5r;
+
+top y0=h; bot y3=bot y8=bot y4=0; y4'=.1h; y2=y3+.1(y0-y3); y1=y3+.9(y0-y3);
+y7r=.3h; y6l=.55h; y8'=.75[y7,y8]; y7'=.25[y7,y8];
+y5=y6-.35h; y5'r=.5[y5,y4];
+filldraw stroke z0e{right}..{down}z1e--z2e{down}..{right}z3e;
+
+filldraw stroke z8e..controls z8'e and z7'e..pulled_arc.e(7,6);
+filldraw stroke z4e...z4'e...pulled_arc.e(5,6);
+x9=x8; bot y9=00; half_ring(9);
+penlabels(0,1,2,3,4,5,5',6,7,8,8'); endchar;
+
+
+iff known eth_He:
+cmchar "The letter He";
+beginchar(eth_He,14u#,.5[cap_height#,x_height#],0);
+adjust_fit(0,0);
+if .5w <> good.x .5w :change_width; fi pickup fine.nib;
+penpos0(stem,10); penpos1(stem,0); penpos2(stem,0); penpos4'(stem,180);
+penpos3(stem,0); penpos3'(stem,-20); penpos5(stem,180); penpos5'(stem,180);
+penpos4(stem,180); penpos7'(stem,0); penpos6(vair,90);
+penpos7(stem,0); penpos8(stem,0); penpos8'(stem,0);
+
+x0=hround(.5w); x1=x0+.5u; x2=x0-.5u; x3=x0;
+rt x8r=hround(w-1u); rt x8'r=hround(x8r-fine); x6=hround(.5w);
+rt x7'r=hround(x8r+2fine); rt x7r=hround(x8r+fine);
+lft x5r=lft x5'r=hround .5u; x4r=x5r+.25u; x4'r=x5r;
+
+top y0=h; bot y3=bot y8=bot y4=0; y4'=.1h; y2=y3+.1(y0-y3); y1=y3+.9(y0-y3);
+y7r=.3h; y6l=.55h; y8'=.75[y7,y8]; y7'=.25[y7,y8];
+y5=y6-.35h; y5'r=.5[y5,y4];
+filldraw stroke z0e{right}..{down}z1e--z2e{down}..{right}z3e;
+x0'=x0l+.45u; y0'=y0+.075h; lft_half_ellipse(0',0);
+filldraw stroke z8e..controls z8'e and z7'e..pulled_arc.e(7,6);
+filldraw stroke z4e...z4'e...
+  pulled_arc.e(5,6);
+penlabels(0,1,2,3,4,5,5',6,7,8,8'); endchar;
+
+
+iff known eth_HO:
+cmchar "The letter HO";
+beginchar(eth_HO,14u#,.5[cap_height#,x_height#],0);
+adjust_fit(0,-.5u#);
+if .5w <> good.x .5w :change_width; fi pickup fine.nib;
+penpos0(stem,10); penpos1(stem,0); penpos2(stem,0); penpos4'(stem,180);
+penpos3(stem,0); penpos3'(stem,-20); penpos5(stem,180); penpos5'(stem,180);
+penpos4(stem,180); penpos7'(stem,0); penpos6(vair,90);
+penpos7(stem,0); penpos8(stem,0); penpos8'(stem,0);
+
+x0=hround(.5w); x1=x0+.5u; x2=x0-.5u; x3=x0;
+rt x8r=hround(w-1u); rt x8'r=hround(x8r-fine); x6=hround(.5w);
+rt x7'r=hround(x8r+2fine); rt x7r=hround(x8r+fine);
+lft x5r=lft x5'r=hround .5u; x4r=x5r+.25u; x4'r=x5r;
+
+top y0=h; bot y3=.275h; bot y4=0; y8=.275h; 
+y4'=.1h; y2=y3+.1(y0-y3); y1=y3+.9(y0-y3);
+y7r=.35h; y6l=.55h; y8'=y8+.25(y7-y8); y7'=y7-.25(y7-y8);
+y5=y6-.35h; y5'r=.5[y5,y4];
+filldraw stroke z0e{right}..{down}z1e--z2e{down}..{right}z3e;
+
+filldraw stroke z8e..controls z8'e and z7'e..pulled_arc.e(7,6);
+filldraw stroke z4e...z4'e...
+  pulled_arc.e(5,6);
+penlabels(0,1,2,3,4,5,5',6,7,8,8'); endchar;
+
+
+iff known eth_HuA:
+cmchar "The letter HuA";
+beginchar(eth_HuA,14u#,.5[cap_height#,x_height#],0);
+adjust_fit(0,3.5u#);
+if .5w <> good.x .5w :change_width; fi pickup fine.nib;
+penpos0(stem,10); penpos1(stem,0); penpos2(stem,0); penpos4'(stem,180);
+penpos3(stem,0); penpos3'(stem,-20); penpos5(stem,180); penpos5'(stem,180);
+penpos4(stem,180); penpos7'(stem,0); penpos6(vair,90);
+penpos7(stem,0); penpos8(stem,0); penpos8'(stem,0);
+
+x0=hround(.5w); x1=x0+.5u; x2=x0-.5u; x3=x0;
+rt x8r=hround(w-1u); rt x8'r=hround(x8r-fine); x6=hround(.5w);
+rt x7'r=hround(x8r+2fine); rt x7r=hround(x8r+fine);
+lft x5r=lft x5'r=hround .5u; x4r=x5r+.25u; x4'r=x5r;
+
+top y0=h; bot y3=.25h; bot y8=00; y4=.225h; y4'=.3h;
+y2=y3+.1(y0-y3); y1=y3+.9(y0-y3);
+y7r=.3h; y6l=.55h; y8'=.75[y7,y8]; y7'=.25[y7,y8];
+y5=y6-.25h; y5'r=.5[y5,y4];
+filldraw stroke z0e{right}..{down}z1e--z2e{down}..{right}z3e;
+
+filldraw stroke z8e..controls z8'e and z7'e..pulled_arc.e(7,6);
+filldraw stroke z4e...z4'e...pulled_arc.e(5,6);
+
+x20=x8'l; x21=x8'r; y20=y21=y8; lft_wing(20,1.5u,.015h); 
+rt_wing(21,1.5u,.015h);
+penlabels(0,1,2,3,4,5,5',6,7,8,8'); endchar;