home *** CD-ROM | disk | FTP | other *** search
/ EDUCORP 8 / Educorp2Compilation.sit / educorp2 / Demos / PEGASYS II Demo / Macros / Spiral < prev    next >
Encoding:
Text File  |  1988-08-04  |  637 b   |  21 lines
  1. {    Macro "Spiral"
  2. {    This Macro will make a specified number of 
  3. {    Scaled and Rotated copies of the object you pick
  4.  
  5. Prompt `How Many Copies?` #Copies Number
  6. Prompt `Enter Incremental Scale:` #Scale Number
  7. Prompt `Enter Rotation Angle:` #Angle Number
  8. Prompt `Pick the Pivot Point.` #PPoint Coordinate
  9. Prompt `Pick the Object.` #OPoint Coordinate
  10.  
  11.         Copy [,,,|,,,|;]
  12.         Transform Scale=#Scale Angle=#Angle Pivot=Point [#PPoint|,,,`-`|;]
  13.         #Copies = #Copies - 1
  14. Again:    Copy [,,,`-`|,,,`-`|;]
  15.         Transform Scale=#Scale Angle=#Angle Pivot=Point [#PPoint|,,,`-`|;]
  16.         #Copies = #Copies - 1
  17.         If (#Copies > 0), Goto Again:
  18.         Window Refresh
  19.  
  20. Return
  21.