summaryrefslogtreecommitdiff
path: root/04-white-noise
diff options
context:
space:
mode:
authorRicardo Wurmus <rekado@elephly.net>2017-05-07 08:06:52 +0200
committerRicardo Wurmus <rekado@elephly.net>2017-05-07 08:06:52 +0200
commit3f0e01390335e9899f99dcc9e243f52d535a3b79 (patch)
treecd16c2b84ce693715d0050673848aa2135066dd4 /04-white-noise
parentb33da4c31629a753839b6eabc3c949fac6b9b908 (diff)
white noise: Add chord track.
Diffstat (limited to '04-white-noise')
-rw-r--r--04-white-noise/04-white-noise.ly5
-rw-r--r--04-white-noise/music/chords.ly42
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
+ }
+}