From 38f8d033914fd143bcec517c336b110f513e3164 Mon Sep 17 00:00:00 2001
From: rekado <rekado@elephly.net>
Date: Tue, 15 Nov 2016 10:50:52 +0100
Subject: circus: keys: Pad out second half.

---
 03-circus/music/keys.ly | 69 +++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 69 insertions(+)

diff --git a/03-circus/music/keys.ly b/03-circus/music/keys.ly
index f1260cf..c406f3b 100644
--- a/03-circus/music/keys.ly
+++ b/03-circus/music/keys.ly
@@ -188,6 +188,43 @@ keysBeautyLower = \relative c {
   }
 }
 
+keysBeforeArpeggioUpper = \relative c' {
+  \time 3/4 r2. | r2. ~ | r2. ~ | r2. |
+}
+
+keysBeforeArpeggioLower = \relative c {
+  \time 3/4 r2. | r2. ~ | r2. ~ | r2. |
+}
+
+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. |
+
+  }
+}
+
+keysArpeggioLower = \relative c {
+  \repeat unfold 2 {
+    e2. ~ | q ~ | q ~ | q |
+    d2. ~ | q ~ | q ~ | q |
+  }
+}
+
+keysArpeggioLongerUpper = \relative c' {}
+keysArpeggioLongerLower = \relative c {}
+
+keysDramaUpper = \relative c' {}
+keysDramaLower = \relative c {}
+
+keysDramaEndingUpper = \relative c' {}
+keysDramaEndingLower = \relative c {}
+
+keysFinalUpper = \relative c' {}
+keysFinalLower = \relative c {}
+
 keyboard = <<
   \new Staff \relative c'  {
     \set Staff.midiInstrument = #"reed organ"
@@ -220,6 +257,22 @@ keyboard = <<
     %% Beauty
     \set Staff.midiInstrument = #"string ensemble 1"
     \keysBeautyUpper
+
+    %% Arpeggio
+    \key e \minor
+    \keysBeforeArpeggioUpper
+    \keysArpeggioUpper
+
+    \key fis \minor
+    \transpose c d { \keysArpeggioUpper }
+    \keysDramaUpper
+    \keysDramaEndingUpper
+
+    \keysArpeggioLongerUpper
+    \key fis \minor
+    \transpose c d { \keysArpeggioUpper }
+    \keysDramaUpper
+    \keysFinalUpper
   }
 
   \new Staff \relative c {
@@ -252,5 +305,21 @@ keyboard = <<
     %% Beauty
     \set Staff.midiInstrument = #"string ensemble 1"
     \keysBeautyLower
+
+    %% Arpeggio
+    \key e \minor
+    \keysBeforeArpeggioLower
+    \keysArpeggioLower
+
+    \key fis \minor
+    \transpose c d { \keysArpeggioLower }
+    \keysDramaLower
+    \keysDramaEndingLower
+
+    \keysArpeggioLongerLower
+    \key fis \minor
+    \transpose c d { \keysArpeggioLower }
+    \keysDramaLower
+    \keysFinalLower
   }
 >>
-- 
cgit v1.2.3