diff options
Diffstat (limited to 'Master/texmf-dist/fonts/source/public/ethiop/eth_pp.mf')
-rw-r--r-- | Master/texmf-dist/fonts/source/public/ethiop/eth_pp.mf | 236 |
1 files changed, 236 insertions, 0 deletions
diff --git a/Master/texmf-dist/fonts/source/public/ethiop/eth_pp.mf b/Master/texmf-dist/fonts/source/public/ethiop/eth_pp.mf new file mode 100644 index 00000000000..bd11a329905 --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/ethiop/eth_pp.mf @@ -0,0 +1,236 @@ +%------------------------------------------------------------- +% This is ETH_PP.MF as of Dec, 1995 by Jochen Metzinger +% originally distributed by Abass B. Alamnehe [February, 1993] +%------------------------------------------------------------- + +iff known eth_Pa: +cmchar "The letter Pa"; +beginchar(eth_Pa,10u#,.55[cap_height#,x_height#],0); +adjust_fit(serif_fit#+stem_shift#,u#); + +pickup fine.nib; +penpos0(stem,0); penpos0'(stem,0); penpos1(stem,0); penpos2(stem,0); +penpos3(vair,90); +x0=w-7.5u; x0'=x0-.5u; x1=.5w; x2=w-2.5u; x3=.5w; +bot y0=00; y1=.5h; bot y0'=y0+.1(y1-y0); y2=.7h; top y3=.9h; +filldraw stroke z0e{left}..z0'e{up}...z1e...z2e...z3e{left}; + +penpos4(vair,-90); +penpos5(stem,0); penpos6(vair,90); +x4=.5w; x5=w-x2; x6=.5w; top y4=.9h; y5=.7h; y6=.5h; +filldraw stroke z4e{left}...z5e...z6e{right}; + +penpos7(vair,90); penpos8(stem,0); penpos9(stem,0); +penpos9'(stem,0); +y7=.47h-o; y8=.37h; bot y9=00; y9'=y9+.25(y7-y9); +x7=.45w; x8=.78w; x9=w-1.25u; x9'=x9-.5u; +filldraw stroke z7e{right}...z8e{down}..z9'e{down}..{right}z9e; + +penpos10(stem,0); penpos11(stem,0); +x10=.5w; x11=.5w; bot y10=y3; y11=h+.05h; filldraw stroke z10e---z11e; +penlabels(1,2,3,4,5,6,7,8,9,10,11); endchar; + + +iff known eth_PU: +cmchar "The letter PU"; +beginchar(eth_PU,10u#,.55[cap_height#,x_height#],0); +adjust_fit(serif_fit#+stem_shift#,3.5u#); + +pickup fine.nib; +penpos0(stem,0); penpos0'(stem,0); penpos1(stem,0); penpos2(stem,0); +penpos3(vair,90); +x0=w-7.5u; x0'=x0-.5u; x1=.5w; x2=w-2.5u; x3=.5w; +bot y0=00; y1=.5h; bot y0'=y0+.1(y1-y0); y2=.7h; top y3=.9h; +filldraw stroke z0e{left}..z0'e{up}...z1e...z2e...z3e{left}; + +penpos4(vair,-90); +penpos5(stem,0); penpos6(vair,90); +x4=.5w; x5=w-x2; x6=.5w; top y4=.9h; y5=.7h; y6=.5h; +filldraw stroke z4e{left}...z5e...z6e{right}; + +penpos7(vair,90); penpos8(stem,0); penpos9(stem,0); +penpos9'(stem,0); +y7=.47h-o; y8=.37h; bot y9=00; y9'=y9+.25(y7-y9); +x7=.45w; x8=.78w; x9=w-1.25u; x9'=x9-.5u; +filldraw stroke z7e{right}...z8e{down}..z9'e{down}..{right}z9e; + +penpos10(stem,0); penpos11(stem,0); +x10=.5w; x11=.5w; bot y10=y3; y11=h+.05h; filldraw stroke z10e---z11e; +x12=x8r; y12=y8; rt_wing(12,1.5u,.015h); +penlabels(1,2,3,4,5,6,7,8,9,10,11); endchar; + + +iff known eth_PI: +cmchar "The letter PI"; +beginchar(eth_PI,10u#,.55[cap_height#,x_height#],0); +adjust_fit(serif_fit#+stem_shift#,4u#); + +pickup fine.nib; +penpos0(stem,0); penpos0'(stem,0); penpos1(stem,0); penpos2(stem,0); +penpos3(vair,90); +x0=w-7.5u; x0'=x0-.5u; x1=.5w; x2=w-2.5u; x3=.5w; +bot y0=00; y1=.5h; bot y0'=y0+.1(y1-y0); y2=.7h; top y3=.9h; +filldraw stroke z0e{left}..z0'e{up}...z1e...z2e...z3e{left}; + +penpos4(vair,-90); +penpos5(stem,0); penpos6(vair,90); +x4=.5w; x5=w-x2; x6=.5w; top y4=.9h; y5=.7h; y6=.5h; +filldraw stroke z4e{left}...z5e...z6e{right}; + +penpos7(vair,90); penpos8(stem,0); penpos9(stem,0); +penpos9'(stem,0); +y7=.47h-o; y8=.37h; bot y9=00; y9'=y9+.25(y7-y9); +x7=.45w; x8=.78w; x9=w-1.25u; x9'=x9-.5u; +filldraw stroke z7e{right}...z8e{down}..z9'e{down}..{right}z9e; + +penpos10(stem,0); penpos11(stem,0); +x10=.5w; x11=.5w; bot y10=y3; y11=h+.05h; filldraw stroke z10e---z11e; +x12=x9; y12=y9; rt_half_ellipse(12,1.75u); +penlabels(1,2,3,4,5,6,7,8,9,10,11); endchar; + + +iff known eth_PA: +cmchar "The letter PA"; +beginchar(eth_PA,10u#,.55[cap_height#,x_height#],0); +adjust_fit(serif_fit#+stem_shift#,u#); + +pickup fine.nib; +penpos0(stem,0); penpos0'(stem,0); penpos1(stem,0); penpos2(stem,0); +penpos3(vair,90); +x0=w-7.75u; x0'=x0-.5u; x1=.5w; x2=w-2.5u; x3=.5w; +bot y0=.2h; y1=.5h; bot y0'=y0+.1(y1-y0); y2=.7h; top y3=.9h; +filldraw stroke z0e{left}..z0'e{up}...z1e...z2e...z3e{left}; + +penpos4(vair,-90); +penpos5(stem,0); penpos6(vair,90); +x4=.5w; x5=w-x2; x6=.5w; top y4=.9h; y5=.7h; y6=.5h; +filldraw stroke z4e{left}...z5e...z6e{right}; + +penpos7(vair,90); penpos8(stem,0); penpos9(stem,0); +penpos9'(stem,0); +y7=.47h-o; y8=.37h; bot y9=00; y9'=y9+.25(y7-y9); +x7=.45w; x8=.78w; x9=w-1.25u; x9'=x9-.5u; +filldraw stroke z7e{right}...z8e{down}..z9'e{down}..{right}z9e; + +penpos10(stem,0); penpos11(stem,0); +x10=.5w; x11=.5w; bot y10=y3; y11=h+.05h; filldraw stroke z10e---z11e; +penlabels(1,2,3,4,5,6,7,8,9,10,11); endchar; + + +iff known eth_PE: +cmchar "The letter PE"; +beginchar(eth_PE,10u#,.55[cap_height#,x_height#],0); +adjust_fit(serif_fit#+stem_shift#,3.5u#); + +pickup fine.nib; +penpos0(stem,0); penpos0'(stem,0); penpos1(stem,0); penpos2(stem,0); +penpos3(vair,90); +x0=w-7.5u; x0'=x0-.5u; x1=.5w; x2=w-2.5u; x3=.5w; +bot y0=00; y1=.5h; bot y0'=y0+.1(y1-y0); y2=.7h; top y3=.9h; +filldraw stroke z0e{left}..z0'e{up}...z1e...z2e...z3e{left}; + +penpos4(vair,-90); +penpos5(stem,0); penpos6(vair,90); +x4=.5w; x5=w-x2; x6=.5w; top y4=.9h; y5=.7h; y6=.5h; +filldraw stroke z4e{left}...z5e...z6e{right}; + +penpos7(vair,90); penpos8(stem,0); penpos9(stem,0); +penpos9'(stem,0); +y7=.47h-o; y8=.37h; bot y9=00; y9'=y9+.25(y7-y9); +x7=.45w; x8=.78w; x9=w-1.25u; x9'=x9-.5u; +filldraw stroke z7e{right}...z8e{down}..z9'e{down}..{right}z9e; + +penpos10(stem,0); penpos11(stem,0); +x10=.5w; x11=.5w; bot y10=y3; y11=h+.05h; filldraw stroke z10e---z11e; +x12=x9'; y12=y9; half_ring(12); +penlabels(1,2,3,4,5,6,7,8,9,10,11); endchar; + + +iff known eth_Pe: +cmchar "The letter Pe"; +beginchar(eth_Pe,10u#,.55[cap_height#,x_height#],0); +adjust_fit(serif_fit#+stem_shift#,3u#); + +pickup fine.nib; +penpos0(stem,0); penpos0'(stem,0); penpos1(stem,0); penpos2(stem,0); +penpos3(vair,90); +x0=w-7.5u; x0'=x0-.5u; x1=.5w; x2=w-2.5u; x3=.5w; +bot y0=00; y1=.5h; bot y0'=y0+.1(y1-y0); y2=.7h; top y3=.9h; +filldraw stroke z0e{left}..z0'e{up}...z1e...z2e...z3e{left}; + +penpos4(vair,-90); +penpos5(stem,0); penpos6(vair,90); +x4=.5w; x5=w-x2; x6=.5w; top y4=.9h; y5=.7h; y6=.5h; +filldraw stroke z4e{left}...z5e...z6e{right}; + +penpos7(vair,90); penpos8(stem,0); penpos9(stem,0); +penpos9'(stem,0); +y7=.47h-o; y8=.37h; bot y9=00; y9'=y9+.25(y7-y9); +x7=.45w; x8=.78w; x9=w-1.25u; x9'=x9-.5u; +filldraw stroke z7e{right}...z8e{down}..z9'e{down}..{right}z9e; + +penpos10(stem,0); penpos11(stem,0); +x10=.5w; x11=.5w; bot y10=y3; y11=h+.05h; filldraw stroke z10e---z11e; +x12=x2; y12=y2; rt_wing(12,2.5u,0); +penlabels(1,2,3,4,5,6,7,8,9,10,11); endchar; + + +iff known eth_PO: +cmchar "The letter PO"; +beginchar(eth_PO,10u#,.55[cap_height#,x_height#],0); +adjust_fit(serif_fit#+stem_shift#,serif_fit#-stem_shift#); + +pickup fine.nib; +penpos0(stem,0); penpos0'(stem,0); penpos1(stem,0); penpos2(stem,0); +penpos3(vair,90); +x0=w-7.5u; x0'=x0-.5u; x1=.5w; x2=w-2.5u; x3=.5w; +bot y0=00; y1=.5h; bot y0'=y0+.1(y1-y0); y2=.7h; top y3=.9h; +filldraw stroke z0e{left}..z0'e{up}...z1e...z2e...z3e{left}; + +penpos4(vair,-90); +penpos5(stem,0); penpos6(vair,90); +x4=.5w; x5=w-x2; x6=.5w; top y4=.9h; y5=.7h; y6=.5h; +filldraw stroke z4e{left}...z5e...z6e{right}; + +penpos7(vair,90); penpos8(stem,0); penpos9(stem,0); +penpos9'(stem,0); +y7=.47h-o; y8=.37h; bot y9=.2h; y9'=y9+.15(y7-y9); +x7=.45w; x8=.8w; x9=x8+.25u; x9'=x9-.25u; +filldraw stroke z7e{right}...z8e{down}..z9e; + +penpos10(stem,0); penpos11(stem,0); +x10=.5w; x11=.5w; bot y10=y3; y11=h+.05h; filldraw stroke z10e---z11e; +penlabels(1,2,3,4,5,6,7,8,9,10,11); endchar; + + +iff known eth_PuA: +cmchar "The letter PuA"; +beginchar(eth_PuA,10u#,.55[cap_height#,x_height#],0); +adjust_fit(serif_fit#+stem_shift#,u#); + +pickup fine.nib; +penpos0(stem,0); penpos0'(stem,0); penpos1(stem,0); penpos2(stem,0); +penpos3(vair,90); +x0=w-7.75u; x0'=x0-.5u; x1=.5w; x2=w-2.5u; x3=.5w; +bot y0=.2h; y1=.5h; bot y0'=y0+.1(y1-y0); y2=.7h; top y3=.9h; +filldraw stroke z0e{left}..z0'e{up}...z1e...z2e...z3e{left}; + +penpos4(vair,-90); +penpos5(stem,0); penpos6(vair,90); +x4=.5w; x5=w-x2; x6=.5w; top y4=.9h; y5=.7h; y6=.5h; +filldraw stroke z4e{left}...z5e...z6e{right}; + +penpos7(vair,90); penpos8(stem,0); penpos9(stem,0); +penpos9'(stem,0); +y7=.47h-o; y8=.37h; bot y9=00; y9'=y9+.25(y7-y9); +x7=.45w; x8=.78w; x9=w-1.25u; x9'=x9-.5u; +filldraw stroke z7e{right}...z8e{down}..z9'e{down}..{right}z9e; + +penpos10(stem,0); penpos11(stem,0); +x10=.5w; x11=.5w; bot y10=y3; y11=h+.05h; filldraw stroke z10e---z11e; + +x20=x9'l; x21=x9'r; y20=y21=y9; lft_wing(20,1.5u,.015h); +rt_wing(21,1.5u,.015h); +penlabels(1,2,3,4,5,6,7,8,9,10,11); endchar; + + |