summaryrefslogtreecommitdiff
path: root/language/ethiopia/ethiop/mf/eth_ccc2.mf
diff options
context:
space:
mode:
Diffstat (limited to 'language/ethiopia/ethiop/mf/eth_ccc2.mf')
-rw-r--r--language/ethiopia/ethiop/mf/eth_ccc2.mf186
1 files changed, 186 insertions, 0 deletions
diff --git a/language/ethiopia/ethiop/mf/eth_ccc2.mf b/language/ethiopia/ethiop/mf/eth_ccc2.mf
new file mode 100644
index 0000000000..7711151ab4
--- /dev/null
+++ b/language/ethiopia/ethiop/mf/eth_ccc2.mf
@@ -0,0 +1,186 @@
+%-------------------------------------------------------------
+% This is ETH_CCC2.MF as of Dec, 1995 by Jochen Metzinger
+% originally distributed by Abass B. Alamnehe [February, 1993]
+%-------------------------------------------------------------
+
+iff known eth_var^Ca:
+cmchar "The variant letter ^Ca";
+beginchar(eth_var^Ca,16u#,.5[cap_height#,x_height#],0);
+adjust_fit(0,2.5u#);
+
+pickup fine.nib; penpos2(stem,5); penpos2'(stem,0); penpos3(stem,5);
+pos4(vair,105); penpos5(stem,180); penpos6(stem,185); penpos5'(stem,180);
+pos7(vair,90); penpos8(stem,0); penpos9(stem,0); penpos10(stem,5);
+x2=x2'+.25u=.5w; x3=x2'+.5u; x4r=x2l; x5'r=1.5u; x5r=1.25u; x6r=x5r+.5u;
+x7=x2r-oo; x8r=x9r-o=w-x5r-.15u; x10r=x9r+.5u;
+y2=.7h; y2'=.075h; bot y3=0; y4r=y2-o; y5=.075h; y5'=.35h; bot y6=0;
+top y7r=y2-o; y8=y2-.15h; y9=.075h; bot y10=0;
+
+filldraw stroke z2e--z2'e{down}..{right}z3e;
+filldraw stroke z4e{left}..z5'e...z5e{down}..{right}z6e;
+filldraw stroke z10e{left}..{up}z9e{up}...z8e...z7e;
+x11=x3; y11=y3; jj_ring(11);
+x12=x6; y12=y6; jj_ring(12);
+% x13=x10; y13=y10; jj_ring(13);
+penlabels(2,2',3,4,5,5',6,7,8,9,10); endchar;
+
+
+iff known eth_var^CU:
+cmchar "The variant letter ^CU";
+beginchar(eth_var^CU,16u#,.5[cap_height#,x_height#],0);
+adjust_fit(0,3.5u#);
+
+pickup fine.nib; penpos2(stem,5); penpos2'(stem,0); penpos3(stem,5);
+pos4(vair,105); penpos5(stem,180); penpos6(stem,185); penpos5'(stem,180);
+pos7(vair,90); penpos8(stem,0); penpos9(stem,0); penpos10(stem,5);
+x2=x2'+.25u=.5w; x3=x2'+.5u; x4r=x2l; x5'r=1.5u; x5r=1.25u; x6r=x5r+.5u;
+x7=x2r-oo; x8r=x9r-o=w-x5r-.15u; x10r=x9r+.5u;
+y2=.7h; y2'=.075h; bot y3=0;y4r=y2-o; y5=.075h; y5'=.35h; bot y6=0;
+top y7r=y2-o; y8=y2-.15h; y9=.075h; bot y10=0;
+
+filldraw stroke z2e--z2'e{down}..{right}z3e;
+filldraw stroke z4e{left}..z5'e...z5e{down}..{right}z6e;
+filldraw stroke z10e{left}..{up}z9e{up}...z8e...z7e;
+x11=x3; y11=y3; jj_ring(11);
+x12=x6; y12=y6; jj_ring(12);
+x13=x10; y13=y10; %%%%%%%%%%%%% jj_ring(13);
+x14=x8r; y14=.5h; rt_wing(14,2u,0);
+penlabels(2,2',3,4,5,5',6,7,8,9,10); endchar;
+
+
+iff known eth_var^CI:
+cmchar "The variant letter ^CI";
+beginchar(eth_var^CI,16u#,.5[cap_height#,x_height#],0);
+adjust_fit(0,3.5u#);
+
+pickup fine.nib; penpos2(stem,5); penpos2'(stem,0); penpos3(stem,5);
+pos4(vair,105); penpos5(stem,180); penpos6(stem,185); penpos5'(stem,180);
+pos7(vair,90); penpos8(stem,0); penpos9(stem,0); penpos10(stem,5);
+x2=x2'+.25u=.5w; x3=x2'+.5u; x4r=x2l; x5'r=1.5u; x5r=1.25u; x6r=x5r+.5u;
+x7=x2r-oo; x8r=x9r-o=w-x5r-.15u; x10r=x9r+.5u;
+y2=.7h; y2'=.075h; bot y3=0;y4r=y2-o; y5=.075h; y5'=.35h; bot y6=0;
+top y7r=y2-o; y8=y2-.15h; y9=.075h; bot y10=0;
+
+filldraw stroke z2e--z2'e{down}..{right}z3e;
+filldraw stroke z4e{left}..z5'e...z5e{down}..{right}z6e;
+filldraw stroke z10e{left}..{up}z9e{up}...z8e...z7e;
+x11=x3; y11=y3; jj_ring(11);
+x12=x6; y12=y6; jj_ring(12);
+x14=x10; y14=y10; rt_wing(14,2u,0);
+penlabels(2,2',3,4,5,5',6,7,8,9,10); endchar;
+
+
+iff known eth_var^CA:
+cmchar "The variant letter ^CA";
+beginchar(eth_var^CA,16u#,.5[cap_height#,x_height#],0);
+adjust_fit(0,2u#);
+
+pickup fine.nib; penpos2(stem,5); penpos2'(stem,0); penpos3(stem,5);
+pos4(vair,105); penpos5(stem,180); penpos6(stem,185); penpos5'(stem,180);
+pos7(vair,90); penpos8(stem,0); penpos9(stem,0); penpos10(stem,5);
+x2=.5w+.25u; x2'=x2-.75u; x3=x2'+.5u; x4r=x2l; x5r=1u; x6r=x5r+.25u;
+x7=x2r-oo; x9r=x8r-u=w-x5r-1.25u; x10r=x9r+.5u;
+y2=.9h; y3=.4h; y2'=y3+.075h; y4r=y2-o; y6=.4h; y5=y6+.15h;
+y7=y2; y8=y2-.2h; y9=.075h; bot y10=0;
+
+filldraw stroke z2e--z2'e{down}..{right}z3e;
+filldraw stroke z4e{left}...z5e{down}..{right}z6e;
+filldraw stroke z10e{left}..{up}z9e---z8e{up}..{left}z7e;
+x11=x3; y11=y3; jj_ring(11);
+x12=x6; y12=y6; jj_ring(12);
+x13=x10; y13=y10; %%%%%%%%%%%%jj_ring(13);
+penlabels(2,2',3,4,5,5',6,7,8,9,10); endchar;
+
+
+iff known eth_var^CE:
+cmchar "The variant letter ^CE";
+beginchar(eth_var^CE,16u#,.5[cap_height#,x_height#],0);
+adjust_fit(0,2.5u#);
+
+pickup fine.nib; penpos2(stem,5); penpos2'(stem,0); penpos3(stem,5);
+pos4(vair,105); penpos5(stem,180); penpos6(stem,185); penpos5'(stem,180);
+pos7(vair,90); penpos8(stem,0); penpos9(stem,0); penpos10(stem,5);
+x2=x2'+.25u=.5w; x3=x2'+.5u; x4r=x2l; x5'r=1.5u; x5r=1.25u; x6r=x5r+.5u;
+x7=x2r-oo; x8r=x9r-o=w-x5r-.15u; x10r=x9r+.5u;
+y2=.7h; y2'=.075h; bot y3=0;
+y4r=y2-o; y5=.075h; y5'=.35h; bot y6=0;
+top y7r=y2-o; y8=y2-.15h; y9=.075h; bot y10=0;
+
+filldraw stroke z2e--z2'e{down}..{right}z3e;
+filldraw stroke z4e{left}..z5'e...z5e{down}..{right}z6e;
+filldraw stroke z10e{left}..{up}z9e{up}...z8e...z7e;
+x11=x3; y11=y3; jj_ring(11);
+x12=x6; y12=y6; jj_ring(12);
+x13=x10; y13=y10; jj_ring(13);
+penlabels(2,2',3,4,5,5',6,7,8,9,10); endchar;
+
+
+iff known eth_var^Ce:
+cmchar "The variant letter ^Ce";
+beginchar(eth_var^Ce,14u#,.5[cap_height#,x_height#],0);
+adjust_fit(1.5u#,2.5u#);
+if .5w <> good.x .5w :change_width; fi pickup fine.nib;
+
+penpos0(stem,0); penpos1(stem,0); penpos2(stem,0); penpos3(stem,0);
+penpos3'(stem,-20); penpos2'(stem,0); penpos5(stem,180); penpos4(stem,180);
+pos6(vair,90); penpos7(stem,0); penpos8(stem,5);
+x0=x2'=x3=hround(.5w); x1=hround(x3-fine); x2l=x3;
+x6=hround(.5w); x5l=hround u; x4r=x5r+.5fine; x8r=w-x5r-1.75u; x7r=w-x5r-1.75u;
+top y0=.9h; bot y3=0; y6l=y0; y7r=y6l-.3h;
+y1=y2=y5=y7; y2'=.25(y2-y3)+y3; y4=y8=y1-.15h;
+
+filldraw stroke z2e..controls z2'e..z3e; filldraw stroke z0e{down}...z1e;
+filldraw stroke z8e...pulled_super_arc.e(7,6)(superpull);
+filldraw stroke z4e...pulled_super_arc.e(5,6)(superpull);
+x11=x3+.25u; y11=y3; jj_ring(11);
+x12=x4+.25u; y12=y4; jj_ring(12);
+x13=x7; y13=y8; %%%%%%%%%%%%jj_ring(13);
+penlabels(0,1,2,3,4,5,5',6,7,8); endchar;
+
+
+iff known eth_var^CO:
+cmchar "The variant letter ^CO";
+beginchar(eth_var^CO,16u#,.5[cap_height#,x_height#],0);
+adjust_fit(0,2u#);
+
+pickup fine.nib; penpos2(stem,5); penpos2'(stem,0); penpos3(stem,5);
+pos4(vair,105); penpos5(stem,180); penpos6(stem,185); penpos5'(stem,145);
+pos7(vair,90); penpos8(stem,0); penpos9(stem,0); penpos10(stem,5);
+x2=.5w; x2'=x2-.25u; x3=x2'+.5u; x4r=x2l; x5'r=2u; x5r=1.25u; x6r=x5r+.5u;
+x7=x2r-oo; x9r=x8r-o=w-x5r-.25u; x10r=x9r+.5u;
+y2=.8h; y3=.25h; y2'=y3+.075h; y4r=y2-o; top y6=0; y5=y6+.15h; y5'=y4r-.5h;
+y7=y2; y8=y2-.2h; bot y10=.25h; y9=y10+.075h;
+
+filldraw stroke z2e--z2'e{down}..{right}z3e;
+filldraw stroke pulled_arc.e(4,5)..z5e{down}..{right}z6e;
+filldraw stroke z10e{left}..{up}z9e..z8e{up}..{left}z7e;
+x11=x3; y11=y3; jj_ring(11);
+x12=x6; y12=y6; jj_ring(12);
+x13=x10; y13=y10; %%%%%%%%%%%%%%jj_ring(13);
+penlabels(2,2',3,4,5,5',6,7,8,9,10); endchar;
+
+
+iff known eth_var^CuA:
+cmchar "The variant letter ^CuA";
+beginchar(eth_var^CuA,16u#,.5[cap_height#,x_height#],0);
+adjust_fit(0,3.25u#);
+
+pickup fine.nib; penpos2(stem,5); penpos2'(stem,0); penpos3(stem,5);
+pos4(vair,105); penpos5(stem,180); penpos6(stem,185); penpos5'(stem,180);
+pos7(vair,90); penpos8(stem,0); penpos9(stem,0); penpos10(stem,5);
+
+x2=x2'+.25u=.5w; x3=x2'+.5u; x4r=x2l; x5'r=1.5u; x5r=1.25u; x6r=x5r+u;
+x7=x2r-oo; x8r=x9r-o=w-x5r-.15u; x10r=x9r+.5u;
+
+y2=.65h; y2'=.15h; bot y3=.1h;
+y4r=y2-o; y5=.15h; y5'=.35h; bot y6=.1h;
+top y7r=y2-o; y8=y2-.15h; y9=.025h; bot y10=-.05h;
+
+filldraw stroke z2e--z2'e{down}..{right}z3e;
+filldraw stroke z4e{left}..z5'e...z5e{down}..{right}z6e;
+filldraw stroke z10e{left}..{up}z9e{up}...z8e...z7e;
+x11=x3; y11=y3; jj_ring(11);
+x12=x6-.25u; y12=y6; jj_ring(12);
+x20=x10l; x21=x10r; y20=y21=y10; lft_wing(20,1.5u,.02h);
+rt_wing(21,1.25u,.02h);
+penlabels(2,2',3,4,5,5',6,7,8,9,10); endchar;