home *** CD-ROM | disk | FTP | other *** search
/ Dimension 64 3 / Dimension_64_Nr.03_19xx_-_de_Side_A.d64 / graphikdemo (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  522b  |  27 lines
  1. 10 (NULL):(NULL):(NULL)
  2. 20 r=(NULL)/180
  3. 30 ay=-30
  4. 40 by=30
  5. 50 z=5
  6. 60 w=10
  7. 70 (NULL) 159+ax,99-ay,159+bx,99-by
  8. 100 get a$
  9. 110 if a$="" then 100
  10. 113 (NULL) 0
  11. 117 (NULL) 159+ax,99-ay,159+bx,99-by
  12. 120 if a$="d" then ax=ax+z:bx=bx+z
  13. 130 if a$="a" then ax=ax-z:bx=bx-z
  14. 140 if a$="w" then ay=ay+z:by=by+z
  15. 150 if a$="x" then ay=ay-z:by=by-z
  16. 160 if a$="e" then t=-w:gosub 400
  17. 170 if a$="q" then t=w:gosub 400
  18. 180 (NULL) 1
  19. 190 (NULL) 159+ax,99-ay,159+bx,99-by
  20. 200 goto 100
  21. 400 a=cos(t*r)*ax-sin(t*r)*ay
  22. 410 b=cos(t*r)*bx-sin(t*r)*by
  23. 420 c=sin(t*r)*ax+cos(t*r)*ay
  24. 430 d=sin(t*r)*bx+cos(t*r)*by
  25. 440 ax=a:bx=b:ay=c:by=d
  26. 450 return
  27.