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

iff known eth_Ha:
cmchar "The letter \d ha";
beginchar(eth_Ha,14u#,.5[cap_height#,x_height#],0);
adjust_fit(0,0);
if .5w <> good.x .5w :change_width; fi pickup fine.nib;
penpos0(stem,10); penpos1(stem,0); penpos2(stem,0); penpos4'(stem,180);
penpos3(stem,0); penpos3'(stem,-20); penpos5(stem,180); penpos5'(stem,180);
penpos4(stem,180); penpos7'(stem,0); penpos6(vair,90);
penpos7(stem,0); penpos8(stem,0); penpos8'(stem,0);

x0=hround(.5w); x1=x0+.5u; x2=x0-.5u; x3=x0;
rt x8r=hround(w-1u); rt x8'r=hround(x8r-fine); x6=hround(.5w);
rt x7'r=hround(x8r+2fine); rt x7r=hround(x8r+fine);
lft x5r=lft x5'r=hround .5u; x4r=x5r+.25u; x4'r=x5r;

top y0=h; bot y3=bot y8=bot y4=0; y4'=.1h; y2=y3+.1(y0-y3); y1=y3+.9(y0-y3);
y7r=.3h; y6l=.55h; y8'=.75[y7,y8]; y7'=.25[y7,y8];
%%%%%%%%%y7r=.35h; y6l=.55h; y8'=.25[y7,78]; y7'=y7-.25[y7,y8];
y5=y6-.35h; y5'r=.5[y5,y4];
filldraw stroke z0e{right}..{down}z1e--z2e{down}..{right}z3e;

filldraw stroke z8e..controls z8'e and z7'e..pulled_arc.e(7,6);
filldraw stroke z4e...z4'e...
  pulled_arc.e(5,6);
penlabels(0,1,2,3,4,5,5',6,7,8,8'); endchar;


iff known eth_HU:
cmchar "The letter HU";
beginchar(eth_HU,14u#,.5[cap_height#,x_height#],0);
adjust_fit(0,4u#);
if .5w <> good.x .5w :change_width; fi pickup fine.nib;
penpos0(stem,10); penpos1(stem,0); penpos2(stem,0); penpos4'(stem,180);
penpos3(stem,0); penpos3'(stem,-20); penpos5(stem,180); penpos5'(stem,180);
penpos4(stem,180); penpos7'(stem,0); penpos6(vair,90);
penpos7(stem,0); penpos8(stem,0); penpos8'(stem,0);

x0=hround(.5w); x1=x0+.5u; x2=x0-.5u; x3=x0;
rt x8r=hround(w-1u); rt x8'r=hround(x8r-fine); x6=hround(.5w);
rt x7'r=hround(x8r+2fine); rt x7r=hround(x8r+fine);
lft x5r=lft x5'r=hround .5u; x4r=x5r+.25u; x4'r=x5r;

top y0=h; bot y3=bot y8=bot y4=0; y4'=.1h; y2=y3+.1(y0-y3); y1=y3+.9(y0-y3);
y7r=.3h; y6l=.55h; y8'=.75[y7,y8]; y7'=.25[y7,y8];
y5=y6-.35h; y5'r=.5[y5,y4];
filldraw stroke z0e{right}..{down}z1e--z2e{down}..{right}z3e;

filldraw stroke z8e..controls z8'e and z7'e..pulled_arc.e(7,6);
filldraw stroke z4e...z4'e...
  pulled_arc.e(5,6);
x9=x7r; y9=y7+.05h; rt_wing(9,2u,.025h);
penlabels(0,1,2,3,4,5,5',6,7,8,8'); endchar;


iff known eth_HI:
cmchar "The letter HI";
beginchar(eth_HI,14u#,.5[cap_height#,x_height#],0);
adjust_fit(0,4u#);
if .5w <> good.x .5w :change_width; fi pickup fine.nib;
penpos0(stem,10); penpos1(stem,0); penpos2(stem,0); penpos4'(stem,180);
penpos3(stem,0); penpos3'(stem,-20); penpos5(stem,180); penpos5'(stem,180);
penpos4(stem,180); penpos7'(stem,0); pos6(vair,90);
penpos7(stem,0); penpos8(stem,0); penpos8'(stem,0);

x0=hround(.5w); x1=x0+.5u; x2=x0-.5u; x3=x0;
rt x8r=hround(w-1u); rt x8'r=hround(x8r-fine); x6=hround(.5w);
rt x7'r=hround(x8r+2fine); rt x7r=hround(x8r+fine);
lft x5r=lft x5'r=hround .5u; x4r=x5r+.25u; x4'r=x5r;

top y0=h; bot y3=bot y8=bot y4=0; y4'=.1h; y2=y3+.1(y0-y3); y1=y3+.9(y0-y3);
y7r=.3h; y6l=.55h; y8'=.75[y7,y8]; y7'=.25[y7,y8];
y5=y6-.35h; y5'r=.5[y5,y4];
filldraw stroke z0e{right}..{down}z1e--z2e{down}..{right}z3e;

filldraw stroke z8e..controls z8'e and z7'e..pulled_arc.e(7,6);
filldraw stroke z4e...z4'e...pulled_arc.e(5,6);
x9=x8r; bot y9=00; rt_half_ellipse(9,1.5u);
penlabels(0,1,2,3,4,5,5',6,7,8,8'); endchar;


iff known eth_HA:
cmchar "The letter HA";
beginchar(eth_HA,14u#,.5[cap_height#,x_height#],0);
adjust_fit(0,0);
if .5w <> good.x .5w :change_width; fi pickup fine.nib;
penpos0(stem,10); penpos1(stem,0); penpos2(stem,0); penpos4'(stem,180);
penpos3(stem,0); penpos3'(stem,-20); penpos5(stem,180); penpos5'(stem,180);
penpos4(stem,180); penpos7'(stem,0); penpos6(vair,90);
penpos7(stem,0); penpos8(stem,0); penpos8'(stem,0);

x0=hround(.5w); x1=x0+.5u; x2=x0-.5u; x3=x0;
rt x8r=hround(w-1u); rt x8'r=hround(x8r-fine); x6=hround(.5w);
rt x7'r=hround(x8r+2fine); rt x7r=hround(x8r+fine);
lft x5r=lft x5'r=hround .5u; x4r=x5r+.25u; x4'r=x5r;

top y0=h; bot y3=.25h; bot y8=00; y4=.225h; y4'=.3h;
y2=y3+.1(y0-y3); y1=y3+.9(y0-y3);
y7r=.3h; y6l=.55h; y8'=.75[y7,y8]; y7'=.25[y7,y8];
y5=y6-.25h; y5'r=.5[y5,y4];
filldraw stroke z0e{right}..{down}z1e--z2e{down}..{right}z3e;

filldraw stroke z8e..controls z8'e and z7'e..pulled_arc.e(7,6);
filldraw stroke z4e...z4'e...pulled_arc.e(5,6);
penlabels(0,1,2,3,4,5,5',6,7,8,8'); endchar;


iff known eth_HE:
cmchar "The letter HE";
beginchar(eth_HE,14u#,.5[cap_height#,x_height#],0);
adjust_fit(0,4u#);
if .5w <> good.x .5w :change_width; fi pickup fine.nib;
penpos0(stem,10); penpos1(stem,0); penpos2(stem,0); penpos4'(stem,180);
penpos3(stem,0); penpos3'(stem,-20); penpos5(stem,180); penpos5'(stem,180);
penpos4(stem,180); penpos7'(stem,0); penpos6(vair,90);
penpos7(stem,0); penpos8(stem,0); penpos8'(stem,0);

x0=hround(.5w); x1=x0+.5u; x2=x0-.5u; x3=x0;
rt x8r=hround(w-1u); rt x8'r=hround(x8r-fine); x6=hround(.5w);
rt x7'r=hround(x8r+2fine); rt x7r=hround(x8r+fine);
lft x5r=lft x5'r=hround .5u; x4r=x5r+.25u; x4'r=x5r;

top y0=h; bot y3=bot y8=bot y4=0; y4'=.1h; y2=y3+.1(y0-y3); y1=y3+.9(y0-y3);
y7r=.3h; y6l=.55h; y8'=.75[y7,y8]; y7'=.25[y7,y8];
y5=y6-.35h; y5'r=.5[y5,y4];
filldraw stroke z0e{right}..{down}z1e--z2e{down}..{right}z3e;

filldraw stroke z8e..controls z8'e and z7'e..pulled_arc.e(7,6);
filldraw stroke z4e...z4'e...pulled_arc.e(5,6);
x9=x8; bot y9=00; half_ring(9);
penlabels(0,1,2,3,4,5,5',6,7,8,8'); endchar;


iff known eth_He:
cmchar "The letter He";
beginchar(eth_He,14u#,.5[cap_height#,x_height#],0);
adjust_fit(0,0);
if .5w <> good.x .5w :change_width; fi pickup fine.nib;
penpos0(stem,10); penpos1(stem,0); penpos2(stem,0); penpos4'(stem,180);
penpos3(stem,0); penpos3'(stem,-20); penpos5(stem,180); penpos5'(stem,180);
penpos4(stem,180); penpos7'(stem,0); penpos6(vair,90);
penpos7(stem,0); penpos8(stem,0); penpos8'(stem,0);

x0=hround(.5w); x1=x0+.5u; x2=x0-.5u; x3=x0;
rt x8r=hround(w-1u); rt x8'r=hround(x8r-fine); x6=hround(.5w);
rt x7'r=hround(x8r+2fine); rt x7r=hround(x8r+fine);
lft x5r=lft x5'r=hround .5u; x4r=x5r+.25u; x4'r=x5r;

top y0=h; bot y3=bot y8=bot y4=0; y4'=.1h; y2=y3+.1(y0-y3); y1=y3+.9(y0-y3);
y7r=.3h; y6l=.55h; y8'=.75[y7,y8]; y7'=.25[y7,y8];
y5=y6-.35h; y5'r=.5[y5,y4];
filldraw stroke z0e{right}..{down}z1e--z2e{down}..{right}z3e;
x0'=x0l+.45u; y0'=y0+.075h; lft_half_ellipse(0',0);
filldraw stroke z8e..controls z8'e and z7'e..pulled_arc.e(7,6);
filldraw stroke z4e...z4'e...
  pulled_arc.e(5,6);
penlabels(0,1,2,3,4,5,5',6,7,8,8'); endchar;


iff known eth_HO:
cmchar "The letter HO";
beginchar(eth_HO,14u#,.5[cap_height#,x_height#],0);
adjust_fit(0,-.5u#);
if .5w <> good.x .5w :change_width; fi pickup fine.nib;
penpos0(stem,10); penpos1(stem,0); penpos2(stem,0); penpos4'(stem,180);
penpos3(stem,0); penpos3'(stem,-20); penpos5(stem,180); penpos5'(stem,180);
penpos4(stem,180); penpos7'(stem,0); penpos6(vair,90);
penpos7(stem,0); penpos8(stem,0); penpos8'(stem,0);

x0=hround(.5w); x1=x0+.5u; x2=x0-.5u; x3=x0;
rt x8r=hround(w-1u); rt x8'r=hround(x8r-fine); x6=hround(.5w);
rt x7'r=hround(x8r+2fine); rt x7r=hround(x8r+fine);
lft x5r=lft x5'r=hround .5u; x4r=x5r+.25u; x4'r=x5r;

top y0=h; bot y3=.275h; bot y4=0; y8=.275h; 
y4'=.1h; y2=y3+.1(y0-y3); y1=y3+.9(y0-y3);
y7r=.35h; y6l=.55h; y8'=y8+.25(y7-y8); y7'=y7-.25(y7-y8);
y5=y6-.35h; y5'r=.5[y5,y4];
filldraw stroke z0e{right}..{down}z1e--z2e{down}..{right}z3e;

filldraw stroke z8e..controls z8'e and z7'e..pulled_arc.e(7,6);
filldraw stroke z4e...z4'e...
  pulled_arc.e(5,6);
penlabels(0,1,2,3,4,5,5',6,7,8,8'); endchar;


iff known eth_HuA:
cmchar "The letter HuA";
beginchar(eth_HuA,14u#,.5[cap_height#,x_height#],0);
adjust_fit(0,3.5u#);
if .5w <> good.x .5w :change_width; fi pickup fine.nib;
penpos0(stem,10); penpos1(stem,0); penpos2(stem,0); penpos4'(stem,180);
penpos3(stem,0); penpos3'(stem,-20); penpos5(stem,180); penpos5'(stem,180);
penpos4(stem,180); penpos7'(stem,0); penpos6(vair,90);
penpos7(stem,0); penpos8(stem,0); penpos8'(stem,0);

x0=hround(.5w); x1=x0+.5u; x2=x0-.5u; x3=x0;
rt x8r=hround(w-1u); rt x8'r=hround(x8r-fine); x6=hround(.5w);
rt x7'r=hround(x8r+2fine); rt x7r=hround(x8r+fine);
lft x5r=lft x5'r=hround .5u; x4r=x5r+.25u; x4'r=x5r;

top y0=h; bot y3=.25h; bot y8=00; y4=.225h; y4'=.3h;
y2=y3+.1(y0-y3); y1=y3+.9(y0-y3);
y7r=.3h; y6l=.55h; y8'=.75[y7,y8]; y7'=.25[y7,y8];
y5=y6-.25h; y5'r=.5[y5,y4];
filldraw stroke z0e{right}..{down}z1e--z2e{down}..{right}z3e;

filldraw stroke z8e..controls z8'e and z7'e..pulled_arc.e(7,6);
filldraw stroke z4e...z4'e...pulled_arc.e(5,6);

x20=x8'l; x21=x8'r; y20=y21=y8; lft_wing(20,1.5u,.015h); 
rt_wing(21,1.5u,.015h);
penlabels(0,1,2,3,4,5,5',6,7,8,8'); endchar;