beginchar("w",.5em#,4cap#/7,0dth#); "omega"; picture wmega; pair intert; path p[]; save ww,hh; ww = w/5; hh = h/4; b := .2ww; y0 = y6 = 3hh; y2 = y4 = .1hh; y1 = y5 = 1.5hh; x1 = 5ww - x5 = .3ww; x0 = 1.5ww; x6 = 3ww; x2 = 5ww - x4 = 1.3ww; x3 = .5[x1,x5]; y3 = .3[y1,y0]; p0 = z0{left}..z1{down}..{right}z2..{dir130}z3{dir230}..z4{right}.. z5{up}..{left}z6; p1 = subpath (2,3) of p0; p2 = subpath (3,4) of p0; intert = p1 intersectiontimes p2; p3 = subpath (2+xpart(intert),3) of p0; p4 = subpath (3,3+ypart(intert)) of p0; fill p3..p4..cycle; penpos0(3b,90); penpos1(2b,180); penpos2(2b,270); penpos3(b,90); penpos4(2b,270); penpos5(2b,0); penpos6(3b,90); penstroke z0e{left}..z1e{down}..{right}z2e..{dir130}z3e{dir230}.. z4e{right}..z5e{up}..{left}z6e; pickup pencircle scaled 3b; drawdot z0; drawdot z6; wmega = currentpicture; endchar;