diff options
Diffstat (limited to 'Master/texmf-dist/fonts/source/public/ethiop/eth_cc.mf')
-rw-r--r-- | Master/texmf-dist/fonts/source/public/ethiop/eth_cc.mf | 163 |
1 files changed, 163 insertions, 0 deletions
diff --git a/Master/texmf-dist/fonts/source/public/ethiop/eth_cc.mf b/Master/texmf-dist/fonts/source/public/ethiop/eth_cc.mf new file mode 100644 index 00000000000..7da5790236d --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/ethiop/eth_cc.mf @@ -0,0 +1,163 @@ +%------------------------------------------------------------- +% This is ETH_CC.MF as of Dec, 1995 by Jochen Metzinger +% originally distributed by Abass B. Alamnehe [February, 1993] +%------------------------------------------------------------- + +iff known eth_Ca: +cmchar "The letter Ca"; +beginchar(eth_Ca,8u#,.5[cap_height#,x_height#],paren_depth#); +adjust_fit(1.5u#,-.25u#); +if .5w <> good.x .5w :change_width; fi pickup fine.nib; + +pos0(vair,90); penpos1(stem,180); penpos2(stem,180); +pos2'(stem,210); pos3(vair,270); pos3'(vair,270); +x0=x3=.5w; x1=x0-2.5u; x2=x1-.5u; x2'=x2+1.25u; +y0=.9h; y1=y0-.2h; y2=.2h; bot y2'=0; y3=.075h; +filldraw stroke z0{left}..z1e..z2e{down}...z2'e---z3e; + +penpos9(stem,0); penpos10(stem,0); penpos11(stem,0); pos12(vair,145); +x9l=x3l; x10=x9l+2u; x11=x9l+2u; x12l=x0l; +y9r=y3l; y10=y9+.4h; y12l=y0r; y11=y12r-.2h; +filldraw stroke z9e{right}...z10e{up}...z11e{up}...z12e + shifted (1.5u,-.08h) rotated 8; + +x14=x1; x15=x11; y14=.5[y0,y2']; y15=y14+.1h; +draw z14--z15; +penlabels(1,2,3,4,5,6,7,8,9,10,11,12,14,15); endchar; + + +iff known eth_CU: +cmchar "The letter CU"; +beginchar(eth_CU,8u#,.5[cap_height#,x_height#],paren_depth#); +adjust_fit(1.5u#,3.5u#); +if .5w <> good.x .5w :change_width; fi pickup fine.nib; + +pos0(vair,90); penpos1(stem,180); penpos2(stem,180); +pos2'(stem,210); pos3(vair,270); pos3'(vair,270); +x0=x3=.5w; x1=x0-2.5u; x2=x1-.5u; x2'=x2+1.25u; +y0=.9h; y1=y0-.2h; y2=.2h; bot y2'=0; y3=.075h; +filldraw stroke z0{left}..z1e..z2e{down}...z2'e---z3e; + +penpos9(stem,0); penpos10(stem,0); penpos11(stem,0); pos12(vair,145); +x9l=x3l; x10=x9l+2u; x11=x9l+2u; x12l=x0l; +y9r=y3l; y10=y9+.4h; y12l=y0r; y11=y12r-.2h; +filldraw stroke z9e{right}...z10e{up}...z11e{up}...z12e + shifted (1.5u,-.08h) rotated 8; +x13=x11r; y13=.5(y0-y2'); rt_wing(13,2u,.015h); +x14=x1; x15=x11; y14=.5[y0,y2']; y15=y14+.1h; +draw z14--z15; +penlabels(1,2,3,4,5,6,7,8,9,10,11,12,14,15); endchar; + + +iff known eth_CI: +cmchar "The letter CI"; +beginchar(eth_CI,8u#,.5[cap_height#,x_height#],paren_depth#); +adjust_fit(0,2u#); +if .5w <> good.x .5w :change_width; fi pickup fine.nib; + +penpos0(1.2stem,0); penpos1(stem,0); penpos2(stem,0); pos3(vair,0); +pos4(vair,90); +x0l=x4r=.475w; x1=x0-.25u; x2r=w-.75u; x3r=x4r+u; +bot y0=0; y1=y0+.2h; y2=.7h; top y3=.95h; y4=y3-o; +filldraw stroke z0e{left}..{up}z1e--z2e{up}...{left}z3e...z4e; + +pos5(vair,90); penpos6(stem,180); pos7(vair,270); +x5=x4; y5=y4; x6r=.75u; y6=y2-.05h; x7=x0; y7=.5h; +filldraw stroke pulled_arc.e(5,6)..pulled_arc.e(6,7); +x8=x6; x9=x2; y8=y7+.4(y5-y7); y9=y8+.1h; draw z8--z9; +x10=x0; bot y10=oo; rt_half_ellipse(10,2u); +penlabels(1,2,3,4,5,6,7,8,9); endchar; + + +iff known eth_CA: +cmchar "The letter CA"; +beginchar(eth_CA,8u#,.5[cap_height#,x_height#],paren_depth#); +adjust_fit(0,0); +if .5w <> good.x .5w :change_width; fi pickup fine.nib; + +penpos0(1.2stem,0); penpos1(stem,0); penpos2(stem,0); pos3(vair,0); +pos4(vair,90); +x0l=x4r=.475w; x1=x0-.25u; x2r=w-.75u; x3r=x4r+1u; +bot y0=0; y1=y0+.2h; y2=.7h; top y3=.95h; y4=y3-o; +filldraw stroke z0e{left}..{up}z1e--z2e{up}...{left}z3e...z4e; + +pos5(vair,90); penpos6(stem,180); pos7(vair,270); +x5=x4; y5=y4; x6r=.75u; y6=y2-.05h; x7=x0; y7=.5h; +filldraw stroke pulled_arc.e(5,6)..pulled_arc.e(6,7); +x8=x6; x9=x2; y8=y7+.4(y5-y7); y9=y8+.1h; draw z8--z9; +penlabels(1,2,3,4,5,6,7,8,9); endchar; + + +iff known eth_CE: +cmchar "The letter CE"; +beginchar(eth_CE,8u#,.5[cap_height#,x_height#],paren_depth#); +adjust_fit(0,2u#); +if .5w <> good.x .5w :change_width; fi pickup fine.nib; + +penpos0(1.2stem,0); penpos1(stem,0); penpos2(stem,0); pos3(vair,0); +pos4(vair,90); +x0l=x4r=.475w; x1=x0-.25u; x2r=w-.75u; x3r=x4r+1u; +bot y0=0; y1=y0+.2h; y2=.7h; top y3=.95h; y4=y3-o; +filldraw stroke z0e{left}..{up}z1e--z2e{up}...{left}z3e...z4e; + +pos5(vair,90); penpos6(stem,180); pos7(vair,270); +x5=x4; y5=y4; x6r=.75u; y6=y2-.05h; x7=x0; y7=.5h; +filldraw stroke pulled_arc.e(5,6)..pulled_arc.e(6,7); +x8=x6; x9=x2; y8=y7+.4(y5-y7); y9=y8+.1h; draw z8--z9; +x10=x0; bot y10=0; half_ring(10); +penlabels(1,2,3,4,5,6,7,8,9); endchar; + + +iff known eth_Ce: +cmchar "The letter Ce"; +beginchar(eth_Ce,8u#,.5[cap_height#,x_height#],paren_depth#); +adjust_fit(.5u#,-.25u#); +if .5w <> good.x .5w :change_width; fi pickup fine.nib; + +pos0(vair,90); penpos1(stem,180); penpos2(stem,180); +pos2'(stem,200); pos3(vair,270); pos3'(vair,270); +x0=x3=.5w; x1=x0-2u; x2=x1-.5u; x2'=x2+1.5u; +y0=.7h; y1=y0-.15h; y2=.25h; bot y2'=0; y3=.025h; +filldraw stroke z0e{left}...z1e..z2e{down}...z2'e---z3; + +pos9(vair,0); penpos10(stem,0); penpos11(stem,0); pos12(vair,90); +x9l=x3l; x10=x9l+2.25u; x11=x9l+2.25u; x12l=x0l; +y9r=y3l; y10=y9+.2h; y12l=y0r-oo; y11=y12r-.2h; +filldraw stroke z9e{right}...z10e{up}...z11e{up}...{left}z12e; +x14=x1; x15=x11; y14=.5[y0,y2']; y15=y14+.1h; +draw z14--z15; +penpos16(1.2stem,0); penpos16'(1.2stem,0); +x16=x0; x16'=x0-.25u; y16=y0+oo; y16'=y0+.25h; +filldraw stroke z16e--z16'e; +penlabels(1,2,3,4,5,6,7,8,9,10,11,12,14,15,16,16'); endchar; + + +iff known eth_CO: +cmchar "The letter CO"; +beginchar(eth_CO,8u#,.5[cap_height#,x_height#],paren_depth#); +adjust_fit(2u#,.5u#); +if .5w <> good.x .5w :change_width; fi pickup fine.nib; + +pos0(vair,90); penpos1(stem,180); penpos2(stem,180); pos3(vair,270); +x0=.6w; x3=x0-u; x1=x0-3u; x2=x1; y0=h; y1r=y0l-.2h; y2=y1r-.15h; y3r=y2r-.15h; +filldraw stroke pulled_arc.e(0,1)...z2e{down}..{right}z3e; + +pos9(stem,0); penpos10(stem,0); penpos11(stem,0); +penpos12(stem,0); pos13(vair,90); +x9l=x3l; x10=x0+1.5u; x11=x12=x0+1.5u; x13l=x0l; +y9r=y3r; y10r=y9r+.15h; y13r=y0r; y12r=y13r-.1h; y11=.5(y12-y9)+y9; +filldraw stroke z13e{right}...z12e...z10e...z9e{left}; + +penpos4(stem,180); penpos4'(stem,180); pos5(vair,180); +x4r=x3r-4u; x5=x3; x4'r=x4r-.5u; +y5=y3r; bot y4=00; y4'=.15(y5-y4)+y4; +filldraw stroke z5e..z4'e{down}...{right}z4e; +x14=x1; x15=x11; y14=.5[y0,y3]; y15=y14+.075h; +filldraw stroke z14--z15; +penlabels(1,2,3,4,5,6,7,8,9,4,5,12,13); endchar; + + + + + + |