beginchar ("e",.3em#,3cap#/7,0dth#); "epsilon"; picture epsilon; path p[]; save ww,hh; ww = w/3; hh = h/3; b := .2ww; x0 = x2 = x4 = 2.2ww; x1 = x3 = .8ww; y1 = 3hh - y3 = .9hh; y0 = 3hh - y4 = .5hh; y2 = .5[y0,y4]; p0 = z0..{up}z1..{dir290}z2{dir230}..z3{up}..z4; p1 = subpath (1.27,2) of p0; p2 = subpath (2,2.72) of p0; fill p1..p2..cycle; penpos0(4b,300); penpos1(3b,180); penpos2(.1b,0); penpos3(3b,180); penpos4(4b,60); penstroke z0e..{up}z1e..{dir290}z2e{dir230}..z3e{up}..z4e; pickup pencircle scaled 4b; drawdot z0; drawdot z4; epsilon = currentpicture; endchar;