From 4b944c7f83237696c640cbc982d90fe6d6ae509c Mon Sep 17 00:00:00 2001
From: rekado <rekado@elephly.net>
Date: Thu, 5 Nov 2015 10:14:22 +0100
Subject: circus: keys: Add beautiful section.

---
 03-circus/parts/keyboard.ly | 44 +++++++++++++++++++++++++-------------------
 1 file changed, 25 insertions(+), 19 deletions(-)

(limited to '03-circus')

diff --git a/03-circus/parts/keyboard.ly b/03-circus/parts/keyboard.ly
index 3ac49ef..a4466ac 100644
--- a/03-circus/parts/keyboard.ly
+++ b/03-circus/parts/keyboard.ly
@@ -135,45 +135,50 @@ keysDanceLower = \relative c {
 
 keysBeautyUpper = \relative c' {
   \repeat unfold 3 {
-    \time 4/4 { R1 | }
-    \time 3/4 { R2. | }
+    \time 4/4 { <d fis b>1 ~ | }
+    \time 3/4 { <d g b>4. <cis e a>4. | }
   }
-  \time 4/4 { R1 |}
-  \time 5/8 R8*5 |
-  \time 4/4 R1 |
+
+  \time 4/4
+  b'4.-> a a8-> g8 ~ |
+  \time 5/8
+  g4 r8 g8 fis |
+  \time 4/4
+  e4. r4 d8 r cis |
 
   \repeat volta 2 {
-    \time 7/8 { R8*7 | }
-    \time 3/4 { R2. | }
+    \time 7/8 { <d fis b>8*7 | }
+    \time 3/4 { <d g b>4. <cis e a>4. | }
 
     \repeat unfold 2 {
-      \time 4/4 { R1 | }
-      \time 3/4 { R2. | }
+      \time 4/4 { <d fis b>1 | }
+      \time 3/4 { <d g b>4. <cis e a>4. | }
     }
-    \time 4/4 { R1 |}
+    \time 4/4
+    b'4.-> a a8-> g8 ~ |
   } \alternative {
-    { \time 5/8 R8*5 |
-      \time 4/4 R1 | }
-    { \time 5/8 { R8*5 |} }
+    { \time 5/8 g4 r8 g8 fis |
+      \time 4/4 e4. r4 d8 r cis |}
+    { \time 5/8 g'4 r8 g8 fis |}
   }
 }
 
 keysBeautyLower = \relative c {
   \repeat unfold 3 {
-    \time 4/4 { R1 | }
-    \time 3/4 { R2. | }
+    \time 4/4 { b1 | }
+    \time 3/4 { d4. cis | }
   }
   \time 4/4 { R1 |}
   \time 5/8 R8*5 |
   \time 4/4 R1 |
 
   \repeat volta 2 {
-    \time 7/8 { R8*7 | }
-    \time 3/4 { R2. | }
+    \time 7/8 { b8*7 | }
+    \time 3/4 { d4. cis | }
 
     \repeat unfold 2 {
-      \time 4/4 { R1 | }
-      \time 3/4 { R2. | }
+      \time 4/4 { b1 | }
+      \time 3/4 { d4. cis | }
     }
     \time 4/4 { R1 |}
   } \alternative {
@@ -213,6 +218,7 @@ keyboard = \new PianoStaff <<
     }
 
     %% Beauty
+    \set PianoStaff.midiInstrument = #"string ensemble 1"
     \keysBeautyUpper
   }
 
-- 
cgit v1.2.3