Introduction
Introduction Statistics Contact Development Disclaimer Help
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
You are viewing proxied material from suckless.org. The copyright of proxied material belongs to its original authors. Any comments or complaints in relation to proxied material should be directed to the original authors of the content concerned. Please see the disclaimer for more details.