From 039313287e922cbd8e0db62fb63e244c161e7347 Mon Sep 17 00:00:00 2001
From: rekado <rekado@elephly.net>
Date: Thu, 22 Oct 2015 18:25:17 +0200
Subject: circus: keys: Add half time feel section.

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

(limited to '03-circus')

diff --git a/03-circus/parts/keyboard.ly b/03-circus/parts/keyboard.ly
index 473573a..d29d638 100644
--- a/03-circus/parts/keyboard.ly
+++ b/03-circus/parts/keyboard.ly
@@ -78,6 +78,64 @@ keysSpookyLower = \relative c {
   d2 ~ | d ~ | d ~ | d ~ | d |
 }
 
+keysHalfUpper = \relative c' {
+  \time 2/4
+  r4 <d fis b>8-. r |
+  r4 <d fis b>8-. r |
+  r4 <d fis b>8-. r |
+  \time 3/4
+  r4 <d fis b>8-. r <d fis b>-. r |
+  \time 2/4
+  r4 <d g bes>8-. r |
+  r4 <d g bes>8-. r |
+  r4 <d g bes>8-. r |
+  r4 <d g bes>8-. r |
+  r4 <d g bes>8-. r |
+}
+
+keysHalfLower = \relative c {
+  \time 2/4
+  b4. r8 | b4. r8 | b4. r8 |
+  \time 3/4
+  b4-. r r |
+  \time 2/4
+  g-. r | g-. r | g-. r |
+  g-. r | g-. r8 g-. |
+}
+
+%% TODO
+keysWeirdUpper = \relative c' {
+  \repeat volta 2 {
+    \time 5/4 { r2. r2 |}
+    \time 9/8 { r1 r8 | }
+  } \alternative {
+    { r1 r8 |}
+    { r1 r8 |}
+  }
+}
+
+%% TODO
+keysWeirdLower = \relative c {
+  \repeat volta 2 {
+    \time 5/4 { r2. r2 |}
+    \time 9/8 { r1 r8 | }
+  } \alternative {
+    { r1 r8 |}
+    { r1 r8 |}
+  }
+}
+
+%% TODO
+keysDanceUpper = \relative c' {
+  \time 5/4 { r2. r2 | r2. r2 | }
+  \time 3/4 { r2. | r2. | }
+}
+
+%% TODO
+keysDanceLower = \relative c {
+  \time 5/4 { r2. r2 | r2. r2 | }
+  \time 3/4 { r2. | r2. | }
+}
 
 keyboard = \new PianoStaff <<
   \set PianoStaff.midiInstrument = #"reed organ"
@@ -99,6 +157,14 @@ keyboard = \new PianoStaff <<
     \set PianoStaff.midiInstrument = #"choir aahs"
     \repeat volta 2 \keysSpookyUpper
 
+    %% Half time feel
+    \key b \minor
+    \set PianoStaff.midiInstrument = #"reed organ"
+    \repeat volta 2 {
+      \repeat volta 2 \keysHalfUpper
+      \keysWeirdUpper
+      \keysDanceUpper
+    }
   }
 
   \new Staff \relative c {
@@ -117,5 +183,12 @@ keyboard = \new PianoStaff <<
     \key fis \minor
     \repeat volta 2 \keysSpookyLower
 
+    %% Half time feel
+    \key b \minor
+    \repeat volta 2 {
+      \repeat volta 2 \keysHalfLower
+      \keysWeirdLower
+      \keysDanceLower
+    }
   }
 >>
-- 
cgit v1.2.3