beginchar("H",em#,5cap#/7,0dth#); "Eta";
path p[];
 save ww,hh,dd;

 ww = w/10; hh = h/5;
 b := ww;
 

 y3 = y6 = 9hh;
 x1 = x2 = x3 = x9 = x11;
 x4 = x5 = x6 = x10 = x12;
 x1 = 10ww - x4 = ww;
 y1 = y4 = 0; x0 = 5ww;
 y2 = y5 = .25[y1,y3];
 y0 = y9 = y10 = .5[y1,y3];
 y11 = y12 = .75[y1,y3];
 z13 = z9;
 z14 = z10;
 z16 = z0;
 x24 = x15 = x0; 
 y15 = .75[y0,y11]; y24 = .75[y0,y5];
 z17 = .5[z9,z0];
 z18 = .5[z10,z0];
 y21 = y22 = .75[y11,y3];
 x22 = x18; x21 = x17;
 z23 = .5[z9,z10];

 penpos1(2b,0);
 penpos2(.6b,0);
 penpos9(1.7b,0);
 penpos11(.6b,0);
 penpos3(b,0);
 penpos6(b,0);
 penpos12(.6b,0);
 penpos10(1.7b,0);
 penpos5(.6b,0);
 penpos4(2b,0);
 penpos7(b,90);
 penpos13(b,90);
 penpos0(b,90);
 penpos14(b,90);
 penpos8(b,90);
 penpos15(.1b,0);
 penpos24(.1b,0);
 penpos16(2b,0);
 penpos17(.6b,90);
 penpos18(.6b,90);

 penstroke z1e..z2e..z9e..z11e..z3e;
 penstroke z4e..z5e..z10e..z12e..z6e;
 penstroke z13e..z17e..z0e..z18e..z14e;
 penstroke z15e..z16e;
 penstroke z24e..z16e;
 pickup pencircle scaled .4pt;
 draw z2{right}..{up}z17..{right}z22;
 draw z5{left}..{up}z18..{left}z21;
 draw fullcircle scaled .5b shifted (z22);
 draw fullcircle scaled .5b shifted (z21);
 pickup pencircle scaled b;
 drawdot z3;
 drawdot z6;

endchar;