\header {
    title = "Amazing Grace"
    subtitle = "Four-Part for Men"
    composer = "American Folk Hymn Melody"
    arranger = "arr. Craig McQueen"
    poet = "John Newton 1725-1807"
%    tagline = ""
}

\version "2.8.7"

\paper 
{ 
%    papersize = "letter"
#(set-paper-size "letter") 
%    betweensystempadding = #1
%    raggedbottom = ##f
%    raggedlastbottom = ##f
}

#(set-global-staff-size 17)

    
global = {
    \key a \major
    \time 3/4
    \partial 4
}

notesMelody =    \relative c' {
    \repeat "volta" 4
    { e8 (a) | a2 \times 2/3 { cis8 (b a) } | cis2 b4 | a2 fis 4 | e2 
    e8 (a) | a2 \times 2/3 { cis8 (b a) } | cis2 b8 (e) | e2. ~ | e2
    cis8 (e) | e2 \times 2/3 { cis8 (b a) } | cis2 b4 | a2 fis4 | e2
    e8 (a) | a2 \times 2/3 { cis8 (b a) } | cis2 b4 }
    \alternative {
        { a2. ~ | a2 }
{ \set Score.measurePosition = #(ly:make-moment 0 4)
            a2. ~ | a2 }
    }
    \bar "|."
}

wordsVerseOne = \lyricmode {
    \set stanza = "1. "
    A -- maz -- ing grace "(how" sweet the "sound)"
    that saved a wretch like me!
    I one was lost, but now am found,
    was blind but now I see.
}

wordsVerseTwo = \lyricmode {
    \set stanza = "2. "
    'Twas grace that taught my heart to fear,
    and grace my fears re -- lieved;
    how pre -- cious did that grace ap -- pear
    the hour I first be -- lieved!
}

wordsVerseThree = \lyricmode {
    \set stanza = "3. "
    Through ma -- ny dan -- gers, toils and snares
    I have al -- rea -- dy come:
    'tis grace has brought me safe thus far,
    and grace will lead me home.
}

wordsVerseFour = \lyricmode {
    \set stanza = "4. "
    The Lord has pro -- mised good to me,
    His word my hope se -- cures;
    He will my shield and por -- tion be
    as long as life en -- _ dures.
}

notesDescant =    \relative c' {
    \repeat "volta" 4
    {
    e8 (a) | cis2 \times 2/3 { e8 (d cis) } | e2 e4 | d2 b4 | cis2 
    e,8 (a) | cis2 \times 2/3 { cis8 (d cis) } | fis2 b,4 | b2. ~ | b2
    b4 | cis2 \times 2/3 { e8 (d cis) } | e2 e4 | d2 b4 | cis2
    e,8 (a) | cis2 a4 | e'2 e4 }
    \alternative {
        { cis2. ~ | cis2 }
        { \set Score.measurePosition = #(ly:make-moment 0 4)
            cis4 (d2 cis2) }
    }
}

notesBassOne =    \relative c {
    \repeat "volta" 4
    {
    e4 | e2 e4 | a2 a4 | fis2 a4 | a2 
    gis4 | a2 a4 | a2 a4 |a2. (gis2)
    gis4 | e2 e4 | g2 g4 | fis2 a4 | a2
    gis4 | a2 fis4 | a2 gis4 }
    \alternative {
        { e2. ~ | e2 }
        { \set Score.measurePosition = #(ly:make-moment 0 4)
            e4 (fis2 e2) }
    }
}

notesBassTwo =    \relative c {
    \repeat "volta" 4
    {
    e4 | a,2 a4 | cis2 cis 4 | d2 d4 | a2
    e'4 | fis2 fis4 | b,2 b4 | e2. ~ | e2
    e4 | a,2 a4 | cis2 cis4 | d2 d4 | a2
    e'4 | fis2 b,4 | e2 e4 }
    \alternative {
        { a,2. ~ | a2 }
        { \set Score.measurePosition = #(ly:make-moment 0 4)
            a2. ~ | a2 }
    }
}

\score {    
{
    \context ChoirStaff <<
        \context Staff = descant <<
            \set Staff.instrument = "Descant"
            \context Voice =
                descant { \voiceOne \global
                    \notesDescant
                }
        >>

        \context Staff = melody <<
            \set Staff.instrument = "Melody"
            \context Voice =
                melody { \voiceOne \global
                    \notesMelody
}
        >>

%        \context Lyrics = sopranoLyrics { s1 }
        \new Lyrics \lyricsto melody \wordsVerseOne
        \new Lyrics \lyricsto melody \wordsVerseTwo
        \new Lyrics \lyricsto melody \wordsVerseThree
        \new Lyrics \lyricsto melody \wordsVerseFour

        \context Staff = men <<
            \set Staff.instrument = "Bass"
            \clef bass
            \context Voice =
                bassOne { \voiceOne \global 
                    \notesBassOne
}
            \context Voice =
                bassTwo { \voiceTwo \global 
                    \notesBassTwo
}
        >> % staff men
        
%        \context Lyrics =
%            sopranoLyrics { { \lyricsto sopranos \wordsVerseOne }
%                            { \lyricsto sopranos \wordsVerseTwo } }
    >> % choir staff
}
    \layout {
        \context { \Score 
            \override SpacingSpanner #'shortest-duration-space = #6.0
        }
        \context { \Lyrics
%            \override LyricText #'font-size = #0
        }
    }
    \midi { \tempo 4=120 }
} % score