summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorRicardo Wurmus <rekado@elephly.net>2017-04-26 22:46:49 +0200
committerRicardo Wurmus <rekado@elephly.net>2017-04-26 22:46:49 +0200
commitcf30284f43647ec836eb6af858cd4dd9ccf55011 (patch)
treecd8a5f3af6d0637dc764dae9dbee83090b71a78c
parentcfd0af625076a12b6a6195b38db321d97bd4a444 (diff)
circus: Add chord track.
-rw-r--r--03-circus/03-circus.ly5
-rw-r--r--03-circus/music/chords.ly109
2 files changed, 113 insertions, 1 deletions
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
+}