% title: Morning Hymn
% composer: William Billings
% editor: Michael Lauer

\version "2.11.62"

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

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

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

\paper{
    
    myStaffSize = #GlobalStaffSize
  #(define fonts
    (make-pango-font-tree "Baskerville1757"
                          "Sans"
                          "Mono"
                           (/ myStaffSize 20)))
}


global = {
  % main
  
  \override Staff.VerticalAxisGroup #'minimum-Y-extent = #'(-2 . 2)
  
  \set Staff.midiInstrument = "acoustic grand"

  \key c \major

  \tsAllegro
  s1*8 |
  \repeat volta 2
  {
      s1*13 |
  } \alternative {
      { s1 }
      { s1 }
  }
  
  \bar "|."
    
}

commonLyrics = \lyricmode {
    Once more my 
    \tagSAB   soul  
    \tagT { soul __ } the ri -- sing day
    sa -- lutes thy wa -- king eyes.
    
    \tagS {
        Once more my voice thy tri -- bute pay
        to him that rules __ the skies, __
        Once more my voice thy tri -- bute pay
        to him that rules __ the skies.
        skies.
    }
    
    \tagA {
        Once more my voice thy tri -- bute pay
        to him that rules __ the skies, __
        Once more my voice thy tri -- bute pay
        to him that rules, __ that rules __ the skies.
        skies.
    }
    
    \tagT {
        Once more my voice thy tri -- bute pay
        to him that rules, __ that rules __ the skies, __
        Once more my voice thy tri -- bute pay
        to him that rules __ the skies.
        skies.
    }
    
    \tagB {
        Once more my voice thy tri -- bute pay
        to him that rules __ the skies, __ 
        to him that rules __ the skies, __
        Once more my voice thy tri -- bute pay
        to him that rules __ the skies.
        Once
        skies.
    }
}

sopranoNotes = {
    \relative g' {
        \set Staff.instrumentName = "Treble"
        \clef "treble"
            r2 g2 |
            g2. c4 |
            d2 e |
            g2 f |
        %5
            e2 f |
            g2 f |
            e4( c) d2 |
            e2. r4 |
            \repeat volta 2
            {
                R1 |
        %10
                R1 |
                r2 c2 |
                c4 b c g |
                c4 e f e8( d) |
                c4 c8( b) a8.( b16 a8 g |
        %15
                a4) d8( c) b4( a8 b |
                g8[ a]) b8( g) c4 e |
                d4 e f e |
                d4 c8( b) c4 d8( b) |
                c4( g c8. d16 c8 d |
        %20
                e8. f16 e8 f g4 g8 f |
                e4 e8 d c4) d |
            } \alternative {
                { e2. r4 } 
                { e1 }
            }
        }
}

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

altoNotes = {
    \relative c' {
        \set Staff.instrumentName = \markup "Counter"
        \clef "treble"
        % Original clef:
        %\clef "neomensural-c3"
            r2 c2 |
            e2. g4 |
            g2 g |
            e2 f |
        %5
            g2 f |
            e2 f |
            g4( a) g2 |
            g2. r4 |
            \repeat volta 2
            {
                R1 |
        %10
                g2 e4 f |
                g4 g g a |
                g4 f e e8( f) |
                g4( g a a |
                g4 g f8. g16 f8 e |
        %15
                f4) f g2~ |
                g4 g g g |
                a4 g f g |
                g4 g g a |
                g4( g g8 f e f |
        %20
                g4 g g) g |
                g8( f e a g4) g |
            } \alternative {
                { g2. r4 | } 
                { g1 | }
            }
    }
}

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

%noacc = { \once \override Accidental #'transparent = ##t }
%ficnat = \markup { \tiny \natural }

tenorNotes = {
    \relative g {
        \set Staff.instrumentName = "Tenor"
        \clef "treble_8"
            r2 g2 |
            c2. e4 |
            d2( c4 ) b |
            c2 b4( a) |
        %5
            g2 a4( b) |
            c2 b4( a) |
            g4( c) b2 |
            c2. r4 |
            \repeat volta 2
            {
                r2 r4 c4 |
        %10
                e4 e8( f) g4 f |
                e4 g c,4. d8 |
                e4 f g4( g8 f |
                e4 e8 d c8. d16 c8 b |
                c4) e d8.( e16 d8 c |
        %15
                d4) d d2~ |
                d4 d e c |
                d4 c b c |
                d4 e8( f) g4 f |
                e8.( f16 e8 d c4 g |
        %20
                c4 c8 d e8. f16 e8 f |
                g4 g8 f e4) d |
            } \alternative {
                { c2. r4 | } 
                { c1 | }
            }
    }
}

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

bassNotes = {
    \relative c {
        \set Staff.instrumentName = "Bass"
        \clef "bass"
            r2 c2 |
            c2. c4 |
            g'2 e |
            c2 d |
        %5
            e2 d |
            c2 d |
            e4( f) g2 |
            c,2. c4 |
            \repeat volta 2
            {
                e4 e8( f) g4 f |
        %10
                e4 g c4 b8( a) |
                g4 e c( f |
                e4) d c2~ |
                c2 f |
                e4 c d2~ |
        %15
                d4 d g2~ |
                g4 g c c, |
                f4 e d c |
                g'4 g8( f) e4 d |
                c4( c8 d e8. f16 e8 d |
        %20
                c8. d16 c8 b c4 c8 d |
                e8. f16 e8 f g4) g |
            } \alternative {
                { c,2. c4 } 
                { c1 }
            }
    }
}

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 "Morning Hymn" }
    poet = \markup { \larger "“Words by Dr. Watts”" }
    piece = \markup { \larger { Hymn ii:6 } }
    copyright = \markup { \center-column {
        "Edition copyright © 2008 by Michael Lauer."
        "This edition may be freely distributed, duplicated, performed, or recorded." } }
    
    headerMarkup = \markup { "Billings:" \italic "Morning Hymn" } 

}

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
}

\score {
    
    \unfoldRepeats \theMusic
  
    \midi {    }


}