diff options
Diffstat (limited to 'Master/texmf-dist/fonts/source/public/ethiop/eth_h_c.mf')
-rw-r--r-- | Master/texmf-dist/fonts/source/public/ethiop/eth_h_c.mf | 164 |
1 files changed, 164 insertions, 0 deletions
diff --git a/Master/texmf-dist/fonts/source/public/ethiop/eth_h_c.mf b/Master/texmf-dist/fonts/source/public/ethiop/eth_h_c.mf new file mode 100644 index 00000000000..f5d5f043802 --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/ethiop/eth_h_c.mf @@ -0,0 +1,164 @@ +%------------------------------------------------------------- +% This is ETH_H_C.MF as of Dec, 1995 by Jochen Metzinger +% originally distributed by Abass B. Alamnehe [February, 1993] +%------------------------------------------------------------- + +iff known eth_^ha: +cmchar "The letter ^ha"; +beginchar(eth_^ha,7u#,.5[cap_height#,x_height#],0); +adjust_fit(4u#,-.5u#); + +if .5w <> good.x .5w :change_width; fi pickup fine.nib; +penpos4(stem,0); penpos5(stem,0); penpos6(stem,0); penpos7(stem,0); +x4l=x7l=2u; x5l=x7l+fine; x6l=x7l-fine; +top y4=h; y7=.7h; y6=.2(y4-y7)+y7; y5=.8(y4-y7)+y7; +filldraw stroke z4e..controls z5e and z6e..z7e; +x3=x6l; y3=y6+o; lft_wing(3,2.5u,.01h); + +penpos8(vair,90); penpos9(vair,90); +penpos10(stem,0); penpos11(stem,0); penpos10'(stem,0); penpos11'(stem,0); +x11l=x7r; x11'l=x11l-.5u; x10=x11; x10'=x10+.5u; +x8r=x10l; x9r=x7l; +y10=.7h; bot y11=00; y10'=.8(y10-y11)+y11; y11'=.2(y10-y11)+y11; +y8=y10-oo; y9=y10+o; +filldraw stroke z8e--z9e; +filldraw stroke z10e{right}..{down}z10'e--z11'e{down}..{right}z11e; +penlabels(1,2,3,4,5,6,7,8,9,10); endchar; + + +iff known eth_^hU: +cmchar "The letter ^hU"; +beginchar(eth_^hU,7u#,.5[cap_height#,x_height#],0); +adjust_fit(4u#,3u#); + +if .5w <> good.x .5w :change_width; fi pickup fine.nib; +penpos4(stem,0); penpos5(stem,0); penpos6(stem,0); penpos7(stem,0); +x4l=x7l=2u; x5l=x7l+fine; x6l=x7l-fine; +top y4=h; y7=.7h; y6=.2(y4-y7)+y7; y5=.8(y4-y7)+y7; +filldraw stroke z4e..controls z5e and z6e..z7e; +x3=x6l; y3=y6+o; lft_wing(3,2.5u,.01h); + +penpos8(vair,90); penpos9(vair,90); +penpos10(stem,0); penpos11(stem,0); penpos10'(stem,0); penpos11'(stem,0); +x11l=x7r; x11'l=x11l-.5u; x10=x11; x10'=x10+.5u; +x8r=x10l; x9r=x7l; +y10=.7h; bot y11=00; y10'=.8(y10-y11)+y11; y11'=.2(y10-y11)+y11; +y8=y10-oo; y9=y10+o; +filldraw stroke z8e--z9e; +filldraw stroke z10e{right}..{down}z10'e--z11'e{down}..{right}z11e; +x12=x10r; y12=.5(y10-y11)+.05h; rt_wing(12,1.5u,0); +penlabels(1,2,3,4,5,6,7,8,9,10); endchar; + + +iff known eth_^hI: +cmchar "The letter ^hI"; +beginchar(eth_^hI,7u#,.5[cap_height#,x_height#],0); +adjust_fit(4u#,3u#); + +if .5w <> good.x .5w :change_width; fi pickup fine.nib; +penpos4(stem,0); penpos5(stem,0); penpos6(stem,0); penpos7(stem,0); +x4l=x7l=2u; x5l=x7l+fine; x6l=x7l-fine; +top y4=h; y7=.7h; y6=.2(y4-y7)+y7; y5=.8(y4-y7)+y7; +filldraw stroke z4e..controls z5e and z6e..z7e; +x3=x6l; y3=y6+o; lft_wing(3,2.5u,.01h); + +penpos8(vair,90); penpos9(vair,90); +penpos10(stem,0); penpos11(stem,0); penpos10'(stem,0); penpos11'(stem,0); +x11l=x7r; x11'l=x11l-.5u; x10=x11; x10'=x10+.5u; +x8r=x10l; x9r=x7l; +y10=.7h; bot y11=00; y10'=.8(y10-y11)+y11; y11'=.2(y10-y11)+y11; +y8=y10-oo; y9=y10+o; +filldraw stroke z8e--z9e; +filldraw stroke z10e{right}..{down}z10'e--z11'e{down}..{right}z11e; +rt_half_ellipse(11,1.75u); +penlabels(1,2,3,4,5,6,7,8,9,10); endchar; + + +iff known eth_^hA: +cmchar "The letter ^hA"; +beginchar(eth_^hA,7u#,.5[cap_height#,x_height#],0); +adjust_fit(4u#,-.5u#); +if .5w <> good.x .5w :change_width; fi pickup fine.nib; +penpos4(stem,0); penpos5(stem,0); penpos6(stem,0); penpos7(stem,0); +x4l=x7l=2u; x5l=x7l+fine; x6l=x7l-fine; +top y4=h; y7=.7h; y6=.2(y4-y7)+y7; y5=.8(y4-y7)+y7; +filldraw stroke z4e..controls z5e and z6e..z7e; +x3=x6l; y3=y6+o; lft_wing(3,2.25u,.025h); +penpos8(vair,90); penpos9(vair,90); +penpos10(stem,0); penpos11(vair,270); penpos10'(stem,0); +x10=x7+1.5u; x11l=x10-5.5u; x10'=x10+fine; x8r=x10l; x9r=x7l; +y10=.7h; bot y11=.1h; y10'=.5[y10,y11]; y8=y10-oo; y9=y10+o; +filldraw stroke z8e..z9e; +filldraw stroke pulled_super_arc.e(11,10')(superpull)...z10e; +z12=z11l; t_wing(12); +penlabels(1,2,3,4,5,6,7,8,9,10); endchar; + + +iff known eth_^hE: +cmchar "The letter ^hE"; +beginchar(eth_^hE,7u#,.5[cap_height#,x_height#],0); +adjust_fit(4u#,2.5u#); + +if .5w <> good.x .5w :change_width; fi pickup fine.nib; +penpos4(stem,0); penpos5(stem,0); penpos6(stem,0); penpos7(stem,0); +x4l=x7l=2u; x5l=x7l+fine; x6l=x7l-fine; +top y4=h; y7=.7h; y6=.2(y4-y7)+y7; y5=.8(y4-y7)+y7; +filldraw stroke z4e..controls z5e and z6e..z7e; +x3=x6l; y3=y6+o; lft_wing(3,2.5u,.01h); + +penpos8(vair,90); penpos9(vair,90); +penpos10(stem,0); penpos11(stem,0); penpos10'(stem,0); penpos11'(stem,0); +x11l=x7r; x11'l=x11l-.5u; x10=x11; x10'=x10+.5u; +x8r=x10l; x9r=x7l; +y10=.7h; bot y11=00; y10'=.8(y10-y11)+y11; y11'=.2(y10-y11)+y11; +y8=y10-oo; y9=y10+o; +filldraw stroke z8e--z9e; +filldraw stroke z10e{right}..{down}z10'e--z11'e{down}..{right}z11e; +half_ring(11); +penlabels(1,2,3,4,5,6,7,8,9,10); endchar; + + +iff known eth_^he: +cmchar "The letter ^he"; +beginchar(eth_^he,7u#,.5[cap_height#,x_height#],0); +adjust_fit(3.5u#,-.5u#); +if .5w <> good.x .5w :change_width; fi pickup fine.nib; + +penpos4(stem,0); penpos5(stem,0); penpos6(stem,0); penpos7(stem,0); +penpos3(vair,90); penpos2(stem,180); +x4l=x7l=2u; x5l=x7l+fine; x6l=x7l-fine; +top y4=h; y7=.7h; y6=.2(y4-y7)+y7; y5=.8(y4-y7)+y7; +filldraw stroke z4e..controls z5e and z6e..z7e; +x3=x5l; y3=.5[y4,y7]; x2=x3-4u; y2=y7-.15h; +filldraw stroke pulled_super_arc.e(3,2)(superpull); + +penpos8(vair,90); penpos9(vair,90); +penpos10(stem,0); penpos11(stem,0); penpos10'(stem,0); penpos11'(stem,0); +x11l=x7r; x11'l=x11l-.5u; x10=x11; x10'=x10+.5u; +x8r=x10l; x9r=x7l; +y10=.7h; bot y11=00; y10'=.8(y10-y11)+y11; y11'=.2(y10-y11)+y11; +y8=y10-oo; y9=y10+o; +filldraw stroke z8e--z9e; +filldraw stroke z10e{right}..{down}z10'e--z11'e{down}..{right}z11e; +penlabels(1,2,3,4,5,6,7,8,9,10); endchar; + + +iff known eth_^hO: +cmchar "The letter ^hO"; +beginchar(eth_^hO,12u#,.5[cap_height#,x_height#],paren_depth#); +adjust_fit(3.5u#,-.5u#); + +pickup fine.nib; pos0(vair,90); pos1(vair,105); penpos2(stem,180); +penpos3(stem,180); pos4(vair,270); penpos5(stem,185); penpos6(stem,180); +penpos7(stem,180); penpos8(stem,180); + +x0=.55w; x1=x0-1u; x2r=1.75u; x3r=2.5u; x4=w-6u; +x5=x4; x6=x5+.5u; x7=x5; x8=x5+.5u; +y0=.9h; y1=.9h-o; y2=.55h; y3=.425h; y4=.45h; y5=y4; y6=y4-.1h; +y7=.075h; bot y8=0; + +filldraw stroke z0e{left}...z1e{left}...{down}z2e...z3e{right}..z4e; +filldraw stroke z5e{right}...{down}z6e---z7e{down}...{right}z8e; +x9=x0-1.75u; y9=y0-o; nfour_ring(9,0,1/6); +x12=x2; y12=.5[y1,y2]; lft_wing(12,2.5u,.02h); +penlabels(0,1,2,3,4,5,6,7,8); endchar; |