beginchar("y",.2em#,2cap#/7,0dth#); "upsilon"; 
picture ypsilon;
path p[];
numeric phi[];
 save ww,hh;

 ww = w/2; hh = h/2;
 b := .2ww;

 y2 = y1 = 1.6hh; 
 x1 = 2ww - x2 = .3ww;
 x3 = .5[x1,x2]; y3 = .1hh;

 p0 = z1{down}..z3{right}..{up}z2;
 z4 = point 0.8 of p0;
 phi1 = angle direction .8 of p0;
 z5 = point 1.6 of p0;
 phi2 = angle direction 1.6 of p0;
 
 penpos1(1.5b,0);
 penpos4(2.5b,phi1+90);
 penpos3(b,90);
 penpos5(2.5b,phi2+90);
 penpos2(2b,180);
 penstroke z1e{down}..z4e..z3e{right}..z5e..{up}z2e;

 pickup pencircle scaled 3b;
 drawdot z1;
 pickup pencircle scaled 2b;
 drawdot z2;

ypsilon = currentpicture;
endchar;