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

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

 x0 = x3 = 5ww;
 y0 = 5.5hh; y3 = 7.5hh;
 y2 = y4 = .5hh;
 y1 = y5 = 8hh;
 x1 = 10ww - x5 = ww;
 x2 = 10ww - x4 = 3.5ww;

 p1 = z1{right}..{right}z2{right}..{up}z0..z3;
 p2 = z0{down}..{right}z4{right}..{right}z5;
 z6 = point .5 of p1;
 z7 = point 1.7 of p1;
 z8 = point 1.5 of p2;
 z9 = z0;
 z10 = z7;
 y11 = y12 = .5[y6,y2];
 x11 = 10ww - x12 = .5ww;
 x13 = 10ww - x14 = x2;
 y13 = y14 = y1;

 penpos1(b,90);
 penpos5(b,90);
 penpos2(b,90);
 penpos4(b,90);
 penpos6(1.7b,0);
 penpos3(b,180);
 penpos0(b,180);
 penpos9(b,0);
 penpos7(b,180);
 penpos8(1.7b,180);

 penstroke z1e{right}..{down}z6e..{right}z2e{right}..{up}z7e..{up}z0e..{up}z3e;
 penstroke z9e{down}..{right}z4e{right}..{up}z8e..{right}z5e;
 pickup pencircle scaled b;
 drawdot z1;
 drawdot z5;
 drawdot z3;
 pickup pencircle scaled .4pt;
 draw z2{left}..z11..{up}z14;
 draw z4{right}..z12..{up}z13;
 draw fullcircle scaled .5b shifted (z13);
 draw fullcircle scaled .5b shifted (z14);

 endchar;