Subversion Repositories planix.SVN

%
% UMDS danger sign - needs to be cleaned up!
%

/build_DG {
    /x0 1.5 6 div 72 mul def    % triangle length
    pop
    gsave
        currentpoint translate
        1 scaling div ptsize 10 div mul dup scale
        2 setlinewidth
        0 setlinecap
        newpath
        0 0 moveto
        x0 0 lineto
        x0 2 div x0 3 sqrt 2 div mul lineto
        closepath fill
        1 setgray
        /Helvetica-Bold findfont 12 scalefont setfont
        0 0 moveto
        (!) false charpath pathbbox
        exch 4 -1 roll add 2 div x0 2 div exch sub 0 moveto
        exch sub x0 3 sqrt 2 div mul exch sub 3 div 0 exch rmoveto
        (!) show
    grestore
} def