From 215012a8d684889983ec2c0629e1c704e6853d9c Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Mon, 9 Jan 2006 23:38:21 +0000 Subject: trunk/Master/texmf-dist/fonts/source git-svn-id: svn://tug.org/texlive/trunk@101 c570f23f-e606-0410-a88d-b1316a301751 --- .../fonts/source/public/ethiop/eth_c_c.mf | 173 +++++++++++++++++++++ 1 file changed, 173 insertions(+) create mode 100644 Master/texmf-dist/fonts/source/public/ethiop/eth_c_c.mf (limited to 'Master/texmf-dist/fonts/source/public/ethiop/eth_c_c.mf') diff --git a/Master/texmf-dist/fonts/source/public/ethiop/eth_c_c.mf b/Master/texmf-dist/fonts/source/public/ethiop/eth_c_c.mf new file mode 100644 index 00000000000..8b37a800d13 --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/ethiop/eth_c_c.mf @@ -0,0 +1,173 @@ +%------------------------------------------------------------- +% This is ETH_C_C.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,10u#,.5[cap_height#,x_height#],0); +adjust_fit(1.5u#,1.5u#); + +% STEM +pickup fine.nib; penpos1(stem,7); penpos2(stem,0); penpos2'(stem,5); +x1=w-4.75u; x2=x1-.75u; x2'=x1; +y1=.95h; y2=.075h; bot y2'=0; +filldraw stroke z1e---z2e{down}...{right}z2'e; + +% WINGS +x3=.5[x1r,x2'r]; y3=.65h; rt_wing(3,2u,.02h); +x4=.5[x1l,x2l]; y4=.65h; lft_wing(4,2u,.02h); + +penpos6(stem,0); penpos7(stem,0); x6=x1l; x7=x1r; y7=y6=y1; +lft_half_ellipse(6,1.75u); rt_half_ellipse(7,1.75u); +penlabels(1,2,2',3,4,6,7); endchar; + + +iff known eth_^cU: +cmchar "The letter ^cU"; +beginchar(eth_^cU,10u#,.5[cap_height#,x_height#],0); +adjust_fit(1.5u#,1.5u#); + +% STEM +pickup fine.nib; penpos1(stem,7); penpos2(stem,0); penpos2'(stem,5); +x1=w-4.75u; x2=x1-.75u; x2'=x1; +y1=.95h; y2=.075h; bot y2'=0; +filldraw stroke z1e---z2e{down}...{right}z2'e; + +% WINGS +x3=.5[x1r,x2'r]; y3=.65h; rt_wing(3,2u,.02h); +x4=.5[x1l,x2l]; y4=.65h; lft_wing(4,2u,.02h); + +penpos6(stem,0); penpos7(stem,0); x6=x1l; x7=x1r; y7=y6=y1; +lft_half_ellipse(6,1.75u); rt_half_ellipse(7,1.75u); +x8=x2r; y8=.25h; rt_half_ellipse(8,1.75u); +penlabels(1,2,3,4,5,6,7); endchar; + + +iff known eth_^cI: +cmchar "The letter ^cI"; +beginchar(eth_^cI,10u#,.5[cap_height#,x_height#],0); +adjust_fit(1.5u#,1.5u#); + +% STEM +pickup fine.nib; penpos1(stem,7); penpos2(stem,0); penpos2'(stem,5); +x1=w-4.75u; x2=x1-.75u; x2'=x1; +y1=.95h; y2=.075h; bot y2'=0; +filldraw stroke z1e---z2e{down}...{right}z2'e; + +% WINGS +x3=.5[x1r,x2'r]; y3=.65h; rt_wing(3,2u,.02h); +x4=.5[x1l,x2l]; y4=.65h; lft_wing(4,2u,.02h); + +penpos6(stem,0); penpos7(stem,0); x6=x1l; x7=x1r; y7=y6=y1; +lft_half_ellipse(6,1.5u); rt_half_ellipse(7,1.5u); +z8=z2'r; rt_half_ellipse(8,1.5u); +penlabels(1,2,3,4,5); endchar; + + +iff known eth_^cA: +cmchar "The letter ^cA"; +beginchar(eth_^cA,12u#,.5[cap_height#,x_height#],0); +adjust_fit(1.5u#,.5u#); +pickup fine.nib; penpos0(1.2stem,5); penpos0'(stem,0); penpos1(stem,0); +pos2(vair,-90); + +x0=.5w; x0'=x0+.5u; x1=x0+.25u; x2=x0-4u; +y0=.95h; y0'=y0-.1h; y1=.4h; y2=.15h; +filldraw stroke z0e{right}...{down}z0'e---z1e..pulled_arc.e(1,2); +x3=x0'r+oo; x3'=lft x0'l; y3=.65h; y3'=y3-oo; +rt_wing(3,2u,.02h); lft_wing(3',2u,.02h); +z4=z2l; t_wing(4); +penpos6(stem,0); penpos7(stem,0); x6=x0l; x7=x0r; y7=y6=y0; +lft_half_ellipse(6,1.75u); rt_half_ellipse(7,1.75u); +penlabels(1,2,3,4,5); endchar; + + +iff known eth_^cE: +cmchar "The letter ^cE"; +beginchar(eth_^cE,10u#,.55[cap_height#,x_height#],0); +adjust_fit(1.5u#,1.5u#); + +% STEM +pickup fine.nib; penpos1(stem,7); penpos2(stem,0); penpos2'(stem,5); +x1=w-4.75u; x2=x1-.75u; x2'=x1; +y1=.95h; y2=.075h; bot y2'=0; +filldraw stroke z1e---z2e{down}...{right}z2'e; + +% WINGS +x3=.5[x1r,x2'r]; y3=.65h; rt_wing(3,2u,.02h); +x4=.5[x1l,x2l]; y4=.65h; lft_wing(4,2u,.02h); + +penpos6(stem,0); penpos7(stem,0); x6=x1l; x7=x1r; y7=y6=y1; +lft_half_ellipse(6,1.75u); rt_half_ellipse(7,1.75u); +x8=x2'; bot y8=0; half_ring(8); +penlabels(1,2,3,4,5,6); endchar; + + +iff known eth_^ce: +cmchar "The letter ^ce"; +beginchar(eth_^ce,10u#,cap_height#,0); +adjust_fit(2.5u#,1.5u#); + +% STEM +pickup fine.nib; penpos1(stem,0); penpos2(stem,0); penpos2'(stem,0); +x1=w-4.75u; x2=x1-.75u; x2'=x1; y1=.8h; y2=.075h; bot y2'=0; +filldraw stroke z1e--z2e{down}...{right}z2'e; + +% WINGS +x3=.5[x1r,x2'r]; y3=.55h; rt_wing(3,2u,.02h); +x4=.5[x1l,x2l]; y4=.55h; lft_wing(4,2u,.02h); + +penpos5(stem,0); penpos5'(stem,5); x5r=x1l; x5'r=x5r+.25u; +y5=y1; y5'=y5+.15h; filldraw stroke z5e--z5'e; + +x6=x5'l; x7=x5'r; y6=y7=y5'; +upside_down_left_wing(6); rt_half_ellipse(7,1.5u); +penlabels(1,2,2',3,4); endchar; + + +iff known eth_^cO: +cmchar "The letter ^cO"; +beginchar(eth_^cO,10u#,cap_height#,0); +adjust_fit(1.5u#,1.5u#); + +pickup fine.nib; penpos0(1.2stem,180); penpos0'(stem,180); penpos1(stem,180); +pos2(stem,180); pos2'(stem,180); +pos3(vair,115); pos4(stem,0); pos4'(stem,0); pos5(vair,270); +x0=.5w; x0'=x0-.5u; x1=x0; x2=x0-1.5u; x2'=x2+u; +x3=x0+.5u; x4r=x1l+2u; x4'r=x4r-u; x5=x1; +bot y0=0; y0'=.125h; y1=.5h; y2=.7h; y2'=y4'=.85h; y4=.75h; y5=.575h; + +filldraw stroke pulled_arc.e(5,4)...z4'e--z2'e{left}...{down}z2e...z1e{down} +...z0'e{down}..z0e; +x6=x1l; x6'=lft x1r; y6=.45h; y6'=y6-oo; +rt_wing(6,2u,.02h); lft_wing(6',2u,.02h); + +x7=x4'r+2.5u; x8=x2'r; y7=y4'+.175h; y8=y2'+.15h; +right_wing_no_bar(7) lft_half_ellipse(8,0); +pos9(vair,90); pos9'(vair,90); x9=x2'r; x9'=x9-.75u; y9=y2'; y9'=y9+.05h; +draw z9--z9'; +penlabels(1,2,2',4,4',5,6,7,8,9,9'); endchar; + + +iff known eth_^cuA: +cmchar "The letter ^cuA"; +beginchar(eth_^cuA,10u#,.5[cap_height#,x_height#],0); +adjust_fit(1.5u#,1.5u#); + +% STEM +pickup fine.nib; penpos1(stem,7); penpos2(stem,0); penpos2'(stem,5); +x1=w-4.75u; x2=x1-.75u; x2'=x1; +y1=.95h; y2=.075h; bot y2'=0; +filldraw stroke z1e---z2e{down}...{right}z2'e; + +% WINGS +x3=.5[x1r,x2'r]; y3=.65h; rt_wing(3,2u,.02h); +x4=.5[x1l,x2l]; y4=.65h; lft_wing(4,2u,.02h); + +penpos6(stem,0); penpos7(stem,0); x6=x1l; x7=x1r; y7=y6=y1; +lft_half_ellipse(6,1.75u); rt_half_ellipse(7,1.75u); + +x20=x2'l; x21=x2'r; y20=y21=y2'; lft_wing(20,2u,.02h); +rt_wing(21,1.25u,.02h); +penlabels(1,2,2',3,4,6,7); endchar; -- cgit v1.2.3