home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1985 April / 64er_Magazin_85-04_1985_Markt__Technik_de.d64 / rot-demo (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  846b  |  24 lines
  1. 10 ein=49241 :rem  grafik ein
  2. 20 aus=49252 :rem  grafik aus
  3. 30 neu=49152 :rem  loeschen + farbe
  4. 40 gsv=49271 :rem  save
  5. 50 gld=49333 :rem  load
  6. 60 rot=50316 :rem  rotationskoerper
  7. 70 xy =50672 :rem  x.y-grafik
  8. 80 :
  9. 100 poke53280,6:poke53281,5:sysneu,5
  10. 110 deffnr(x)=cos(x)+cos(3*x)+cos(5*x)
  11. 120 print"[147][144]+++++++  rotationskoerper-demo  ++++++++":uu=(NULL)/180
  12. 130 u=-10:input"drehwinkel (-45 bis 90) .. ";u:ifu<-45oru>90then130
  13. 140 l=160:my=99:mx=159:sn=sin(uu*u):cs=cos(uu*u)
  14. 150 v=70:input"aufsichtswinkel (0 bis 90) ";v:ifv>90orv<0then150
  15. 160 sm=sin(v*uu)
  16. 165 xx%=mx-l/sqr(2)*sin((45-u)*uu)+.5:yy%=my+l/sqr(2)*cos((45-u)*uu)*sm+.5
  17. 170 nn%=20:input"anzahl der linien ........ ";nn%:ifnn%>60ornn%<3then170
  18. 180 kk%=nn%/2+.5
  19. 190 a=l*cs/nn%:b=-l*sn/nn%:cc%=a*sm+.5:ee%=b*sm+.5:dd=cos(v*uu)*30
  20. 200 aa%=a+.5:bb%=b+.5
  21. 220 pp=2:input"maximales x .............. ";pp:pp=2*pp/nn%
  22. 230 sysrot
  23. 240 print"[147]":wait198,1:poke198,0:sysaus
  24.