_r_f (970B)
1 % 2 % This stuff has gotten terribly complicated - sorry. 3 % 4 5 currentdict /bvbbox known not {/bvbbox [0 0 0 0 0 0 0] def} if 6 7 /build_rf { 8 pop 9 gsave 10 currentpoint translate newpath 11 bvbbox 6 get size ne { 12 gsave 13 initgraphics 14 scaling scaling scale 15 0 0 moveto 16 (\357) false charpath flattenpath pathbbox 0 0 size bvbbox astore pop 17 0 1 idtransform dup mul exch dup mul add sqrt dup 18 bvbbox 1 get add bvbbox 1 3 -1 roll put 19 bvbbox 3 get exch sub bvbbox 3 3 -1 roll put 20 bvbbox 2 get bvbbox 0 get sub bvbbox 4 3 -1 roll put 21 bvbbox 2 get bvbbox 0 get add 2 div bvbbox 5 3 -1 roll put 22 grestore 23 } if 24 bvbbox 2 get bvbbox 1 get moveto 25 bvbbox 2 get bvbbox 3 get lineto 26 bvbbox 5 get bvbbox 4 get 8 mul sub dup bvbbox 3 get lineto 27 bvbbox 1 get lineto closepath clip newpath 28 0 0 moveto (\357) show 29 bvbbox 5 get bvbbox 1 get moveto 30 bvbbox 4 get dup dup 31 8 mul neg 0 rlineto 32 0 exch rlineto 33 8 mul 0 rlineto 34 closepath clip eofill 35 grestore 36 } def