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

iff known eth_ya:
cmchar "The letter ya";
beginchar(eth_ya,10u#,.5[cap_height#,x_height#],paren_depth#);
adjust_fit(-2u#,0);

% THE RIGHT TOP ARC
pickup fine.nib; penpos0(stem,180); penpos1(stem,180); penpos2(stem,180);
penpos2'(stem,180); pos3(vair,105); penpos0'(stem,180);
x0=.5w; x0'=.5w+.5u; x1=x0; x2r=w-7u;  x2'r=x2r+.25u; x3=w-3u;
bot y0'=00; y0=.1h; y1=.35h; y2=.65h; y2'=.5h; top y3=.95h;
filldraw stroke z3e{left}...{down}z2e..z2'e...z1e---z0e{down}..{right}z0'e;

penpos4(curve,0); pos5(vair,270);
x5=x2l; x4r=w-.5u; y5=.55h;  y4=.85h;
filldraw stroke z5e{right}..{up}z4e{up}..{left}z3e;
penlabels(0,0',1,2,3,4,5); endchar;


iff known eth_yU:
cmchar "The letter yU";
beginchar(eth_yU,10u#,.5[cap_height#,x_height#],paren_depth#);
adjust_fit(-2u#,1u#);

% THE RIGHT TOP ARC
pickup fine.nib; penpos0(stem,180); penpos1(stem,180); penpos2(stem,180);
penpos2'(stem,180); pos3(vair,105); penpos0'(stem,180);
x0=.5w; x0'=.5w+.5u; x1=x0; x2r=w-7u;  x2'r=x2r+.25u; x3=w-3u;
bot y0'=00; y0=.1h; y1=.35h; y2=.65h; y2'=.5h; top y3=.95h;
filldraw stroke z3e{left}...{down}z2e..z2'e...z1e---z0e{down}..{right}z0'e;

penpos4(curve,0); pos5(vair,270);
x5=x2l; x4r=w-.5u;y5=.55h;  y4=.85h;
filldraw stroke z5e{right}..{up}z4e{up}..{left}z3e;
x6=x1l; y6=y1; rt_wing(6,2u,.015h);
penlabels(0,0',1,2,2',3,4,5); endchar;


iff known eth_yI:
cmchar "The letter yI";
beginchar(eth_yI,10u#,.5[cap_height#,x_height#],paren_depth#);
adjust_fit(-2u#,3.5u#);

% THE RIGHT TOP ARC
pickup fine.nib; penpos0(stem,180); penpos1(stem,180); penpos2(stem,180);
penpos2'(stem,180); pos3(vair,105); penpos0'(stem,180);
x0=.5w; x0'=.5w+.5u; x1=x0; x2r=w-7u;  x2'r=x2r+.25u; x3=w-3u;
bot y0'=00; y0=.1h; y1=.35h; y2=.65h; y2'=.5h; top y3=.95h;
filldraw stroke z3e{left}...{down}z2e..z2'e...z1e---z0e{down}..{right}z0'e;

penpos4(curve,0); pos5(vair,270);
x5=x2l; x4r=w-.5u; y5=.55h;  y4=.85h;
filldraw stroke z5e{right}..{up}z4e{up}..{left}z3e;

pos6(vair,45); pos7(vair,45);
penpos8(stem,0); penpos9(stem,0); penpos10(stem,0);
x6=x1l; x7=x6+1.75u; y6=y7=.275h; filldraw stroke z6e--z7e;
x8l=x9l-.25u=x10l-.25u=x7; y8=.4h; y9=y8-.075h; y10=.225h;
filldraw stroke z8e{right}..{down}z9e---z10e;
x11=x10; y11=y10; rt_wing(11,2u,0);
penlabels(0,0',1,2,2',3,4,5); endchar;


iff known eth_yA:
cmchar "The letter yA";
beginchar(eth_yA,10u#,.5[cap_height#,x_height#],paren_depth#);
adjust_fit(.5u#,0);

% THE RIGHT TOP ARC
pickup fine.nib; penpos0(stem,180); penpos1(stem,190); penpos2(stem,180);
penpos2'(stem,180); pos3(vair,105); penpos0'(stem,180);
x1=w-4.5u; x2r=w-7u;  x2'r=x2r+.2u; x3=w-3u;
y1=.175h; y2=.65h; y2'=.5h; top y3=h;
filldraw stroke z3e{left}...{down}z2e..z2'e---z1e;

penpos4(curve,0); pos5(vair,270);
x5=x2l; x4r=w-.5u; y5=.55h;  y4=.85h;
filldraw stroke z5e{right}..{up}z4e{up}..{left}z3e;

pos6(vair,90); pos7(vair,90);
x6=x1r; x7=x6-1.75u; y6=y1; y7=y6-.05h; filldraw stroke z6e--z7e;
x8=x7+.25u; y8=y7-.025h; lft_half_ellipse(8,0);
penlabels(0,0',1,2,3,4,5,6,7); endchar;


iff known eth_yE:
cmchar "The letter yE";
beginchar(eth_yE,10u#,.5[cap_height#,x_height#],paren_depth#);
adjust_fit(-2u#,2.5u#);

% THE RIGHT TOP ARC
pickup fine.nib; penpos0(stem,180); penpos1(stem,180); penpos2(stem,180);
penpos2'(stem,180); pos3(vair,105); penpos0'(stem,180);
x0=.5w; x0'=.5w+.5u; x1=x0; x2r=w-7u;  x2'r=x2r+.25u; x3=w-3u;
bot y0'=00; y0=.1h; y1=.35h; y2=.65h; y2'=.5h; top y3=.95h;
filldraw stroke z3e{left}...{down}z2e..z2'e...z1e---z0e{down}..{right}z0'e;

penpos4(curve,0); pos5(vair,270);
x5=x2l; x4r=w-.5u; y5=.55h;  y4=.85h;
filldraw stroke z5e{right}..{up}z4e{up}..{left}z3e;

pos6(vair,45); pos7(vair,45);
penpos8(stem,0); penpos9(stem,0); penpos10(stem,0);
x6=x1; x7=x6+2.75u; y6=y7+o=.4h; draw z6--z7;
x8=x7l-.25u; y8=y7; yfive_ring(8,-2);
penlabels(0,0',1,2,2',3,4,56,7); endchar;


iff known eth_ye:
cmchar "The letter ye";
beginchar(eth_ye,10u#,.5[cap_height#,x_height#],paren_depth#);
adjust_fit(-.5u#,2u#);

% THE RIGHT TOP ARC
pickup fine.nib; penpos1(stem,190); penpos2(stem,180);
penpos2'(stem,180); pos3(vair,105);
pos1'(vair,270); penpos0(stem,0); penpos0'(stem,0);
x1=w-4.5u; x2r=w-7u;  x2'r=x2r+.2u; x3=w-3u;
y1=.225h; y2=.65h; y2'=.5h; top y3=h;
x1'=w-1.5u; x0l=w-.5u; x0'l=x0l-.5u;
y1'=.2h; y0=y1'+.175h; y0'=y0+.075h;
filldraw stroke z3e{left}...{down}z2e..z2'e...
 z1e...z1'e{right}..{up}z0e...z0'e;

penpos4(curve,0); pos5(vair,270);
x5=x2l; x4r=w-.5u; y5=.55h;  y4=.85h;
filldraw stroke z5e{right}..{up}z4e{up}..{left}z3e;
pos6(vair,90); pos7(vair,90);
x6=x1r; x7=x6-.75u; y6=y1; y7=y6-.05h; filldraw stroke z6e--z7e;
z8=z7l; t_wing(8);
penlabels(0,0',1,2,3,4,5,6,7); endchar;


iff known eth_yO:
cmchar "The letter yO";
beginchar(eth_yO,10u#,.5[cap_height#,x_height#],paren_depth#);
adjust_fit(-2u#,3.5u#);

% THE RIGHT TOP ARC
pickup fine.nib; penpos0(stem,180); penpos1(stem,180); penpos2(stem,180);
penpos2'(stem,180); pos3(vair,105); penpos0'(stem,180);
x0=.5w; x0'=.5w+.5u; x1=x0; x2r=w-7u;  x2'r=x2r+.25u; x3=w-3u;
bot y0'=00; y0=.1h; y1=.35h; y2=.65h; y2'=.5h; top y3=.95h;
filldraw stroke z3e{left}...{down}z2e..z2'e...z1e---z0e{down}..{right}z0'e;

penpos4(curve,0); pos5(vair,270);
x5=x2l; x4r=w-.5u; y5=.55h;  y4=.85h;
filldraw stroke z5e{right}..{up}z4e{up}..{left}z3e;
x6=x4; y6=y4-.2h; rt_wing(6,2u,.015h);
penlabels(0,0',1,2,3,4,5); endchar;


iff known eth_yuA:
cmchar "The letter yuA";
beginchar(eth_yuA,10u#,.5[cap_height#,x_height#],paren_depth#);
adjust_fit(-.5u#,2.5u#);

% THE RIGHT TOP ARC
pickup fine.nib; penpos0(stem,180); penpos1(stem,180); penpos2(stem,180);
penpos2'(stem,180); pos3(vair,105); penpos0'(stem,180);
x0=.5w; x0'=.5w+.5u; x1=x0; x2r=w-7u;  x2'r=x2r+.25u; x3=w-3u;
bot y0'=0; y0=.1h; y1=.3h; y2=.6h; y2'=.45h; top y3=.9h;
filldraw stroke z3e{left}...{down}z2e..z2'e...z1e---z0e{down}..{right}z0'e;

penpos4(curve,0); pos5(vair,270);
x5=x2l; x4r=w-.5u; y5=.55h;  y4=.85h;
filldraw stroke z5e{right}..{up}z4e{up}..{left}z3e;

penpos10(stem,0); penpos10'(stem,0); 
x10=.5[x2r,x4r]; x10'=x10+.25u; y10=y3+o; y10'=y10+.175h; 
filldraw stroke z10e--z10'e;

x11=x10'r; x12=x10'l; y11=y12=y10';
rt_half_ellipse(11,1.5u); lft_half_ellipse(12,1.5u);
penlabels(0,0',1,2,3,4,5,10,10'); endchar;