white noise: Add keyboard arpeggio part.

diff --git a/04-white-noise/parts/keys.ly b/04-white-noise/parts/keys.ly
index 6121bb6..4758381 100644 (file)
--- a/04-white-noise/parts/keys.ly
+++ b/04-white-noise/parts/keys.ly
@@ -40,6 +40,13 @@ keysThunder = \relative c'' {
   d-. d-. d-. d-. d-. d-. d-. d-.            |
 }
 
+keysArpeggio = \relative d' {
+  d8 a' d a  e' a, d e,,
+  fis cis' gis' a gis cis, fis, e
+  d' a' d a  e' a, d e,,
+  fis cis' gis' a gis cis, fis, e
+}
+
 keyboard = {
   \set Staff.midiInstrument = #"pad 8 (sweep)"
   \set Staff.midiMinimumVolume = #0.4
@@ -66,5 +73,7 @@ keyboard = {
   \time 5/4 \repeat volta 2 \keysPad
   \time 4/4 \keysThunder
   \time 5/4 \repeat volta 2 \keysPad
+  \repeat volta 2 \keysIntro
+  \repeat unfold 4 \keysArpeggio
 }
 

diff --git a/04-white-noise/parts/stick.ly b/04-white-noise/parts/stick.ly
index 57344d0..cfa745c 100644 (file)
--- a/04-white-noise/parts/stick.ly
+++ b/04-white-noise/parts/stick.ly
@@ -45,12 +45,5 @@ stick = {
     <cis fis, >2 <gis' fis, >2 
     <a e, >2 d,1 cis
   }
-
-  %% TODO: move to keyboard?
-  \repeat unfold 4 \relative c'' {
-    d'8 a' d a  e' a, d e,,
-    fis, cis' gis' a gis cis, fis, e
-    d' a' d a  e' a, d e,,
-    fis cis' gis' a gis cis, fis, e
   }
 }