From da6c1ce6e4d2e9056fa95c72a72a3b053186f3b1 Mon Sep 17 00:00:00 2001
From: rekado <rekado@elephly.net>
Date: Wed, 16 Nov 2016 23:17:29 +0100
Subject: circus: keys: Fill second part with chords.

---
 03-circus/music/keys.ly | 81 +++++++++++++++++++++++++++++++++++++------------
 1 file changed, 62 insertions(+), 19 deletions(-)

diff --git a/03-circus/music/keys.ly b/03-circus/music/keys.ly
index e44e4c2..5c5ffc3 100644
--- a/03-circus/music/keys.ly
+++ b/03-circus/music/keys.ly
@@ -197,31 +197,74 @@ keysBeforeArpeggioLower = \relative c {
 }
 
 keysArpeggioUpper = \relative c' {
-  \repeat unfold 2 {
-    <e g b>2.   ~ | q ~ | q2 r4 | r2. |
-    <d fis g>2. ~ | q ~ | q2 r4 | r2. |
-    <e g b>2.   ~ | q ~ | q | r2. |
-    <d fis g>2. ~ | q ~ | q2 r4 | r2. |
-
-  }
+  <e g b>2.   ~ | q ~ | q2 r4 | r2. |
+  <d fis a>2. ~ | q ~ | q2 r4 | r2. |
+  <e g b>2.   ~ | q ~ | q2 r4 | r2. |
+  <d fis a>2. ~ | q ~ | q2 r4 | r2. |
 }
 
 keysArpeggioLower = \relative c {
   e2. ~ | e ~ | e ~ | e |
   d2. ~ | d ~ | d ~ | d |
+  e2. ~ | e ~ | e ~ | e |
+  d2. ~ | d ~ | d ~ | d |
 }
 
-keysArpeggioLongerUpper = \relative c' {}
-keysArpeggioLongerLower = \relative c {}
+keysArpeggioHigherUpper = \relative c' {
+  <e g b>2.   ~ | q ~ | q2 r4 | r2. |
+  <d fis a>2. ~ | q ~ | q2 r4 | r2. |
+}
 
-keysDramaUpper = \relative c' {}
-keysDramaLower = \relative c {}
+keysArpeggioHigherLower = \relative c {
+  e2. ~ | e ~ | e ~ | e |
+  d2. ~ | d ~ | d ~ | d |
+}
 
-keysDramaEndingUpper = \relative c' {}
-keysDramaEndingLower = \relative c {}
+keysArpeggioLongerUpper = \relative c' {
+  <e g b>2.   ~ | q ~ | q2 r4 | r2. |
+  <d fis a>2. ~ | q ~ | q2 r4 | r2. | r2. |
+  <e g b>2.   ~ | q ~ | q ~ | q |
+  <d fis a>2. ~ | q ~ | q ~ | q |
+}
+keysArpeggioLongerLower = \relative c {
+  e2. ~ | e ~ | e ~ | e   |
+  d2. ~ | d ~ | d ~ | d ~ | d |
+  e2. ~ | e ~ | e ~ | e   |
+  d2. ~ | d ~ | d ~ | d   |
+}
 
-keysFinalUpper = \relative c' {}
-keysFinalLower = \relative c {}
+keysDramaUpper = \relative c'' {
+  \repeat unfold 2 {
+    <g b e>2 r4 | q2 r4 | q2 r4 | <g b>2 <a cis>4 |
+    <b d>2. | q2. | q2. | R2. |
+  }
+}
+keysDramaLower = \relative c {
+  \repeat unfold 2 {
+    e2 r4 | e2 r4 | e2 r4 | e2 r4 |
+    b2. | b2. | b2. | b2. |
+  }
+}
+
+keysDramaEndingUpper = \relative c' {
+  <a e' cis'>2. | q2. | q2. | q2. |
+  <e b' gis'>2. | q2. | q2. | q2. |
+}
+keysDramaEndingLower = \relative c {
+  a2. | a2. | a2. | a2. |
+  e2. | e2. | e2. | e2. |
+}
+
+keysFinalUpper = \relative c' {
+  <a e' cis'>2. | q2. | q2. | q2. |
+  <e b' gis'>2. | <cis>2. | <d a' fis'>2. | q2. |
+  q2. | q2. |
+}
+keysFinalLower = \relative c {
+  a2. | R2. | R2. | R2. |
+  e2. | cis2. | d2. | d2. |
+  d2. | d2. |
+}
 
 keyboard = <<
   \new Staff \relative c'  {
@@ -262,13 +305,13 @@ keyboard = <<
     \keysArpeggioUpper
 
     \key fis \minor
-    \transpose c d { \keysArpeggioUpper }
+    \transpose c d { \keysArpeggioHigherUpper }
     \keysDramaUpper
     \keysDramaEndingUpper
 
     \keysArpeggioLongerUpper
     \key fis \minor
-    \transpose c d { \keysArpeggioUpper }
+    \transpose c d { \keysArpeggioHigherUpper }
     \keysDramaUpper
     \keysFinalUpper
   }
@@ -310,13 +353,13 @@ keyboard = <<
     \keysArpeggioLower
 
     \key fis \minor
-    \transpose c d { \keysArpeggioLower }
+    \transpose c d { \keysArpeggioHigherLower }
     \keysDramaLower
     \keysDramaEndingLower
 
     \keysArpeggioLongerLower
     \key fis \minor
-    \transpose c d { \keysArpeggioLower }
+    \transpose c d { \keysArpeggioHigherLower }
     \keysDramaLower
     \keysFinalLower
   }
-- 
cgit v1.2.3