From 2544492e7bd2e6bab19d3f055cffee84079fdbb2 Mon Sep 17 00:00:00 2001
From: rekado <rekado@elephly.net>
Date: Wed, 21 Oct 2015 16:06:32 +0200
Subject: circus: keys: Add comping for solo.

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

(limited to '03-circus')

diff --git a/03-circus/parts/keyboard.ly b/03-circus/parts/keyboard.ly
index 5936bce..89b1fb0 100644
--- a/03-circus/parts/keyboard.ly
+++ b/03-circus/parts/keyboard.ly
@@ -32,6 +32,34 @@ keysIntroEndLower = \relative c {
   cis-.  gis-. | cis-. gis-. |
 }
 
+keysSoloUpper = \relative c' {
+  \time 2/4
+  r8 <cis e gis>-. r <cis e gis>-. |
+  r  <cis e gis>-. r <cis e gis>-. |
+  r  <cis e gis>-. r <cis e gis>-. |
+  \time 3/4
+  r  <cis e gis>-. r r <cis e gis>-. r |
+  \time 2/4
+  r8 <c e a>-. r <c e a>-. |
+  r  <c e a>-. r <c e a>-. |
+  r  <c e a>-. r <c e a>-. |
+  r  <c e a>-. r  r        |
+  <c e a>-. r r <c e a>-.  |
+}
+
+keysSoloLower = \relative c {
+  \time 2/4
+  cis4-. gis-. | cis-. gis-. |
+  cis-.  gis-. |
+  \time 3/4
+  cis8 r gis gis r gis |
+  \time 2/4
+  a4-. e-. | a-. e-. | a-. e-. |
+  a-. c8 b | r f f r |
+}
+
+
+
 keyboard = \new PianoStaff <<
   \set PianoStaff.midiInstrument = #"reed organ"
   \new Staff \relative c'  {
@@ -43,6 +71,8 @@ keyboard = \new PianoStaff <<
       { r2   | }
       { \keysIntroEndUpper }
     }
+
+    \repeat unfold 2 \keysSoloUpper
   }
 
   \new Staff \relative c {
@@ -54,5 +84,7 @@ keyboard = \new PianoStaff <<
       { r2   | }
       { \keysIntroEndLower }
     }
+
+    \repeat unfold 2 \keysSoloLower
   }
 >>
-- 
cgit v1.2.3