beginchar("r",.2em#,4cap#/7,.5dth#); "rho"; picture ro; path p[]; save ww,hh,dd; ww = w/2; hh = h/4; dd = d/1; b := .2ww; x1 = x2 = x6 = .25ww; x0 = 0; y0 = -.9dd; y2 = .3hh; y1 = 2hh; y4 = .5[y1,y2]; x4 = 1.7ww; y6 = -.7dd; x3 = x5 = ww; y5 = 0; y3 = 2.2hh; p0 = z0{right}..z6{up}..z2{up}..{up}z1..{right}z3..{down}z4..{left}z5..{up}z2; pickup pencircle scaled 2b; draw p0; ro = currentpicture; endchar;