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