home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / 451-475 / apd453 / circular-bob-plotter.amos / circular-bob-plotter.amosSourceCode < prev    next >
AMOS Source Code  |  1993-01-08  |  663b  |  24 lines
  1. 'Setup screen etc. 
  2. Screen Open 0,320,300,16,Lowres
  3. Screen Display 0,,10,320,300
  4. Hide : Flash Off : Curs Off : Cls 0
  5. Double Buffer : Get Sprite Palette 
  6. 'Co-ordinates of centre of circle!!  
  7. XCENTRE=140 : YCENTRE=140
  8. 'Radius of circle
  9. RADIUS=120
  10. 'This variable effects the spacing factor AND the number of bobs used!!  
  11. 'It works best if it divides evenly into RADIUS!! (Try 5!!! It looks cool.)  
  12. SPACE=30
  13. 'Number of first bob used!!
  14. A=0
  15. 'Main Program. If you delete all the rem statements it's really small!!
  16. For X=-1*RADIUS To RADIUS Step SPACE
  17. Y=Sqr(RADIUS*RADIUS-X*X)
  18. C=Y*-1
  19. Bob A,X+XCENTRE,Y+YCENTRE,3
  20. Inc A
  21. Bob A,X+XCENTRE,C+YCENTRE,3
  22. Inc A
  23. Next X
  24. Wait Key