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