home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 063.lha / PostScript / grid < prev    next >
Encoding:
Text File  |  1986-11-20  |  454 b   |  44 lines
  1.  
  2.  
  3. /b {-10 -10  moveto
  4.     -10  10  lineto
  5.      10  10  lineto
  6.      10 -10  lineto
  7.     -10 -10  lineto
  8. } def
  9.  
  10.  
  11.  
  12. /spiral {
  13.     save
  14.     currentpoint translate
  15.     5 5 scale
  16.     25 { b
  17.          stroke
  18.          5 rotate
  19.          0.9 0.9 scale
  20.     } repeat
  21.     restore
  22. } def
  23.  
  24.  
  25. /row {
  26.     save
  27.     5 {
  28.         spiral
  29.         100 0 rmoveto
  30.     } repeat
  31.     restore
  32. } def
  33.  
  34. /grid {
  35.     5 {
  36.         row
  37.         0 100 rmoveto
  38.     } repeat
  39. } def
  40.  
  41. 50 50 moveto
  42. grid
  43.  
  44.