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