Opry99er Posted December 2, 2015 Share Posted December 2, 2015 Just a taste.... I am working on a full version of this piece, this is my teaser for now, just the tip of the iceberg. 100 AB=220 :: GB=196 :: FB=175 :: EB=165 110 W=900 :: H=600 :: Q=300 :: S=150 120 GOSUB 130 :: GOSUB 150 :: GOSUB 180 :: GOSUB 250 :: GOSUB 180 :: GOSUB 150 :: GOSUB 130 :: GOTO 120 130 CALL SOUND(W,AB,1):: CALL SOUND(W,GB,1):: CALL SOUND(W,FB,1):: CALL SOUND(W,EB,1) 140 RETURN 150 CALL SOUND(H,AB,1):: CALL SOUND(Q,330,1,AB,1):: CALL SOUND(H,GB,1):: CALL SOUND(Q,294,1,GB,1) 160 CALL SOUND(H,FB,1):: CALL SOUND(Q,262,1,FB,1):: CALL SOUND(Q,EB,1,165,1):: CALL SOUND(Q,247,1,EB,1):: CALL SOUND(Q,330,1,EB,1) 170 RETURN 180 FOR I=1 TO 2 190 FOR X=1 TO 4 200 ON X GOSUB 320,330,340,350 210 CALL SOUND(Q,523,1,BL,1):: CALL SOUND(S,494,1,BL,1):: CALL SOUND(S,523,1,BL,1):: CALL SOUND(Q,440,1,BL,1) 220 NEXT X 230 NEXT I 240 RETURN 250 FOR I=1 TO 2 260 FOR X=1 TO 4 270 ON X GOSUB 320,330,340,350 280 CALL SOUND(Q,523,1,BL,1,659,5):: CALL SOUND(S,494,1,BL,1,587,5):: CALL SOUND(S,523,1,BL,1,659,5):: CALL SOUND(Q,440,1,BL,1,524,5) 290 NEXT X 300 NEXT I 310 RETURN 320 BL=AB :: RETURN 330 BL=GB :: RETURN 340 BL=FB :: RETURN 350 BL=EB :: RETURN 6 Quote Link to comment Share on other sites More sharing options...
RXB Posted December 3, 2015 Share Posted December 3, 2015 Impressive and well done! Quote Link to comment Share on other sites More sharing options...
+Schmitzi Posted December 3, 2015 Share Posted December 3, 2015 Cool :like: ♫ and this with just such a little bit code Quote Link to comment Share on other sites More sharing options...
Opry99er Posted December 3, 2015 Author Share Posted December 3, 2015 Thanks guys... I am working on the descending Cmaj scale right now over the Am bass line... Only problem I am having is keeping clear note separation when two notes of the same frequency take place back to back... A short rest which cuts into the leading note a little bit works okay, but doesnt seem to have the exact feel I want... I am close though. After that bit, the ascending arpeggio of the bridge is going to be a blast to code. Quote Link to comment Share on other sites More sharing options...
Opry99er Posted December 4, 2015 Author Share Posted December 4, 2015 This is as far as I'm going to take it. I know I could arrange it like the actual piece of music, but I'm not going there. Enjoy this, as it was a labor of love. 100 AB=220 :: GB=196 :: FB=175 :: EB=165 110 W=900 :: H=600 :: Q=300 :: S=150 120 GOSUB 130 :: GOSUB 140 :: GOSUB 160 :: GOSUB 180 :: GOSUB 200 :: GOSUB 250 :: GOSUB 160 :: GOSUB 140 :: CALL SOUND(900,220,1,330,1,523,1):: END 130 CALL SOUND(W,AB,1):: CALL SOUND(W,GB,1):: CALL SOUND(W,FB,1):: CALL SOUND(W,EB,1):: RETURN 140 CALL SOUND(H,AB,1):: CALL SOUND(Q,330,1,AB,1):: CALL SOUND(H,GB,1):: CALL SOUND(Q,294,1,GB,1):: CALL SOUND(H,FB,1):: CALL SOUND(Q,262,1,FB,1) 150 CALL SOUND(Q,EB,1,165,1):: CALL SOUND(Q,247,1,EB,1):: CALL SOUND(Q,330,1,EB,1):: RETURN 160 FOR I=1 TO 2 :: FOR X=1 TO 4 :: ON X GOSUB 280,290,300,310 :: CALL SOUND(Q,523,1,BL,1):: CALL SOUND(S,494,1,BL,1) 170 CALL SOUND(S,523,1,BL,1):: CALL SOUND(Q,440,1,BL,1):: NEXT X :: NEXT I :: RETURN 180 FOR I=1 TO 2 :: FOR X=1 TO 4 :: ON X GOSUB 280,290,300,310 :: CALL SOUND(Q,523,1,BL,1,659,5):: CALL SOUND(S,494,1,BL,1,587,5) 190 CALL SOUND(S,523,1,BL,1,659,5):: CALL SOUND(Q,440,1,BL,1,524,5):: NEXT X :: NEXT I :: RETURN 200 CALL SOUND(S,880,1,AB,1):: CALL SOUND(S,659,30,AB,1):: CALL SOUND(S,880,1,AB,1):: CALL SOUND(S,880,1,AB,1):: CALL SOUND(S,784,1,AB,1) 210 CALL SOUND(S,698,1,AB,1):: CALL SOUND(S,659,1,GB,1):: CALL SOUND(S,659,30,GB,1):: CALL SOUND(S,659,1,GB,1):: CALL SOUND(S,659,1,GB,1) 220 CALL SOUND(S,587,1,GB,1):: CALL SOUND(S,523,1,GB,1):: CALL SOUND(S,587,1,FB,1):: CALL SOUND(S,587,30,FB,1):: CALL SOUND(S,587,1,FB,1) 230 CALL SOUND(S,587,1,FB,1):: CALL SOUND(S,659,1,FB,1):: CALL SOUND(S,587,1,FB,1):: CALL SOUND(S,440,1,EB,1):: CALL SOUND(S,440,30,EB,1) 240 CALL SOUND(S,440,1,EB,1):: CALL SOUND(S,440,30,EB,1):: CALL SOUND(Q,440,1,123,1):: RETURN 250 FOR I=1 TO 2 :: RESTORE 320 :: FOR R=1 TO 8 :: READ TON :: CALL SOUND(S,TON,1,EB,1,123,4):: NEXT R 260 CALL SOUND(Q,587,1,EB,1):: CALL SOUND(Q,523,1,EB,1):: NEXT I 270 FOR X=1 TO 4 :: FOR R=1 TO 6 :: READ TON :: CALL SOUND(S,TON,1,EB,1,123,4):: NEXT R :: NEXT X :: RETURN 280 BL=AB :: RETURN 290 BL=GB :: RETURN 300 BL=FB :: RETURN 310 BL=EB :: RETURN 320 DATA 330,370,415,440,494,523,587,659,330,370,415,440,494,523,330,370,415 330 DATA 440,494,523,330,370,415,440,494,523,330,370,415,440,494,523 4 Quote Link to comment Share on other sites More sharing options...
Opry99er Posted December 4, 2015 Author Share Posted December 4, 2015 For whatever reason (maybe insanity) this sounds so much cooler on the real hardware. 1 Quote Link to comment Share on other sites More sharing options...
Willsy Posted December 4, 2015 Share Posted December 4, 2015 Whoa! Brilliant!!! Love it! Next: Don't Fear The Reaper! Quote Link to comment Share on other sites More sharing options...
+Schmitzi Posted December 4, 2015 Share Posted December 4, 2015 ♫♪ Oh Carol ♫♪ Quote Link to comment Share on other sites More sharing options...
Opry99er Posted December 4, 2015 Author Share Posted December 4, 2015 (edited) Thanks Willsy... Next I will be doing "We Three Kings" (Possibly.....) Edited December 4, 2015 by Opry99er Quote Link to comment Share on other sites More sharing options...
Like us on Facebook
Follow us on Twitter
AtariAge on Instagram
Watch us on YouTube
Chat on Discord
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.