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#_1005.txt < prev    next >
Encoding:
Text File  |  1987-05-20  |  341 b   |  13 lines
  1. /rr {/y xd /x xd /dy xd /dx xd x dx add /xx xd y dy add /yy xd
  2.  
  3.   dx dy lt {dx} {dy} ifelse 2 div /ds xd ds rad gt {rad /ds xd} if
  4.  
  5.   newpath x ds add y moveto xx y xx y ds add a2
  6.  
  7.   xx yy xx ds sub yy a2 x yy x yy ds sub a2
  8.  
  9.   x y x ds add y a2 closepath dofill dostroke} def
  10.  
  11. /a2 {ds 0 eq {lineto 2} {ds arcto 4} ifelse {pop} repeat} def
  12.  
  13.