shithub: riscv

ref: 052abe1cc8dd6403f4983b1b587f14d3eed1fe8c
dir: /sys/lib/troff/font/devutf/charlib/DG/

View raw version
%
% 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