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#_2032.txt < prev    next >
Encoding:
Text File  |  1987-05-20  |  296 b   |  11 lines
  1. /SetFill32 {/dofill {gsave 1 setgray eofill grestore
  2.  
  3.   gsave eoclip pathbbox newpath /dx 4 def 1 setlinewidth
  4.  
  5.   /yy xd currentlinewidth add /xx xd /y xd dx idiv /x xd /dy yy y sub def
  6.  
  7.   {x dx mul dup xx gt {exit} if y moveto 0 dy rlineto stroke /x x 1 add def}
  8.  
  9.   loop pop grestore} def} def
  10.  
  11.