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;