song1: Add some keyboards.

2 files changed, 110 insertions, 0 deletions

diff --git a/01-song1/01-song1.ly b/01-song1/01-song1.ly
index 57bc8f7..c35d000 100644
--- a/01-song1/01-song1.ly
+++ b/01-song1/01-song1.ly
@@ -7,10 +7,12 @@
   copyright = "2002--2016 Ricardo Wurmus"
 }
 
+\include "parts/keys.ly"
 \include "parts/stick.ly"
 \include "parts/click.ly"
 
 AllMusic = <<
+  \new Staff = "keyboard"    { \keyboard }
   \new Staff = "grand stick" { \stick }
 >>
 
diff --git a/01-song1/parts/keys.ly b/01-song1/parts/keys.ly
new file mode 100644
index 0000000..6444c9f
--- /dev/null
+++ b/01-song1/parts/keys.ly
@@ -0,0 +1,108 @@
+keysIntro = {
+  \repeat unfold 8 R1 |
+}
+
+keysA = {
+  \time 2/4
+  r2 | r2 | r2 |
+  r2 | r2 |
+  \time 6/8
+  r4. r4. |
+
+  \time 2/4
+  r2 | r2 | r2 |
+  \time 4/4
+  R1 | R1 |
+}
+
+keysAExtended = {
+  \time 4/4
+  R1 | R1 |
+  %% more intense!
+  \repeat unfold 4 {
+    R1 | R1 |
+  }
+}
+
+keysATransition = {
+  \time 4/4 R1 | R1 |
+}
+
+keysVerse = \relative c {
+  \time 4/4
+  \key cis \minor
+  cis4\sustainOn gis' cis dis8 e ~ e2.. r8\sustainOff |
+  <e, b' e fis gis>2.\arpeggio <dis b' cis dis>4\arpeggio ~ <dis b' cis dis>1 |
+  cis4\sustainOn gis' cis dis8 e ~ e2.. r8\sustainOff |
+  <e, b' e fis gis>2.\arpeggio <dis b' cis dis>4\arpeggio ~ <dis b' cis dis>1 |
+  a,2 ~ a4. <a' e' b'>8 ~ <a e' b'>1 |
+  a,2 <a' e' b'>4 b,4 ~ b1 |
+}
+
+keysVerseVariant = {
+  \time 4/4
+  \key bes \minor
+  bes4\sustainOn f' des' bes, ~ bes f' des' r\sustainOff |
+  des,\sustainOn as' f' c,\sustainOff ~ c\sustainOn as' es' c,\sustainOff |
+
+  bes4\sustainOn f' des' bes, ~ bes f' des' r\sustainOff |
+  des,\sustainOn as' f' c,\sustainOff ~ c\sustainOn as' es' c,\sustainOff |
+
+  ges8 r ges r ges r <des' f'>1
+  ges,2 <ges' des' as'>4 as,4 ~ as1 |
+}
+
+%% TODO
+keysVerseHarder = \keysVerse
+
+keysNasty = \relative c' {
+  \time 6/8
+  \key fis \minor
+  \repeat volta 2 {
+    <gis cis e>2. ~ | <gis cis e>2.  |
+    <a c es>2.      | <a c es fis>   |
+    <gis cis e>   ~ | <gis cis e>  ~ |
+    <gis cis e>   ~ | <gis cis e>    |
+
+    <gis cis e>2. ~ | <gis cis e>2. |
+    <a c es>2.     | <fis a c es> |
+    <gis cis>   ~ | <gis cis>  ~ |
+    <gis cis>   ~ | <gis cis>    |
+  }
+
+  <gis cis e>2. ~ | <gis cis e> |
+  <a c es> | <a c es ges> |
+  <gis cis e> ~ | <gis cis e> |
+
+  <ais g cis e> | <ges as c es> |
+
+  \key e \minor
+  <fis g b e> ~ | <fis g b e> |
+  <fis a c dis> |  <dis fis a c> |
+  <e g b> ~ | <e g b> |
+  <c dis fis a> |  <dis fis a c> |
+
+  <e g b> ~ | <e g b> |
+  <cis' g ais e> | <b dis a> |
+
+  <b e g> ~ | <b e g> |
+  <c dis fis a> | <a dis fis c> |
+  <b e g> ~ | <b e g> |
+  <c dis fis a>2 r4 | <b dis fis a>2. |
+}
+
+keyboard = \new PianoStaff <<
+  \new Staff \relative c' {
+    %% Intro
+    \time 4/4
+    \set PianoStaff.midiInstrument = #"electric piano 2"
+    \repeat volta 2 \keysIntro
+    \repeat volta 2 \keysA
+    \keysAExtended
+    \keysATransition
+    \repeat volta 2 \keysVerse
+    \keysVerseVariant
+    \keysVerseHarder
+    \keysNasty
+  }
+>>