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 >
Commodore BASIC  |  2022-10-26  |  5KB  |  138 lines
  1. 1 clr:fori=49152to49162:n=n+peek(i):next
  2. 2 fori=40448to40458:b=b+peek(i):next
  3. 3 ifn<>1555thenload"grapher",8,1
  4. 4 ifb<>1475thenload"bmc",8,1
  5. 5 poke56,158:clr
  6. 10 poke53280,6:poke53281,6:printchr$(142)"[147]"
  7. 20 fori=1to39:print"=";:next:print"          hi-eddi movie-creator        ";
  8. 30 print"             by  hans haberl            ":fori=1to40:print"=";:next
  9. 40 print:print"liste der bewegungsablaeufe:":print:i=0
  10. 50 readn$:ifn$="@"then110
  11. 60 i=i+1:reads$,sc,f
  12. 70 printi;": ";n$;tab(20);"(";sc;"bitmap";:ifsc>1thenprint"s";
  13. 80 print" )"
  14. 90 reada$:ifa$="e"then50
  15. 100 goto90
  16. 110 poke19,64:input"bitte nummer eingeben:";m:poke19,0:print:ifm<1orm>ithen110
  17. 120 gosub1000:restore:i=0
  18. 130 readn$,s$,sc,f:i=i+1:ifi=mthen160
  19. 140 reada$:ifa$="e"then130
  20. 150 goto140
  21. 160 input"bmc (j/n)";d$:d$=left$(d$,1):ifd$<>"j"andd$<>"n"then160
  22. 170 sysein:z=0:zz=0
  23. 200 reada$:ifa$="e"thenf=0:goto260
  24. 210 ifz=0thensysneu,16*15+6:poke53280,8
  25. 220 ifz=2thensystab
  26. 230 a=val(a$):readb:gosub4900:gosub500
  27. 240 z=z+1:ifz<4then200
  28. 250 z=0
  29. 260 zz=zz+1:poke198,0:poke53280,6:iff=0andz=0then320
  30. 270 a$="s":goto290
  31. 290 ifa$="s"thengosub1100
  32. 300 ifa$="b"thensysaus:end
  33. 310 iff>0then200
  34. 320 sysaus:print"der sequenzstring lautet:":prints$
  35. 330 input"noch ein movie (j/n)";a$:ifleft$(a$,1)="j"thenrun
  36. 340 end
  37. 500 sn=sin(u*uu)/nn%:cs=cos(u*uu)/nn%:sm=sin(v*uu)
  38. 510 xx%=mx(z)-l/sqr(2)*sin((45-u)*uu)+.5
  39. 520 yy%=my(z)+l/sqr(2)*cos((45-u)*uu)*sm+.5
  40. 530 aa%=l*cs+.5:bb%=-l*sn+.5
  41. 540 cc%=l*cs*sm+.5:ee%=-l*sn*sm+.5
  42. 550 dd=cos(v*uu)*30
  43. 560 ify0=0andy1=0then700
  44. 600 kk%=nn%:x=x0:yy=y0
  45. 610 ff=(x1-x)/nn%:ll=(y1-yy)/kk%
  46. 620 sysxy:return
  47. 700 kk%=nn%/2+.5:pp=2*x1/nn%
  48. 710 sysrot:return
  49. 1000 ein=49241:aus=49252:neu=49152:tab=49199:gsv=49271:rot=50316:xy=50672
  50. 1010 bmc=40448:mx(0)=79:mx(2)=mx(0):mx(1)=239:mx(3)=mx(1)
  51. 1020 my(0)=48:my(1)=my(0):my(2)=144:my(3)=my(2)
  52. 1030 uu=(NULL)/180:l=80:nn%=20
  53. 1090 return
  54. 1100 ifd$="j"thensysbmc,7,8,1,left$(n$,13)+"."+mid$(str$(zz),2)
  55. 1110 ifd$="n"thensysgsv,left$(n$,13)+"."+mid$(str$(zz),2),8
  56. 1120 open15,8,15:input#15,a,a$:close15:ifa>0thenprinta;a$:sysaus:end
  57. 1130 return
  58. 4900 onfgoto5010,5020,5030,5040,5050,5060,5070,5080,5090,5100
  59. 4910 onf-10goto5110,5120,5130,5140,5150,5160,5170,5180,5190,5200
  60. 5000 rem funktionen
  61. 5010 deffnr(x)=cos(a*x)/(.1*x*x+1)-.2
  62. 5015 x0=0:x1=3:y0=0:y1=0:u=20:v=25:return
  63. 5020 deffnr(x)=cos(x-uu*a)*.7
  64. 5025 x0=0:x1=b:y0=0:y1=0:u=25:v=20:return
  65. 5030 deffnr(e)=cos(a*x*x+b*y*y)*.7
  66. 5035 x0=-2:x1=2:y0=-2:y1=2:u=30:v=20:return
  67. 5040 deffnr(e)=(a*x*x-b*y*y)/6
  68. 5045 x0=-3:x1=3:y0=-3:y1=3:u=25:v=15:return
  69. 5050 deffnr(e)=atn(sin(y+a*uu)*x)*b
  70. 5055 x0=-4:x1=4:y0=-5:y1=5:u=25:v=30:return
  71. 5060 deffnr(e)=atn(sin(y)*x)*.4
  72. 5065 x0=-4:x1=4:y0=a:y1=b:u=20:v=35:return
  73. 5070 deffnr(e)=exp(-x*x)*cos(y-uu*a)*(1-y/10)
  74. 5075 x0=-2:x1=2:y0=-5:y1=5:u=25:v=20:return
  75. 5080 deffnr(x)=atn(1/cos(x+a*uu)/b)/2
  76. 5085 x0=0:x1=5.1:y0=0:y1=0:u=25:v=40:return
  77. 5090 deffnr(e)=atn(1/cos(x)/cos(y))/2
  78. 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
  79. 5096 u=25:v=40:return
  80. 5100 deffnr(e)=sin(x+y+a*uu)/2
  81. 5105 x0=0:x1=b:y0=0:y1=b:u=-25:v=30:return
  82. 5110 deffnr(e)=sin(x)*sin(y)*cos(a*uu)
  83. 5115 x0=-2.5:x1=2.5:y0=-2.5:y1=2.5:u=-20:v=30:return
  84. 8000 rem clip-datas
  85. 8010 datasombrero,abcdefghgfedcb,2,1
  86. 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
  87. 8050 datablubb,abcdefghijklmnop,4,2
  88. 8060 data0,4,22.5,4,45,4,67.5,4,90,4
  89. 8070 data112.5,4,135,4,157.5,4,180,4,202.5,4,225,4,247.5,4
  90. 8080 data270,4,292.5,4,315,4,337.5,4,e
  91. 8100 dataiglu,abcdefghgfedcb,2,3
  92. 8110 data1,.3,.9,.4,.8,.5,.7,.6,.6,.7,.5,.8,.4,.9,.3,1,e
  93. 8150 datamanta,abcdefghijkjihgfedcb,3,4
  94. 8160 data.5,1.05,.48,1,.46,.9,.43,.77,.4,.6
  95. 8170 data.37,.4,.34,.2,.3,.03,.27,-.1,.25,-.2,.23,-.25,e
  96. 8200 datawellen,abcdefghijklmnop,4,5
  97. 8210 data0,.4,22.5,.4,45,.4,67.5,.4,90,.4
  98. 8220 data112.5,.4,135,.4,157.5,.4,180,.4,202.5,.4,225,.4,247.5,.4
  99. 8230 data270,.4,292.5,.4,315,.4,337.5,.4,e
  100. 8250 datawellen2,abcdefgh,2,5
  101. 8260 data0,0,22.5,.15,45,.28,67.5,.37,90,.4
  102. 8270 data112.5,.37,135,.28,157.5,.15,e
  103. 8300 dataraupe,abcdefghijkl,3,6
  104. 8310 data0,1,0,2.05,0,3.09,0,4.14,0,5.19,0,6.24,0,7.28
  105. 8320 data1.05,7.28,2.09,7.28,3.14,7.28,4.19,7.28,5.24,7.28,e
  106. 8350 databerge,abcdefghijklmnop,4,7
  107. 8360 data0,.4,22.5,.4,45,.4,67.5,.4,90,.4
  108. 8370 data112.5,.4,135,.4,157.5,.4,180,.4,202.5,.4,225,.4,247.5,.4
  109. 8380 data270,.4,292.5,.4,315,.4,337.5,.4,e
  110. 8400 databrunnen,abcdefghijklmnop,4,8
  111. 8410 data5,1,27.5,1,50,1,72.5,1,95,1
  112. 8420 data117.5,1,140,1,162.5,1,185,1,207.5,1,230,1,252.5,1
  113. 8430 data275,1,297.5,1,320,1,342.5,1,e
  114. 8450 datakristall,abcdefghijklmnop,4,9
  115. 8460 data5,1,27.5,1,50,1,72.5,1,95,1
  116. 8470 data117.5,1,140,1,162.5,1,185,1,207.5,1,230,1,252.5,1
  117. 8480 data275,1,297.5,1,320,1,342.5,1,e
  118. 8500 datakristall2,abcdefghijklmnop,4,9
  119. 8510 data5,-1,27.5,-1,50,-1,72.5,-1,95,-1
  120. 8520 data117.5,-1,140,-1,162.5,-1,185,-1,207.5,-1,230,-1,252.5,-1
  121. 8530 data275,-1,297.5,-1,320,-1,342.5,-1,e
  122. 8550 datarochen,abcdefghijkl,4,10
  123. 8560 data5,5,27.5,5,50,5,72.5,5,95,5
  124. 8570 data117.5,5,140,5,162.5,5,185,5,207.5,5,230,5,252.5,5
  125. 8580 data275,5,297.5,5,320,5,342.5,5,e
  126. 8600 datamad,abcdefghijkl,4,10
  127. 8610 data5,3,27.5,3.3,50,3.6,72.5,4,95,4.4
  128. 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
  129. 8630 data275,4.4,297.5,4,320,3.6,342.5,3.3,e
  130. 8650 databb,abcdefghijklkjihgfedcb,3,11
  131. 8660 data0,0,16,0,32,0,49,0,65,0,81,0
  132. 8670 data98,0,114,0,130,0,147,0,163,0,179,0,e
  133. 8700 datablubb2,abcdefghijklmnopqrstuvwx,6,2
  134. 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
  135. 8720 data270,2.8,300,2.4,330,2,0,1.6,30,2,60,2.4,90,2.8,120,3.2
  136. 8730 data150,3.6,180,4,210,4.4,240,4.8,270,5.2,300,5.6,330,6,e
  137. 9999 data@
  138.