beginchar("h",.3em#,3cap#/7,0dth#); "eta"; 
picture eta;
path p[];
 save ww,hh;

 ww = w/3; hh = h/3; 
 b := .3ww;

x5 = x1 = x2 = 3ww - x3 = .6ww;
x6 = x4 = x3;
x0 = .5[x1,x3];
y1 = y3 = 3hh - y2 = .3hh;
y4 = y2;
y5 = y6 = y0 = .5[y1,y2];
z7 = (2.5ww,.5[y4,y6]);
z8 = (2.5ww,.5[y3,y6]);
z9 = z6;


penpos1(2b,0);
penpos2(2b,0);
penpos3(3b,0);
penpos4(b,0);
penpos0(2b,90);
penpos5(2b,90);
penpos6(1.2b,0);
penpos7(b,0);
penpos8(2.5b,0);
penpos9(2b,90);

penstroke z5e..z0e..z9e;
penstroke z1e..z2e;
penstroke z4e{right}..z7e..z6e..z8e..{left}z3e;

eta = currentpicture;
endchar;