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

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

 z0 = 5(ww,hh);
 x1 = x2 = 10ww - hide(x4 = x3)x3 = ww;
 y1 = y3 = 10hh - hide(y4 = y2)y2 = hh;
 p1 = z1{right}..z0..{right}z4;
 p2 = z2{right}..z0..{right}z3;
 z5 = point .6 of p1;
 z6 = point 1.4 of p1;
 z7 = point .6 of p2;
 z8 = point 1.4 of p2;
 z9 = z0;
 z10 = (x1,y5);
 z11 = (x1,y7);
 z12 = (x3,y8);
 z13 = (x3,y6);

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

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

 endchar;