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

 ww = w/10; hh = h/5;
 b := ww;
 
 x0 = x1 = 5ww;
 y0 = 0; y1 = 1.5hh;
 x2 = 10ww - x3 = .5ww; 
 y3 = y2 = 8hh;
 z4 = .25[z1,z2];
 z5 = .5[z1,z2];
 z6 = .75[z1,z2];
 z7 = .25[z1,z3];
 z8 = .5[z1,z3];
 z9 = .75[z1,z3];
 z10 = .5[z1,z4];
 z11 = .5[z5,z4];
 z12 = .5[z5,z6];
 z13 = .5[z2,z6];
 z14 = .5[z1,z7];
 z15 = .5[z8,z7];
 z16 = .5[z8,z9];
 z17 = .5[z3,z9];
 z18 = .5[z1,z0];
 z19 = (x2,y0);
 z21 = (x15,y17);
 z20 = (x3,y0);
 z22 = (x11,y17);
 

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

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

endchar;