]> Shamusworld >> Repos - music/blobdiff - he-who-began-a-good-work-in-you.ly
Update to ensure charts work with latest version of Lilypond.
[music] / he-who-began-a-good-work-in-you.ly
index 817908cef5770a9a87cbe7dcb28f54cda75bc369..47e36cbc24c2a21eb11e62834ace72cd5b0dec37 100644 (file)
@@ -19,42 +19,104 @@ staffSize = #16
 
 
 %
-% Lead vocal
+% Song's structure
 %
-
-LeadXvoxA = \relative c'
+Global =
 {
-%      \set Voice.autoBeaming = ##f
-       \set Staff.instrumentName = #"Lead vox"
        \clef G
        \key a \major
+       \numericTimeSignature
        \time 4/4
-\override Score.SpacingSpanner #'average-spacing-wishes = ##f
-
-%      \set Score.markFormatter = #format-mark-box-letters
 
        \repeat volta 2
        {
-               R1^"Moderately, not too slow" |   % 1
-               R1 |   % 2
+               s1^"Moderately, not too slow" |   % 1
+               s1 |   % 2
        }
        \alternative
        {
                {
-                       R1 |   % 3
-                       R1 |   % 4
+                       s1*2 |   % 3-4
                }
                {
-                       R1 |   % 5
-                       R1 \bar "||"   % 6
+                       s1*2 \bar "||"   % 5-6
                }
        }
 
        % Chorus
 
-%\mark \markup { \override #'(font-family . sans) { \box { A } } }
-\once \override Score.RehearsalMark #'self-alignment-X = #left
-\mark \markup { \override #'(font-family . sans) { \box { A } } \hspace #1.0 \raise #2.0 \musicglyph #"scripts.segno" }
+       \once \override Score.RehearsalMark #'self-alignment-X = #left
+       \mark \markup { \override #'(font-family . sans) { \box { A } } \hspace #1.0 \raise #2.0 \musicglyph #"scripts.segno" }
+
+       s1*12 |   % 7-18
+
+       s2... \once \override Score.RehearsalMark #'self-alignment-X = #right
+       \mark \markup { \italic { to Coda } \hspace #1.0 \musicglyph #"scripts.coda" } s16 |   % 19
+
+       s1 \bar "||"   % 20
+
+       % Interlude
+
+       s1*4 \bar"||"   % 21-24
+
+       % Verse
+
+       \mark \markup { \override #'(font-family . sans) { \box { B } } }
+
+       s1*15 |   % 25-39
+       R1
+       \once \override Score.RehearsalMark #'self-alignment-X = #right
+       \mark "D.S. al Coda"
+       \bar "||"   % 40
+%      \break
+
+       % Coda (chorus again)
+
+\stopStaff s1 \startStaff
+% s1
+\set Score.currentBarNumber = #41
+
+       \once \override Score.RehearsalMark #'self-alignment-X = #left
+       \mark \markup { { \musicglyph #"scripts.coda" } "Coda" }
+
+       s1 \bar "||"   % 43
+
+       \mark \markup { \override #'(font-family . sans) { \box { C } } }
+
+       s1*14 |   % 42-55
+
+       % Ending
+
+       \repeat volta 2
+       {
+               s1*2 |   % 56-57
+       }
+       \alternative
+       {
+               {
+                       s1*2 |   % 58-59
+               }
+               {
+                       s1 |   % 60
+               }
+       }
+
+       s1 \bar "|."   % 61
+}
+
+
+%
+% Lead vocal
+%
+LeadXvoxA = \relative c'
+{
+       \clef G
+
+       % Intro
+
+       R1*6 |   % 1-6
+
+       % Chorus
 
        \stemUp a'4. gs8 ~ gs4 r8 e |   % 7
        fs [ gs ] a [ b ~ ] b gs4 e8 ~ |   % 8
@@ -69,10 +131,6 @@ LeadXvoxA = \relative c'
        d [ cs ] \stemUp b [ a ] \stemDown cs [ b ~ ] b4 |   % 17
        r2 r8 b cs [ d ~ ] |   % 18
        d [ cs ] \stemUp b [ a ~ ] a [ b ] \stemDown cs [ d ~ ] |   % 19
-%\mark \markup { \musicglyph #"scripts.coda" } |   % 19
-\once \override Score.RehearsalMark #'self-alignment-X = #right
-\mark \markup { \italic { to Coda } \hspace #1.0 \musicglyph #"scripts.coda" }
-
        d [ cs ] \stemUp b [ a ] a [ b ] gs [ a ~ ] \bar "||"   % 20
 
        % Interlude
@@ -80,12 +138,10 @@ LeadXvoxA = \relative c'
        a2 r |   % 21
        R1 |   % 22
        R1 |   % 23
-       r2. r8 cs,16 [ d ] \bar"||"   % 24
+       r2. r8 cs,16 [ d ] |   % 24
 
        % Verse
 
-\mark \markup { \override #'(font-family . sans) { \box { B } } }
-
        e8 [ e ] e [ e ~ ] e [ d ] cs4 |   % 25
        e8 [ fs ] gs [ a ~ ] a [ gs ] e [ d ~ ] |   % 26
        d4 r r8 e fs [ b, ] ~ |   % 27
@@ -101,25 +157,13 @@ LeadXvoxA = \relative c'
        gs8 [ gs ] gs [ gs ~ ] gs fs4 e8 |   % 37
        \times 2/3 { gs4 gs gs  } \times 2/3 { gs a \stemDown b  } |   % 38
        \stemUp a1 |   % 39
-       R1
-\once \override Score.RehearsalMark #'self-alignment-X = #right
-\mark "D.S. al Coda"
-       \bar "||"   % 40
-%      \break
+       R1 |   % 40
 
        % Coda (chorus again)
 
-%\stopStaff s1 \startStaff
-s1
-\set Score.currentBarNumber = #41
-
-\once \override Score.RehearsalMark #'self-alignment-X = #left
-\mark \markup { { \musicglyph #"scripts.coda" } "Coda" }
-
-       d8 \repeatTie [ cs ] \stemUp b [ a ] a [ b ] gs4 \bar "||" \mark \default    % 43
-
-\mark \markup { \override #'(font-family . sans) { \box { C } } }
+       s1 % Blank bar for coda
 
+       d8 \repeatTie [ cs ] \stemUp b [ a ] a [ b ] gs4 |   % 41
        \stemUp a4. gs8 ~ gs4 r8 e |   % 42
        fs [ gs ] a [ b ~ ] b gs4 e8 ~ |   % 43
        e2 r |   % 44
@@ -133,88 +177,69 @@ s1
        d [ cs ] \stemUp b [ a ] \stemDown cs [ b ~ ] b4 |   % 52
        r2 r8 b cs [ d ~ ] |   % 53
        d [ cs ] \stemUp b [ a ~ ] a [ b ] \stemDown cs [ d ~ ] |   % 54
-%      d [ cs ] \stemUp b [ a ] a [ b ] gs [ a ~ ] \bar "|:"   % 55
        d [ cs ] \stemUp b [ a ] a [ b ] gs4 |   % 55
 
        % Ending
 
-       \repeat volta 2
-       {
-               a2 r |   % 56
-               R1 |   % 57
-       }
-       \alternative
-       {
-               {
-                       R1 |   % 58
-                       R1 |   % 59
-               }
-               {
-                       R1 |   % 60
-               }
-       }
+       a2 r |   % 56
+       R1 |   % 57
+
+       R1 |   % 58
+       R1 |   % 59
 
-       r1^\fermata \bar "|."   % 61
+       R1 |   % 60
+
+       r1^\fermata |   % 61
 }
 
+
 LeadXvoxATextA = \lyricmode
 {
-               He who  _ be- gan a good work  _ in you  _
-               He who  _ be- gan a good work  _ in you  _
-                _ Will be fai-  _ thful to com- plete it  _
-               Will be fai-  _ thful to com- plete it  _
-               He who start-  _ ed the work  _ will be fai-
-                _ thful to com- plete it in you  _
-               
-               If the trou- ble you're fac-  _ ing is
-               slow- ly re- pla-  _ cing your hope  _ with des- pair _
-               And the pro- cess is long  _ and you're
-               lo- sing your songs  _ in the night  _
-               You can be sure  _ that the Lord has his hand  _ on you
-               Safe and se- cure  _ He will ne- ver a- band-  _ on you
-               You are his trea-  _ sure And
-               He finds His plea- sure in you
-
-               _ thful to com- plete it in
-
-               He who  _ be- gan a good work  _ in you  _
-               He who  _ be- gan a good work  _ in you  _
-                _ Will be fai-  _ thful to com- plete it  _
-               Will be fai-  _ thful to com- plete it  _
-               He who start-  _ ed the work  _ will be fai-
-                _ thful to com- plete it in you  _
+       He who  _ be- gan a good work  _ in you  _
+       He who  _ be- gan a good work  _ in you  _
+               _ Will be fai-  _ thful to com- plete it  _
+       Will be fai-  _ thful to com- plete it  _
+       He who start-  _ ed the work  _ will be fai-
+               _ thful to com- plete it in you  _
+
+       If the trou- ble you're fac-  _ ing is
+       slow- ly re- pla-  _ cing your hope  _ with des- pair _
+       And the pro- cess is long  _ and you're
+       lo- sing your songs  _ in the night  _
+       You can be sure  _ that the Lord has his hand  _ on you
+       Safe and se- cure  _ He will ne- ver a- band-  _ on you
+       You are his trea-  _ sure And
+       He finds His plea- sure in you
+
+       _ thful to com- plete it in
+
+       He who  _ be- gan a good work  _ in you  _
+       He who  _ be- gan a good work  _ in you  _
+               _ Will be fai-  _ thful to com- plete it  _
+       Will be fai-  _ thful to com- plete it  _
+       He who start-  _ ed the work  _ will be fai-
+               _ thful to com- plete it in you  _
 }
 
 
 %
 % Background vocals
 %
-
 BgXvoxA = \relative c'
 {
-%      \set Voice.autoBeaming = ##f
-       \set Staff.instrumentName = #"BG vox"
        \clef G
-       \key a \major
-       \time 4/4
+       \numericTimeSignature
 
-       \repeat volta 2
-       {
-               R1 |   % 1
-               R1 |   % 2
-       }
-       \alternative
-       {
-               {
-                       R1 |   % 3
-                       R1 |   % 4
-               }
-               {
-                       R1 |   % 5
-                       R1 |   % 6
-               }
-       }
-       \bar "||"
+       % Intro
+
+       R1 |   % 1
+       R1 |   % 2
+
+       R1 |   % 3
+       R1 |   % 4
+
+       R1 |   % 5
+       R1 |   % 6
 
        % Chorus
 
@@ -275,9 +300,8 @@ BgXvoxA = \relative c'
        % Coda (chorus again)
 
 \stopStaff s1 \startStaff
-\set Score.currentBarNumber = #41
 
-       R1 \bar "||"   % 41
+       R1 |   % 41
 
        R1 |   % 42
        R1 |   % 43
@@ -296,25 +320,18 @@ BgXvoxA = \relative c'
 
        % Ending
 
-       \repeat volta 2
-       {
-               R1 |   % 56
-               R1 |   % 57
-       }
-       \alternative
-       {
-               {
-                       R1 |   % 58
-                       R1 |   % 59
-               }
-               {
-                       R1 |   % 60
-               }
-       }
+       R1 |   % 56
+       R1 |   % 57
 
-       r1^\fermata \bar "|."   % 61
+       R1 |   % 58
+       R1 |   % 59
+
+       R1 |   % 60
+
+       r1^\fermata |   % 61
 }
 
+
 BgXvoxATextA = \lyricmode
 {
 %\set associatedVoice = foo
@@ -330,171 +347,96 @@ BgXvoxATextA = \lyricmode
 %
 % Instrumental lines
 %
-
 RhythmB = \relative c'
 {
-%      \set Voice.autoBeaming = ##f
-%      \set Staff.instrumentName = #"Rhythm"
        \clef G
-       \key a \major
-       \time 4/4 
-       
-       \repeat volta 2
-       {
-               \stemDown a'8 [ b cs b ~ ] b [ e ~ ] e4 |
-               d8 [ e cs b ~ ] b2 |   % 4
-       }
-       \alternative
-       {
-               {
-                       a8 [ b cs b ~ ] b [ e cs a ~ ] |
-                       \stemUp a1 |
-               }
-               {
-                       \stemDown a8 [ b cs b ~ ] b [ e cs a ~ ] |
-                       \stemUp a1 |
-               }
-       }
-       \bar "||"
+       \tiny
+
+       % Intro
+
+       \stemDown a'8 [ b cs b ~ ] b [ e ~ ] e4 |   % 1
+       d8 [ e cs b ~ ] b2 |   % 2
+
+       a8 [ b cs b ~ ] b [ e cs a ~ ] |   % 3
+       \stemUp a1 |   % 4
+
+       \stemDown a8 [ b cs b ~ ] b [ e cs a ~ ] |   % 5
+       \stemUp a1 |   % 6
 
        % Chorus
 
-       R1 |   % 9
-       R1 |
-       R1 |   % 11
-       R1 |
-       R1 |   % 13
-       R1 |
-       R1 |   % 15
-       R1 |
-       R1 |   % 17
-       R1 |
-       R1 |   % 19
-       R1 |
-       R1 |   % 21
-       R1 |
+       s1*14 |   % 7-20
 
        % Interlude
 
-       \stemDown a8 [ b cs b ~ ] b [ e ~ ] e4 |
-       d8 [ e cs b ~ ] b2 |   % 24
-       a8 [ b cs b ~ ] b [ e cs a ~ ] |
-       \stemUp a1 |   % 26
+       \stemDown a8 [ b cs b ~ ] b [ e ~ ] e4 |   % 21
+       d8 [ e cs b ~ ] b2 |   % 22
+       a8 [ b cs b ~ ] b [ e cs a ~ ] |   % 23
+       \stemUp a1 |   % 24
 
        % Verse
 
-       R1 |
-       R1 |
-       R1 |   % 29
-       R1 |
-       R1 |   % 31
-       R1 |
-       R1 |   % 33
-       R1 |
-       R1 |   % 35
-       R1 |
-       R1 |   % 37
-       R1 |
-       R1 |   % 39
-       R1 |
-       R1 |   % 41
-       R1 | 
+       s1*16 |   % 25-40
 
        % Coda (chorus again)
 
-\stopStaff s1 \startStaff
-\set Score.currentBarNumber = #41
+       s1 % Blank bar for coda
 
-       R1 \bar "||"   % 43
-       R1 |
-       R1 |   % 45
-       R1 |
-       R1 |   % 47
-       R1 |
-       R1 |   % 49
-       R1 |
-       R1 |   % 51
-       R1 |
-       R1 |   % 53
-       R1 |
-       R1 |   % 55
-       R1 |
-       R1 |   % 57
+       s1*15 |   % 41-55
 
        % Ending
 
-       \repeat volta 2
-       {
-               \stemDown a8 [ b cs b ~ ] b [ e ~ ] e4 |
-               d8 [ e cs b ~ ] b2 |   % 4
-       }
-       \alternative
-       {
-               {
-                       a8 [ b cs b ~ ] b [ e cs a ~ ] |
-                       \stemUp a1 |
-               }
-               {
-                       \stemDown a8 [ b cs b ~ ] b [ e cs a ~ ] |
-               }
-       }
+       \stemDown a8 [ b cs b ~ ] b [ e ~ ] e4 |   % 56
+       d8 [ e cs b ~ ] b2 |   % 57
+
+       a8 [ b cs b ~ ] b [ e cs a ~ ] |   % 58
+       \stemUp a1 |   % 59
 
-       \stemUp a1^\fermata \bar "|."
+       \stemDown a8 [ b cs b ~ ] b [ e cs a ~ ] |   % 60
+
+       \stemUp a1^\fermata |   % 61
 }
 
 
 %
 % Chord names
 %
-
 Chords = \chordmode
 {
-%Bah, can't we set this globally?
-%\set chordNameExceptions = #popChords
-%\set chordRootNamer = #chord-name->pop-markup
+       % Intro
 
-%      \popChords
+       a4. cs4.:m7 s4 |   % 1
+       d4. e4.:sus4 e4 |   % 2
 
-       \repeat volta 2
-       {
-               a4. cs4.:m7 s4 |
-               d4. e4.:sus4 e4 |   % 4
-       }
-       \alternative
-       {
-               {
-                       a4. cs2:m7 d8 |
-                       s2 d/e |
-               }
-               {
-                       fs4.:m7 e2 d8 |
-                       s2 d/e |
-               }
-       }
+       a4. cs2:m7 d8 |   % 3
+       s2 d/e |   % 4
+
+       fs4.:m7 e2 d8 |   % 5
+       s2 d/e |   % 6
 
        % Chorus
 
-       a4. e4./gs s4 |
-       d4./fs e4./gs s8 cs8:m7 |   % 10
-       s1 |
-       b2:m7 d/e |   % 12
-       a4. e/gs s4 |
-       d4./fs e2/gs cs8:sus4.7 |   % 14
-       s2. s8 cs:7 |
-       s1 |   % 16
-       b1:m7 |
-       e4.:sus4 e s4 |   % 18
-       b1:m7 |
-       e4.:sus4 e s8 d8 |   % 20
-       s4. a2/cs b8:m7 |
-       s2 d4/e e |   % 22
+       a4. e4./gs s4 |   % 7
+       d4./fs e4./gs s8 cs8:m7 |   % 8
+       s1 |   % 9
+       b2:m7 d/e |   % 10
+       a4. e/gs s4 |   % 11
+       d4./fs e2/gs cs8:sus4.7 |   % 12
+       s2. s8 cs:7 |   % 13
+       s1 |   % 14
+       b1:m7 |   % 15
+       e4.:sus4 e s4 |   % 16
+       b1:m7 |   % 17
+       e4.:sus4 e s8 d8 |   % 18
+       s4. a2/cs b8:m7 |   % 19
+       s2 d4/e e |   % 20
 
        % Interlude
 
-       a4. cs4.:m7 s4 |
-       d4. e4.:sus4 e4 |   % 24
-       fs4.:m7 e2 d8 |
-       s2 d/e |   % 26
+       a4. cs4.:m7 s4 |   % 21
+       d4. e4.:sus4 e4 |   % 22
+       fs4.:m7 e2 d8 |   % 23
+       s2 d/e |   % 24
 
        % Verse
 
@@ -522,7 +464,8 @@ Chords = \chordmode
 
        % Coda (chorus again)
 
-s1 |
+s1 % Blank bar for coda
+
        b2:m7 d4/e e |   % 43
        a4. e4./gs s4 |
        d4./fs e4./gs s8 cs8:m7 |   % 45
@@ -543,21 +486,14 @@ s1 |
 
        % Ending
 
-       \repeat volta 2
-       {
-               a4. cs4.:m7 s4 |
-               d4. e4.:sus4 e4 |   % 59
-       }
-       \alternative
-       {
-               {
-                       a4. cs2:m7 d8 |
-                       s2 d/e |
-               }
-               {
-                       fs4.:m7 e2 d8 |
-               }
-       }
+
+       a4. cs4.:m7 s4 |
+       d4. e4.:sus4 e4 |   % 59
+
+       a4. cs2:m7 d8 |
+       s2 d/e |
+
+       fs4.:m7 e2 d8 |
 
        s1 |
 }
@@ -566,35 +502,22 @@ s1 |
 %
 % Chord rhythms
 %
-
-% Use a RhythmicStaff on the chords instead of this?
-% It almost works, but not quite. Doesn't collapse chords to single notes...
-
 StaffC = \relative c
 {
-%      \set Voice.autoBeaming = ##f
-%      \set Staff.instrumentName = #"Rhythm"
-       \time 4/4 
-       
+       \numericTimeSignature
        \override NoteHead #'style = #'slash
+       \teeny
 
-       \repeat volta 2
-       {
-               \stemDown c'4. c8 ~ c4 c |   %1
-               c4. c8 ~ c4 c |   % 2
-       }
-       \alternative
-       {
-               {
-                       c4. c8 ~ c4. c8 ~ |   % 3
-                       c4 c c c |   % 4
-               }
-               {
-                       c4. c8 ~ c4. c8 ~ |   % 5
-                       c4 c c c |   % 6
-               }
-       }
-       \bar "||"
+       % Intro
+
+       \stemDown c'4. c8 ~ c4 c |   %1
+       c4. c8 ~ c4 c |   % 2
+
+       c4. c8 ~ c4. c8 ~ |   % 3
+       c4 c c c |   % 4
+
+       c4. c8 ~ c4. c8 ~ |   % 5
+       c4 c c c |   % 6
 
        % Chorus
 
@@ -644,9 +567,8 @@ StaffC = \relative c
        % Coda (chorus again)
 
 \stopStaff s1 \startStaff
-\set Score.currentBarNumber = #41
 
-       c4 c c c \bar "||"   % 41
+       c4 c c c |   % 41
        c4. c8 ~ c4 c |   % 42
        c4. c8-> c4 r8 c8 ~ |   % 43
        c4 c c c |   % 44
@@ -665,58 +587,64 @@ StaffC = \relative c
 
        % Ending
 
-       \repeat volta 2
-       {
-               \stemDown c4. c8 ~ c4 c |   % 56
-               c4. c8 ~ c4 c |   % 57
-       }
-       \alternative
-       {
-               {
-                       c4. c8 ~ c4. c8 ~ |   % 58
-                       c4 c c c |   % 59
-               }
-               {
-                       c4._\markup { \italic { rit. } } c8 ~ c4. c8 ~ |   % 60
-               }
-       }
 
-       c1 ^\fermata \bar "|."   % 61
+       \stemDown c4. c8 ~ c4 c |   % 56
+       c4. c8 ~ c4 c |   % 57
+
+       c4. c8 ~ c4. c8 ~ |   % 58
+       c4 c c c |   % 59
+
+       c4._\markup { \italic { rit. } } c8 ~ c4. c8 ~ |   % 60
+
+       c1 ^\fermata |   % 61
 }
 
 
 \score
 {
        <<
-               \new ChoirStaff = "Vox"
+               \Global         % The "roadmap" that everything else depends on
+
+               \context Staff
                <<
-                       \new Staff = LeadVox { \new Voice = "lead" \LeadXvoxA }
+                       \new Voice = "lead" \LeadXvoxA
                        \new Lyrics \lyricsto "lead" \LeadXvoxATextA
-                       \new Staff = BgVox { \new Voice = "bg" \BgXvoxA }
+                       \new Voice \RhythmB
+               >>
+
+               \new Staff
+               <<
+                       \new Voice = "bg" \BgXvoxA
                        \new Lyrics \lyricsto "bg" \BgXvoxATextA
                >>
 
-               \new ChoirStaff = "Rhythm"
+               \new ChoirStaff
                <<
-                       \new Staff = "riff" \RhythmB
-                       \new ChordNames = "chords" \Chords
-                       \new RhythmicStaff = "chordRhythm" \StaffC
+                       \new ChordNames \Chords
+                       \new RhythmicStaff \StaffC
                >>
 
                \set Score.skipBars = ##t
                \set Score.melismaBusyProperties = #'()
        >>
-       \layout {
-%              ragged-last-bottom = ##t
-               ragged-last = ##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"
+               "JazzText"
+               "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
 }
+