diff options
Diffstat (limited to 'Master/texmf-dist/fonts/source/public/ethiop/eth_r.mf')
-rw-r--r-- | Master/texmf-dist/fonts/source/public/ethiop/eth_r.mf | 131 |
1 files changed, 131 insertions, 0 deletions
diff --git a/Master/texmf-dist/fonts/source/public/ethiop/eth_r.mf b/Master/texmf-dist/fonts/source/public/ethiop/eth_r.mf new file mode 100644 index 00000000000..c20d51e8d29 --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/ethiop/eth_r.mf @@ -0,0 +1,131 @@ +%------------------------------------------------------------- +% This is ETH_R.MF as of Dec, 1995 by Jochen Metzinger +% originally distributed by Abass B. Alamnehe [February, 1993] +%------------------------------------------------------------- + +iff known eth_ra: +cmchar "The letter ra"; +beginchar(eth_ra,10u#,.5[cap_height#,x_height#],paren_depth#); +adjust_fit(0,0); + +pickup fine.nib; penpos0(stem,187); penpos1(stem,180); penpos2(stem,180); +pos3(vair,270); pos4(vair,360); +x0l=w-2u; x1l=x0l-.25u; x2r=u; x3r=w-6u; x4=w-4u; +top y0=.95h; y1=.8h; y2=.2h; bot y3=0; y4=.075h; +filldraw stroke z0e{down}...z1e...z2e{down}...z3e{right}..z4e; +x11=x4; y11=y4; rt_half_ellipse(11,0); +penlabels(0,1,2,3,4,5,6); endchar; + + +iff known eth_rU: +cmchar "The letter rU"; +beginchar(eth_rU,10u#,.5[cap_height#,x_height#],paren_depth#); +adjust_fit(2u#,-u#); + +pickup fine.nib; penpos0(stem,180); penpos1(stem,180); penpos2(stem,180); +pos3(vair,270); penpos5(stem,0); penpos6(stem,0); +penpos5'(stem,0); +lft x0=lft x1=hround(w-6u); x2l=u; x3l=w-6.5u; x4=x3; +x5=x6=x4-.75u; x5'=x5-.5u; +top y0=.95h; y1=.85h; y2=.45h; y3=.35h; y5=.35h; y4=.35h; +bot y6=0; y5'=y6+.075h; + +filldraw stroke z0e{down}...z1e...z2e{down}...z3e{right}; +rt_wing(4,2u,.015h); +filldraw stroke z5e---z5'e...z6e; +penlabels(0,1,2,3,4,5,6); endchar; + + +iff known eth_rI: +cmchar "The letter rI"; +beginchar(eth_rI,10u#,.5[cap_height#,x_height#],paren_depth#); +adjust_fit(0,0); + +pickup fine.nib; penpos0(stem,180); penpos1(stem,180); penpos2(stem,180); +pos3(vair,270); pos4(vair,270); penpos5(stem,0); penpos6(stem,10); +x0l=x1l=w-1.5u; x2r=u; x3=w-5.5u; x4=w-4.5u; x5r=w-u; x6r=x5r-.5u; +top y0=.95h; y1=.85h; y2=.2h-o; bot y3=.025h; y4=.065h; y5=.2h; y6=.3h; +filldraw stroke z0e{down}...z1e...z2e{down}...z3e---z4e..z5e{up}...z6e; +penlabels(0,1,2,3,4,5,6); endchar; + + +iff known eth_rA: +cmchar "The letter rA"; +beginchar(eth_rA,12u#,.5[cap_height#,x_height#],paren_depth#); +adjust_fit(0,u#); + +pickup fine.nib; penpos0(stem,180); penpos1(stem,180); penpos2(stem,180); +pos3(vair,270); pos4(vair,270); +x0l=w-3.75u; x1l=x0l; x2r=u; x3=w-7u; x4=w-6u; +top y0=.95h; y1=.85h; y2=.2h-o; bot y3=00; y4=.05h; +filldraw stroke z0e{down}...z1e...z2e{down}...z3e---z4e; + +penpos5(1.3stem,195); pos6(vair,90); +x5=x4; x6=x5+1.5u; y5=y4; y6=y5+.25h; filldraw stroke pulled_arc.e(6,5); +x7=x6; y7=y6; rt_wing(7,2u,.015h); +penlabels(0,1,2,3,4,5,6,7); endchar; + + +iff known eth_rE: +cmchar "The letter rE"; +beginchar(eth_rE,10u#,.5[cap_height#,x_height#],paren_depth#); +adjust_fit(0,2u#); + +pickup fine.nib; penpos0(stem,187); penpos1(stem,180); penpos2(stem,180); +pos3(vair,270); pos4(vair,360); +x0l=w-2u; x1l=x0l-.25u; x2r=u; x3r=w-6u; x4=w-4u; +top y0=.95h; y1=.8h; y2=.2h; bot y3=0; y4=.075h; +filldraw stroke z0e{down}...z1e...z2e{down}...z3e{right}..z4e; +x5=x4; y5=y4; large_ring(5,10); +penlabels(0,1,2,3,4,5,6); endchar; + + +iff known eth_re: +cmchar "The letter re"; +beginchar(eth_re,10u#,.5[cap_height#,x_height#],paren_depth#); +adjust_fit(0,0); + +pickup fine.nib; pos0(vair,90); pos0'(vair,90); pos1(stem,180); +penpos2(stem,180); pos2'(stem,200); pos3(vair,270); +x0=w-3.5u; x0'=x0-1.5u; x2r=u; x1r=1.75u; x2'r=x2r+.25h; x3=w-4u; +top y0=.95h; top y0'=y0; y1=.75h; y2=.175h; y2'=.05h-oo; y3=.075h+o; +filldraw stroke z0e...z0'e{left}...z1e..z2e{down}...z2'e...z3e; +x7=x3; y7=y3; rt_half_ellipse(7,0); +x8=x0l; y8=y0; r_wing(8); +penlabels(0,1,2,2',3); endchar; + + +iff known eth_rO: +cmchar "The letter rO"; +beginchar(eth_rO,10u#,.5[cap_height#,x_height#],paren_depth#); +adjust_fit(0,2u#); + +pickup fine.nib; pos0(vair,90); pos0'(vair,90); pos1(stem,180); +penpos2(stem,180); pos2'(stem,200); pos3(vair,270); + +x0=w-3.5u; x0'=x0-1.5u; x2r=u; x1r=1.75u; x2'r=x2r+.25h; x3=w-4u; +top y0=.95h; top y0'=y0; y1=.75h; y2=.175h; y2'=.05h-oo; y3=.075h+o; +filldraw stroke z0e...z0'e{left}...z1e..z2e{down}...z2'e...z3e; +x7=x3; y7=y3; rt_half_ellipse(7,0); +x8=x0; y8=y0-.225h; large_ring(8,5); +penlabels(0,1,2,2',3); endchar; + + +iff known eth_ruA: +cmchar "The letter ruA"; +beginchar(eth_ruA,12u#,.5[cap_height#,x_height#],paren_depth#); +adjust_fit(0,u#); + +pickup fine.nib; penpos0(stem,180); penpos1(stem,180); penpos2(stem,180); +pos3(vair,270); pos4(vair,270); +x0l=w-3.75u; x1l=x0l; x2r=u; x3=w-7u; x4=w-6u; +top y0=.95h; y1=.85h; y2=.2h-o; bot y3=00; y4=.05h; +filldraw stroke z0e{down}...z1e...z2e{down}...z3e---z4e; + +penpos5(1.3stem,195); pos6(vair,90); +x5=x4; x6=x5+1.5u; y5=y4; y6=y5+.25h; filldraw stroke pulled_arc.e(6,5); +x7=x6; y7=y6; rt_wing(7,2u,.015h); + +x14=x0r+.25u; x15=x0l; y14=y15=y0-oo; +upper_left_wing(14); upper_right_wing(15); +penlabels(0,1,2,3,4,5,6,7); endchar; |