walkero
/
starfighter
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Use csound to fade in piano track.

This commit is contained in:
Guus Sliepen 2012-03-13 22:18:50 +01:00
parent dca73b7e8d
commit 374b6928ab
2 changed files with 37 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
music/drums.abc
View File

@ -116,8 +116,8 @@ V:4 clef=treble
| z4
| z4 | z4 | z4 | z4
| z4 | z4 | z4 | z4
| !ppp! !<(! z[CEG]/z//[CEG]//z[CEG]/z/ | z[CEG]/z//[CEG]//z[CEG]/z/ !<)! | !pp! !<(! z[CEG]/z//[CEG]//z[CEG]/z/ | z[B,DF]/z/z2 !<)!
| !p! !<(! z[CEG]/z//[CEG]//z[CEG]/z/ | z[CEG]/z//[CEG]//z[CEG]/z/ !<)! | !mf! z[CEG]/z//[CEG]//z[CEG]/z/ | z[B,DF]/z/z2
| z[CEG]/z//[CEG]//z[CEG]/z/ | z[CEG]/z//[CEG]//z[CEG]/z/ | z[CEG]/z//[CEG]//z[CEG]/z/ | z[B,DF]/z/z2
| z[CEG]/z//[CEG]//z[CEG]/z/ | z[CEG]/z//[CEG]//z[CEG]/z/ | z[CEG]/z//[CEG]//z[CEG]/z/ | z[B,DF]/z/z2
| z[CEG]/z//[CEG]//z[CEG]/z/ | z[CEG]/z//[CEG]//z[CEG]/z/ | z[CEG]/z//[CEG]//z[CEG]/z/ | z[B,DF]/z//[B,DF]//z[B,DF]/z/
| z[CEG]/z//[CEG]//z[CEG]/z/ | z[CEG]/z//[CEG]//z[CEG]/z/ | z[CEG]/z//[CEG]//z[CEG]/z/ | z[B,DF]/z//[B,DF]//z[B,DF]/z/
| z[CEG]/z//[CEG]//z[CEG]/z/ | z[CEG]/z//[CEG]//z[CEG]/z/ | z[CEG]/z//[CEG]//z[CEG]/z/ | z[B,DF]/z//[B,DF]//z[B,DF]/z/
@ -126,8 +126,8 @@ V:4 clef=treble
| z4 | z4 | z4 | z4
| z4 | z4 | z4 | z4
| z4 | z4 | z4 | z4
| !ppp! !<(! z[CEG]/z//[CEG]//z[CEG]/z/ | z[CEG]/z//[CEG]//z[CEG]/z/ !<)! | !pp! !<(! z[CEG]/z//[CEG]//z[CEG]/z/ | z[B,DF]/z/z2 !<)!
| !p! !<(! z[CEG]/z//[CEG]//z[CEG]/z/ | z[CEG]/z//[CEG]//z[CEG]/z/ !<)! | !mf! z[CEG]/z//[CEG]//z[CEG]/z/ | z[B,DF]/z/z2
| z[CEG]/z//[CEG]//z[CEG]/z/ | z[CEG]/z//[CEG]//z[CEG]/z/ | z[CEG]/z//[CEG]//z[CEG]/z/ | z[B,DF]/z/z2
| z[CEG]/z//[CEG]//z[CEG]/z/ | z[CEG]/z//[CEG]//z[CEG]/z/ | z[CEG]/z//[CEG]//z[CEG]/z/ | z[B,DF]/z/z2
| z[CEG]/z//[CEG]//z[CEG]/z/ | z[CEG]/z//[CEG]//z[CEG]/z/ | z[CEG]/z//[CEG]//z[CEG]/z/ | z[B,DF]/z//[B,DF]//z[B,DF]/z/
| z[CEG]/z//[CEG]//z[CEG]/z/ | z[CEG]/z//[CEG]//z[CEG]/z/ | z[CEG]/z//[CEG]//z[CEG]/z/ | z[B,DF]/z//[B,DF]//z[B,DF]/z/
| z[CEG]/z//[CEG]//z[CEG]/z/ | z[CEG]/z//[CEG]//z[CEG]/z/ | z[CEG]/z//[CEG]//z[CEG]/z/ | z[B,DF]/z//[B,DF]//z[B,DF]/z/

35
music/drums.csd
View File

@ -14,20 +14,51 @@ fluidProgramSelect gifluid, 2, ifont, 0, 2 ;Electric piano
fluidProgramSelect gifluid, 3, ifont, 8, 50 ;Synth strings
fluidProgramSelect gifluid, 10, ifont, 128, 25 ;TR-808 drums
instr 1, 2, 3, 10
; Second engine so we can vary its volume
gifluid2 fluidEngine; start fluidsynth engine
ifont2 fluidLoad "/usr/share/sounds/sf2/FluidR3_GM.sf2", gifluid2, 1
fluidProgramSelect gifluid2, 2, ifont2, 0, 2 ;Electric piano
gkmix init 0
instr 1, 3, 10
ikey notnum
ivel ampmidi 127
fluidNote gifluid, p1, ikey, ivel
endin
instr 2
ikey notnum
ivel ampmidi 127
fluidNote gifluid2, p1, ikey, ivel
endin
instr 98
gkmix line p4, p3, p5
endin
instr 99
iamp init 3
al, ar fluidOut gifluid
outs al * iamp, ar * iamp
al2, ar2 fluidOut gifluid2
alo = al + al2 * gkmix
aro = ar + ar2 * gkmix
outs alo * iamp, aro * iamp
endin
</CsInstruments>
<CsScore>
; Tempo
t 0 150
; Final output
i 99 0 3600
; Crescendo's for the piano chords
i 98 36 32 0 1
i 98 196 32 0 1
e 1
</CsScore>
</CsoundSynthesizer>