home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1989 March / 64er_Magazin_89-03_1989_Markt__Technik_de_Side_A.d64 / demo4 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  523b  |  25 lines
  1. 10 line=49152
  2. 20 hardcopy=49155
  3. 30 clear=49158
  4. 40 sys clear
  5. 50 a=20:tx=480:ty=1500
  6. 100 for t=90/a to 90 step 90/a
  7. 110 x=cos(t/180*(NULL))* 475
  8. 120 y=sin(t/180*(NULL))*1495
  9. 130 :
  10. 140 sys line,1,tx+x,ty+y,tx-x,ty-y
  11. 150 sys line,1,tx+x,ty-y,tx-x,ty+y
  12. 160 :
  13. 170 sys line,1,tx+x,ty+y,tx-x,ty+y
  14. 180 sys line,1,tx-x,ty+y,tx-x,ty-y
  15. 190 sys line,1,tx-x,ty-y,tx+x,ty-y
  16. 200 sys line,1,tx+x,ty-y,tx+x,ty+y
  17. 210 :
  18. 220 sys line,1,tx+x,ty,tx,ty+y
  19. 230 sys line,1,tx,ty+y,tx-x,ty
  20. 240 sys line,1,tx-x,ty,tx,ty-y
  21. 250 sys line,1,tx,ty-y,tx+x,ty
  22. 260 :
  23. 270 next
  24. 300 sys hardcopy,3000
  25.