ffmchar("nine",11,ht#,0); italcorr .7ht#*slant; x1=.5[x2,x4]+noise; x2=good.x(1.5u+s+noise); x3=.5[x2,x4]+noise; w-x4=good.x(2u+s+noise); x5=.618[x4,x2]+noise; x6=leftstemloc+noise; top y1=h+o+noise; y2=.5[y1,y3]+noise; y4=.5[y1,y3]+noise; bot y5=noise-o; y3=barheight+noise; z6=z5+whatever*randrt; pair randir; randir:=randup; draw full(z1,-randrt,z2,-randup,z3,randrt,z4,randir); draw arc(z4,-randir,z5,z6-z5) & z5--z6; labels(1,2,3,4,5,6); endchar;