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