summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/fonts/source/public/ethiop/eth_r.mf
diff options
context:
space:
mode:
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.mf131
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;