9base

revived minimalist port of Plan 9 userland to Unix
git clone git://git.suckless.org/9base
Log | Files | Refs | README | LICENSE

_r_c (974B)


      1 %
      2 % This stuff has gotten terribly complicated - sorry.
      3 %
      4 
      5 currentdict /bvbbox known not {/bvbbox [0 0 0 0 0 0 0] def} if
      6 
      7 /build_rc {
      8     pop
      9     gsave
     10 	currentpoint translate newpath
     11 	bvbbox 6 get size ne {
     12 	    gsave
     13 		initgraphics
     14 		scaling scaling scale
     15 		0 0 moveto
     16 		(\357) false charpath flattenpath pathbbox 0 0 size bvbbox astore pop
     17 		0 1 idtransform dup mul exch dup mul add sqrt dup
     18 		bvbbox 1 get add bvbbox 1 3 -1 roll put
     19 		bvbbox 3 get exch sub bvbbox 3 3 -1 roll put
     20 		bvbbox 2 get bvbbox 0 get sub bvbbox 4 3 -1 roll put
     21 		bvbbox 2 get bvbbox 0 get add 2 div bvbbox 5 3 -1 roll put
     22 	    grestore
     23 	} if
     24 	bvbbox 2 get bvbbox 1 get moveto
     25 	bvbbox 2 get bvbbox 3 get lineto
     26 	bvbbox 5 get bvbbox 4 get 8 mul sub dup bvbbox 3 get lineto
     27 	bvbbox 1 get lineto closepath clip newpath
     28 	0 0 moveto (\357) show
     29 	bvbbox 5 get bvbbox 3 get moveto
     30 	bvbbox 4 get dup dup
     31 	8 mul neg 0 rlineto
     32 	0 exch neg rlineto
     33 	8 mul 0 rlineto
     34 	closepath clip eofill
     35     grestore
     36 } def