From b33da4c31629a753839b6eabc3c949fac6b9b908 Mon Sep 17 00:00:00 2001
From: Ricardo Wurmus <rekado@elephly.net>
Date: Sat, 6 May 2017 22:04:56 +0200
Subject: song 2: Add simple chord track.

---
 02-song2/02-song2.ly     |  5 ++-
 02-song2/music/chords.ly | 84 ++++++++++++++++++++++++++++++++++++++++++++++++
 2 files changed, 88 insertions(+), 1 deletion(-)
 create mode 100644 02-song2/music/chords.ly

diff --git a/02-song2/02-song2.ly b/02-song2/02-song2.ly
index f5089ee..99e7a20 100644
--- a/02-song2/02-song2.ly
+++ b/02-song2/02-song2.ly
@@ -11,6 +11,7 @@
 \include "music/stick.ly"
 \include "music/guitar.ly"
 \include "music/click.ly"
+\include "music/chords.ly"
 
 \layout {
   ragged-last = ##t
@@ -54,6 +55,8 @@ AllMusic = <<
   } { \tabChordRepeats \guitar }
 >>
 
-AllMusicMIDI = \AllMusic
+AllMusicMIDI = #(if (string-null? (getenv "LILYPOND_USE_CHORDS"))
+                 #{ \AllMusic #}
+                 #{ \chordTrack #})
 
 \include "../layouts.ly"
diff --git a/02-song2/music/chords.ly b/02-song2/music/chords.ly
new file mode 100644
index 0000000..20f8aa2
--- /dev/null
+++ b/02-song2/music/chords.ly
@@ -0,0 +1,84 @@
+chordsIntro = \relative c {
+  \repeat volta 4 {
+    <b a' d>4. <b gis' d'>4. ~ q4 |
+    <b d' g>4. <b d' fis>4. ~ q4 |
+  }
+}
+
+chordsStanza = \relative c {
+  \repeat volta 2 {
+    <b a' d>4. <b gis' d'>4. ~ q4 |
+    <b d' g>4. <b d' fis>4. ~ q4 |
+
+    <b a' d>4. <e, gis' d'>4. ~ q4 |
+  } \alternative {
+    { <b' g'>4.  <b fis'>2 r8 |}
+    { <b g' d'>8. <a e'>8. <d fis a>8 ~ q2 |}
+  }
+}
+
+chordsB = \relative c' {
+  <e b cis, >4. <e ais, cis,>4. ~ q4 |
+  <e a, c, >4. <e b gis b, >4. ~ q4 |
+  <e b cis, >4. <e ais, cis, >4. ~ q4 |
+  <a e cis a a, >4. <gis e b gis e e, >8*5
+}
+
+chordTrack = \relative c {
+  \set PianoStaff.midiInstrument = #"electric piano 1"
+  \time 4/4
+  \key b \minor
+  \chordsIntro
+  \repeat volta 2 {
+    \key b \minor
+    \chordsStanza
+    \key e \major
+    \chordsB
+  }
+
+  \repeat volta 2 {
+    <cis' fis a>1 | <b e gis>1   |
+    <a d fis>1   | <a cis fis>1 |
+  }
+
+  \transpose c d {
+  \repeat volta 2 {
+    r16 <b e>8 <a d>16 <b e>8 <a d>16
+    <b e>8 <b e>8 r16 r4           |
+    r16 <b e>8 <a d>16 <b e>8 <a d>16
+    <b e>16 r16 <b e>16 <a d>4 r8 |
+  }
+  \repeat volta 2 {
+    r16 g8 fis16 g8 fis16 g8 g8 r16 r4 |
+    r16 g8 fis16 g8 fis16 g16 r16 g16 fis4 r8 |
+  }}
+
+  \time 6/8
+  <fis a cis fis>2. | <e a cis fis>2. |
+  <fis a d>2. | <fis a cis>2. |
+  <cis fis a cis>2. | <fis gis cis>2. |
+  <fis b cis>2. | <fis a cis>2. |
+
+  %% three
+  \transpose c d {
+  \time 6/8
+  \repeat volta 2 {
+    <d'\5 fis\4>16  <e\5 g\4>8 q q16   q16 <fis\5 a\4>8 q q16 |
+    q16 <g\5 b\4>8 q r16 a,8\5 <a\5 a'\4 cis\3 g'\2> q |
+  }
+
+  <c\5 e\4 g\3 d'\2>16 q r q r q
+  q16 <d\5 fis\4 g\3 e'\2>8 q8 q16 |
+  r16 <c\5 e\4 g\3 d'\2> r q r q
+  q16 <d\5 fis\4 g\3 e'\2>8 q8 q16 |
+
+  <c\5 e\4 g\3 d'\2>16 q r q r q
+  q16 <d\5 fis\4 g\3 e'\2>8 q8 q16 |
+  r16 <b\5 es\4 a\3 d'\2>8 q r16 q8 q r8 |
+  }
+  
+  \keysMartaRekado
+  \stickRepriseLeft
+  \keysFinal
+}
+
-- 
cgit v1.2.3