picture foo.titl, foo.pict; foo.titl = classTitle("foo"); foo.pict = nullpicture; margin := bboxmargin; bboxmargin := 0; addto foo.pict contour (((0,1)..(1,0)..(0,-1)..(-1,0)..cycle) xscaled ((xpart lrcorner bbox foo.titl - xpart llcorner bbox foo.titl)/1.6) yscaled ((ypart urcorner bbox foo.titl - ypart lrcorner bbox foo.titl)/1.6) shifted ((xpart lrcorner bbox foo.titl - xpart llcorner bbox foo.titl)/2, (ypart urcorner bbox foo.titl - ypart lrcorner bbox foo.titl)/4) withcolor (0.4, 1, 0.4)); addto foo.pict also foo.titl; bboxmargin := margin; setbounds foo.pict to bbox foo.pict; picmeasurements(foo);