% title: Cobham
% composer: William Billings
% editor: Michael Lauer

\version "2.12.2"

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

#(define GlobalStaffSize 20)
#(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)))
}


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

  \key a \minor

  \tsSixEight
  s2.*9
  \repeat volta 2
  {
      s2.*10
  }
    
}

commonLyrics = \lyricmode {
    Teach me the mea -- sure of my days,
    Thou ma -- ker \tagSB { of __ } \tagAT { of } my frame; __
    I would sur -- vey life’s nar -- row space,
    And learn how frail I am. __
    \tagST {
        A span __ is all __ that we __ can boast,
    }
    An inch or two of time; __
    Man is __ but va -- ni -- \tagSAT { ty __ } \tagB { ty } and dust,
    In all __ his flow’r and prime. __
}

sopranoNotes = {
    \relative a' {
        \set Staff.instrumentName = "Treble"
        \clef "treble"
        r4. a4. |
        c4 b8 a4 c8 |
        b4 a8 g4 e8 |
        a4 b8 c([ b]) a |
        b4. ~ b4 b8 |
        c8([ a]) c b([ a]) b |
        c8([ d]) e e4 e8 |
        a,4 c8 b([ a]) gs |
        a4. ~ a4. |
        
        \repeat volta 2
        {
            r4. a4. |
            e'8([ d]) c b([ c]) d |
            e8([ c]) e e4 e8 |
            a,4 c8 b4 a8 |
            e'4.~ e4. |
            
            r4. e4. |
            e8([ d]) c d([ b]) g |
            c8([ a]) gs8 a4 b8 |
            c8([ d]) e d8([ c]) b |
            a4.~ a4. |
        }
    }
}

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

altoNotes = {
    \relative e' {
        \set Staff.instrumentName = \markup "Counter"
        \clef "treble"
        % Original clef:
        %\clef "neomensural-c3"
        r4. e4. |
        e4 e8 e4 e8 |
        e4 f8 e4 e8 |
        e4 e8 e4 a8 |
        g4. ~ g4 g8 |
        g8([ e]) g f4 e16([ f]) |
        g8([ f]) e e8([ g]) g |
        a8([ e]) e f4 e8 |
        e4. ~ e4. |
        
        \repeat volta 2 
        {
            r4. r4. |
            R2. |
            r4. e4. |
            e4 e8 e4 f8 |
            e4.~ e4. |
            
            r4. e4. |
            e8([ f]) e d8([ g]) e |
            e8([ c]) d e8([ c]) e |
            e8([ d]) c d([ f]) e |
            e4.~ e4. |
        }
    }
}

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

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

tenorNotes = {
    \relative a {
        \set Staff.instrumentName = "Tenor"
        \clef "treble_8"
        
        r4. a4. |
        a4 b8 c4 e8 |
        d4 c8 b4 b8 |
        c8([ a]) b8 c4 d8 |
        e4. ( d4) d8 |
        e8([ c]) e d([ c]) b |
        e8([ d]) c b4 c8 |
        e8([ c]) e d([ c]) b |
        a4. ~ a4. |
        
        \repeat volta 2
        {
            r4. a4. |
            c8([ b]) a g8([ a]) b |
            c8([ a]) c b4 b8 |
            c4 e8 d4 c8 |
            b4. ~ b4. |
            
            r4. b4. |
            c8([ d]) e a,([ d]) b |
            g8([ c]) b c4 b8 |
            a8([ b]) c b([ a]) gs |
            a4.~ a4. |
        }
    }
}

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

bassNotes = {
    \relative a {
        \set Staff.instrumentName = "Bass"
        \clef "bass"
        r4. a4. |
        a4 e8 a4 a8 |
        gs4 a8 e4 e8 |
        a,4 e'8 a8([ g]) f |
        e4( f8 g4) g8 |
        c,4 c8 d4 e16([ d]) |
        c8([ b]) a e'4 e8 |
        a4 a8 d,4 e8 |
        a,4.~ a4. |
        
        \repeat volta 2
        {
            r4. r4. |
            R2. |
            r4. e'4. |
            a4 a8 gs4 a8 |
            e4.~ e4. |
            
            r4. e4. |
            a,8([ b]) c d4 e8 |
            c4 b8 a4 e'8 |
            c8([ b]) a d4 e8 |
            a,4.~ a4. |
        }
    }
}

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 "Cobham" }
    poet = \markup { \larger "“Words by Dr. Watts”" }
    piece = \markup { \larger { Psalm 39, 2nd Part } }
    copyright = \markup { \center-column {
        "Edition copyright © 2009 by Michael Lauer."
        "This edition may be freely distributed, duplicated, performed, or recorded." } }
    
    headerMarkup = \markup { "Billings:" \italic "Cobham" } 

}
            
allWords = \markup { \fontsize #1
    \fill-line { 
        %{
        \bold "1." 
        \column \addBLigsList 
        {
            "Teach me the measure of my days,"
            "Thou Maker of my frame;"
            "I would survey life's narrow space,"
            "And learn how frail I am."
            " "
            "A span is all that we can boast,"
            "An inch or two of time;"
            "Man is but vanity and dust"
            "In all his flower and prime."
        }
        %}
         
        \line { \hspace #3 "2."
            \column \addBLigsList
            {
                "See the vain race of mortals move"
                "Like shadows o’er the plain;"
                "They rage and strive, desire and love,"
                "But all the noise is vain."
                " "
                "Some walk in honor's gaudy show,"
                "Some dig for golden ore;"
                "They toil for heirs, they know not who,"
                "And straight are seen no more."
            }
        }
         
        \line { "3."
            \column \addBLigsList
            {
                
                "What should I wish or wait for, then,"
                "From creatures earth and dust?"
                "They make our expectations vain,"
                "And disappoint our trust."
                " "
                "Now I forbid my carnal hope,"
                "My fond desires recall;"
                "I give my mortal interest up,"
                "And make my God my all."
            }
            \hspace #3
        }
    }
}

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 {    }


}