plot.bmx 250 B

1234567891011121314151617
  1. ' plot.bmx
  2. ' plots a cosine graph
  3. ' scrolls along the graph using an incrementing frame variable
  4. Graphics 640,480
  5. While Not KeyHit(KEY_ESCAPE)
  6. Cls
  7. For x=0 To 640
  8. theta=x+frame
  9. y=240-Cos(theta)*240
  10. Plot x,y
  11. Next
  12. frame=frame+1
  13. Flip
  14. Wend