-\version "2.16.0"
+\version "2.19.0"
\include "pop-chords.ly"
\include "english.ly"
-% Good sizes are 16, 18, & 20
+% Good sizes are 16, 18, & 20 (11, 13, 14, 23, 26)
staffSize = #18
#(set-default-paper-size "letter")
#(set-global-staff-size staffSize)
\header
{
-%Let's bump up the title size and switch to the chord font. :-)
-
title = \markup { \override #'(font-family . sans) \fontsize #3.5 "My Redeemer Lives" }
composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "Reuben Morgan" }
arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "arr. Drippin’ Soul" }
%
-% Lead vocal
+% Song's structure
%
-
-LeadVox = \relative c''
+Global =
{
-% \set Voice.autoBeaming = ##f
-% \set Staff.instrument = #"Lead vox"
\clef G
\key e \major
- \override Staff.TimeSignature #'style = #'()
+ \numericTimeSignature
\time 4/4
-\override Score.SpacingSpanner #'average-spacing-wishes = ##f
-
- % Intro
-
- \repeat volta 2
- {
- R1 | % 1
- R1 | % 2
- }
\repeat volta 3
{
+ % Intro
+
+ s1*4 \bar "||" % 1-4
+
% Verse
-\mark \markup { \override #'(font-family . sans) { \box { A } } }
-
- r4 gs gs4. fs8 | % 3
- fs8 e cs e ~ e4 r | % 4
- r4 gs gs4. fs8 | % 5
- fs8 e cs e ~ e e fs gs ~ ( | % 6
- gs2 ~ gs4. ~ gs16 fs | % 7
- e4 ) r r8 a a a ( | % 8
- gs4 ) r r2 | % 9
- R1 | % 10
- r4 gs gs4. fs8 | % 11
- fs8 e cs e ~ e4 r | % 12
- r4 gs gs4. fs8 | % 13
- fs8 e cs e ~ e e fs gs ~ ( | % 14
- gs2 ~ gs4. ~ gs16 fs | % 15
- e4 ) r r8 a a a ( | % 16
- gs4 ) r r2 | % 17
- R1 \bar "||" % 18
+ \mark \markup { \override #'(font-family . sans) { \box { A } } }
+ s1*16 \bar "||" % 5-20
% Prechorus
-\mark \markup { \override #'(font-family . sans) { \box { B } } }
-
- r4 fs fs e8 fs ~ | % 19
- fs8 gs4. r2 | % 20
- r8 e a4 a r8 a8 | % 21
- a8 gs a8 b ~ b r gs b \bar "||" % 22
+ \mark \markup { \override #'(font-family . sans) { \box { B } } }
+ s1*4 \bar "||" % 21-24
% Chorus
-\mark \markup { \override #'(font-family . sans) { \box { C } } \hspace #1.0 \raise #2.0 \musicglyph #"scripts.segno" }
+ \mark \markup { \override #'(font-family . sans) { \box { C } } \hspace #1.0 \raise #2.0 \musicglyph #"scripts.segno" }
- b2 gs4. e8 ~ | % 23
- e4 r r gs8 b | % 24
- b2 gs4. a16 ( gs | % 25
- fs4 ) r r gs8 b | % 26
- b2 gs4. e8 ~ | % 27
- e4 r r gs8 b | % 28
+ s1*6 | % 25-30
}
\alternative
{
{
- b2 gs4. a16 ( gs | % 29
- fs2. ) r4 | % 30
+ s1*2 | % 31-32
}
{
- b2 gs4. a16 ( gs | % 31
- fs2. ) r4^\markup { \hspace #0.0 \raise #0.6 { D.S. } } \bar "||" % 32
+ s1 | % 33
+ s2. s4^\markup { \hspace #0.0 \raise #0.6 { D.S. } } \bar "||" % 34
}
{
- b2 gs4. a16 ( gs | % 33
- fs2. ) r4 | % 34
+ s1*2 | % 35-36
}
}
- r1-\fermata \bar "|." % 35
+ s1 \bar "|." % 37
+}
+
+
+%
+% Lead vocal
+%
+LeadVox = \relative c''
+{
+ % Intro
+
+ R1 | % 1
+ R1 | % 2
+ R1 | % 3
+ R1 | % 4
+
+ % Verse
+
+ r4 gs gs4. fs8 | % 5
+ fs8 e cs e ~ e4 r | % 6
+ r4 gs gs4. fs8 | % 7
+ fs8 e cs e ~ e e fs gs ~ ( | % 8
+ gs2 ~ gs4. ~ gs16 fs | % 9
+ e4 ) r r8 a a a ( | % 10
+ gs4 ) r r2 | % 11
+ R1 | % 12
+ r4 gs gs4. fs8 | % 13
+ fs8 e cs e ~ e4 r | % 14
+ r4 gs gs4. fs8 | % 15
+ fs8 e cs e ~ e e fs gs ~ ( | % 16
+ gs2 ~ gs4. ~ gs16 fs | % 17
+ e4 ) r r8 a a a ( | % 18
+ gs4 ) r r2 | % 19
+ R1 | % 20
+
+ % Prechorus
+
+ r4 fs fs e8 fs ~ | % 21
+ fs8 gs4. r2 | % 22
+ r8 e a4 a r8 a8 | % 23
+ a8 gs a8 b ~ b r gs b | % 24
+
+ % Chorus
+
+ b2 gs4. e8 ~ | % 25
+ e4 r r gs8 b | % 26
+ b2 gs4. a16 ( gs | % 27
+ fs4 ) r r gs8 b | % 28
+ b2 gs4. e8 ~ | % 29
+ e4 r r gs8 b | % 30
+
+ b2 gs4. a16 ( gs | % 31
+ fs2. ) r4 | % 32
+
+ b2 gs4. a16 ( gs | % 33
+ fs2. ) r4 | % 34
+
+ b2 gs4. a16 ( gs | % 35
+ fs2. ) r4 | % 36
+
+ r1-\fermata | % 37
}
+
LeadVoxText = \lyricmode
{
I know he res -- cued my soul, __ _
%
% Riff/rhythm figures
%
-
Riffs = \relative c''
{
- \clef G
- \key e \major
- \override Staff.TimeSignature #'style = #'()
- \time 4/4
-\override Score.SpacingSpanner #'average-spacing-wishes = ##f
-
% Intro
%{
%
% Chord names
%
-
Chords = \chordmode
{
-%Needed???
- \override SeparatingGroupSpanner #'padding = #'2.0
-% Bah, can't we set this globally?
-% \popChords
-
% Intro
- \repeat volta 2
- {
- e1:7 | % 1
- a1:7 | % 2
- }
-
- \repeat volta 3
- {
- % Verse
-
- e1:7 | % 3
- a1 | % 4
- e1:7 | % 5
- a1 | % 6
- e1:7 | % 7
- a1:7 | % 8
- e1:7 | % 9
- a1:7 | % 10
- e1:7 | % 11
- a1 | % 12
- e1:7 | % 13
- a1 | % 14
- e1:7 | % 15
- a1:7 | % 16
- e1:7 | % 17
- a1:7 | % 18
-
- % Prechorus
-
- b1:sus4 | % 19
- s1 | % 20
- a1 | % 21
- a1/b | % 22
-
- % Chorus
-
- e1 | % 23
- a1 | % 24
- cs1:m7 | % 25
- b1:sus4 | % 26
- e1 | % 27
- a1 | % 28
- }
- \alternative
- {
- {
- cs1:m7 | % 29
- b1:sus4 | % 30
- }
- {
- cs1:m7 | % 31
- b1:sus4 | % 32
- }
- {
- cs1:m7 | % 33
- b1:sus4 | % 34
- }
- }
-
- e1:^3 | % 35
+ e1:7 | % 1
+ a1:7 | % 2
+ e1:7 | % 3
+ a1:7 | % 4
+
+ % Verse
+
+ e1:7 | % 5
+ a1 | % 6
+ e1:7 | % 7
+ a1 | % 8
+ e1:7 | % 9
+ a1:7 | % 10
+ e1:7 | % 11
+ a1:7 | % 12
+ e1:7 | % 13
+ a1 | % 14
+ e1:7 | % 15
+ a1 | % 16
+ e1:7 | % 17
+ a1:7 | % 18
+ e1:7 | % 19
+ a1:7 | % 20
+
+ % Prechorus
+
+ b1:sus4 | % 21
+ s1 | % 22
+ a1 | % 23
+ a1/b | % 24
+
+ % Chorus
+
+ e1 | % 25
+ a1 | % 26
+ cs1:m7 | % 27
+ b1:sus4 | % 28
+ e1 | % 29
+ a1 | % 30
+
+ cs1:m7 | % 31
+ b1:sus4 | % 32
+
+ cs1:m7 | % 33
+ b1:sus4 | % 34
+
+ cs1:m7 | % 35
+ b1:sus4 | % 36
+
+ e1:^3 | % 37
}
%
% Chord rhythms
%
-
-% Use a RhythmicStaff on the chords instead of this?
-% It almost works, but not quite. Doesn't collapse chords above to single notes...
-
StaffC = \relative c
{
-% \set Voice.autoBeaming = ##f
-% \set Staff.instrument = #"Rhythm"
- \override Staff.TimeSignature #'style = #'()
- \time 4/4
+ \numericTimeSignature
\override NoteHead #'style = #'slash
+ \teeny
% Intro
- \repeat volta 2
- {
- c4 c c c | % 1
- c4 c c c | % 2
- }
-
- \repeat volta 3
- {
- % Verse
-
- c4 c c c | % 3
- c4 c c c | % 4
- c4 c c c | % 5
- c4 c c c | % 6
- c4 c c c | % 7
- c4 c c c | % 8
- c4 c c c | % 9
- c4 c c c | % 10
- c4 c c c | % 11
- c4 c c c | % 12
- c4 c c c | % 13
- c4 c c c | % 14
- c4 c c c | % 15
- c4 c c c | % 16
- c4 c c c | % 17
- c4 c c c \bar "||" % 18
-
- % Prechorus
-
- c4 c c c | % 19
- c4 c c c | % 20
- c4 c c c | % 21
- c4 c c c \bar "||" % 22
-
- % Chorus
-
- c4 c c c | % 23
- c4 c c c | % 24
- c4 c c c | % 25
- c4 c c c | % 26
- c4 c c c | % 27
- c4 c c c | % 28
- }
- \alternative
- {
- {
- c4 c c c | % 29
- c4 c c c | % 30
- }
- {
- c4 c c c | % 31
- c4 c c c | % 32
- }
- {
- c4 c c c | % 33
- c4 c c c | % 34
- }
- }
-
- c1-\fermata \bar "|." % 35
+ c4 c c c | % 1
+ c4 c c c | % 2
+ c4 c c c | % 3
+ c4 c c c | % 4
+
+ % Verse
+
+ c4 c c c | % 5
+ c4 c c c | % 6
+ c4 c c c | % 7
+ c4 c c c | % 8
+ c4 c c c | % 9
+ c4 c c c | % 10
+ c4 c c c | % 11
+ c4 c c c | % 12
+ c4 c c c | % 13
+ c4 c c c | % 14
+ c4 c c c | % 15
+ c4 c c c | % 16
+ c4 c c c | % 17
+ c4 c c c | % 18
+ c4 c c c | % 19
+ c4 c c c | % 20
+
+ % Prechorus
+
+ c4 c c c | % 21
+ c4 c c c | % 22
+ c4 c c c | % 23
+ c4 c c c | % 24
+
+ % Chorus
+
+ c4 c c c | % 25
+ c4 c c c | % 26
+ c4 c c c | % 27
+ c4 c c c | % 28
+ c4 c c c | % 29
+ c4 c c c | % 30
+
+ c4 c c c | % 31
+ c4 c c c | % 32
+
+ c4 c c c | % 33
+ c4 c c c | % 34
+
+ c4 c c c | % 35
+ c4 c c c | % 36
+
+ c1-\fermata | % 37
}
\score
{
<<
+ \Global % The "roadmap" that everything else depends on
+
+ \context Staff
<<
-% \new Staff = leadStaff { \new Voice = "lead" \LeadVox }
- \new Staff = leadStaff { << \new Voice = "lead" \LeadVox \new Voice = "riffs" \Riffs >> }
+ \new Voice = "lead" \LeadVox
+ \new Voice = "riffs" \Riffs
\new Lyrics \lyricsto "lead" \LeadVoxText
>>
- \new ChoirStaff = "Rhythm"
+ \new ChoirStaff
<<
- \new ChordNames = "chords" \Chords
- \new RhythmicStaff = "chordRhythm" << \StaffC \Dynamics >>
+ \new ChordNames \Chords
+ \new RhythmicStaff << \StaffC \Dynamics >>
>>
\set Score.skipBars = ##t
\paper
{
- #(define fonts (make-pango-font-tree
- "Times New Roman"
- "DomCasual BT"
- "Luxi Mono"
- (/ staffSize 20)))
+ #(define fonts (make-pango-font-tree
+ "Times New Roman"
+ "LilyJAZZText"
+ "Luxi Mono"
+ (/ staffSize 20)))
+
+% Don't spread staves vertically across last page (default: t)
+% ragged-last-bottom = ##f
+% Don't spread staves vertically across the page (default: f)
+% ragged-bottom = ##t
+% Allow partial line for last stave (default: f)
+% ragged-last = ##t
+
+% To find out what's eating the space at the top...
+% annotate-spacing = ##t
}
+