home *** CD-ROM | disk | FTP | other *** search
/ PC Shareware 1997 June / PC_Shareware-1997-06.iso / programy / breeze / programs.z / CIRCLE2.MAC < prev    next >
Encoding:
Text File  |  1995-10-23  |  352 b   |  24 lines
  1. '
  2. ' Create a circle of cones
  3. ' Breeze Designer Macro
  4. ' Written by Neville Richards
  5. '
  6. radius = 5
  7.  
  8. pi     = 3.14159
  9. delphi = pi/6
  10.  
  11. for m = -6 to 6
  12.  
  13.     phi = m*delphi
  14.     c   = cos(phi)
  15.     s   = sin(phi)
  16.     px  = radius*c
  17.     py  = radius*s
  18.  
  19.     SetCursor( px, py, 0 )
  20.     CreateDefaultObject( CONE )
  21.     Rotate( 90, 0, 0)
  22.  
  23. next
  24.