From 6f414f6c217be03ca7b4c38f60a82e7207ec31b3 Mon Sep 17 00:00:00 2001
From: rekado <rekado@elephly.net>
Date: Sat, 17 Oct 2015 23:02:30 +0200
Subject: circus: keyboard: use variables

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

(limited to '03-circus/parts')

diff --git a/03-circus/parts/keyboard.ly b/03-circus/parts/keyboard.ly
index 8fe5a0f..4a7e588 100644
--- a/03-circus/parts/keyboard.ly
+++ b/03-circus/parts/keyboard.ly
@@ -1,19 +1,35 @@
+keyboardIntroUpper = \relative c' {
+  <cis e g> ~ <cis e gis>-. r <cis e gis>-. r <cis e gis>-. r <cis e gis>-.
+  r <cis e gis>-. r <cis e gis>-. r <cis e gis>-. r
+
+  <cis e g>8 ~
+  <cis e g>8 ~ <cis e gis>-.
+  r <cis e gis>-. r <cis e gis>-. r <cis e gis>-.
+  r <cis e gis>-. r <cis e gis>-.
+
+  <dis fis ais>8 r r <d fis ais>8 ~ <d fis ais>2 |
+  <dis fis ais>8 r r <d fis ais>8 ~ <d fis ais>2 |
+  r2 |
+}
+
+keyboardIntroLower = \relative c {
+  cis4-. gis-. cis-. gis-.
+  cis-. gis-. cis-. r8 cis ~
+  cis4 gis-. cis-. gis-.
+  cis-. gis-.
+  dis8 r r d ~ d2 |
+  dis8 r r d ~ d2 |
+  r2 |
+}
+
 keyboard = \new PianoStaff <<
   \new Staff \relative c'  {
     \set Staff.midiInstrument = #"accordion"
     \time 2/4
     \key cis \minor
     r4 r8 <cis e g> ~ |
-    <cis e g> ~ <cis e gis>-. r <cis e gis>-. r <cis e gis>-. r <cis e gis>-.
-    r <cis e gis>-. r <cis e gis>-. r <cis e gis>-. r
-    
-    <cis e g>8 ~
-    <cis e g>8 ~ <cis e gis>-.
-    r <cis e gis>-. r <cis e gis>-. r <cis e gis>-.
-    r <cis e gis>-. r <cis e gis>-.
-
-    <dis fis ais>8 r r <d fis ais>8 ~ <d fis ais>2 |
-    <dis fis ais>8 r r <d fis ais>8 ~ <d fis ais>2 |
+    \keyboardIntroUpper
+    \keyboardIntroUpper
   }
 
   \new Staff \relative c {
@@ -21,11 +37,7 @@ keyboard = \new PianoStaff <<
     \clef bass
     \key cis \minor
     r2 |
-    cis4-. gis-. cis-. gis-.
-    cis-. gis-. cis-. r8 cis ~
-    cis4 gis-. cis-. gis-.
-    cis-. gis-.
-    dis8 r r d ~ d2
-    dis8 r r d ~ d2
+    \keyboardIntroLower
+    \keyboardIntroLower
   }
 >>
-- 
cgit v1.2.3