white noise: Add click.

2 files changed, 76 insertions, 1 deletions

diff --git a/04-white-noise/04-white-noise.ly b/04-white-noise/04-white-noise.ly
index 1f57377..d74a2e6 100644
--- a/04-white-noise/04-white-noise.ly
+++ b/04-white-noise/04-white-noise.ly
@@ -12,6 +12,7 @@ whiteNoise = { R1*5 } % TODO: how long?
 \include "parts/bass.ly"
 \include "parts/keys.ly"
 \include "parts/stick.ly"
+\include "parts/click.ly"
 
 AllMusic = <<
   \new Staff = "keyboard"    { \keyboard }
@@ -22,7 +23,12 @@ AllMusic = <<
 %% Two scores are needed: one with unfolded repeats for MIDI and the
 %% other with regular repeats for notation.
 \score {
-  \unfoldRepeats { \AllMusic }
+  \unfoldRepeats {
+    <<
+      \AllMusic
+      \new DrumStaff { \click }
+    >>
+  }
   \midi { \tempo 4 = 120 }
 }
 
diff --git a/04-white-noise/parts/click.ly b/04-white-noise/parts/click.ly
new file mode 100644
index 0000000..a6acc3a
--- /dev/null
+++ b/04-white-noise/parts/click.ly
@@ -0,0 +1,69 @@
+click = \drummode {
+  %% intro
+  \time 4/4
+  \repeat unfold 2 {
+    hh4 hh hh hh | hh hh hh hh |
+    hh  hh hh hh | hh hh hh hh |
+  }
+
+  %% main theme
+  \time 5/4
+  \repeat volta 2 {
+    bd4 hh hh hh hh | hh4 hh hh hh hh |
+    bd4 hh hh hh hh | hh4 hh hh hh hh |
+    bd4 hh hh hh hh | hh4 hh hh hh hh |
+    bd4 hh hh hh hh |
+  } \alternative {
+    { hh4 hh hh hh hh | }
+    { hh4 hh hh hh hh | }
+  }
+
+  %% white noise
+  \time 5/4
+  bd4 hh hh hh hh |
+  bd4 hh hh hh hh |
+  bd4 hh hh hh hh |
+  bd4 hh hh hh hh |
+
+  %% Thunder
+  \time 4/4
+  bd4 hh hh hh | bd hh hh hh |
+  bd4 hh hh hh | bd hh hh hh |
+
+  %% Main theme
+  \time 5/4
+  \repeat volta 2 {
+    bd4 hh hh hh hh | hh4 hh hh hh hh |
+    bd4 hh hh hh hh | hh4 hh hh hh hh |
+    bd4 hh hh hh hh | hh4 hh hh hh hh |
+    bd4 hh hh hh hh | hh4 hh hh hh hh |
+  }
+
+  %% Thunder
+  \time 4/4
+  bd4 hh hh hh | bd hh hh hh |
+  bd4 hh hh hh | bd hh hh hh |
+
+  %% Main theme
+  \time 5/4
+  \repeat volta 2 {
+    bd4 hh hh hh hh | hh4 hh hh hh hh |
+    bd4 hh hh hh hh | hh4 hh hh hh hh |
+    bd4 hh hh hh hh | hh4 hh hh hh hh |
+    bd4 hh hh hh hh | hh4 hh hh hh hh |
+  }
+
+  %% Beauty
+  \time 4/4
+  \repeat volta 2 {
+    bd4 hh hh hh | hh4 hh hh hh |
+    bd4 hh hh hh | hh4 hh hh hh |
+  }
+
+  %% TODO
+  %% solo
+  %% sweet and quiet
+  %% solo
+
+  %% april?
+}