home *** CD-ROM | disk | FTP | other *** search
/ PC Shareware 1997 June / PC_Shareware-1997-06.iso / programy / breeze / programs.z / STACK.MAC < prev    next >
Encoding:
Text File  |  1995-10-23  |  426 b   |  23 lines
  1. '
  2. ' Create a stack of cylinders
  3. ' Breeze Designer Macro
  4. ' Written by Neville Richards
  5. '
  6. New
  7.  
  8. for i = 0 to 4
  9.     for j = 0 to i
  10.  
  11.         SetCursor( j, i*-1, 0 )
  12.         CreateDefaultObject( CYLINDER )
  13.         Scale( 0.5, 2, 0.5 )
  14.         Rotate( 90, 0, 0 )
  15.  
  16.         SetCursor( j*-1, i*-1, 0 )
  17.         CreateDefaultObject( CYLINDER )
  18.         Scale( 0.5, 2, 0.5 )
  19.         Rotate( 90, 0, 0 )
  20.     next 
  21. next
  22.  
  23.