 |
DG - 9base - revived minimalist port of Plan 9 userland to Unix |
 |
git clone git://git.suckless.org/9base |
 |
Log |
|
Files |
|
Refs |
|
README |
|
LICENSE |
|
--- |
|
DG (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 |
