Use csound to fade in piano track.

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 !<)!
+| 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
-| !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//[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 !<)!
+| 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
-| !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//[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/

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
 </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>