circus: keyboard: use variables
authorrekado <rekado@elephly.net>
Sat, 17 Oct 2015 21:02:30 +0000 (23:02 +0200)
committerrekado <rekado@elephly.net>
Sat, 17 Oct 2015 21:03:35 +0000 (23:03 +0200)
03-circus/parts/keyboard.ly

index 8fe5a0f..4a7e588 100644 (file)
@@ -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
   }
 >>