diff options
Diffstat (limited to 'Master/texmf-dist/fonts/source/public/ethiop/eth_g.mf')
-rw-r--r-- | Master/texmf-dist/fonts/source/public/ethiop/eth_g.mf | 110 |
1 files changed, 110 insertions, 0 deletions
diff --git a/Master/texmf-dist/fonts/source/public/ethiop/eth_g.mf b/Master/texmf-dist/fonts/source/public/ethiop/eth_g.mf new file mode 100644 index 00000000000..73bc7d2abeb --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/ethiop/eth_g.mf @@ -0,0 +1,110 @@ +%------------------------------------------------------------- +% This is ETH_G.MF as of Dec, 1995 by Jochen Metzinger +% originally distributed by Abass B. Alamnehe [February, 1993] +%------------------------------------------------------------- + +iff known eth_ga: +cmchar "The letter ga"; +beginchar(eth_ga,8u#,.5[cap_height#,x_height#],paren_depth#); +adjust_fit(0,0); + +pickup fine.nib; penpos1(stem,5); penpos2(stem,0); penpos3(stem,0); +pos4(stem,10); +x1r=w-1.5u; x2r=x1r-.5u; x3r=w-.75u; x4l=w-4u; +bot y1=0; y2=.1h; y3=.75h; y4=.95h; +filldraw stroke z1e{left}...{up}z2e---z3e{up}..{left}z4e; +z5=z4l; lft_wing(5,.75u,.025h); +penlabels(1,2,3,4); endchar; + + +iff known eth_gU: +cmchar "The letter gU"; +beginchar(eth_gU,8u#,.5[cap_height#,x_height#],paren_depth#); +adjust_fit(0,3.5u#); + +pickup fine.nib; penpos1(stem,5); penpos2(stem,0); penpos3(stem,0); +pos4(stem,10); +x1r=w-1.5u; x2r=x1r-.5u; x3r=w-.75u; x4l=w-4u; +bot y1=0; y2=.1h; y3=.75h; y4=.95h; +filldraw stroke z1e{left}...{up}z2e---z3e{up}..{left}z4e; +z5=z4l; lft_wing(5,.75u,.025h); +x6=.5[x1r,x3r]; y6=.45h; rt_wing(6,1.5u,.025h); +penlabels(1,2,3,4); endchar; + + +iff known eth_gI: +cmchar "The letter gI"; +beginchar(eth_gI,8u#,.5[cap_height#,x_height#],paren_depth#); +adjust_fit(0,3.5u#); + +pickup fine.nib; penpos1(stem,5); penpos2(stem,0); penpos3(stem,0); +pos4(stem,10); +x1r=w-1.5u; x2r=x1r-.5u; x3r=w-.75u; x4l=w-4u; +bot y1=0; y2=.1h; y3=.75h; y4=.95h; +filldraw stroke z1e{left}...{up}z2e---z3e{up}..{left}z4e; +z5=z4l; lft_wing(5,.75u,.025h); +z6=z1r; rt_half_ellipse(6,1.5u); +penlabels(1,2,3,4); endchar; + + +iff known eth_gA: +cmchar "The letter gA"; +beginchar(eth_gA,8u#,.5[cap_height#,x_height#],paren_depth#); +adjust_fit(2.5u#,0); + +pickup fine.nib; pos1(vair,0); penpos2(stem,0); penpos3(stem,0); +pos4(stem,5); +x1=w-7.5u; x2r=w-1.5u; x3r=w-.75u; x4l=w-4u; +bot y1=.15h; y2=.3h; y3=.75h; y4=.95h; +filldraw stroke z1e{right}...z2e..z3e{up}..{left}z4e; +z5=z4l; lft_wing(5,u,oo); +x6=x1; y6=y1+o; lft_wing(6,0,o); +penlabels(1,2,3,4); endchar; + + +iff known eth_gE: +cmchar "The letter gE"; +beginchar(eth_gE,8u#,.5[cap_height#,x_height#],paren_depth#); +adjust_fit(0,2.5u#); + +pickup fine.nib; penpos1(stem,5); penpos2(stem,0); penpos3(stem,0); +pos4(stem,10); + +x1r=w-1.5u; x2r=x1r-.5u; x3r=w-.75u; x4l=w-4u; +bot y1=0; y2=.1h; y3=.75h; y4=.95h; +filldraw stroke z1e{left}...{up}z2e---z3e{up}..{left}z4e; +z5=z4l; lft_wing(5,.75u,.025h); +x6=x1; y6=y1; half_ring(6); +penlabels(1,2,3,4); endchar; + + +iff known eth_ge: +cmchar "The letter ge"; +beginchar(eth_ge,8u#,.5[cap_height#,x_height#],paren_depth#); +adjust_fit(2u#,0); + +pickup fine.nib; penpos1(stem,5); penpos2(stem,0); penpos3(stem,0); +pos4(stem,10); pos5(vair,105); +x1r=w-1.5u; x2r=x1r-.5u; x3r=w-.75u; x4l=w-4u; x5=x4l-1u; +bot y1=0; y2=.1h; y3=.75h; y4=.95h; y5=y4-.025h; +filldraw stroke z1e{left}...{up}z2e---z3e{up}..{left}z4e---z5e; +x6=x5-4.5u; y6=y5-.045h; gfive_ring(6,5,1/9); +penlabels(1,2,3,4); endchar; + + +iff known eth_gO: +cmchar "The letter gO"; +beginchar(eth_gO,8u#,.5[cap_height#,x_height#],paren_depth#); +adjust_fit(1u#,0); + +pickup fine.nib; penpos1(stem,5); penpos2(stem,0); penpos3(stem,0); +penpos4(stem,0); +x1r=w-1.5u; x2r=x1r-.5u; x3r=w-.75u; x4l=w-4u; +bot y1=0; y2=.1h; y3=.7h; y4=.8h; +filldraw stroke z1e{left}...{up}z2e---z3e{up}..{left}z4e; + +penpos6(stem,0); penpos7(stem,0); penpos8(stem,5); +x6=x7=x4l; x8=x6-.25u; y6=y4; y7=y6+.15h; y8=y6+.2h; +filldraw stroke z6e--z7e{up}...{left}z8e; +x5=x6l; y5=y6; lft_wing(5,.75u,.025h); +penlabels(1,2,3,4,5,7,8); endchar; |