home *** CD-ROM | disk | FTP | other *** search
/ Nebula 1994 June / NEBULA_SE.ISO / SourceCode / Tutorial / Cookbook / 28.Motion / paddle.yap < prev    next >
Encoding:
Text File  |  1993-01-19  |  125 b   |  13 lines
  1. /square
  2. { newpath
  3. 0 0 moveto
  4. 90 0 lineto
  5. 0 20 rlineto
  6. -90 0 rlineto
  7. closepath fill
  8. } def
  9.  
  10.  -20 rotate
  11. 30 70 translate
  12. square
  13.