From c3b82c8890fe12584ece6ea25bf1c6f1be86118a Mon Sep 17 00:00:00 2001
From: rekado <rekado@elephly.net>
Date: Wed, 21 Oct 2015 16:29:29 +0200
Subject: circus: keys: Add spooky part.

---
 03-circus/parts/keyboard.ly | 31 +++++++++++++++++++++++++++++++
 1 file changed, 31 insertions(+)

(limited to '03-circus/parts')

diff --git a/03-circus/parts/keyboard.ly b/03-circus/parts/keyboard.ly
index 89b1fb0..473573a 100644
--- 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
+
   }
 >>
-- 
cgit v1.2.3