From 367f1b39644898ed605265c38d42063bbee1df71 Mon Sep 17 00:00:00 2001 From: Ricardo Wurmus Date: Sat, 1 Apr 2017 09:53:37 +0200 Subject: Add chord track (enable with LILYPOND_USE_CHORDS). This is used for the drum guide track where too much detail would distract from the click. --- 01-song1/01-song1.ly | 5 ++++ 01-song1/music/chords.ly | 62 ++++++++++++++++++++++++++++++++++++++++++++++++ 2 files changed, 67 insertions(+) create mode 100644 01-song1/music/chords.ly (limited to '01-song1') diff --git a/01-song1/01-song1.ly b/01-song1/01-song1.ly index 6ace047..c115733 100644 --- a/01-song1/01-song1.ly +++ b/01-song1/01-song1.ly @@ -11,6 +11,7 @@ \include "music/keys.ly" \include "music/stick.ly" \include "music/click.ly" +\include "music/chords.ly" \layout { ragged-last = ##t @@ -46,4 +47,8 @@ AllMusic = << } { \stick } >> +AllMusicMIDI = #(if (string-null? (getenv "LILYPOND_USE_CHORDS")) + #{ \AllMusic #} + #{ \chordTrack #}) + \include "../layouts.ly" diff --git a/01-song1/music/chords.ly b/01-song1/music/chords.ly new file mode 100644 index 0000000..7e5289a --- /dev/null +++ b/01-song1/music/chords.ly @@ -0,0 +1,62 @@ +chordsA = \relative b { + \time 2/4 + cis8 r cis r | r2 | r2 | + cis8 r cis r | r2 | \time 6/8 r2. | + + \time 2/4 + cis8 r cis r | r2 | r2 | + \time 4/4 + \chordmode { cis4.:m c:m5- cis4:m ~ | q1 | } +} + +chordsAextended = \chordmode { + cis4.:m fis:m5- cis4:m7 ~ | q1 | + cis4.:m c:m5- cis4:m ~ | q1 | + cis4.:m fis:m5- cis4:m7 ~ | q1 | +} + +chordsVerse = \chordmode { + cis1:m ~ | q1 | + e2. b,4 ~ | q1 | + cis1:m ~ | q1 | + e2. b,4 ~ | q1 | + a,1:maj7 ~ | q1 | + a,2. b,4 ~ | q1 | +} + +chordTrack = \relative b { + \set PianoStaff.midiInstrument = #"electric piano 1" + \chordmode { + %% intro + \repeat volta 4 { + \repeat volta 3 { + b,4 r8 cis2:m r8 | + } + e2 b,2 + } + } + + %% A + \repeat volta 2 \chordsA + + \chordsAextended + \chordmode { e2. a4 ~ | a1 ~ | q1 | } + + %% verses + \repeat volta 3 \chordsVerse + \transpose cis bes \chordsVerse + \chordsVerse + + \repeat volta 2 \chordsA + \chordsAextended + \keysATransitionVariant + + \nastyPause + \keysNasty + \keysWaltz + \repeat volta 2 \chordsA + \chordsAextended + \keysATransitionPreOutro + \repeat volta 2 \keysOutro + \keysEnd +} -- cgit v1.2.3