tDG - plan9port - [fork] Plan 9 from user space
HTML git clone git://src.adamsgaard.dk/plan9port
DIR Log
DIR Files
DIR Refs
DIR README
DIR LICENSE
---
tDG (553B)
---
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