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;