beginchar("R",em#,5cap#/7,0dth#); "Rho"; path p[]; save ww,hh,dd; ww = w/10; hh = h/5; b := ww; y3 = 9hh; x0 = x1 = x2 = x3 = x4 = 2ww; y1 = 0; y2 = .25[y1,y3]; y0 = .5[y1,y3]; y4 = .75[y1,y3]; x5 = x6 = 4ww; y5 = .5[y0,y4]; y6 = y3 + .5[y1,y2]; y7 = .5[y5,y6]; x7 = 7ww; p10 = z3..z6..z7..z5..z4; z8 = point 1.5 of p10; z9 = point 2.5 of p10; z10 = z3; z11 = z4; z12 = (x5,y2); z13 = (x9,y2); penpos1(2b,0); penpos2(.6b,0); penpos0(1.7b,0); penpos3(b,0); penpos4(.6b,0); penpos6(1.2b,90); penpos8(.6b,angle(z7-z6)+90); penpos7(1.2b,0); penpos9(.6b,angle(z7-z5)-90); penpos5(1.2b,270); penpos10(b,angle(z6-z10)+90); penpos11(b,angle(z5-z11)-90); penstroke z1e..z2e..z0e..z4e..z3e; penstroke z10e..z6e..z8e..z7e..z9e..z5e..z11e; pickup pencircle scaled .4pt; draw z4..controls z8..z9..z12; draw z7..controls z3..z5..z13; draw fullcircle scaled .5b shifted (z12); draw fullcircle scaled .5b shifted (z13); pickup pencircle scaled b; drawdot z3; endchar;