Return to DG CVS log

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

Annotation of researchv10no/cmd/postscript/devpost/charlib/DG, revision 1.1

1.1     ! root        1: %
        !             2: % UMDS danger sign - needs to be cleaned up!
        !             3: %
        !             4: 
        !             5: /build_DG {
        !             6:     /x0 1.5 6 div 72 mul def   % triangle length
        !             7:     pop
        !             8:     gsave
        !             9:        currentpoint translate
        !            10:        1 scaling div ptsize 10 div mul dup scale
        !            11:        2 setlinewidth
        !            12:        0 setlinecap
        !            13:        newpath
        !            14:        0 0 moveto
        !            15:        x0 0 lineto
        !            16:        x0 2 div x0 3 sqrt 2 div mul lineto
        !            17:        closepath fill
        !            18:        1 setgray
        !            19:        /Helvetica-Bold findfont 12 scalefont setfont
        !            20:        0 0 moveto
        !            21:        (!) false charpath pathbbox
        !            22:        exch 4 -1 roll add 2 div x0 2 div exch sub 0 moveto
        !            23:        exch sub x0 3 sqrt 2 div mul exch sub 3 div 0 exch rmoveto
        !            24:        (!) show
        !            25:     grestore
        !            26: } def
        !            27: 

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