white-noise: Add shifter part.

1 files changed, 19 insertions, 0 deletions

diff --git a/04-white-noise/parts/keys.ly b/04-white-noise/parts/keys.ly
index ffacaa6..98b8541 100644
--- a/04-white-noise/parts/keys.ly
+++ b/04-white-noise/parts/keys.ly
@@ -73,6 +73,24 @@ keysEleven = \relative c' {
   r8 r4 r4 r4 r4 r4
 }
 
+keysShifter = \relative c' {
+  \key e \minor
+  \time 4/4
+  <g e'>4. b'4 <e, b'>4. ~       |
+  <e b'>8 <d b'>4 <d a'>4 d'8 r4 |
+  <g,, e'>4. b'4 <e, b'>4. ~     |
+  \time 7/8
+  <e b'>8 <d b'>4 <d a'>4 d'8 r8 |
+
+  \key fis \minor
+  \time 4/4
+  <fis, a,>4. cis'4 <cis fis,>4. ~    |
+  <cis fis,>8 <cis e,>4 <b e,>4 e8 r4 |
+  <fis, a,>4. cis'4 <cis fis,>4. ~    |
+  \time 7/8
+  <cis fis,>8 <cis e,>4 <b e,>4 e8 r8 |
+}
+
 keyboard = {
   \set Staff.midiInstrument = #"pad 3 (polysynth)"
   \set Staff.midiMinimumVolume = #0.4
@@ -107,5 +125,6 @@ keyboard = {
   \tempo 4 = 160
   \keysFast
   \repeat volta 2 \keysEleven
+  \repeat unfold 2 \keysShifter
 }