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 >
Wrap
Commodore BASIC
|
2022-10-26
|
846b
|
24 lines
10 ein=49241 :rem grafik ein
20 aus=49252 :rem grafik aus
30 neu=49152 :rem loeschen + farbe
40 gsv=49271 :rem save
50 gld=49333 :rem load
60 rot=50316 :rem rotationskoerper
70 xy =50672 :rem x.y-grafik
80 :
100 poke53280,6:poke53281,5:sysneu,5
110 deffnr(x)=cos(x)+cos(3*x)+cos(5*x)
120 print"[147][144]+++++++ rotationskoerper-demo ++++++++":uu=(NULL)/180
130 u=-10:input"drehwinkel (-45 bis 90) .. ";u:ifu<-45oru>90then130
140 l=160:my=99:mx=159:sn=sin(uu*u):cs=cos(uu*u)
150 v=70:input"aufsichtswinkel (0 bis 90) ";v:ifv>90orv<0then150
160 sm=sin(v*uu)
165 xx%=mx-l/sqr(2)*sin((45-u)*uu)+.5:yy%=my+l/sqr(2)*cos((45-u)*uu)*sm+.5
170 nn%=20:input"anzahl der linien ........ ";nn%:ifnn%>60ornn%<3then170
180 kk%=nn%/2+.5
190 a=l*cs/nn%:b=-l*sn/nn%:cc%=a*sm+.5:ee%=b*sm+.5:dd=cos(v*uu)*30
200 aa%=a+.5:bb%=b+.5
220 pp=2:input"maximales x .............. ";pp:pp=2*pp/nn%
230 sysrot
240 print"[147]":wait198,1:poke198,0:sysaus