home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 11 / 64er_Magazin_Sonderheft_11_86-11_1986_Markt__Technik_de_Side_A.d64 / dreh-elipse (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  483b  |  24 lines
  1. 100 ifz=0thenz=1:load"grafik modul",8,1
  2. 110 cls=938:plot=820
  3. 120 poke53265,59:poke53272,24
  4. 130 sys cls:print"[147]"
  5. 140 :
  6. 150 x0=160:y0=100:xr=99:yr=30
  7. 160 w=30
  8. 170 :
  9. 180 t=sin(w*(NULL)/180):s=sqr(1-t*t):y2=0
  10. 190 fora=xrto0step-1
  11. 200 dy=sqr(xr*xr-a*a)*yr/xr:dx=a:y3=dy
  12. 210 x1=s*dx+t*dy:y1=s*dy-t*dx
  13. 220 sys plot,x0+x1,y0+y1
  14. 230 sys plot,x0-x1,y0-y1
  15. 240 x1=-s*dx+t*dy:y1=-s*dy-t*dx
  16. 250 sys plot,x0-x1,y0+y1
  17. 260 sys plot,x0+x1,y0-y1
  18. 270 ifdy>y2+1thendy=dy-1:goto210
  19. 280 y2=y3
  20. 290 nexta
  21. 300 :
  22. 310 poke198,0:wait198,1:print"[147]"
  23. 320 poke53265,27:poke53272,21
  24.