home *** CD-ROM | disk | FTP | other *** search
/ PC Shareware 1997 June / PC_Shareware-1997-06.iso / programy / breeze / programs.z / GRID.MAC < prev    next >
Encoding:
Text File  |  1995-10-23  |  802 b   |  47 lines
  1. '
  2. ' Create a grid using cylinders
  3. ' Breeze Designer Macro
  4. ' Written by Neville Richards
  5. '
  6. GridSize = 4
  7. GridOrientation = 0
  8.  
  9. py = 0.0
  10. pz = 0.0
  11. ph = GridSize/2.0 
  12. px = ph*-1.0
  13.  
  14. new
  15.  
  16. if GridOrientation = 1 then upright
  17.  
  18. for m = 0 to GridSize
  19.     SetCursor( px, pz, py )
  20.     CreateDefaultObject( CYLINDER )
  21.     Scale( 0.1, ph, 0.1 )
  22.     Rotate(  90, 0, 0 )
  23.  
  24.     SetCursor( pz, py, px )
  25.     CreateDefaultObject( CYLINDER )
  26.     Scale( 0.1, ph, 0.1 )
  27.     Rotate(  0, 0, 90 )
  28.  
  29.     px = px+1.0    
  30. next
  31. end
  32.  
  33. :upright
  34.  
  35. for m = 0 to GridSize
  36.     SetCursor( px, py, pz )
  37.     CreateDefaultObject( CYLINDER )
  38.     Scale( 0.1, ph, 0.1 )
  39.  
  40.     SetCursor( py, px, pz )
  41.     CreateDefaultObject( CYLINDER )
  42.     Scale( 0.1, ph, 0.1 )
  43.     Rotate(  0, 0, 90 )
  44.  
  45.     px = px+1.0    
  46. next
  47.