Joined: Sat Mar 26, 2011 3:01 pm Posts: 263 Location: Kings Langley
|
I'm struggling with my health and SOUND! Here is the basic tune that through some strange methods, I have constructed. 30 REM Next,Frame *10,Len * 10,Note,Velocity 40 channel = 1 50 T = TIME 60 REPEAT 70 READ Next, Frame, Duration, Pitch, Velocity 80 PRINT Next, channel, Duration, Pitch 90 SOUND channel, -15, Pitch, Duration * 6.66666 100 channel = (channel MOD 3) + 1 110 T = T + Next * 33.3333 120 REPEAT UNTIL TIME >= T 130 UNTIL Next = 0 AND Frame = 0 AND Duration = 0 AND Pitch = 0 AND Velocity = 0 150 DATA 3,0,3,49,62 160 DATA 1,3,1,45,56 170 DATA 1,4,1,49,76 180 DATA 1,5,1,61,85 190 DATA 4,6,4,81,81 200 DATA 1,10,1,77,86 210 DATA 1,11,1,81,73 220 DATA 1,12,1,89,74 230 DATA 1,13,1,81,74 240 DATA 1,14,1,77,68 250 DATA 1,15,1,81,76 260 DATA 1,16,1,49,69 270 DATA 1,17,1,61,75 280 DATA 6,18,4,77,79 290 DATA 3,24,3,53,63 300 DATA 1,27,1,49,61 310 DATA 1,28,1,53,76 320 DATA 1,29,1,61,85 330 DATA 4,30,4,77,80 340 DATA 1,34,1,73,72 350 DATA 1,35,1,77,77 360 DATA 1,36,1,81,83 370 DATA 1,37,1,77,69 380 DATA 1,38,1,73,63 390 DATA 1,39,1,77,75 400 DATA 1,40,1,53,63 410 DATA 1,41,1,77,80 420 DATA 6,42,4,49,75 430 DATA 3,48,3,49,63 440 DATA 1,51,1,45,63 450 DATA 1,52,1,49,76 460 DATA 1,53,1,61,79 470 DATA 4,54,4,81,80 480 DATA 1,58,1,77,78 490 DATA 1,59,1,81,73 500 DATA 1,60,1,89,77 510 DATA 1,61,1,81,64 520 DATA 1,62,1,77,61 530 DATA 1,63,1,81,69 540 DATA 1,64,1,49,66 550 DATA 1,65,1,69,79 560 DATA 6,66,4,69,67 570 DATA 0,72,3,69,103 580 DATA 3,72,3,117,103 590 DATA 0,75,1,89,113 600 DATA 1,75,1,137,113 610 DATA 0,76,1,101,127 620 DATA 1,76,1,149,127 630 DATA 0,77,1,117,127 640 DATA 1,77,1,165,127 650 DATA 0,78,4,109,108 660 DATA 4,78,4,157,108 670 DATA 0,82,1,101,108 680 DATA 1,82,1,149,108 690 DATA 0,83,1,97,104 700 DATA 1,83,1,145,104 710 DATA 0,84,1,89,98 720 DATA 1,84,1,137,98 730 DATA 0,85,1,81,105 740 DATA 1,85,1,129,105 750 DATA 0,86,1,77,95 760 DATA 1,86,1,125,95 770 DATA 0,87,1,69,104 780 DATA 1,87,1,117,104 790 DATA 0,88,1,77,106 800 DATA 1,88,1,125,106 810 DATA 0,89,1,89,127 820 DATA 1,89,1,137,127 830 DATA 0,90,4,81,116 840 DATA 0,90,4,129,116 850 DATA 0,0,0,0,0 I am planning on making a better version, and adding envelope type functionality, but would be happy to open it to the floor so to speak, so if anyone would like a credit on the game, I am quite happy to put in their tune instead (it might just save my sanity  EDIT The sound on BeebEm doesn't work well on my PC, but B-Em seems fine.
| Attachments: |
File comment: Program from above for playing a very basic version of the tune.
SOUND.zip [1 KiB]
Downloaded 7 times
|
|
|