beginchar("t",.2em#,2cap#/7,0dth#); "tau"; 
picture taf;
path p[];
 save ww,hh;

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

 x0 = ww; x3 = 1.1ww;
 y3 = .1hh; y0 = 1.55hh;
 y4 = 1.6hh; y2 = 1.5hh;
 y1 = 1.2hh; x4 = .3ww;
 x1 = 2ww - x2 = .1ww;
 z5 = (x0,.2hh);

 p0 = z1{up}..z4{z0-z4}..z0{z2-z0}..{z2-z0}z2;
 p1 = z0{down}..{down}z5..{right}z3;

 pickup pencircle scaled 2b;
 draw p0;
 pickup pencircle scaled 2.5b;
 draw p1;
 drawdot z5;
 pickup pencircle scaled 3b;
 drawdot z3;

taf = currentpicture;
endchar;