Subversion Repositories planix.SVN

%
% This stuff has gotten terribly complicated - sorry.
%

currentdict /bvbbox known not {/bvbbox [0 0 0 0 0 0 0] def} if

/build_lc {
    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 0 get bvbbox 1 get moveto
        bvbbox 0 get bvbbox 3 get lineto
        bvbbox 5 get bvbbox 4 get 8 mul add 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 0 rlineto
        0 exch neg rlineto
        8 mul neg 0 rlineto
        closepath clip eofill
    grestore
} def