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;