circus: keys: Add spooky part.

diff --git a/03-circus/parts/keyboard.ly b/03-circus/parts/keyboard.ly
index 89b1fb0b1fd1228577c08a256df503650e96bfca..473573acda9b95c2ac2b9e4a1183f501857eabae 100644 (file)
--- a/03-circus/parts/keyboard.ly
+++ b/03-circus/parts/keyboard.ly
@@ -58,6 +58,25 @@ keysSoloLower = \relative c {
   a-. c8 b | r f f r |
 }
 
+keysSpookyUpper = \relative c' {
+  \time 2/4
+  <cis fis a>2 ~ | <cis fis a> ~ | <cis fis a> ~ |
+  \time 3/4
+  <cis fis a>2.  |
+  \time 2/4
+  <d f a>2 ~ | <d f a> ~ |
+  <d f a> ~  | <d f a> ~ |
+  <d f a>    |
+}
+
+keysSpookyLower = \relative c {
+  \time 2/4
+  fis2 ~ | fis ~ | fis ~ |
+  \time 3/4
+  fis2.  |
+  \time 2/4
+  d2 ~ | d ~ | d ~ | d ~ | d |
+}
 
 
 keyboard = \new PianoStaff <<
@@ -72,7 +91,14 @@ keyboard = \new PianoStaff <<
       { \keysIntroEndUpper }
     }
 
+    %% Stick solo
     \repeat unfold 2 \keysSoloUpper
+
+    %% Spooky!
+    \key fis \minor
+    \set PianoStaff.midiInstrument = #"choir aahs"
+    \repeat volta 2 \keysSpookyUpper
+
   }
 
   \new Staff \relative c {
@@ -86,5 +112,10 @@ keyboard = \new PianoStaff <<
     }
 
     \repeat unfold 2 \keysSoloLower
+
+    %% Spooky!
+    \key fis \minor
+    \repeat volta 2 \keysSpookyLower
+
   }
 >>