home *** CD-ROM | disk | FTP | other *** search
/ Otherware / Otherware_1_SB_Development.iso / mac / util / print / draw2ps.pit / PostScript from Mac.pit / PostScript from Mac.rsrc / STR#_1009.txt < prev    next >
Encoding:
Text File  |  1987-05-20  |  177 b   |  7 lines
  1. /upy {newpath moveto /aa xd /j 0 def /k 1 def aa length 2 idiv 
  2.  
  3.   {aa j get aa k get rlineto /j j 2 add def /k k 2 add def}
  4.  
  5.   repeat 0 ne {closepath} if dofill dostroke} def
  6.  
  7.