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 |