Return to rf CVS log

Up to [Research Unix] / researchv10no / cmd / post.src / devopost / charlib

Annotation of researchv10no/cmd/post.src/devopost/charlib/rf, revision 1.1

1.1     ! root        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

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.