home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er Special 75
/
64er_Magazin_Sonderheft_75_19xx_Markt__Technik_de_Side_A.d64
/
moviecreator
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
5KB
|
138 lines
1 clr:fori=49152to49162:n=n+peek(i):next
2 fori=40448to40458:b=b+peek(i):next
3 ifn<>1555thenload"grapher",8,1
4 ifb<>1475thenload"bmc",8,1
5 poke56,158:clr
10 poke53280,6:poke53281,6:printchr$(142)"[147]"
20 fori=1to39:print"=";:next:print" hi-eddi movie-creator ";
30 print" by hans haberl ":fori=1to40:print"=";:next
40 print:print"liste der bewegungsablaeufe:":print:i=0
50 readn$:ifn$="@"then110
60 i=i+1:reads$,sc,f
70 printi;": ";n$;tab(20);"(";sc;"bitmap";:ifsc>1thenprint"s";
80 print" )"
90 reada$:ifa$="e"then50
100 goto90
110 poke19,64:input"bitte nummer eingeben:";m:poke19,0:print:ifm<1orm>ithen110
120 gosub1000:restore:i=0
130 readn$,s$,sc,f:i=i+1:ifi=mthen160
140 reada$:ifa$="e"then130
150 goto140
160 input"bmc (j/n)";d$:d$=left$(d$,1):ifd$<>"j"andd$<>"n"then160
170 sysein:z=0:zz=0
200 reada$:ifa$="e"thenf=0:goto260
210 ifz=0thensysneu,16*15+6:poke53280,8
220 ifz=2thensystab
230 a=val(a$):readb:gosub4900:gosub500
240 z=z+1:ifz<4then200
250 z=0
260 zz=zz+1:poke198,0:poke53280,6:iff=0andz=0then320
270 a$="s":goto290
290 ifa$="s"thengosub1100
300 ifa$="b"thensysaus:end
310 iff>0then200
320 sysaus:print"der sequenzstring lautet:":prints$
330 input"noch ein movie (j/n)";a$:ifleft$(a$,1)="j"thenrun
340 end
500 sn=sin(u*uu)/nn%:cs=cos(u*uu)/nn%:sm=sin(v*uu)
510 xx%=mx(z)-l/sqr(2)*sin((45-u)*uu)+.5
520 yy%=my(z)+l/sqr(2)*cos((45-u)*uu)*sm+.5
530 aa%=l*cs+.5:bb%=-l*sn+.5
540 cc%=l*cs*sm+.5:ee%=-l*sn*sm+.5
550 dd=cos(v*uu)*30
560 ify0=0andy1=0then700
600 kk%=nn%:x=x0:yy=y0
610 ff=(x1-x)/nn%:ll=(y1-yy)/kk%
620 sysxy:return
700 kk%=nn%/2+.5:pp=2*x1/nn%
710 sysrot:return
1000 ein=49241:aus=49252:neu=49152:tab=49199:gsv=49271:rot=50316:xy=50672
1010 bmc=40448:mx(0)=79:mx(2)=mx(0):mx(1)=239:mx(3)=mx(1)
1020 my(0)=48:my(1)=my(0):my(2)=144:my(3)=my(2)
1030 uu=(NULL)/180:l=80:nn%=20
1090 return
1100 ifd$="j"thensysbmc,7,8,1,left$(n$,13)+"."+mid$(str$(zz),2)
1110 ifd$="n"thensysgsv,left$(n$,13)+"."+mid$(str$(zz),2),8
1120 open15,8,15:input#15,a,a$:close15:ifa>0thenprinta;a$:sysaus:end
1130 return
4900 onfgoto5010,5020,5030,5040,5050,5060,5070,5080,5090,5100
4910 onf-10goto5110,5120,5130,5140,5150,5160,5170,5180,5190,5200
5000 rem funktionen
5010 deffnr(x)=cos(a*x)/(.1*x*x+1)-.2
5015 x0=0:x1=3:y0=0:y1=0:u=20:v=25:return
5020 deffnr(x)=cos(x-uu*a)*.7
5025 x0=0:x1=b:y0=0:y1=0:u=25:v=20:return
5030 deffnr(e)=cos(a*x*x+b*y*y)*.7
5035 x0=-2:x1=2:y0=-2:y1=2:u=30:v=20:return
5040 deffnr(e)=(a*x*x-b*y*y)/6
5045 x0=-3:x1=3:y0=-3:y1=3:u=25:v=15:return
5050 deffnr(e)=atn(sin(y+a*uu)*x)*b
5055 x0=-4:x1=4:y0=-5:y1=5:u=25:v=30:return
5060 deffnr(e)=atn(sin(y)*x)*.4
5065 x0=-4:x1=4:y0=a:y1=b:u=20:v=35:return
5070 deffnr(e)=exp(-x*x)*cos(y-uu*a)*(1-y/10)
5075 x0=-2:x1=2:y0=-5:y1=5:u=25:v=20:return
5080 deffnr(x)=atn(1/cos(x+a*uu)/b)/2
5085 x0=0:x1=5.1:y0=0:y1=0:u=25:v=40:return
5090 deffnr(e)=atn(1/cos(x)/cos(y))/2
5095 x0=-3.7+sin(a*uu):x1=3.7+sin(a*uu)*b:y0=-3.7+cos(a*uu):y1=3.7+cos(a*uu)*b
5096 u=25:v=40:return
5100 deffnr(e)=sin(x+y+a*uu)/2
5105 x0=0:x1=b:y0=0:y1=b:u=-25:v=30:return
5110 deffnr(e)=sin(x)*sin(y)*cos(a*uu)
5115 x0=-2.5:x1=2.5:y0=-2.5:y1=2.5:u=-20:v=30:return
8000 rem clip-datas
8010 datasombrero,abcdefghgfedcb,2,1
8020 data1,0,1.1,0,1.2,0,1.3,0,1.4,0,1.5,0,1.6,0,1.7,0,e
8050 datablubb,abcdefghijklmnop,4,2
8060 data0,4,22.5,4,45,4,67.5,4,90,4
8070 data112.5,4,135,4,157.5,4,180,4,202.5,4,225,4,247.5,4
8080 data270,4,292.5,4,315,4,337.5,4,e
8100 dataiglu,abcdefghgfedcb,2,3
8110 data1,.3,.9,.4,.8,.5,.7,.6,.6,.7,.5,.8,.4,.9,.3,1,e
8150 datamanta,abcdefghijkjihgfedcb,3,4
8160 data.5,1.05,.48,1,.46,.9,.43,.77,.4,.6
8170 data.37,.4,.34,.2,.3,.03,.27,-.1,.25,-.2,.23,-.25,e
8200 datawellen,abcdefghijklmnop,4,5
8210 data0,.4,22.5,.4,45,.4,67.5,.4,90,.4
8220 data112.5,.4,135,.4,157.5,.4,180,.4,202.5,.4,225,.4,247.5,.4
8230 data270,.4,292.5,.4,315,.4,337.5,.4,e
8250 datawellen2,abcdefgh,2,5
8260 data0,0,22.5,.15,45,.28,67.5,.37,90,.4
8270 data112.5,.37,135,.28,157.5,.15,e
8300 dataraupe,abcdefghijkl,3,6
8310 data0,1,0,2.05,0,3.09,0,4.14,0,5.19,0,6.24,0,7.28
8320 data1.05,7.28,2.09,7.28,3.14,7.28,4.19,7.28,5.24,7.28,e
8350 databerge,abcdefghijklmnop,4,7
8360 data0,.4,22.5,.4,45,.4,67.5,.4,90,.4
8370 data112.5,.4,135,.4,157.5,.4,180,.4,202.5,.4,225,.4,247.5,.4
8380 data270,.4,292.5,.4,315,.4,337.5,.4,e
8400 databrunnen,abcdefghijklmnop,4,8
8410 data5,1,27.5,1,50,1,72.5,1,95,1
8420 data117.5,1,140,1,162.5,1,185,1,207.5,1,230,1,252.5,1
8430 data275,1,297.5,1,320,1,342.5,1,e
8450 datakristall,abcdefghijklmnop,4,9
8460 data5,1,27.5,1,50,1,72.5,1,95,1
8470 data117.5,1,140,1,162.5,1,185,1,207.5,1,230,1,252.5,1
8480 data275,1,297.5,1,320,1,342.5,1,e
8500 datakristall2,abcdefghijklmnop,4,9
8510 data5,-1,27.5,-1,50,-1,72.5,-1,95,-1
8520 data117.5,-1,140,-1,162.5,-1,185,-1,207.5,-1,230,-1,252.5,-1
8530 data275,-1,297.5,-1,320,-1,342.5,-1,e
8550 datarochen,abcdefghijkl,4,10
8560 data5,5,27.5,5,50,5,72.5,5,95,5
8570 data117.5,5,140,5,162.5,5,185,5,207.5,5,230,5,252.5,5
8580 data275,5,297.5,5,320,5,342.5,5,e
8600 datamad,abcdefghijkl,4,10
8610 data5,3,27.5,3.3,50,3.6,72.5,4,95,4.4
8620 data117.5,4.8,140,5.3,162.5,5.8,185,6.4,207.5,5.8,230,5.3,252.5,4.8
8630 data275,4.4,297.5,4,320,3.6,342.5,3.3,e
8650 databb,abcdefghijklkjihgfedcb,3,11
8660 data0,0,16,0,32,0,49,0,65,0,81,0
8670 data98,0,114,0,130,0,147,0,163,0,179,0,e
8700 datablubb2,abcdefghijklmnopqrstuvwx,6,2
8710 data0,6.4,30,6,60,5.6,90,5.2,120,4.8,150,4.4,180,4,210,3.6,240,3.2
8720 data270,2.8,300,2.4,330,2,0,1.6,30,2,60,2.4,90,2.8,120,3.2
8730 data150,3.6,180,4,210,4.4,240,4.8,270,5.2,300,5.6,330,6,e
9999 data@