% title: The Dying Christian's Last Farewell
% composer: William Billings

%% 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 "The Dying Christian’s Last Farewell" } 

\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 g \minor

  \tsAllegro
  \skip 1*10
  \repeat volta 2 {
      \skip 1*6
      \tsThreeTwo
      \skip 1.
  } \alternative {
      { \tsAllegro \skip 1 }
      { \tsThreeTwo \skip 1. }
  }
  \tsAllegro
  \skip 1*4         % where pleasures dwell
  \tsThreeTwo
  \skip 1.
  \tsAllegro
  \skip 1*3
  \tsThreeTwo
  \skip 1.
  \tsAllegro
  \skip 1*7
  \tsThreeTwo
  \skip 1.
  \tsAllegro
  \skip 1*16
  \skip 1*5
  \tsTwoFour
  \tempo 4=150
  \skip 2*4     % affetuoso
  \tsAllegro    % languishing
  \skip 1*2
  \repeat volta 2 {
      \skip 1*6
      \tsThreeTwo
      \skip 1.
  } \alternative {
      { \tsAllegro \skip 1 }
      { \tsThreeTwo \skip 1. }
  }
  \tsLargo
  \tempo 4=100
  \skip 1*3
  
  \bar "|."
}

commonLyrics = \lyricmode {
    \tag #'tenor {
        My friends, I am go -- ing a long jour -- ney,
        ne -- ver __ to __ re -- turn,
    }
    \tag #'bass {
        Fare -- well,
    }
    \tag #'alto {
        Fare you well,
    }
    \tag #'soprano {
        Fare you well,
    }
    \tag #'tenor {
        Fare you well my friends,
    }
    And God grant we may meet in that land
    of har -- mo -- ny where the wi -- cked
    cease from trou -- b -- ling 
    and where the wea -- ry are at rest, 
    And 
    rest,
    
    Where plea -- sures dwell __ for -- e -- ver -- more, and
    \tag #'soprano { 
        joys, __ and joys that ne -- ver fade,
        Where plea -- sures dwell for -- e -- ver -- more, 
        and joys that ne -- ver fade, __
        and joys that ne -- ver fade,
        and joys __ that __ ne -- ver, ne -- ver fade,
        Where plea -- sures dwell for -- e -- ver -- more, 
        and joys that ne -- ver fade, __
        that ne -- ver, ne -- ver fade, __
        and joys that ne -- ver fade,
        Where plea -- sures dwell for -- e -- ver -- more, 
        and joys that ne -- ver fade, __
        and joys that ne -- ver fade, that ne -- ver fade. __
    }
    
    \tag #'alto {
        joys that ne -- ver, ne -- ver fade,
        Where plea -- sures dwell for -- e -- ver -- more, 
        and joys that ne -- ver, joys that ne -- ver fade,
        Where plea -- sures dwell for -- e -- ver -- more, 
        and joys that ne -- ver fade,
        and joys that ne -- ver fade,
        Where plea -- sures dwell for -- e -- ver -- more, 
        and joys that ne -- ver, ne -- ver fade,
        Where plea -- sures dwell for -- e -- ver -- more, 
        and joys that ne -- ver, ne -- ver fade,
        and joys that ne -- ver fade,
        Where plea -- sures dwell for -- e -- ver -- more, 
        and joys that ne -- ver fade,
        and joys that ne -- ver, ne -- ver fade. __
    }
    
    \tag #'tenor {
        joys __ that ne -- ver, ne -- ver,
        ne -- ver, ne -- ver,
        ne -- ver, ne -- ver, ne -- ver fade,
        that ne -- ver, ne -- ver fade,
        that ne -- ver, ne -- ver fade,
        that ne -- ver, ne -- ver fade,
        and joys __ that ne -- ver, ne -- ver fade,
        that ne -- ver, ne -- ver fade,
        that ne -- ver, ne -- ver fade,
        that ne -- ver, ne -- ver fade,
        and joys __ that ne -- ver, ne -- ver, ne -- ver fade. __
    }
    
    \tag #'bass {
        joys that ne -- ver, ne -- ver fade,
        Where plea -- sures dwell for -- e -- ver -- more, 
        and joys that ne -- ver,
        joys that ne -- ver, ne -- ver fade,
        that ne -- ver, ne -- ver fade,
        Where plea -- sures dwell for -- e -- ver -- more, 
        and joys that ne -- ver fade, __
        that ne -- ver, ne -- ver fade,
        that ne -- ver, ne -- ver fade,
        and joys that ne -- ver fade,
        and joys that ne -- ver, ne -- ver, ne -- ver fade,
        Where plea -- sures dwell for -- e -- ver -- more, 
        and joys that ne -- ver, ne -- ver fade, __
        and joys that ne -- ver, ne -- ver fade. __
    }
    
    \tag #'tenor {
        My friends, I am sum -- mon’d to ap -- pear
        at the great tri -- bu -- nal.
    }
    
    Fare you well my friend,
    
    And God grant we may meet in that land
    of har -- mo -- ny where the wi -- cked
    cease from trou -- b -- ling 
    and where the wea -- ry are at rest, 
    And 
    rest,
    
    \tag #'soprano \tag #'alto \tag #'bass {
        fare -- well, fare -- well, fare -- well.
    }
}

sopranoNotes = {
  \relative a' {
    \set Staff.instrumentName = "Treble"
    \clef "treble"
        R1*7 |
        a16([ c8.]) a4 f2 |
        R1 |
    %10
        r2 r4 g4 |
        \repeat volta 2 {
            bf2 a |
            bf4 c8([ ef]) d2 |
            d4 d g, g |
            a4. a8 a2 |
    %15
            a4 a bf4 bf8.([ c16]) |
            d4 d d8 d d c |
            bf4 d c bf a a |
        } \alternative {
            { g2. g4 | }
            { g1 r2 | }
        }
    %20
        bf2 bf4 bf |
        a8([ bf a bf] c4) bf |
        a4.( bf8 a4) g |
        d'2 d2 |
        d4.( bf8 c4. a8 bf4 a8[ g] |
    %25
        fs2) fs |
        g4 g g g |
        g2 d' |
        d8([ c]) bf8([ c]) d4 g,8.([ bf16]) a4 g |
        a4 a a8 a a a |
    %30
        bf4.( a8 g4) g |
        a4 a a g |
        a2 d |
        d8([ c bf c] d4) d8([ ef]) |
        f4 ef d c |
    %35
        d2 d4 d8 d |
        d4 d d d g, g |
        a4 a bf8([ a]) g([ a]) |
        bf4.( a8 bf4) a |
        bf4 bf a a |
    %40
        bf4.( a 8 g4) g |
        a4 a a g |
        a2 d |
        d4 d g, g  |
        a4 bf a g |
    %45
        d'4 d d d |
        d2( c |
        bf2 a4 g |
        d'2 c4) bf |
        a2 bf4( c)  |
    %50
        d8([ c]) bf4 a g |
        d'4 d d2~ |
        d2 r2 |
        R1*2 |
    %55
        R1*3 |
        bf8.^\markup { \italic "Affettuoso." } d16 c8. bf16 |
        a4 r4 |
    %60
        R2* 2 |
        R1^\markup { \italic "Languishing." } |
        r2 r4 g4 |
        \repeat volta 2 {
            bf2 a |
    %65
            bf4 c8([ ef]) d2 |
            d4 d g, g |
            a4. a8 a2 |
            a4 a bf4 bf8.([ c16]) |
            d4 d d8 d d c |
    %70
            bf4 d c bf a a |
        } \alternative {
            { g2. g4 | }
            { g1 r2 | }
        }
        ef'2^\markup { \italic "Affettuoso."  "Minum Beating." } d |
        c2 bf |
        a g |
  }
}

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

altoNotes = {
  \relative bf {
      \set Staff.instrumentName = \markup { "Counter" }
    \clef "treble"
        R1*6 |
        bf16([ d8.]) bf4 g2 |
        R1*2 |
    %10
        r2 r4 d'4 |
        \repeat volta 2 {
            d2 d |
            g4 g f2 |
            f4 f8.([ ef16]) d4 d8([ ef]) |
            f4. f8 f2 |
    %15
            f4 f8.([ ef16]) d4 d |
            d4 g f8 f f ef |
            d4 f ef ef d d |
        } \alternative {
            { d2. d4 | }
            { d1 r2 | }
        }
    %20
        g2 g4 g4 |
        f2 g |
        f4.( g8 f4) ef |
        d2. d8.([ ef16]) |
        f4 f f f ef d8([ c]) |
    %25
        d2 d4 d8 d |
        d4 d ef ef |
        ef4 ef d d8.([ ef16]) |
        f4 f g d8.([ ef16]) f4 g |
        f2. f4 |
    %30
        g4 g g d8.([ ef16]) |
        f4 f f g |
        f4 f f f |
        g2. g4 |
        a4 g f ef |
    %35
        d2 f |
        g4 g g g d d8.([ ef16]) |
        f4 f g g |
        d4 g f f |
        g2 f4 f8 f |
    %40
        g4 g g ef8.([ f16]) |
        f4 f f g |
        f4 f f f |
        g2 d |
        f4 ef d c |
    %45
        d2 f |
        g4 d8([ ef]) f4 g |
        f8([ ef]) d([ ef]) f4 g |
        f8([ d]) ef([ d]) f4 g |
        f2. f4 |
    %50
        f4 f f g |
        fs4 fs g2~ |
        g2 r2 |
        R1*2 |
    %55
        R1*3 |
        R2*2 |
    %60
        d8. g16 f8. ef16 |
        d4 r4 |
        R1 |
        
        r2 r4 d4 |
        \repeat volta 2 {
            d2 d |
    %65
            g4 g f2 |
            f4 f8.([ ef16]) d4 d8([ ef]) |
            f4. f8 f2 |
            f4 f8.([ ef16]) d4 d |
            d4 g f8 f f ef |
    %70
            d4 f ef ef d d |
        } \alternative {
            { d2. d4 | }
            { d1 r2 | }
        }
        g2 f |
        ef2 d |
        d2 d |
  }
}

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

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

tenorNotes = {
  \relative d {
    \set Staff.instrumentName = "Tenor"
    \clef "treble_8"
        r2 d2 |
        g2  a4 a |
        bf4 bf c c |
        d4 g,8([ a]) bf4 g8([ bf]) |
    %5
        a8([ g]) f([ ef]) d2 |
        R1*3 |
        g16([ bf8.]) a4 g fs |
    %10
        g2. d4 |
        \repeat volta 2 {
            g2 fs |
            g4 g a2 |
            a4 a bf bf |
            c4. c8 c2 |
    %15
            d4 d d g,8.([ a16]) |
            bf4 g a8 a a a |
            bf4 bf a g fs fs |
        } \alternative {
            { g2. d4 | }
            { g1 r2 | }
        }
    %20
        d'2 d4 d |
        d4( ef8[ d] ef4) d |
        c4( d8[ c d c]) bf4 |
        a2. a4 |
        bf4.( d8 c4. d8 bf4. c8 |
    %25
        a2.) a4 |
        bf4 bf g g |
        c4 c a a |
        d4 d bf bf c c |
        d2. d4 |
    %30
        ef4 d c bf |
        c2. c4 |
        d4 c4 bf a |
        bf2. bf4 |
        c4 bf a g |
    %35
        a2. a4 |
        bf4.( a8 g4. a8 bf4. c8 |
        d2.) ef4 |
        f4 ef d c |
        d2. d4 |
    %40
        ef4 d c bf |
        c2. c4 |
        d4 c bf a |
        bf2. bf4 |
        c4 bf a g |
    %45
        a2. a4 |
        bf2( c4 d8[ c] |
        d2 c4 d8[ c] |
        bf2 c4 d8[ c] |
        d2.) c4 |
    %50
        bf4 bf c c |
        d8([ c]) bf([ a]) g2~ |
        g2 r2 |
        
        d2 g |
        a4 a bf bf |
    %55
        a4 g a2 |
        g4 g f d |
        g2 g |
        R2 |
        R2 |
    %60
        R2*2 |
        g4. bf8 a4 g |
        f2. d4 |
        
        \repeat volta 2 {
            g2 fs |
            g4 g a2 |
            a4 a bf bf |
            c4. c8 c2 |
            d4 d d g,8.([ a16]) |
            bf4 g a8 a a a |
            bf4 bf a g fs fs |
        } \alternative {
            { g2. d4 | }
            { g1 r2 | }
        }
        R1*3 |
  }
}

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

bassNotes = {
  \relative g {
    \set Staff.instrumentName = "Bass"
    \clef "bass"
        R1*5 |
        g2 f |
        R1*3 |
    %10
        r2 r4 g,4 |
        \repeat volta 2 {
            g2 d'2 |
            ef4 c d2 |
            d4 d g g |
            f4. f8 f2 |
    %15
            d4 d g g |
            g4 g, d'8 d d d |
            bf4 bf c c d d |
        } \alternative {
            { g,2. g4 | }
            { g1 r2 | }
        }
    %20
        g'2 g4 g |
        d2( c4) bf |
        f'2. g4 |
        d2. d8.([ c16]) |
        bf4 bf f' f g g |
    %25
        d2. d4 |
        g4 g c, c |
        c8([ d]) ef([ d]) d4 d |
        d4 d g g f ef |
        d4 d d d |
    %30
        g2. g4 |
        f4 f f ef |
        d2. d4 |
        g4 g g g |
        f4 g d ef |
    %35
        d4 d d d |
        g2~ g2. g4 |
        d4 d g g |
        bf2. a4 |
        g4 g d d |
    %40
        g2. g4 |
        f4 f f ef |
        d2. d4 |
        g4 g g g |
        a4 g f ef |
    %45
        d2 d4 d8 d |
        g4 g f ef |
        d4 g f ef |
        d4 g f ef |
        d4.( c8 bf4) a |
    %50
        bf8([ c]) d8([ ef]) f4 ef |
        d4 d g,2~ |
        g2 r2 |
        R1*2 |
    %55
        R1*3 |
        R2 |
        d'8. g16 f8. ef16 |
    %60
        d4 r4 |
        R2 |
        R1 |
        r2 r4 g,4 |
        
        \repeat volta 2 {
            g2 d'2 |
       %65
            ef4 c d2 |
            d4 d g g |
            f4. f8 f2 |
            d4 d g g |
            g4 g, d'8 d d d |
    %70
            bf4 bf c c d d |
        } \alternative {
            { g,2. g4 | }
            { g1 r2 | }
        }
        c2 bf |
        c2 d |
        d2 g, |
  }
}

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

\header {
	composer = \markup { \bigger { \bold \italic "William Billings" "(1746-1800)" }}
    poet = \markup { \bigger  "" }
    piece = \markup { \bigger "" }
    opus = \markup { \bigger { \italic "The Continental Harmony" (1794) }}
	title = \markup { \bigger \medium \italic "The Dying Christian’s Last Farewell" }
    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 {
        \Voice
        \override TextScript #'staff-padding = #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)
      }
    }



 }