diff options
author | rsc <devnull@localhost> | 2004-05-15 23:45:13 +0000 |
---|---|---|
committer | rsc <devnull@localhost> | 2004-05-15 23:45:13 +0000 |
commit | 13f7391e4a38634221f4a63da9f58f58473e77b0 (patch) | |
tree | 65b538843c8fbfbb5000de18ad6145ce82531781 /troff/font/devutf/charlib/DG | |
parent | 36a9115fcbe8ddb0baacc07f8c33add9a9f7b307 (diff) | |
download | plan9port-13f7391e4a38634221f4a63da9f58f58473e77b0.tar.gz plan9port-13f7391e4a38634221f4a63da9f58f58473e77b0.tar.bz2 plan9port-13f7391e4a38634221f4a63da9f58f58473e77b0.zip |
More files!
Diffstat (limited to 'troff/font/devutf/charlib/DG')
-rw-r--r-- | troff/font/devutf/charlib/DG | 27 |
1 files changed, 27 insertions, 0 deletions
diff --git a/troff/font/devutf/charlib/DG b/troff/font/devutf/charlib/DG new file mode 100644 index 00000000..bc500212 --- /dev/null +++ b/troff/font/devutf/charlib/DG @@ -0,0 +1,27 @@ +% +% 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 + |