\header {
    title = "My Shepherd Will Supply My Need"
    subtitle = "SAB with Piano"
    poet = "Isaac Watts, 1719"
    composer = "Joseph Funk, 1832"
    arranger = "arr. Craig McQueen"
%    copyright = "Copyleft Craig McQueen - this work may be freely performed and distributed."
%    date = "Unleavened Bread 1998"
%    tagline = "Unleavened Bread 1998"
}

\version "2.10.0"

#(set-default-paper-size "a4")
%#(set-global-staff-size 17.85)
%#(set-default-paper-size "letter")
%#(set-global-staff-size 20)
%afterGraceFraction = #(cons 1 2)

\layout
{
    \context { \RemoveEmptyStaffContext }
}

    \paper 
    {
%        betweensystempadding = #1
%        raggedbottom = ##f
%        raggedlastbottom = ##f
    }

global = {
    \key c \major
    \override Staff.TimeSignature #'style = #'()
    \override Score.Script #'padding = #1
    \override Score.SpacingSpanner #'shortest-duration-space = #2.05
    \time 3/4
}

bars = {
    \partial 4
    \once \set fontSize = #0
    s4 ^\markup { "Intro" } |
    s2. * 7 s2          % piano intro
    \bar "|:" \mark \markup { \musicglyph #"scripts.segno" } \pageBreak
    s4 ^\markup { "Verses" } |
    s2. * 31 s2         % verse one
    \override Score.RehearsalMark #'break-visibility = #begin-of-line-invisible
    \once \override Score.RehearsalMark #'self-alignment-X = #right
    \mark \markup { \italic "Fine" }
    \bar ":|" \pageBreak
    s4 s2. * 7 s2 s4 s2. * 7 s2     % piano interlude
    \bar "|."
}

pianoTrebleIntro = \relative c'' {
    c8^\markup { "Intro" } (e) |
    < g e c>2 e8 d | <e b>2 <g e>4 | <c a>2 a8 (g) | <e c>2 c8 e |
    < g c, a>2 c,4 | <e c>2 d4 | <f c a>4 r8 c,8 f g | c8 f c'4
}

pianoBassIntro = \relative c {
    r4 |
    c8 g' c e~ e4 | b,8 g' b e~ e4 | a,,8 e' a c~ c4 | g,8 e' g c~ c4 |
    f,,8 f' a c~ c4 | g,8 e' g b~ b4 | f,8 c' a'2 | r2
}

chordsIntro = \chordmode {
    r4 |
    c2. | e:m/b | a:m | c/g | f | c/g | f ~ | f
}

melody = \relative c' {
    c8 (e) | g2 e8 (d) | e2 g4 | c2 a8 (g) | e2 c8 (e) | g2 c,4 | e2 d4 | c2. ~ c2
    c8 (e) | g2 e8 (d) | e2 g4 | c2 a8 (g) | e2 c8 (e) | g2 c,4 | e2 d4 | c2. ~ c2 % same as previous line

    g'4 | c2 e8 (c) | a2 c4 | d2 c8 (a) | g2 e8 (g) | a2 g8 (a) | c2 d4 | c2. ~ c2
    c,8 (e) | g2 e8 (d) | e2 g4 | c2 a8 (g) | e2 c8 (e) | g2 c,4 | e2 d4 | c2. ~ c2  % almost same as first line
}

verseOneSop = \melody

verseOneAlto = \relative c' {
    c8 (e) | c2 c8 (b) | g2 e'4 | e2 e4 | c2 c8 (e) | c2 a4 | c2 b4 | a2. ~ a2
    c8 (e) | c2 c8 (b) | g2 e'4 | e2 e4 | c2 c8 (e) | c2 a4 | c4 (b) b | g2. ~ g2 % almost same as previous line

    c4 | e2 g4 | c,2 c4 | f2 d4 | c2 c4 | c2 c4 | d2 fis4 | f2. ~ f2
    c8 (e) | c2 c8 (b) | c2 e4 | c2 c4 | c2 c8 (e) | c2 a4 | c4 (b) b | g2. ~ g2
}

verseOneBass = \relative c {
    c4 | c2 c4 | b2 b4 | a2 a4 | g2 c8 (e) | f2 f4 | g2 g4 | f2. ~ f2
    c4 | c2 c4 | b2 b4 | a2 a4 | g2 c8 (e) | f2 f4 | g2 g4 | c,2. ~ c2

    g'4 | c,2 c4 | f2 e4 | d2 f4 | e2 e4 | f2 f4 | fis2 d4 | g2. ~ g2
    g4 | e2 e4 | a2 g4 | f2 f4 | g2 c,8 (e) | f2 f4 | g2 g4 | c,2. ~ c2
}

verseOneWords = \lyricmode {
    My Shep -- herd will sup -- ply my need;
    Je -- ho -- vah is His name.

    In pas -- tures fresh He makes me feed,
    Be -- side the liv -- ing stream.

    He brings my wan -- d'ring spir -- it back,
    When I for -- sake His ways;

    And leads me, for His mer -- cy's sake,
    In paths of truth and grace.
}

chordsVerseOne = \chordmode {
    c2. | e:m/b | a:m | c/g | f | c/g | f ~ f |
    c2. | e:m/b | a:m | c/g | f | c2/g g4 | c2. ~ c |
    c2. | f | d:m | c/e | f | d/fis | f/g ~ f/g |
    c2./e | a:m | f | c/g | f | c2/g g4 | c2. ~ | c
}

pianoTrebleVerseOne = \relative c' {
    c8 (e) |
    g4. e8 c' b | g4. e8 b'4 | <a e c>4. c,8 e c | g'4. c,8 c'4 |
    <c g f>4. c,8 f4 | g4. b,8 b'4 | <c c,>4. c8 f g | c2

    g,8 (c) |
    e4. g,8 c b | <e b>4. d8 c b | <c a>4. c,8 e g | c4. c,8 e4 |
    <g f c>4. c,8 a'4 | << g2 \\ { c,4 (b) } >> d4 | < e c>4. g,8 c e | c'2

    <g c,>4 |
    <c g e c>4. c,8 <g' c>4 | <a f c>4. c,8 <c' c,>4 | < d a f d>4. d,8 c' a | < g e c>4. c,8 e g |
    <a f c>4. c,8 g' a | < c a fis d>4. d,8 d'4 | < c a f c>4. g8 c f | c'2

    c,,8 (e) |
    g4. c,8 c' b | a4. c,8 g'4 | <a e c>4. c,8 d e | g4. c,8 e4 |
    <g f c>4. c,8 a'4 | << g2 \\ { c,4 (b) } >> d4 | < e c>4. g,8 c e | c'2
}

pianoBassVerseOne = \relative c {
    r4 |
    c8 g' c2 | b,8 g' b2 | a,8 e' a2 | g,8 e' g2 |
    f,8 c' a'2 | g,8 e' g2 | f,8 c' a'2 | r2

    r4 |
    c,8 g' c2 | b,8 g' b2 | a,8 e' a2 | g,8 e' g2 |
    f,8 c' a'2 | g,8 d' g2 | c,,8 g' e'2 | r2
    
    g,4 |
    c,8 g' c2 | f,8 c' f2 | d,8 a' f'2 | e,8 c' g'2 |
    f,8 c' f2 | fis,8 d' a'2 | <g, g,>8  f' a2 | r2

    r4 |
    e,8 c' g'2 | a,8 e' a2 | f,8 c' a'2 | g,8 e' g2 | 
    f,8 c' a'2 | g,8 d' g2 | c,,8 g' e'2 | r2
}

verseTwoWords = \lyricmode {
    When I walk through the shades of death
    Thy pres -- ence is my stay;

    One word of Thy sup -- port -- ing breath
    Drives all my fears a -- way.

    Thy hand, in sight of all my foes,
    Doth still my ta -- ble spread;

    My cup with bless -- ings o -- ver -- flows,
    Thine oil a -- noints my head.
}


pianoTrebleInterlude = \relative c'' {
    <g c,>4 ^\markup { "Interlude" } |
    <c g e c>4. e,8 <e' c g> c | <a f c>4. c,8 <c' c,>4 | < d a f d>4. d,8 c' a | < g e c>4. c,8 e g |
    <a f c>4. c,8 g' a | < c a fis d>4. d,8 d'4 | < c a f c>4. g8 c f | c'2

    c,,8 (e) |
    g4. c,8 e d | e4. c8 g'4 | <c a>4. c,8 a' g | e8 c c'4 c,8 e |
    g4. a,8 c4 | << e2 \\ { c4 (b) } >> d4 | < c g >4. g8 e' c | <g' e>4 <e c>
}

pianoBassInterlude = \relative c {
    g4 |
    <c, c,>8 g' c2 | f,8 c' f2 | d,8 a' f'2 | e,8 c' g'2 |
    f,8 c' f2 | fis,8 d' a'2 | <g, g,>8  f' a2 | r2

    r4 |
    e,8 c' g'2 | a,8 e' a2 | f,8 c' a'2 | g,8 e' g2 | 
    f,8 c' f2 | g,8 d' g2 | c,,8 g' e'2 | r2

    \once \override Score.RehearsalMark #'self-alignment-X = #right
    \mark \markup { \italic "D.S. al Fine " }
}

chordsPianoInterlude = \chordmode {
    c2. | f | d:m | c/e | f | d/fis | f/g ~ f/g |
    c2./e | a:m | f | c/g | f | c2/g g4 | c2. ~ | c
}

verseThreeWords = \lyricmode {
    The sure pro -- vi -- sions of my God
    At -- tend me all my days;
    O may Thy house be my a -- bode,
    And all my work be praise.

    There would I find a set -- tled rest,
    While oth -- ers go and come;
    No more a strang -- er, nor a guest,
    But like a child at home.
}


\score {
    \transpose c c {
    <<
    \override Score.VerticalAxisGroup #'remove-first = ##t
    \new ChoirStaff 
            \with {
                fontSize = #-3
                \override StaffSymbol #'staff-space = #(magstep -3)
                }
    <<
        \new ChordNames {
            \partial 4
            \chordsIntro
            \chordsVerseOne
            \chordsPianoInterlude
%            s4 s2. * 7 s2 s4 s2. * 7 s2     % piano interlude
        }
        \new Staff = "Women"
            <<
            #(set-accidental-style 'modern)
            \set Staff.instrumentName = "Women"
            \new Voice =
                sopranos { \global
                    \oneVoice
                    \partial 4
%                    r4 r2. r2. r2. r2. r2. r2. r2. r2  % piano intro
                    s4 s2. * 7 s2   % piano intro
                    \voiceOne
                    \verseOneSop
                    s4 s2. * 7 s2 s4 s2. * 7 s2     % piano interlude
                }
            \new Voice =
                altos { \voiceTwo \global
                    \partial 4
                    s4 s2. * 7 s2   % piano intro
                    \verseOneAlto
                    s4 s2. * 7 s2 s4 s2. * 7 s2     % piano interlude
                }
            \bars
        >>
        
        \new Lyrics {
        \override Lyrics.VerticalAxisGroup #'minimum-Y-extent = #'(0 . 0)
        \lyricsto altos \verseOneWords 
        }
        \new Lyrics {
        \override Lyrics.VerticalAxisGroup #'minimum-Y-extent = #'(0 . 0)
        \lyricsto altos \verseTwoWords 
        }
        \new Lyrics {
        \override Lyrics.VerticalAxisGroup #'minimum-Y-extent = #'(0 . 0)
        \lyricsto altos \verseThreeWords 
        }
                
        \new Staff = "Men" <<
            #(set-accidental-style 'modern)
            \set Staff.instrumentName = "Men"
            \clef bass
            \new Voice =
                tenors { \global
                    \oneVoice
                    \partial 4
                    s4 s2. * 7 s2   % piano intro
                }
            \new Voice =
                basses { \global
                    \oneVoice
                    \partial 4
%                    r4 r2. r2. r2. r2. r2. r2. r2. r2   % piano intro
                    s4 s2. * 7 s2   % piano intro
                    \verseOneBass
                    s4 s2. * 7 s2 s4 s2. * 7 s2     % piano interlude
                }
        >>
    >>
    
    \new PianoStaff = "Piano" <<
        \set PianoStaff.instrumentName = "Piano"
        \new Staff = treble <<
        {
            \oneVoice \global
            \partial 4
            \pianoTrebleIntro
            \pianoTrebleVerseOne
            \pianoTrebleInterlude
        }
        >>
        
        \new Staff = bass <<
        {
            \oneVoice \global
            \clef bass
            \partial 4
            \pianoBassIntro
            \pianoBassVerseOne
            \pianoBassInterlude
        }
        >>
    >>
    >>
    }
} % score