home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh1x / sh11a.d64 / dreh-elipse (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  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.