t_r_c - plan9port - [fork] Plan 9 from user space
 (HTM) git clone git://src.adamsgaard.dk/plan9port
 (DIR) Log
 (DIR) Files
 (DIR) Refs
 (DIR) README
 (DIR) LICENSE
       ---
       t_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