diff --git a/music/drums.abc b/music/drums.abc index d27072d..6e34c49 100644 --- a/music/drums.abc +++ b/music/drums.abc @@ -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/ diff --git a/music/drums.csd b/music/drums.csd index 0827db6..9fc2829 100644 --- a/music/drums.csd +++ b/music/drums.csd @@ -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 +; 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