Return to lc CVS log

Up to [Research Unix] / researchv10no / cmd / postscript / devLatin1 / charlib

Annotation of researchv10no/cmd/postscript/devLatin1/charlib/lc, revision 1.1.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_lc {
                      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 0 get bvbbox 1 get moveto
                     25:        bvbbox 0 get bvbbox 3 get lineto
                     26:        bvbbox 5 get bvbbox 4 get 8 mul add dup bvbbox 3 get lineto
                     27:        bvbbox 1 get lineto closepath clip newpath
                     28:        0 0 moveto (\357) show
                     29:        bvbbox 5 get bvbbox 3 get moveto
                     30:        bvbbox 4 get dup dup
                     31:        8 mul 0 rlineto
                     32:        0 exch neg rlineto
                     33:        8 mul neg 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.