tPC - 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
       ---
       tPC (477B)
       ---
            1 %
            2 % UMDS pencil - needs to be cleaned up.
            3 %
            4 
            5 /build_PC {
            6     pop
            7     gsave
            8         currentpoint translate
            9         1 scaling div ptsize 10 div mul dup scale
           10         newpath
           11         0 setlinecap
           12         1 setlinejoin
           13         2 setlinewidth
           14         0 1 moveto 12 0 rlineto stroke
           15         0 5 moveto 12 0 rlineto stroke
           16         0 9 moveto 12 0 rlineto stroke
           17         1 setlinewidth
           18         12 .5 moveto 21.27362 5 lineto 12 9.5 lineto stroke
           19         21.27362 5 moveto
           20         .4 9.27362 mul neg .4 4 mul rlineto
           21         0 .8 4 mul neg rlineto
           22         closepath fill
           23     grestore
           24 } def
           25