circus: keys: Add comping for solo.

diff --git a/03-circus/parts/keyboard.ly b/03-circus/parts/keyboard.ly
index 5936bce067382ebc20cf6df733e2ce40781327b0..89b1fb0b1fd1228577c08a256df503650e96bfca 100644 (file)
--- 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
   }
 >>