home *** CD-ROM | disk | FTP | other *** search
/ PC Shareware 1997 June / PC_Shareware-1997-06.iso / programy / breeze / programs.z / TOWER.MAC < prev    next >
Encoding:
Text File  |  1995-10-23  |  280 b   |  19 lines
  1. '
  2. ' Create a tower of toroids
  3. ' Breeze Designer Macro
  4. ' Written by Neville Richards
  5. '
  6. ps = 1.0
  7. py = 5
  8.  
  9. for i = 0 to 10
  10.  
  11.     SetCursor( 0, py, 0 )
  12.     CreateDefaultObject( SPHERE )
  13.     SetColor "Red"
  14.     Scale( ps, 0.5, ps )
  15.     ps = ps+0.2
  16.     py = py-0.5
  17. next
  18.  
  19.