home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / 501-525 / apd525 / circular-bob-plotter.amos / circular-bob-plotter.amosSourceCode < prev    next >
AMOS Source Code  |  1989-08-15  |  1KB  |  47 lines
  1. '
  2. 'Greetz To Sausage,Brian,Paul and Pactronics!! 
  3. '
  4. '            AMOS   RULES !!!!!!!! 
  5. 'Message:
  6. '         G'day Sos. 
  7. '                   Here's the circular bob plotter you asked for!!  
  8. '                   Pretty nifty huh? I put the variables in so you  
  9. '                   can see how it was done and so it's easy to adjust 
  10. '                   the size and position. I hope it's useful!!
  11. '                                See Ya, 
  12. '                                        Happy Amosing,
  13. '                                                       Nigel '91
  14. 'Setup screen etc. 
  15. '
  16. Screen Open 0,320,300,16,Lowres
  17. Screen Display 0,,10,320,300
  18. Hide : Flash Off : Curs Off : Cls 0
  19. Double Buffer : Get Sprite Palette 
  20. '
  21. 'Co-ordinates of centre of circle!!  
  22. XCENTRE=140 : YCENTRE=140
  23. '
  24. 'Radius of circle
  25. '
  26. RADIUS=120
  27. '
  28. 'This variable effects the spacing factor AND the number of bobs used!!  
  29. 'It works best if it divides evenly into RADIUS!! (Try 5!!! It looks cool.)  
  30. '
  31. SPACE=30
  32. '
  33. 'Number of first bob used!!
  34. '
  35. A=0
  36. '
  37. 'Main Program. If you delete all the rem statements it's really small!!
  38. '
  39. For X=-1*RADIUS To RADIUS Step SPACE
  40. Y=Sqr(RADIUS*RADIUS-X*X)
  41. C=Y*-1
  42. Bob A,X+XCENTRE,Y+YCENTRE,3
  43. Inc A
  44. Bob A,X+XCENTRE,C+YCENTRE,3
  45. Inc A
  46. Next X
  47. Wait Key