---
_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 |