white noise: Add chord track.

2 files changed, 46 insertions, 1 deletions

diff --git a/04-white-noise/04-white-noise.ly b/04-white-noise/04-white-noise.ly
index 175f29f..71cca9b 100644
--- a/04-white-noise/04-white-noise.ly
+++ b/04-white-noise/04-white-noise.ly
@@ -12,6 +12,7 @@
 \include "music/keys.ly"
 \include "music/stick.ly"
 \include "music/click.ly"
+\include "music/chords.ly"
 
 \layout {
   ragged-last = ##t
@@ -47,6 +48,8 @@ AllMusic = <<
   } { \stick }
 >>
 
-AllMusicMIDI = \AllMusic
+AllMusicMIDI = #(if (string-null? (getenv "LILYPOND_USE_CHORDS"))
+                 #{ \AllMusic #}
+                 #{ \chordTrack #})
 
 \include "../layouts.ly"
diff --git a/04-white-noise/music/chords.ly b/04-white-noise/music/chords.ly
new file mode 100644
index 0000000..bc8e164
--- /dev/null
+++ b/04-white-noise/music/chords.ly
@@ -0,0 +1,42 @@
+chordTrack = \relative c {
+  \set PianoStaff.midiInstrument = #"electric piano 1"
+  \key fis \minor
+  \time 4/4 \repeat unfold 2 \keysIntro
+  \time 5/4 \repeat volta 2 \keysPadWithoutEnd
+  \alternative {
+    {
+      \relative c' {
+        <a d fis>2.\repeatTie  ~ <a d fis>2 |
+      }
+    }
+    {
+      \time 2/4
+      \relative c' {
+        <a d fis>2\repeatTie |
+      }
+    }
+  }
+  \time 4/4 \relative c' {<a cis fis>1}
+  \whiteNoise
+  \time 4/4 \keysThunder
+  \time 5/4 \repeat volta 2 \keysPad
+  \time 4/4 \keysThunderB
+
+  \time 4/4
+  \repeat volta 2 \keysBeauty
+  \repeat unfold 2 \keysBeauty
+  \repeat unfold 2 \keysArpeggio
+
+  \keysTransition
+  \tempo 4 = 160
+  \keysFast
+
+  \repeat volta 2 \stickTotoRight
+  \transpose c d { \stickTotoRight }
+  \stickTotoRight
+
+  \transpose c d {
+    \keysShifter
+    \keysEnding
+  }
+}