%-------------------------------------------------------------
% This is ETH_W.MF      as of Dec, 1995 by Jochen Metzinger
% originally distributed by Abass B. Alamnehe [February, 1993]
%-------------------------------------------------------------

iff known eth_wa:
cmchar "The letter wa";
beginchar(eth_wa,12u#,.5[cap_height#,x_height#],paren_depth#);
adjust_fit(u#,0);

pickup fine.nib; penpos0(stem,0); penpos1(stem,-5); penpos2(vair,90);
penpos2'(vair,90); penpos3(stem,180); penpos3'(stem,180);
penpos4(stem,180); penpos5(vair,270);
penpos6(vair,270); penpos7(vair,270); penpos8(vair,270); penpos9(stem,0);
penpos10(stem,0); penpos11(vair,90); penpos12(vair,90);

x0l=w-6.3u; x1l=w-7.6u; x2=x0l; x2'l=x0l-u; x3'r=1.25u; x3r=.35u;
x4r=.35u; x5=w-8u; x6=x1l; x7=x1r; x8=w-4.5u; x9l=w-3.5u;  x10l=w-2.65u;
x11=w-3.5u; x12=x0r;

y0=.8h; y1=.175h; y2r=y0-o; y2'r=y0-oo; y3'=.65h; y3=.4h;
y4=.275h; y5r=y6r=y7r=y1; y8r=y1; y9=.25h; y10=.675h; y11=.775h; y12=.775h;

filldraw stroke z0e{down}--z1e;
filldraw stroke z2e..z2'e..tension 1.1..z3'e..z3e..z4e...z5e..z6e;
filldraw stroke z7e..z8e..z9e..tension 1.3..z10e..z11e..z12e;
penlabels(1,2,2',3,3',4,5,6,7,8,9,10,11,12,13); endchar;


iff known eth_wU:
cmchar "The letter wU";
beginchar(eth_wU,12u#,.5[cap_height#,x_height#],paren_depth#);
adjust_fit(u#,2u#);

pickup fine.nib; penpos0(stem,0); penpos1(stem,-5); penpos2(vair,90);
penpos2'(vair,90); penpos3(stem,180); penpos3'(stem,180);
penpos4(stem,180); penpos5(vair,270);
penpos6(vair,270); penpos7(vair,270); penpos8(vair,270); penpos9(stem,0);
penpos10(stem,0); penpos11(vair,90); penpos12(vair,90);

x0l=w-6.3u; x1l=w-7.6u; x2=x0l; x2'=x0l-u; x3'r=1.25u; x3r=.35u;
x4r=.35u; x5=w-8u; x6=x1; x7=x1r; x8=w-4.5u; x9l=w-3.5u;  x10l=w-2.65u;
x11=w-3.5u; x12=x0r;

y0=.8h; y1=.175h; y2r=y0-o; y2'r=y0-oo; y3'=.65h; y3=.4h;
y4=.275h; y5r=y6r=y7r=y1; y8r=y1; y9=.25h; y10=.675h; y11=.775h; y12=.775h;

filldraw stroke z0e--z1e;
filldraw stroke z2e..z2'e...z3'e...z3e..z4e...z5e..z6e;
filldraw stroke z7e..z8e..z9e..tension 1.3..z10e..z11e..z12e;
x13=x9; y13=y1; rt_half_ellipse(13,1.5u);
penlabels(1,2,2',3,3',4,5,6,7,8,9,10,11,12,13); endchar;


iff known eth_wI:
cmchar "The letter wI";
beginchar(eth_wI,12u#,.5[cap_height#,x_height#],paren_depth#);
adjust_fit(.5u#,-.5u#);

pickup fine.nib; penpos0(stem,5); penpos1(stem,0); penpos1'(stem,0);
penpos2(vair,90); penpos2'(vair,90); penpos3(stem,180); penpos4(stem,180);
penpos5'(vair,270); penpos5(vair,270); penpos6(vair,270); penpos7(vair,270);
penpos8(stem,0); penpos8'(stem,0); penpos9(vair,90); penpos10(vair,90);

lft x0l=w-7u; x1l=w-8u; x1'l=x1l+.25u; x2=x0; x2'=w-8.25u; lft x3r=.75u;
x4r=.75u; x5'=w-8.25u; x5=w-7u; x6=w-5.5u;
x7=w-4.5u; x8l=w-3.25u; x8'l=w-3.25u; x9=w-4u;  x10=x0r;

y0=.9h; y1=.075h; bot y1'=0; bot y2r=bot y2'r=y0-o; y3=.725h; y4=.55h;
y5'=.475h; y5=y5'+o; y6=y5; y7l=y6; y8=.65h; y8'=.825h; y9=y0+o; y10=y0;

filldraw stroke z0e--z1e...z1'e;
filldraw stroke z2e{left}..z2'e...z3e...z4e..z5'e..z5e;
filldraw stroke z6e...z7e..z8e..z8'e..z9e..z10e;
x11=x1'r; y11=y1'+o; rt_half_ellipse(11,1.5u);
penlabels(1,2,2',3,3',4,5,6,7,8,9,10,11); endchar;


iff known eth_wA:
cmchar "The letter wA";
beginchar(eth_wA,12u#,.5[cap_height#,x_height#],paren_depth#);
adjust_fit(.5u#,-.5u#);

pickup fine.nib; penpos0(stem,5); penpos1(stem,0); penpos1'(stem,5);
penpos2(vair,90); penpos2'(vair,90); penpos3(stem,180); penpos4(stem,180);
penpos5'(vair,270); penpos5(vair,270); penpos6(vair,270); penpos7(vair,270);
penpos8(stem,0); penpos8'(stem,0); penpos9(vair,90); penpos10(vair,90);

lft x0l=w-7u; x1l=w-8u; x1'l=x1l+.25u; x2=x0; x2'=w-8.25u; lft x3r=.75u;
x4r=.75u; x5'=w-8.25u; x5=w-7u; x6=w-5.5u;
x7=w-4.5u; x8l=w-3.25u; x8'l=w-3.25u; x9=w-4u;  x10=x0r;

y0=.9h; y1=.075h; bot y1'=0; bot y2r=bot y2'r=y0-o;  y3=.725h; y4=.55h;
y5'=.475h; y5=y5'+o; y6=y5; y7l=y6; y8=.65h; y8'=.825h; y9=y0+o; y10=y0;

filldraw stroke z0e---z1e...{right}z1'e;
filldraw stroke z2e{left}..z2'e...z3e...z4e..z5'e..z5e;
filldraw stroke z6e...z7e..z8e..z8'e..z9e..z10e;
penlabels(1,2,2',3,3',4,5,6,7,8,9,10,11); endchar; 


iff known eth_wE:
cmchar "The letter wE";
beginchar(eth_wE,12u#,.5[cap_height#,x_height#],paren_depth#);
adjust_fit(.5u#,-.5u#);

pickup fine.nib; penpos0(stem,5); penpos1(stem,0); penpos1'(stem,5);
penpos2(vair,90); penpos2'(vair,90); penpos3(stem,180); penpos4(stem,180);
penpos5'(vair,270); penpos5(vair,270); penpos6(vair,270); penpos7(vair,270);
penpos8(stem,0); penpos8'(stem,0); penpos9(vair,90); penpos10(vair,90);

lft x0l=w-7u; x1l=w-8u; x1'l=x1l+.25u; x2=x0; x2'=w-8u; lft x3r=1.1u;
x4r=1.1u; x5'=w-8.25u; x5=w-7u; x6=w-5.5u;
x7=w-4.5u; x8l=w-3.5u; x8'l=w-3.5u; x9=w-4u;  x10=x0r;

y0=.9h; y1=.075h; bot y1'=0; bot y2r=bot y2'r=y0-o;  y3=.725h; y4=.55h;
y5'=.475h; y5=y5'+o; y6r=y5; y7r=y6; y8=.65h; y8'=.825h; y9=y0+o; y10=y0;

filldraw stroke z0e---z1e...{right}z1'e;
filldraw stroke z2e..z2'e...z3e...z4e..z5'e..z5e;
filldraw stroke z6e...z7e..z8e..z8'e..z9e..z10e;

z11=z1'; half_ring(11);
penlabels(0,1,1',2,2',3,4,5,5',6,7,8,8',9,10,11); endchar;


iff known eth_we:
cmchar "The letter we";
beginchar(eth_we,12u#,.5[cap_height#,x_height#],paren_depth#);
adjust_fit(u#,4u#);

pickup fine.nib; penpos0(stem,0); penpos1(stem,-5); penpos2(vair,90);
penpos2'(vair,90); penpos3(stem,180); penpos3'(stem,180);
penpos4(stem,180); penpos5(vair,270);
penpos6(vair,270); penpos7(vair,270); penpos8(vair,270); penpos9(stem,0);
penpos10(stem,0); penpos11(vair,90); penpos12(vair,90);

x0l=w-6.3u; x1l=w-7.6u; x2=x0l; x2'l=x0l-u; x3'r=1.25u; x3r=.35u;
x4r=.35u; x5=w-8u; x6=x1l; x7=x1r; x8=w-4.5u; x9l=w-3.5u;  x10l=w-2.65u;
x11=w-3.5u; x12=x0r;

y0=.8h; y1=.175h; y2r=y0-o; y2'r=y0-oo; y3'=.65h; y3=.4h;
y4=.275h; y5r=y6r=y7r=y1; y8r=y1; y9=.25h; y10=.675h; y11=.775h; y12=.775h;

filldraw stroke z0e{down}--z1e;
filldraw stroke z2e..z2'e..tension 1.1..z3'e..z3e..z4e...z5e..z6e;
filldraw stroke z7e..z8e..z9e..tension 1.3..z10e..z11e..z12e;
x13=x10r; y13=.5[y9,y11]; rt_half_ellipse(13,1.5u);
penlabels(1,2,2',3,3',4,5,6,7,8,9,10,11,12); endchar;


iff known eth_wO:
cmchar "The letter wO";
beginchar(eth_wO,10u#,.5[cap_height#,x_height#],paren_depth#);
adjust_fit(1.5u#,1.5u#);

pickup fine.nib;
penpos0(vair,90); penpos0'(vair,90); penpos1(stem,180);
penpos2(vair,270); penpos3(vair,270);
x0=.5w; x0'=x0-fine; x1=x0-3.75u; x2=.5[x1,x0]; x3r=x0l;
y0=.9h;  y0'l=y0-o; y2=.5h; y1=.3(y0-y2)+y2;  y3=y2-oo;
filldraw stroke z0e{left}...pulled_arc.e(0',1)...pulled_arc.e(1,2)...{right}z3e;

penpos4'(stem,0); penpos4(stem,0); penpos5(stem,0); penpos5'(stem,0);
bot y4=00; y4'=y4+.15h; y5=.5h-o;  y5'=.9h;
x5=x0; x5'=x5+fine; x4r=x4'r=u;
filldraw stroke z4e..controls z4'e..z5e---z5'e;

penpos6(vair,270); penpos7(vair,270); penpos8(stem,360);
penpos9(vair,90); penpos10(vair,90);
x6=w-x3; lft x8=w-x1; x7=w-x2; lft x9=w-x0'+1.25u; x10=w-x0;
y6=y3; y7=y3; y8=.5(y0-y3)+y2; y9=y10=y0+oo;
filldraw stroke z6e...pulled_arc.e(7,8)...pulled_arc.e(8,9)..z10e;
penlabels(1,2,3,4,5,5',6,7,8,9,10,11,12,13); endchar;