From cf30284f43647ec836eb6af858cd4dd9ccf55011 Mon Sep 17 00:00:00 2001
From: Ricardo Wurmus <rekado@elephly.net>
Date: Wed, 26 Apr 2017 22:46:49 +0200
Subject: circus: Add chord track.

---
 03-circus/03-circus.ly    |   5 ++-
 03-circus/music/chords.ly | 109 ++++++++++++++++++++++++++++++++++++++++++++++
 2 files changed, 113 insertions(+), 1 deletion(-)
 create mode 100644 03-circus/music/chords.ly

diff --git a/03-circus/03-circus.ly b/03-circus/03-circus.ly
index 7b2b20d..c2aa194 100644
--- a/03-circus/03-circus.ly
+++ b/03-circus/03-circus.ly
@@ -10,6 +10,7 @@
 \include "music/keys.ly"
 \include "music/stick.ly"
 \include "music/click.ly"
+\include "music/chords.ly"
 
 \layout {
   ragged-last = ##t
@@ -49,6 +50,8 @@ AllMusic = <<
   } { \stick }
 >>
 
-AllMusicMIDI = \AllMusic
+AllMusicMIDI = #(if (string-null? (getenv "LILYPOND_USE_CHORDS"))
+                 #{ \AllMusic #}
+                 #{ \chordTrack #})
 
 \include "../layouts.ly"
diff --git a/03-circus/music/chords.ly b/03-circus/music/chords.ly
new file mode 100644
index 0000000..9318a8a
--- /dev/null
+++ b/03-circus/music/chords.ly
@@ -0,0 +1,109 @@
+\include "keys.ly"
+
+chordTrack = \relative c {
+  \set PianoStaff.midiInstrument = #"electric piano 1"
+  %% intro
+  \time 2/4
+  R2 | r4 r8 <cis e g> ~ |
+
+  \repeat volta 2 {
+    <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>-. 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 |
+  }
+  \alternative {
+    { R2 | }
+    {
+      R2 |
+      r8 <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 gis>-. |
+    }
+  }
+
+  %% solo
+  \repeat unfold 2 {
+    \time 2/4
+    r8 <cis e gis>-. r <cis e gis>-. |
+    r  <cis e gis>-. r <cis e gis>-. |
+    r  <cis e gis>-. r <cis e gis>-. |
+    \time 3/4
+    r  <cis e gis>-. r r <cis e gis>-. r |
+    \time 2/4
+    r8 <c e a>-. r <c e a>-. |
+    r  <c e a>-. r <c e a>-. |
+    r  <c e a>-. r <c e a>-. |
+    r  <c e a>-. r  r        |
+    <c e a>-. r r <c e a>-.  |
+  }
+
+  %% spooky
+  \repeat volta 2 {
+    \time 2/4
+    <cis fis a>2 ~ | <cis fis a> ~ | <cis fis a> ~ |
+    \time 3/4
+    <cis fis a>2.  |
+    \time 2/4
+    <d f a>2 ~ | <d f a> ~ |
+    <d f a> ~  | <d f a> ~ |
+    <d f a>    |
+  }
+
+  %% half time
+  \repeat volta 2 {
+    \repeat volta 2 {
+      \time 2/4
+      r4 <d fis b>8-. r |
+      r4 <d fis b>8-. r |
+      r4 <d fis b>8-. r |
+      \time 3/4
+      r4 <d fis b>8-. r <d fis b>-. r |
+      \time 2/4
+      r4 <d g bes>8-. r |
+      r4 <d g bes>8-. r |
+      r4 <d g bes>8-. r |
+      r4 <d g bes>8-. r |
+      r4 <d g bes>8-. r |
+    }
+
+    %% weird
+    \repeat volta 2 {
+      \time 5/4 { <d g b>4*5 |}
+      \time 9/8 { <d fis b>8*9 |}
+    } \alternative {
+      { <d fis b>8*9 |}
+    }
+
+    %% dance
+    \time 5/4 { <d g b>4 r2 r2 | <d fis b>4 r2 r2 | }
+    \time 3/4 { <d g b>2. | <e ais fis>4 ~ <d ais' fis>4 r4 | }
+  }
+
+  %% beauty
+  \keysBeautyLower
+
+  %% before arp
+  \time 3/4
+  e2. ~ | e2. ~ | e2. ~ | e2. |
+
+  \keysArpeggioUpper
+  \key fis \minor
+  \transpose c d { \keysArpeggioHigherUpper }
+
+  \keysDramaUpper
+  \keysDramaEndingUpper
+
+  \keysArpeggioLongerUpper
+  \key fis \minor
+  \transpose c d { \keysArpeggioHigherUpper }
+  \keysDramaUpper
+  \keysFinalUpper
+}
-- 
cgit v1.2.3