beginchar("u",.5em#,4cap#/7,.5dth#); "psi"; path p[]; save ww,hh,dd,phdr; ww = w/5; hh = h/4; dd = d/1; b := .2ww; x0 = 5ww - x3 = .2ww; x1 = .1[x0,x3]; x4 = .5[x1,x3]; x2 = .55[x1,x3]; x5 = .6[x1,x3]; y3 = y0 = 1.5hh; y1 = 2hh; y2 = 0; y4 = 3hh; y5 = -.8dd; z6 = z2; p0 = z0{up}..{right}z1..{right}z2..{up}z3; z7 = point 1.2 of p0; phdr = angle direction 1.2 of p0; penpos0(1.5b,0); penpos1(b,270); penpos7(2.3b,phdr-90); penpos2(2.3b,270); penpos3(2b,0); penpos4(3b,0); penpos6(2b,0); penpos5(2b,0); penstroke z0e{up}..{right}z1e..z7e..{right}z2e..{up}z3e; penstroke z4e{down}..z6e{down}..z5e; pickup pencircle scaled 3b; drawdot z4; pickup pencircle scaled 1.5b; drawdot z0; pickup pencircle scaled 2b; drawdot z5; drawdot z3; endchar;