Advertisement
microwerx

GRAPH2D

Jan 20th, 2023
2,181
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. 5 REM https://youtu.be/DmseupZ7OUE
  2.  
  3. 10 SCREEN 320,200,5
  4. 15 FOR J=1TO20
  5. 19 XO=RND (1)
  6. 20 FOR I=1TO318
  7. 25 TH=1/320*16.26+XO
  8. 30 X=I
  9. 40 Y=SIN(TH)+COS(3*TH+XO)
  10. 45 Y=4*12+12+50
  11. 50 DOT X, Y, MOD (1, 256)
  12. 60 NEXT I
  13. 70 NEXT J
  14. 90 GETKEY A
  15. 100 SCREEN CLOSE
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement