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