2
0

plot.bmx 317 B

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