| 123456789101112131415161718192021222324252627282930313233343536 |
- %
- % This stuff has gotten terribly complicated - sorry.
- %
- currentdict /bvbbox known not {/bvbbox [0 0 0 0 0 0 0] def} if
- /build_rc {
- pop
- gsave
- currentpoint translate newpath
- bvbbox 6 get size ne {
- gsave
- initgraphics
- scaling scaling scale
- 0 0 moveto
- (\357) false charpath flattenpath pathbbox 0 0 size bvbbox astore pop
- 0 1 idtransform dup mul exch dup mul add sqrt dup
- bvbbox 1 get add bvbbox 1 3 -1 roll put
- bvbbox 3 get exch sub bvbbox 3 3 -1 roll put
- bvbbox 2 get bvbbox 0 get sub bvbbox 4 3 -1 roll put
- bvbbox 2 get bvbbox 0 get add 2 div bvbbox 5 3 -1 roll put
- grestore
- } if
- bvbbox 2 get bvbbox 1 get moveto
- bvbbox 2 get bvbbox 3 get lineto
- bvbbox 5 get bvbbox 4 get 8 mul sub dup bvbbox 3 get lineto
- bvbbox 1 get lineto closepath clip newpath
- 0 0 moveto (\357) show
- bvbbox 5 get bvbbox 3 get moveto
- bvbbox 4 get dup dup
- 8 mul neg 0 rlineto
- 0 exch neg rlineto
- 8 mul 0 rlineto
- closepath clip eofill
- grestore
- } def
|
