home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1998 June A / Pcwk6A98.iso / Wtestowe / Descad97 / DEMO30 / MACROS.Z / CIRC.d3m < prev    next >
Encoding:
Text File  |  1997-04-15  |  333 b   |  25 lines
  1. 'draws a circle of radius 10
  2.  
  3. 'prompt user for circle's center
  4.  
  5. Setpoint "Set a point for the center of the circle" 1
  6. Pointval x y z 1
  7.  
  8. rad=10
  9.  
  10. 'start drawing the circle
  11. sys(36) = 1
  12. >line
  13. {
  14.     <color 255,0,0
  15.  
  16.     for i = 0 to 360 step 5
  17.         <pointxyz [x+rad*cos(i), y+rad*sin(i), z]
  18.     next i
  19. }
  20. end
  21.  
  22.  
  23.  
  24.  
  25.