Return to PC CVS log

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

Annotation of researchv10no/cmd/postscript/devLatin1/charlib/PC, revision 1.1.1.1

1.1       root        1: %
                      2: % UMDS pencil - needs to be cleaned up.
                      3: %
                      4: 
                      5: /build_PC {
                      6:     pop
                      7:     gsave
                      8:        currentpoint translate
                      9:        1 scaling div ptsize 10 div mul dup scale
                     10:        newpath
                     11:        0 setlinecap
                     12:        1 setlinejoin
                     13:        2 setlinewidth
                     14:        0 1 moveto 12 0 rlineto stroke
                     15:        0 5 moveto 12 0 rlineto stroke
                     16:        0 9 moveto 12 0 rlineto stroke
                     17:        1 setlinewidth
                     18:        12 .5 moveto 21.27362 5 lineto 12 9.5 lineto stroke
                     19:        21.27362 5 moveto
                     20:        .4 9.27362 mul neg .4 4 mul rlineto
                     21:        0 .8 4 mul neg rlineto
                     22:        closepath fill
                     23:     grestore
                     24: } def
                     25: 

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