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

 ww = w/10; hh = h/5;
 b := ww;
 
 y0 = y7 = y3 = y6 = y8 = 9hh;
 x1 = x2 = x3 = x9 = x11;
 x4 = x5 = x6 = x10 = x12;
 x1 = 10ww - x4 = ww;
 y1 = y4 = 0; x0 = 5ww;
 y2 = y5 = .25[y1,y3];
 y9 = y10 = .5[y1,y3];
 y11 = y12 = .75[y1,y3];
 x7 = 10ww - x8 = -.5ww;
 z13 = z3;
 z14 = z6;
 z16 = z0;
 x15 = x0; y15 = .75[y0,y11];
 z17 = .5[z3,z0];
 z18 = .5[z6,z0];
 y19 = y20 = y1;
 x19 = x21 = x17;
 y21 = y22 = y11;
 x20 = x22 = x18;
 z23 = .5[z9,z10];

 penpos1(2b,0);
 penpos2(.6b,0);
 penpos9(1.7b,0);
 penpos11(.6b,0);
 penpos3(b,0);
 penpos6(b,0);
 penpos12(.6b,0);
 penpos10(1.7b,0);
 penpos5(.6b,0);
 penpos4(2b,0);
 penpos7(b,90);
 penpos13(b,90);
 penpos0(b,90);
 penpos14(b,90);
 penpos8(b,90);
 penpos15(.1b,0);
 penpos16(2b,0);
 penpos17(.6b,90);
 penpos18(.6b,90);

 penstroke z1e..z2e..z9e..z11e..z3e;
 penstroke z4e..z5e..z10e..z12e..z6e;
 penstroke z7e..z13e..z17e..z0e..z18e..z14e..z8e;
 penstroke z15e..z16e;
 pickup pencircle scaled .4pt;
 draw z19{up}..z23..{right}z22;
 draw z20{up}..z23..{left}z21;
 draw fullcircle scaled .5b shifted (z22);
 draw fullcircle scaled .5b shifted (z21);
 pickup pencircle scaled b;
 drawdot z7;
 drawdot z8;

endchar;