%% This is a UTF-8 file

\version "2.10.10"

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

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

headerMarkup = \markup { "Billings:" \italic "An Anthem, for Thanksgiving" } 

\paper {
  #(set-paper-size "letter")
  top-margin = .3\in
  bottom-margin = .3\in
  left-margin = .75\in
  line-width = 7\in
  between-system-padding = 0.04\in
  page-top-space = 0.0\in
  print-page-number = ##t
  %ragged-last-bottom = ##t
  %annotate-spacing = ##t

    oddHeaderMarkup = \markup
    \fill-line {
      ""
      \on-the-fly #not-first-page \headerMarkup
      \on-the-fly #print-page-number-check-first \fromproperty #'page:page-number-string
    }

    evenHeaderMarkup = \markup
    \fill-line {
      \on-the-fly #print-page-number-check-first \fromproperty #'page:page-number-string
      \on-the-fly #not-first-page \headerMarkup
      ""
    }

}

#(set-global-staff-size 17)
\paper
{
    myStaffSize = #17
  #(define fonts
    (make-pango-font-tree "Baskerville1757"
                          "Sans"
                          "Mono"
                           (/ myStaffSize 20)))
}

# (define (tsaFn grob)
  (interpret-markup
   (ly:grob-layout grob)
   '(( ))
   (markup #:rotate 180 #:musicglyph "timesig.C22")))
   
tsAdagio = { \time 4/4 \tempo 4=60 }
tsLargo = { \time 2/2 \tempo 2=40 }
tsThreeTwo = { \time 3/2 \tempo 2=60 }
tsTwoFour = { \time 2/4 \tempo 4=120 }
tsThreeFour = { \time 3/4 \tempo 4=80 }
tsAllegro = { \once \override Staff.TimeSignature #'stencil = #tsaFn \time 2/2 \tempo 2=60 }

global = {
  % main
  %\set Staff.forceClef = ##t
  %\set Staff.forceTime = ##f
  %\set Timing.defaultBarType = ""

  \autoBeamOff
  
  \set Staff.printKeyCancellation = ##f
  \override Staff.VerticalAxisGroup #'minimum-Y-extent = #'(-2 . 2)
  \set Staff.midiInstrument = "acoustic grand"
  
  \key f \major

  \tsThreeFour
  \partial 4
      \skip 4
  \repeat volta 2 {
      \skip 2.*18 
  } \alternative {
      { \skip 2. }
      { \skip 2. }
  }
  \tsLargo
  \skip 1*3
  \tsThreeFour
  \skip 2.*5
  \tsLargo
  \skip 1*10
  \tsTwoFour % ? \tempoAllegro
  \skip 2*5
  \tsAllegro
  \skip 1*8
  \tsTwoFour
  \skip 2*12
  \tsThreeFour
  \skip 2.*4
  \tsLargo
  \skip 1*27
  \repeat volta 2 {
      \skip 1*12
  }
  
  %\bar "|."
}

commonLyrics = \lyricmode {
    O
%    \repeat volta 2 {
        praise the Lord of Hea -- ven,
        \tag #'alto { praise Him in the height, }
        \tag #'bass { praise Him in the depth, }
        O praise the Lord of Hea -- ven.
        \tag #'soprano { Praise him, praise him all ye an -- gels,
            praise him all ye an -- gels, }
        \tag #'alto \tag #'tenor \tag #'bass { Praise him all ye an -- gels, praise him, }
        \tag #'alto \tag #'bass { Praise him all ye an -- gels, praise, }
        \tag #'tenor { praise him, praise }
        praise Je -- ho -- vah, praise Je -- 
%    } \alternative {
        { ho -- vah. O }
        { ho -- vah. }
%    }
    \tag #'bass { Praise him sun and moon and bla -- zing co -- mets, }
    Praise the Lord, praise the Lord, praise the Lord.
    \tag #'alto { Let them praise the name of the Lord, }
    \tag #'tenor { For He spake the word and all were made,
        He com -- man -- ded and they were cre -- a -- ted, }
    and they were cre -- a -- ted.
    Ad -- mire, a -- dore, ad -- mire, a -- dore.
    \tag #'tenor \tag #'bass { Ye dra -- gons whose con -- ta -- gious breath }
    \tag #'bass { peo -- ples the dark a -- bodes of death, }
    Change your dire his -- sings in -- to heav’n -- ly songs,
    And praise __ your ma -- ker 
    \tag #'alto \tag #'tenor \tag #'bass { with your } 
    \tag #'soprano { for -- ked, for -- ked, }
    \tag #'alto \tag #'bass { for -- ked, for -- ked, for -- ked, }
    for -- ked tongues, with your
    \tag #'soprano \tag #'alto \tag #'bass { for -- ked, }
    for -- ked tongues, and praise your Ma -- ker
    with your for -- ked tongues.
    O praise the Lord of Hea -- ven.
    \tag #'tenor \tag #'bass { Fire, hail, and snow, }
    \tag #'bass { wind and storms, __ }
    \tag #'soprano \tag #'tenor { beasts and cat -- tle, }
    \tag #'alto \tag #'bass { cree -- ping in -- sects, fly -- ing fowl, }
    kings and prin -- ces, men and an -- gels,
    praise the Lord,
    \tag #'alto \tag #'tenor { Jew and Gen -- tile, }
    \tag #'soprano \tag #'bass { male and fe -- male, }
    bond and free,
    \tag #'alto \tag #'tenor { earth and hea -- ven, }
    \tag #'soprano \tag #'bass { land and wa -- ter, }
    praise the Lord,
    \tag #'alto \tag #'tenor { young men and maids, }
    \tag #'soprano \tag #'bass { old men and babes, }
    praise the Lord.
    Join cre -- a -- tion, pre -- ser -- va -- tion,
    and re -- demp -- tion join in one;
    no ex -- emp -- tion, nor dis -- sen -- sion,
    one in -- ven -- tion and in -- ten -- tion 
    reigns through the whole,
    to praise the Lord, praise __ the Lord.
    \repeat volta 2 {
    \tag #'soprano \tag #'alto \tag #'tenor { Hal -- le -- lu -- jah,
        Hal -- le -- lu -- jah, Hal -- le -- lu -- jah, } 
    \repeat unfold 5 { Hal -- le -- lu -- jah, }
    Praise __ the Lord!
    }
}

sopranoNotes = {
  \relative a' {
    \set Staff.instrumentName = "Treble"
    \clef "treble"
    
        a4 
        \repeat volta 2 {
        a2 c4 |
        c8([ a] bf4) c |
        c4 c r4 |
    %5
        R2.*2 |
        r2 a4 |
        c4( bf) a |
        d8.([ c16] bf4) c |
    %10
        c4 c r4 |
        R2.
        c4 c r4 |
        c4. bf8 a bf |
        c4 c r4 |
    %15
        f4. e8 d e  |
        f4 f4 r4 |
        c2 c4 |
        c4 c r4 |
        c4( d) c |
    %20
        } \alternative {
            { c4 c a4 | }
            { c4 c r4 | }
        }
        R1*2 |
        r2 a4 a |
        f2 r4 |
    %25
        a2 g4 |
        g2 r4 |
        a2 c4 |
        c2. |
        R1
    %30
        R1*5
    %35
        r4 a4 c4 c8 c |
        c4 c r4 c |
        c4 f8([ d]) e([ c]) c([ a]) |
        bf8([ d]) c4 c2 |
        R2
    %40
        R2*4
        %allegro
        c2 c4 d |
    %45
        c4 e2. |
        f4 c a c |
        c2. f4 |
        f4( d e c |
        d4 bf c2 |
    %50
        c2.) c4 |
        c4 c r2 |
        %2/4 %adagio
        R2 |
        a16([ bf a bf c8]) c |
        c16([ d c bf a8]) bf |
    %55
        c8( c c) c |
        c4 c8 c |
        d8([ bf c]) c |
        d8( bf bf) a |
        a4. c8 |
    %60
        f8([ c16 bf a8]) a |
        bf8.([ d16]) c4 |
        c8 c16([ bf]) a16([ bf] c[ d] |
        c8 c4) c8 |
        %3/4
        c2 a4 |
    %65
        c4( bf) a |
        bf4 c2 |
        c4 c r4 |
        %2/2
        R1*2 |
    %70
        R1 |
        f8([ e d]) c d4 c |
        R1*2 |
        a4 a a a |
    %75
        a4 c bf bf |
        a4 bf c2 |
        R1 |
        d4 d c c |
        bf4 c c2 |
    %80
        R1 |
        d4 d c c |
        bf c4 c2 |
        R1 |
        d4 d8 d c8.([ bf16] a4)
    %85
        bf4 c c2 |
        r4 f,8 a a a bf bf |
        bf8 bf c c c c a c |
        c4 c8 c f c d c |
        c8 a f a bf d d c |
    %90
        f8 c d([ bf]) c4 c |
        c4. c8 c4 c |
        c2 c( |
        f8[ c d f16 e] d4) c |
        c2. r4 |
    %95
    \repeat volta 2 {
        a8.([ bf16 a8]) g f16([ e f g]) a4 |
        c4. bf8 a4 c |
        c4. c8 c4 c |
        bf8.([ c16 bf8]) a8 g16([ f g a]) bf4 |
        a8.([ bf16 c8]) c8 b4 c |
    %100
        a8 a c c a a bf bf |
        c8 c c e d4( c |
        c4 c f8[ d] e[ c] |
        f8[ d] e[ c] d[ bf] c[ a] |
        d8[ bf] c[ a] c4 c |
    %105
        c4 c d) c |
        c2. r4 |
    }
    }
}

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

altoNotes = {
  \relative f' {
      \set Staff.instrumentName = \markup { "Counter" }
    \clef "treble"
        f4 |
        \repeat volta 2 {
        f2 g4 |
        a4( g) g |
        a4 a r4 |
    %5
        f4. e8 d e |
        f2 r4 |
        r2 f4 |
        a4( g) f |
        f4 g2 |
    %10
        a4 a r4 |
        a4. g8 f g |
        a4 a r4 |
        a8.([ bf16 a8. g16]) f4 |
        a4. g8 f g |
    %15
        a4 a r4 |
        a8.([ bf16 a8. g16] f4) |
        a2 g4 |
        a4 a r4 |
        a4( bf) g |
    %20
        } \alternative {
            { a4 a f4 | }
            { a4 a r4 | }
        }
        R1*2 |
        r2 f4 c |
        d2 r4 |
    %25
        f2 d4 |
        e2 r4 |
        f2 g4 |
        a2. |
        r4 f8 e d([ e16 f g8]) f |
    %30
        e8([ c]) d e f2 |
        R1*4 |
    %35
        r4 f4 a a8 g |
        a4 a r4 a |
        a4 f a a |
        g4 g a2 |
        R2 |
    %40
        R2*4 |
        a2 a4 g |
    %45
        g4 g2. |
        f4 g f g |
        a2. a8([ g]) |
        f4.( g8 a4. g8 |
        f4 g2 a4 |
    %50
        a2.) g4 |
        a4 g g f |
        g8( g a) g |
        f8( f f) f |
        f8( f f) g |
    %55
        a8( a a) g |
        a4 a8 g |
        f8([ g a]) a |
        f8( g g) e |
        f4. g8 |
    %60
        a8([ g f]) f |
        f4 a |
        a8 g f16([ e f g] |
        f8 e4) e8 |
        %3/4
        f2 f4 |
    %65
        a4( g) f |
        g4( a) g |
        a4 a r4 |
        R1*2 |
    %70
        R1*2 |
        f4 e d c |
        d8([ c]) d([ e]) f2 |
        f4 f f f |
    %75
        f4 a f g |
        f8([ e16 f]) g4 a2 |
        f4 f e e |
        R1 |
        g4 g a2 |
    %80
        f4 f e e |
        R1 |
        g4 g a2 |
        f4 f8 f e8.([ d16] c4) |
        R1 |
    %85
        g'4 g a2 |
        r4 f8 f f f f f |
        g8 g a a g g f g |
        a4 a8 a f a g g  |
        a8 f f f g a g f |
    %90
        f8 a bf([ g]) a([ f]) e4 |
        f4. f8 a4 g |
        a2 a8([ g f e] |
        f8[ g a f]) g2 |
        a2. r4 |
    %95
    \repeat volta 2 {
        f8.([ g16 f8]) e d16([ c d e]) f4 |
        a8.([ bf16 a8]) g8 f16([ e f g]) a4 |
        g8.([ f16 e8]) f8 g4 g |
        g8.([ a16 g8]) f8 e16([ d e f]) g4 |
        f8.([ g16 a8]) a8 g4 g |
    %100
        f8 f a g f f g g |
        a8 a g g a4( g |
        a2 f4 a |
        f4 a bf8[ g] a[ f] |
        bf8[ g] a[ f] g[ e] f4 |
    %105
        f4 a) g2 |
        a2. r4 |
    }
  }
}

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

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

tenorNotes = {
  \relative c' {
    \set Staff.instrumentName = "Tenor"
    \clef "treble_8"
        c4 
        \repeat volta 2 {
        c4( d) e |
        f8.([ e16] d4) e |
        f4 f r4 |
    %5
        R2.*2 |
        r2 c4 |
        f8.([ e16] d4) c |
        d2 e4 |
    %10
        f4 f r4 |
        R2.
        f4. e8 d e |
        f4 f r4 |
        f4 f r4 |
    %15
        c4 c r4 |
        c2. |
        f2 e4 |
        f4 f r4 |
        f2 e4 |
    %20
        } \alternative {
            { f4 f c4 | }
            { f4 f r4 | }
        }
        R1*2 |
        r2 c4 a |
        bf2 r4 |
    %25
        c2 b4 |
        c2 r4 |
        c4( d) e |
        f2. |
        R1 |
    %30
        R1 |
        c4. d16([ e]) f4. e8 |
        d8([ c bf]) a g([ f]) g([ a]) |
        bf2 c4 d8([ e]) |
        f8([ d]) c bf a4 bf8 a16([ g]) |
    %35
        f8([ a]) c c f4 f8 e |
        f4 f r4 f |
        e4 d c f |
        d4 e f2 |
        r4 a,4 |
    %40
        c8 c c c |
        d16([ c]) bf([ a]) bf4 |
        R2*2 |
        f'2 e4 d |
    %45
        e4 c2. |
        d4 c d e |
        f2. c4 |
        d2( c |
        d2 e |
    %50
        f2.) e4 |
        f4 e d c |
        d16([ e d e] f8[ e16 d] |
        c16[ d c bf] a[ bf a g] |
        f16[ g a bf] c8[ d16 e16] |
    %55
        f8 f f) e |
        f4 f8 e |
        d16([ e d e] f[ g f e] |
        d8 d d) cs |
        d4. e8 |
    %60
        f8([ e d]) c |
        d4 c |
        f8 c d8([ c16 bf] |
        a4) g |
        %3/4
        f2 c'4 |
    %65
        f8.([ e16] d4) c |
        d8.([ e16] f4) e |
        f4 f r4 |
        c8( c) d d c2 |
        R1 |
    %70
        R1 |
        d8([ c bf]) a bf4 a |
        R1*2 |
        c4 d c c |
    %75
        c4 f d d |
        c4 d8([ e]) f2 |
        d4 d c c |
        R1 |
        d4 e f2 |
    %80
        d4 d c c |
        R1 |
        d4 e f2 |
        d4 d8 d c8.([ bf16] a4) |
        R1 |
    %85
        d4 e f2 |
        r4 a,8 c c c d d |
        d8 d f f e c f e |
        f4 f8 e d c d e |
        f8 c d c bf a bf c |
    %90
        d8 c bf4 a g |
        f4. c'8 f4 e |
        f2 f8([ e d c] |
        d8[ e f c] d4) e |
        f2. r4 |
    %95
    \repeat volta 2 {
        c8.([ d16 c8]) bf8 a16([ g a bf]) c4 |
        f8.([ g16 f8]) e8 d16([ c d e]) f4 |
        e8.([ f16 g8]) f8 e8([ d16 e]) c4 |
        d8.([ e16 d8]) c8 bf16([ a bf c]) d4 |
        c8([ d16 e f8]) e8 d4 c |
    %100
        c8 c c c d d d d |
        f8 f e c f4( e |
        f4 e d c |
        d4 c bf a |
        bf4 a g a8[ f] |
    %105
        a8[ c] f8.[ e16] d4) e |
        f2. r4
    }
  }
}

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

bassNotes = {
  \relative f {
    \set Staff.instrumentName = "Bass"
    \clef "bass"
        f4 |
        \repeat volta 2 {
        f8.([ e16] d4) c |
        f4( g) c, |
        f4 f r4 |
    %5
        R2. |
        f4. e8 d e |
        f2 f4 |
        f4( g) a |
        bf8.([ a16] g4) c,4 |
    %10
        f4 f r4 |
        f4. e8 d e |
        f4 f r4 |
        f2 f4 |
        f4. e8 d e |
    %15
        f4 f r4 |
        f2. |
        f2 c4 |
        f4 f r4 |
        f4( bf) c |
    %20
        } \alternative {
            { f,4 f f | }
            { f4 f r4 | }
        }
        f4. e8 f8.([ g16]) a4 |
        d,4. f8 bf8([ a16. bf32 g8]) f |
        g4 c, f f |
        bf,2 r4 |
    %25
        f'2 g4 |
        c,2 r4 |
        f8.([ e16] d4) c |
        f2. |
        R1 |
    %30
        R1*5 |
    %45
        r4 f4 f f8 c |
        f4 f r4 f |
        a4 bf a f |
        g4 c, f2 |
        r4 f4 |
    %40
        a8 a a a |
        bf16([ a]) g([ f]) g4 |
        f8 g16 a bf8 a16([ g]) |
        a8 d, d4 |
        f2 a4 bf |
    %45
        c4 c,2. |
        f4 e d c |
        f2. f4 |
        bf2( a |
        bf4 g c a |
    %50
        f2.) c4 |
        f4 c' bf a |
        g8( g f) c |
        f8( f f) f16([ g]) |
        a16([ bf a g a8]) g |
    %55
        f8( f f) c |
        f4 f8 g16([ a]) |
        bf8([ g f]) f |
        bf8([ g g]) a |
        d,4. c8 |
    %60
        d8([ e f]) f |
        bf4 a |
        f8 e f16([ g a bf] |
        c8 c,4) c8 |
        %3/4
        f2 f4 |
    %65
        f4( g) a |
        g4( f) c |
        f4 f r4 |
        f8( f) bf bf a2 |
        f8([ g16 a bf8]) a8 bf4( a |
    %70
        bf8[ g e c] f4) r4 |
        R1 |
        f4 c d f |
        bf8([ a]) g4 f2 |
        f4 d f f |
    %75
        f4 f bf g |
        a4 g f2 |
        R1 |
        bf4 bf a a |
        g4 c, f2 |
    %80
        R1 |
        bf4 bf a a |
        g4 c, f2 |
        R1 |
        bf4 bf8 bf a8.([ g16] f4) |
    %85
        g4 c, f2 |
        r4 f8 f f f bf bf |
        g8 g f f c c d c |
        f4 f8 f bf a bf c |
        f,8 f bf a g f g a |
    %90
        bf8 a g4 f c |
        f4. f8 f4 c |
        f2 f2~( |
        f2 bf4) c |
        f,2. r4 |
    %95
    \repeat volta 2 {
        <f, f'>1 |        
        <f f'>1 |
        c'1 |
        <g g'>1 |
        a'8.([ g16 f8]) f8 g4 c, |
    %100
        f8 f f e d d g g |
        f8 f c c d4( e8[ c] |
        f4 a bf a |
        bf4 a g f |
        g4 f c f8[ a] |
    %105
        c8[ a] f8[ g16 a] bf4) c4 |
        f,2. r4
    }
  }
}

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

\header {
	composer = \markup { \bigger { \bold \italic "William Billings" "(1746-1800)" }}
    poet = \markup { \bigger  "from Psalm 148" }
    piece = \markup { \bigger "interpolations by Roscommon and Billings" }
    opus = \markup { \bigger { \italic "The Continental Harmony" (1794) }}
	title = \markup { \bigger \medium \italic "An Anthem, for Thanksgiving" }
    copyright = \markup { \center-align {
        "Copyright © 2005 by Michael Lauer.  "
        "This edition may be freely distributed, duplicated, performed, or recorded." } } 
}

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 {
  \removeWithTag #'midiOnly \theMusic
  \layout {
    \context {
      \Score
      %\override MetronomeMark #'transparent = ##t
      \override BarNumber #'padding = #2
    }
    \context {
        \Staff
        \override InstrumentName #'padding = #0.75
        \override InstrumentName #'font-size = #1
    }
    \context {
      \Lyrics
      \override LyricText #'font-series = #'medium
      \override LyricText #'font-size = #1
      \override LyricText #'stencil = #add-bligs-print
      \override LyricHyphen #'minimum-distance = #0.5
      \override LyricSpace #'minimum-distance = #0.5
    }
  }
}


\score {
  \unfoldRepeats \removeWithTag #'scoreOnly \theMusic
  
  \midi {
    \context {
      \Score
      tempoWholesPerMinute = #(ly:make-moment 80 4)
      }
    }



 }