% title: Easter Anthem
% composer: William Billings
% editor: Michael Lauer

\version "2.18.0"

\include "english.ly"
\include "../mrlUtil.ly"
\include "../mrlbillingsdefs.ly"

#(define GlobalStaffSize 17.5)
#(set-global-staff-size GlobalStaffSize)

#(ly:set-option 'point-and-click #f)

\paper{
    top-margin = .5\in
    bottom-margin = .5\in
    ragged-last-bottom = ##f
    
    myStaffSize = #GlobalStaffSize
  #(define fonts
    (make-pango-font-tree "Baskerville1757"
                          "Sans"
                          "Mono"
                           (/ myStaffSize 20)))
    last-bottom-spacing #'basic-distance = #8
    last-bottom-spacing #'stretchability = #100
}


global = {
  % main
  
  \override Staff.VerticalAxisGroup.minimum-Y-extent = #'(-3 . 3)
  \override  Voice.TextScript.staff-padding = #1.5
  
  \set Staff.midiInstrument = "acoustic grand"

  \key a \major
  \autoBeamOff

  \tsTwoFour
  s2*30 % slept
  \break
  s2*41
  \tieDashed
  s2*18
  \tieSolid
  \bar "||" % for the end of the added section
  s2*20 % youth
  \break
    
}

commonLyrics = \lyricmode {
    \tagB { The Lord __ is ris’n __ in -- deed. __ }
    Hal -- le -- lu -- jah.
    \tagST { The Lord __ is ris’n __ in -- deed. }
    Hal -- le -- lu -- jah.
    \tagB { Now __ is Christ ri -- sen from the dead,
    and be -- come the first -- fruits of them that slept. }
    \extST Now is Christ
    \tagATB { ri -- sen from the dead,
        and be -- come }
    the first -- fruits of them that slept.
    \tagSB { Hal -- le -- lu -- jah }
    \tagTB { Hal -- le -- lu -- jah }
    Hall -- le -- lu -- jah.
    \tagS { And did he rise, And did he rise, __ }
    \tagA { And did he __ rise, }
    \tagB { And did he rise, __ And did he rise, __ }
    \tagT { And did he rise, And did he rise, __ }
    Did he rise?
    Hear, O ye na -- tions, Hear it O ye dead.
    \tagSB { He rose, he rose. }
    \tagTB { He rose, he \extB rose. He burst the bars of death. }
    \tagSAB { He burst the bars of death. }
    He burst the bars of death and tri -- umph’d o’er the grave.
    
    % begin added section
    Shout, shout, Earth and Heav’n! This sum of good to Man:
    \tagTB { Whose na -- ture then took wing, __
        Whose na -- ture then took wing, __ }
    \tagA { Whose na -- ture then took wing, __ took wing, __ }
    \tagS { Whose na -- ture then took wing, __ }
    and moun -- ted \extST with him \extST from the tomb,
    and moun -- ted __ \extST with him from the tomb.
    % end added section
    
    Then, then,
    \tagT { Then __ I rose, Then __ I rose, }
    \tagS { Then __ I rose, }
    \tagB { Then I rose, Then I rose, Then __ I rose, }
    Then \extT I rose.
    Then first Hu -- ma -- ni -- ty tri -- um -- phant
    past the cry -- stal ports of \extSA light
    And \extSAT seiz’d e -- ter -- nal 
    youth, and
    youth.
    
    \tagAB { Man, all im -- mor -- tal hail, hail.
        Hea -- ven all la -- vish of strange gifts to man. }
    \tagTB { Thine all the glo -- ry, 
        Man’s the bound -- less \extT bliss. }
    Thine all the glo -- \extB ry, Man’s the bound -- less bliss.
}

sopranoNotes = {
    \relative cs'' {
        \set Staff.instrumentName = "Treble"
        \clef "treble"
        
        R2*4
    %5
        cs16([ d e d cs8]) b |
        b4 b |
        r4 e4 |
        a,8.([ gs16 a8]) b |
        a8.([ b16 cs8]) d |
    %10
        cs2 |
        d8([ cs b]) a |
        gs2 |
        a2 |
        R2 |
    %15
        R2*5
    %20
        R2*3 |
        \repeat volta 2 {
            e'8.([ d16 cs8]) b |
            b2 |
    %25
            R2*2 |
            r4 a4 |
            a4 b8 a |
            gs4. gs8 |
    %30
            a2 |
        }
        cs4 d |
        cs b |
        R2*2
    %35
        a4 b8([ a])
        gs2 a |
        R2 |
        \repeat volta 2 {
            R2*2
    %41
            e'4 cs8 d |
            e2 |
            cs4 a8 d |
            cs2~ |
    %45
            cs2 |
            r4 cs8^\markup { \larger Forte } cs |
            d2 |
            cs4 a8. cs16 |
            b4 cs |
    %50
            b8 cs b b |
            b2 |
            r4 cs4 |
            e4 fs |
            e2 |
    %55
            R2*3 |
            r4. cs8 |
            d8 cs b a |
    %60
            b4. b8 |
            cs8 b cs b |
            b4 a |
            a4 b8([ a]) |
            gs4. gs8 |
    %65
            a2 |
        }
        % begin added section
        R2 |
        cs2 |
        d4 cs8 b |
        b2~ |
    %70
        b4 b4 |
        cs8 cs d cs |
        cs2 |
        R2*4 |
    %77
        r4 e4 |
        cs8 a cs e |
        e16([ d cs b] a[ b cs d] |
    %80
        e16[ fs e ds] e8~[ e~] |
        e4.) cs8 |
        d4 cs8( b) |
        cs16([ d cs d e8]) e |
        e8.([ d16 cs8]) b |
    %85
        b4. cs8 |
        d4 cs8([ b]) |
        cs8([ d16 cs b8]) b |
        a4 gs |
        a2 |
        % end added section
         
    %90
        R2
        cs4. r8 |
        a4. r8 |
        R2*2 |
    %95
        cs8.([ d16 e8]) fs |
        e2 |
        R2*2 |
        cs4 b |
    %100
        b2 |
        a4 a8 a |
        a8 a a a |
        a8 a a a |
        a8 a a b |
    %105
        cs8.([ d16 e8]) e |
        \repeat volta 2 {
            e8.([ d16 cs8]) a |
            b8([ a]) gs4 |
        } \alternative {
            { a4. e'8 }
            { a,2 }
        }
    %110
        R2*9 |
        R2*4 |
        \repeat volta 2 {
            cs4 a8. cs16 |
            b4 a |
            e'8. e16 e8 d |
            cs2 |
        }
    }
}

sopranoLyrics = \lyricmode {
    \keepWithTag #'soprano \commonLyrics
}

altoNotes = {
    \relative a' {
        \set Staff.instrumentName = \markup "Counter"
        \clef "treble"
        % Original clef:
        %\clef "neomensural-c3"
        R2*4 |
    %5
        a4. fs8 |
        gs4 gs |
        R2*3 |
    %10
        R2 |
        a4 fs |
        e2 |
        e2 |
        R2 |
    %15
        R2*8 |
    %23
        \repeat volta 2
        {
            a4. fs8 |
            gs2 |
    %25
            a8 a a gs |
            a4 gs8 fs |
            gs4 fs |
            e4 fs8 fs |
            e4. e8 |
    %30
            e2 |
        }
        R2*4
    %35
        e4 fs |
        e2 |
        e2 |
        R2 |
        \repeat volta 2 {
            R2*5 |
    %44
            a4 e8 fs16([ gs]) |
    %45
            a2 |
            r4 a8 a |
            a2 |
            a4 e8 a |
            gs4 a |
    %50
            b8 a gs fs |
            gs2 |
            R2*6 |
    %58
            r4. a8 |
            fs8 fs gs a |
    %60
            gs4. gs8 |
            a8 b a fs |
            gs4 fs |
            e4 fs |
            e4. e8 |
    %65
            e2 |
        }
        % begin added section
        R2 |
        a2 |
        a4 a8 fs |
        gs2~ |
    %70
        gs4 gs |
        a8 a b gs |
        a2 |
        R2*3 |
    %76
        r4 e4 |
        cs8 a cs e |
        a4~( a~ |
        a8~[ a~] a16[ b a gs] |
    %80
        a4.) a8 |
        a16([ b a gs a8]) a |
        a4 a8([ gs]) |
        a4 gs |
        a4. fs8 |
    %85
        gs4. a8 |
        a4 a8([ gs]) |
        a4 gs |
        fs4 e |
        e2 |
        % end added section
        
    %90
        R2
        e4. r8 |
        e4. r8 |
        R2*6 |
        a4 fs |
    %100
        gs2 |
        e4 e8 e |
        e8 e e e |
        e8 e e e |
        e8 e e e | 
    %105
        e8([ fs16 gs a8]) gs |
        \repeat volta 2 {
            a8.([ gs16 a8]) e |
            fs4 e |
        } \alternative {
            { e4. gs8 }
            { e2 }
        }
    %110
        R2 |
        e2 |
        e8 e e e |
        fs4. r8 |
        a4. r8 |
    %115
        e4 e8 e |
        a8 gs fs e |
        fs4. fs8 |
        fs2 |
        R2 |
    %120
        R2*3 |
        \repeat volta 2 {
            a4 e8. a16 |
            gs4 fs |
            e8. a16 gs8 gs |
            a2 |
        }
    }
}

altoLyrics = \lyricmode {
    \keepWithTag #'alto \commonLyrics
}


tenorNotes = {
    \relative e' {
        \set Staff.instrumentName = "Tenor"
        \clef "treble_8"
        R2*4 |
    %5
        e16([ d cs d e8]) ds |
        e4 e |
        r4 a,4 |
        cs8.([ b16 cs8]) d
        cs8.([ d16 e8]) fs |
    %10
        e2 |
        fs8([ e d]) cs |
        b2 |
        a2 |
        R2*9 |
    %23
        \repeat volta 2 {
            cs8.([ d16 e8]) ds |
            e2 |
    %25
            e8 fs e d |
            cs4 b8 a |
            e'4 d |
            cs4 d8 cs |
            b4. b8
    %30
            a2 |
        }
        R2*2 |
        cs4 d |
        cs4 b |
    %35
        cs4 d8([ cs]) |
        b2 |
        a2 |
        R2 |
        \repeat volta 2 {
            R2 |
    %40
            e'4 cs8 d |
            e2 |
            R2 |
            e4 cs8 d |
            e2~ |
    %45
            e2 |
            r4 e8 e |
            fs2 |
            e4 cs8. d16 |
            e4 e |
    %50
            e8 fs e ds |
            e2 |
            R2*2 |
            r4 cs4 |
    %55
            e4 fs |
            e4. e8 |
            fs8 e d cs |
            d4. r8 |
            R2 |
    %60
            r4. e8 |
            e8 d cs d |
            e4 d |
            cs4 d8([ cs]) |
            b4. b8 |
    %65
            a2 |
        }
        % begin added section
        R2 |
        e'2 |
        fs4 e8 ds |
        e2~ |
    %70
        e4 e4 |
        cs8 fs fs es |
        fs2 |
        R2*2 |
    %75
        r4 e4 |
        cs8 a cs e |
        e4~( e~ |
        e8~[ e~] e16[ fs e ds] |
        e4.) e16([ d]) |
    %80
        cs8 cs16([ b]) a([ b]) cs([ d]) |
        e8.([ d16 cs8]) e8 |
        fs4 e8([ d]) |
        e16([ fs e fs e8]) d |
        cs8.([ d16 e8]) ds |
    %85
        e4. e8 |
        fs4 e8([ ds]) |
        e16([ fs e fs e8]) d |
        cs4 b |
        a2 |
        %end added section
    
    %90
        R2
        a4. r8 |
        cs4. r8 |
        cs8.([ d16 e8]) fs |
        e2 |
    %95
        R2 |
        R2 |
        cs8.([ d16 e8]) fs |
        e2 |
        fs4 e8([ ds]) |
    %100
        e2 |
        cs4 cs8 cs |
        cs8 cs cs cs |
        cs8 cs cs cs |
        cs8 d cs b |
    %105
        cs4. b8 |
        \repeat volta 2 {
            cs8.([ d16 e8]) cs |
            d8([ cs]) b4 |
        } \alternative {
            { a4. b8 }
            { a2 }
        }
    %110
        R2*9 |
        e'4 cs8. d16 |
    %115
        e4 d |
        cs8. d16 b8 b |
        a8.([ b16 cs8]) r8 |
        \repeat volta 2 {
            e4 cs8. d16 |
            e4 d |
            cs8. d16 b8 b |
            a2 |
        }
    }
}

tenorLyrics = \lyricmode {
    \keepWithTag #'tenor \commonLyrics
}

bassNotes = {
    \relative a {
        \set Staff.instrumentName = "Bass"
        \clef "bass"
        
        r4 a4 |
        e8.([ fs16 gs8]) e |
        a8.([ gs16 a8 ]) b |
        cs8.([ b16] a4) |
    %5
        a4. b8
        e,4 e |
        R2*3 |
    %10
        R2 |
        d4. d8 |
        e2 |
        a,2 |
        R2 |
    %15
        a8.([ b16 cs8 ]) d |
        e2 |
        a8 gs a b |
        e,4 d8. d16 |
        cs4 d |
    %20
        e4 fs8 d |
        e4. e8 |
        a,2 |
        \repeat volta 2 {
            a'4. b8 |
            e,2 |
    %25
            a8 d cs b |
            a4 e8 fs |
            e4 fs |
            a4 d,8 d |
            e4. e8 |
    %30
            a,2 |
        }
        a'4 b |
        a4 e |
        a4 d, |
        a4 e' |
    %35
        a4 d, |
        e2 |
        a,2 |
        R2 |
        \repeat volta 2 {
            e'4 cs8 e |
    %40
            a2~ |
            a2 |
            e4 cs8 e |
            a2~ |
            a2~ |
    %45
            a2 |
            r4 a8 a |
            d,2 |
            a'4 a8. a16 |
            e4 a |
    %50
            gs8 a b b, |
            e2 |
            r4 a4 |
            e4 d |
            a'4 a |
    %55
            cs4 d |
            cs8.([ b16 a8]) a |
            d8 cs b a |
            b4. a8 |
            b8 a gs fs |
    %60
            e4. e8 |
            a8 gs a b |
            e,4 fs |
            a4 d, |
            e4. e8 |
    %65
            a,2 |
        }
        % begin added section
        R2 |
        a'2 |
        d,4 a'8 b |
        e,2~ |
    %70
        e4 e4 |
        a8 fs b cs |
        fs,2 |
        r4 e4 |
        cs8 a cs e |
    %75
        a4~( a~ |
        a8~[ a~] a16[ b a gs] |
        a4~ a4~ |
        a4.) a8 |
        a8 a a a |
    %80
        a8~([ a~] a16[ b a gs] |
        a4.) a8 |
        d4 cs8([ b]) |
        a4 e |
        a4. b8 |
    %85
        e,4. a8 |
        d4 cs8([ b]) |
        a4 e |
        fs8([ d]) e4 |
        a,2 |
        % end added section
        
    %90
        R2
        a4. r8 |
        a'4. r8 |
        a4. d,8 |
        a'2 |
    %95
        a4. d,8 |
        a'2 |
        a8.([ b16 cs8]) d |
        cs2 |
        a4 b |
    %100
        e,2 |
        a4 a8 a |
        a8 a a a |
        a8 a a a |
        a8 a a gs |
    %105
        a4. e8 |
        \repeat volta 2 {
            a4. a8 |
            d,4 e |
        } \alternative {
            { a,4. e'8 | }
            { a,2 | }
        }
    %110
        R2 |
        a'2 |
        a8 a a a |
        d,4. r8 |
        a'4. r8 |
    %115
        a4 a8 gs |
        fs8 e fs  a |
        d,4. d8 |
        d2 |
        a'4 a8. b16 |
    %120
        cs4 b |
        a8. a16 e8 e |
        a4. r8 |
        \repeat volta 2 {
            a4 a8. a16 |
            e4 fs8([ d]) |
            e8. e16 e8 e |
            a,2 |
        }
    }
}

bassLyrics = \lyricmode {
    \keepWithTag #'bass \commonLyrics
}

#(define engravedLine (string-append 
    "Engraved by LilyPond (version "
    (lilypond-version)
    ")" ))
 
\header {
	composer = \markup { \larger { \basCaps "William Billings" (1746–1800) }}
    %opus = \markup { \larger {\italic 
    %    { The Continental Harmony } (1794) }}
    title = \markup { \larger \medium \italic "An Anthem for Easter" }
    %poet = \markup { \larger { "“Words from Scripture" \italic "&" "Dr. Young”" }}
    %piece = \markup { \larger { Edward Young (1681–1765), 
    %    \italic { Night-Thoughts } (1742–1745) }}
    poet = \markup { \larger \override  #'(baseline-skip . 2.7) \column { 
        \line {"“Words from Scripture" \italic "&" "Dr. Young”" }
        \line { Edward Young (1681–1765) } 
        \line { \italic { Night-Thoughts } (1742–1745) }
    }}
    copyright = \markup { \center-column {
        "Edition copyright © 2010 by Michael Lauer."
        "This edition may be freely distributed, duplicated, performed, or recorded." } }
        
    tagline = \markup { \larger \override  #'(baseline-skip . 2.7) \column {
        \line { Primary source: bound with \italic "The Suffolk Harmony" (1786). }
        \line { Source for added section, mm. 66-89: Jacob French,
            \italic "Harmony of Harmony" (1802). }
        \line { m. 48: Counter has
            \fontsize #-5 {
                \note #"4" #1
                \note #"8." #1
                \note #"16" #1
            }
            in most editions. }
        \line { Dotted ties under slurs editorial. }
        \fill-line { \engravedLine }}}
   
    headerMarkup = \markup { "Billings:" \italic "Easter Anthem" } 

}
            
allWords = \markup { \fontsize #1
    \fill-line {
         
        \line { \hspace #3 "2."
            \column \addBLigsList
            {
            }
        }
         
    }
}

theMusic = 
  \context ChoirStaff = choir <<
      \new Staff {
        \context Voice =
          sopranoNotes << \global \sopranoNotes >>
      }
      \lyricsto sopranoNotes \new Lyrics { \sopranoLyrics }
      \new Staff {
        \context Voice =
          altoNotes << \global \altoNotes >>
      }
      \lyricsto altoNotes \new Lyrics { \altoLyrics }
      \new Staff {
        \context Voice =
          tenorNotes << \global \tenorNotes >>
      }
      \lyricsto tenorNotes \new Lyrics { \tenorLyrics }
      \new Staff {
        \context Voice =
          bassNotes << \global \bassNotes >>
      }
      \lyricsto bassNotes \new Lyrics { \bassLyrics }
  >>
  
  
\score {
    \theMusic
}

%\allWords

\score {
    
    \unfoldRepeats \theMusic
  
    \midi {    }


}