home *** CD-ROM | disk | FTP | other *** search
/ PC Shareware 1997 June / PC_Shareware-1997-06.iso / programy / breeze / programs.z / SHELL.MAC < prev    next >
Encoding:
Text File  |  1995-10-27  |  460 b   |  30 lines
  1. '
  2. ' Create a shell of spheres
  3. ' Breeze Designer Macro
  4. ' Written by Neville Richards
  5. '
  6. radius = 0.1
  7.  
  8. pi     = 3.14159
  9. delphi = pi/6
  10. ps     = 0.2
  11.  
  12. new
  13.  
  14. for m = -6 to 6
  15.  
  16.     phi = m*delphi
  17.     c   = cos(phi)
  18.     s   = sin(phi)
  19.     px  = radius*c
  20.     py  = radius*s
  21.  
  22.     SetCursor( px, py, 0 )
  23.     CreateDefaultObject( SPHERE )
  24.     Scale(  ps, ps, ps )
  25.     SetTexture( "Sandalwood" )
  26.  
  27.     radius = raduis+1.1
  28.     ps     = ps+0.11
  29. next
  30.