Return to DG CVS log

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

Annotation of researchv10no/cmd/post.src/devpost/charlib/DG, revision 1.1.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.