From fd0aaa576af1024d699095e8fb1feae6f8ce96e3 Mon Sep 17 00:00:00 2001
From: Guus Sliepen <guus@debian.org>
Date: Fri, 2 Mar 2012 21:03:35 +0100
Subject: [PATCH] Improved "Drums" music.

- Removed beat accents.
- Gradually add more voices.
- Avoid flat notes in drum map.
- Use better program for chords.
---
 music/drums.abc | 64 ++++++++++++++++++++++++++++++++++++++-----------
 music/drums.csd |  9 +++----
 2 files changed, 55 insertions(+), 18 deletions(-)

diff --git a/music/drums.abc b/music/drums.abc
index b639b40..7b724e7 100644
--- a/music/drums.abc
+++ b/music/drums.abc
@@ -5,33 +5,69 @@ M:4/4
 L:1/4
 Q:150
 K:Bb
-%%MIDI drummap C 36
-%%MIDI drummap E 40
-%%MIDI drummap ^F 42
-%%MIDI drummap ^G 44
-%%MIDI drummap ^A 46
+%%MIDI drummap f 42
+%%MIDI drummap g 44
+%MIDI drummap ^A 46
 %%MIDI drummap ^c 49
+%%MIDI drummap D 40
+%%MIDI drummap C 36
 V:1 clef=treble
 %%MIDI channel 10
+%%MIDI nobeataccents
+| zzz/z//C//C/C/ |
+| CCCC | CCCC | CCCC | CCC/z//C//C/C/
 | CCCC | CCCC | CCCC | Czz/z//C//C/C/
+| CCCC | CCCC | CCCC | CCC/z//C//C/C/
 | CCCC | CCCC | CCCC | Czz/z//C//C/C/
+| CCCC | CCCC | CCCC | CCC/z//C//C/C/
 | CCCC | CCCC | CCCC | Czz/z//C//C/C/
-| CCCC | CCCC | CCCC | Czz/z//C//C/C/
+| CCCC | CCCC | CCCC | CCC/z//C//C/C/
+| z4 | z4 | z4 | zzz/z//C//C/C/
 V:2 clef=treble
 %%MIDI channel 10
+%%MIDI nobeataccents
+| z4 |
 | z4 | z4 | z4 | z4
 | z4 | z4 | z4 | z4
-| z4 | z4 | z4 | z2 ^c2
-| zEzE | zEzE | zEzE | z!p!^c!f!^c!fff!^c
+| !p! zDzD | zDzD | zDzD | zDzD
+| zDzD | zDzD | zDzD | z!p!^c!f!^c!fff!^c
+| !p! f/f/[D/f/]f/f/f/[D/f/]f/ | f/f/[D/f/]f/f/f/[D/f/]f/ | f/f/[D/f/]f/f/f/[D/f/]f/ | f/f/[D/f/]f/f/f/[D/f/]g/ |
+| f/f/[D/f/]f/f/f/[D/f/]f/ | f/f/[D/f/]f/f/f/[D/f/]f/ | f/f/[D/f/]f/f/f/[D/f/]f/ | f/f/[D/f/]f/f/f/[D/f/]g/ |
+| f/f/[D/f/]f/f/f/[D/f/]f/ | f/f/[D/f/]f/f/f/[D/f/]f/ | f/f/[D/f/]f/f/f/[D/f/]f/ | f/f/[D/f/]f/f/f/[D/f/]g/ |
+| f/f/[D/f/]f/f/f/[D/f/]f/ | f/f/[D/f/]f/f/f/[D/f/]f/ | f/f/[D/f/]f/f/f/[D/f/]f/ | g!p!^c!f!^c!fff!^c |
 V:3 clef=treble transpose=-36
 %%MIDI channel 1
-| z4 | z4 | z4 | z _e d _d
-| c/c/c/c/c/c/c/c/ | c/c/c/c/c/c/c/_B/ | c/c/c/c/c/c/c/c/ | _B _B _B _B
-| c/c/c/c/c/c/c/c/ | c/c/c/c/c/c/c/_B/ | c/c/c/c/c/c/c/c/ | _B _B _B _B
-| c/c/c/c/c/c/c/c/ | c/c/c/c/c/c/c/_B/ | c/c/c/c/c/c/c/c/ | _B _B _B _B
+%%MIDI nobeataccents
+| z4 |
+| z4 | z4 | z4 | z3 z/B/
+| c/c/c/c/c/c/c/c/ | c/c/c/c/c/c/c/c/ | c/c/c/c/c/c/c/c/ | C C C C
+| c/c/c/c/c/c/c/c/ | c/c/c/c/c/c/c/c/ | c/c/c/c/c/c/c/c/ | D D D D
+| c/c/c/c/c/c/c/c/ | c/c/c/c/c/c/c/c/ | c/c/c/c/c/c/c/c/ | B, B, B, B,
+| c/c/c/c/c/c/c/c/ | c/c/c/c/c/c/c/c/ | c/c/c/c/c/c/c/c/ | D D D D
+| c/c/c/c/c/c/c/c/ | c/c/c/c/c/c/c/c/ | c/c/c/c/c/c/c/c/ | B, B, B, B,
+| c/c/c/c/c/c/c/c/ | c/c/c/c/c/c/c/c/ | c/c/c/c/c/c/c/c/ | D D D D
+| z4 | z4 | z4 | z C C C
 V:4 clef=treble
 %%MIDI channel 2
+%%MIDI nobeataccents
+| z4 |
 | z4 | z4 | z4 | z4
 | z4 | z4 | z4 | z4
-| 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
+| !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//[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/
+| z[CEG]/z//[CEG]//z[CEG]/z/ | z[CEG]/z//[CEG]//z[CEG]/z/ | z[CEG]/z//[CEG]//z[CEG]/z/ | z[CEG]/z//[CEG]//z[CEG]/z/
+V:5 clef=treble
+%%MIDI channel 3
+%%MIDI nobeataccents
+| !p! [C,,E,,G,,]4- |
+| [C,,E,,G,,]4- | [C,,E,,G,,]4- | [C,,E,,G,,]4 | [C,,E,,G,,]4 |
+| [C,,E,,G,,]4- | [C,,E,,G,,]4- | [C,,E,,G,,]4 | [C,,E,,G,,]4 |
+| [C,,E,,G,,]4- | [C,,E,,G,,]4- | [C,,E,,G,,]4 | [D,,F,,_A,,]4 |
+| [C,,E,,G,,]4- | [C,,E,,G,,]4- | [C,,E,,G,,]4 | [G,,,B,,,D,,]4 |
+| [C,,E,,G,,]4- | [C,,E,,G,,]4- | [C,,E,,G,,]4 | [D,,F,,_A,,]4 |
+| [C,,E,,G,,]4- | [C,,E,,G,,]4- | [C,,E,,G,,]4 | [G,,,B,,,D,,]4 |
+| [C,,E,,G,,]4- | [C,,E,,G,,]4- | [C,,E,,G,,]4 | [D,,F,,_A,,]4 |
+| [C,,E,,G,,]4- | [C,,E,,G,,]4- | [C,,E,,G,,]4 | [C,,,G,,,C,,]4 |
diff --git a/music/drums.csd b/music/drums.csd
index b9fa48e..e2c9f5e 100644
--- a/music/drums.csd
+++ b/music/drums.csd
@@ -10,19 +10,20 @@ nchnls = 2
 gifluid fluidEngine; start fluidsynth engine
 ifont fluidLoad "/usr/share/sounds/sf2/FluidR3_GM.sf2", gifluid, 1
 fluidProgramSelect gifluid, 1, ifont, 0, 38 ;Synth bass 1
-fluidProgramSelect gifluid, 2, ifont, 0, 29 ;Distortion guitar
+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, 10
+instr 1, 2, 3, 10
 	ikey	notnum
 	ivel	ampmidi 127
 		fluidNote gifluid, p1, ikey, ivel
 endin
 
 instr 99
+	iamp init 5
 	al, ar fluidOut gifluid
-	al, ar reverbsc al, ar, 0.6, 10000
-	outs al, ar
+	outs al * iamp, ar * iamp 
 endin
 </CsInstruments>
 <CsScore>