%% This is a UTF-8 file

\version "2.10.10"

\include "english.ly"

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

headerMarkup = \markup { \italic "Claremont" } 

\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.08\in
  page-top-space = 0\in
  %ragged-last-bottom = ##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.5)

tempoLargo =
    { \tag #'midiOnly { \tempo 4=80 } \tag #'scoreOnly { \tempo 4=80 } }
tempoAllegro = 
    { \tag #'midiOnly { \tempo 2=60 } \tag #'scoreOnly { \tempo 2=60 } }
tsLargo = { \time 2/2 }

tsAllegro = { \once \override Staff.TimeSignature #'style = #'() \time 2/2 }

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

  \autoBeamOff
  
  \override Staff.VerticalAxisGroup #'minimum-Y-extent = #'(-3 . 3)

  \key c \major % well, really a minor.
  
  \time 6/4
  \tempo 2. = 60
  \partial 2.
  \skip 2.
  \skip 1.*4
  \tsAllegro
  \tempoAllegro
  \skip 1*5
  %10
  \time 6/4 \tempo 2.=60
  \skip 1.*9
  %19
  \tsAllegro \tempoAllegro
  \skip 1*8
  %27
  \time 6/4 \tempo 2.=60
  \skip 1.*2
  %29
  \tsAllegro \tempoAllegro
  \skip 1*8
  \repeat volta 2 { \skip 1*6 }
  \alternative { { \skip 1 } { \skip 1 } }
  %45
  \time 6/4 \tempo 2.=60
  \skip 1.*10
  %55
  \tsAllegro \tempoAllegro
  \skip 1*32
  \bar "|."
}

commonLyrics = \lyricmode {
    Vi -- tal spark of heav’n -- ly flame,
    Quit, O quit this mor -- tal frame;
    Trem -- bling, ho -- ping, ling’ -- ring, fly -- ing,
    \tag #'soprano \tag #'alto \tag #'bass { fly -- ing, fly -- ing, }
    O! the pain, the bliss of dy -- ing.
    \tag #'soprano \tag #'tenor { Cease, fond na -- ture,
        cease thy strife, }
    And let me lan -- guish in -- to life;
    And let me lan -- guish in -- to life;
    \tag #'soprano \tag #'bass { Hark! they whis -- per;
        an -- gels say, Sis -- ter spi -- rit,
        come a -- way;
    }
    \tag #'alto \tag #'tenor { Hark! __ Hark! __ }
    \tag #'soprano { Hark! Hark!
        Sis -- ter spi -- rit, come a -- way;
    }
    \tag #'tenor \tag #'bass { Hark! they whis -- per;
        an -- gels say, Sis -- ter spi -- rit,
        come a -- way;
    }
    Sis -- ter spi -- rit, come a -- way.
    What is this ab -- sorbs me quite?
    Steals my sen -- ses, shuts my sight?
    \tag #'soprano \tag #'alto \tag #'tenor \tag #'bass { Drowns my }
    spi -- rit, draws my breath,
    \tag #'soprano \tag #'alto Tell
    % \repeat volta 2 {
        \tag #'soprano \tag #'alto { me my soul, can this be death? }
        \tag #'alto \tag #'tenor \tag #'bass { Tell me my soul, can this be death? }
        Tell me my soul, can this be 
    % } \alternative {
        { death? \tag #'soprano \tag #'alto { Tell } } { death? }
    % }
    \tag #'soprano \tag #'tenor \tag #'bass {
        The world re -- cedes, it dis -- ap -- pears,
        Heav’n o -- pens on my eyes,
    }
    My ears with sounds se -- ra -- phic ring,
    My ears with sounds se -- ra -- phic ring, __
    My ears with sounds se -- ra -- phic ring.
    
    Lend, lend your wings!  I mount, I fly!  I mount, I fly!
    \repeat unfold 2 {
        O grave! where is thy vic -- to -- ry?
        thy vic -- to -- ry?
    }
    O death! where is thy sting?
    Lend, lend your wings!
    I mount, I fly! __
    I mount, I fly! 
    I mount, I fly, I fly! 
    O grave! where is thy vic -- to -- ry?
    O death! where is thy sting?
    I mount, I fly! 
    I mount, I fly! 
    O grave! where is thy vic -- to -- ry?
    O death! where is thy sting?
}

sopranoNotes = {
  \relative a' {
    \set Staff.instrumentName = "Treble"
    \clef "treble"
        a2 b4  |
    %1
        c2 e4 d2 b4 |
        g2. e'2 d4 |
        e2 c4 d2 b4 |
        a1. |
    %5
        R1 |
        e'4 e c c |
        e4.( d8 e4) c |
        d4 d d2 |
        b2 e4 e |
    %10
        e2 fs4 e2 c4 |
        b2 c4 a4 a2 |
        r2 r4 c4( d) e |
        fs4( e) d e( d) c |
        b2 g4 c2 d4 |
    %15
        e2 d4 c4( b) a |
        g2 e4 a2 d4 |
        c2 e4 d( c) d |
        e1. |
        c4. e8 c4 g |
    %20
        a4 a c r4 |
        d4. e8 d4 b |
        g4 g g r4 |
        e'2. r4 |
        e2. r4 |
    %25
        e4 fs d d |
        e4 g e2 |
        c2 e4 a,2 b4 |
        a2 g4 a2. |
        R1 |
    %30
        a4 a b b |
        c4. e8 d2 |
        c4 a b b |
        e4. d8 e2 |
        e8 c4. e4.( d8 |
    %35
        e4) e8([ d]) c4 b | 
        a2. b4 |
        \repeat volta 2 {
            c4 d e e8([ d]) |
            e4 c e r4 |
            R1 |
    %40
            r2 r4 b4 |
            e4 g e c8([ a]) |
            g2. g4 |
        } \alternative {
            { a2. b4 | }
            { a1 | }
        }
    %45
        %6/4
        r2 r4 r2 a4 |
        a2 b4 c2 d4 |
        e2 d4 e2.~ |
        e2 c4 a2 g4 |
        a4( b) c d2.~ |
    %50
        d2 d4 e2 e4 |
        a,2 g4 a( b) c |
        b2 b4 b2 g4 |
        a2 b4 c( b) a |
        g2.( a4 b c |
    %55
        %2/2
        b2.) a8([ b]) |
        c2. d4 |
        e2. c4 |
        d4( c) b2 |
        a1 |
    %60
        r2 c2 |
        e4 e e d8([ c]) |
        b4 d e8([ d]) c([ b]) |
        c4 c c e |
        d4 d d c8([ d]) |
    %65
        e4 e e fs |
        e4 e e e8([ d]) |
        d4 d d d8([ c]) |
        a4 a a c8([ d]) |
        e4 e c b |
    %70
        c4 d c b8([ a]) |
        g2. c8([ d]) |
        e4 c8([ d])e4 c8([ d]) |
        e4 b c4.( b8 |
        a8[ b c d] e4) e
    %71
        d4 e e c |
        e4 e e d8([ c]) |
        d4 d d b |
        e4 g e c |
        d4 d e g |
    %75
        e4 c e e8([ d]) |
        e4 e e c8([ b]) |
        a4 a a b |
        c4 c e e |
        d4 d b a8([ b]) |
    %80
        c4 e d8([ c]) b4 |
        a1 |
    }
}

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

altoNotes = {
  \relative e' {
    \set Staff.instrumentName = \markup { "Counter" }
    \clef "treble"
        e2 e4 |
    %1
        e2 e4 g2 g4 |
        g2. a2 g4 |
        e2 e4 fs2 e4 |
        e1. |
    %5
        g4 g g g |
        e2 e |
        a2 a |
        g2 g |
        g8([ a g fs] e4) e |
    %10
        g2 a4 g2 fs4 |
        e2 e4 e e2 |
        R1. |
        R1. |
        r2 e4 e2 e4 |
    %15
        g2 g4 e2 e4 |
        e2 a4 e2 d4 |
        e2 e4 fs2 e4 |
        e1. |
        a1~ |
    %20
        a2. r4 |
        g1~ |
        g2. r4 |
        R1 |
        R1 |
    %25
        R1 |
        R1 |
        e2 e4 g2 fs4 |
        e2 e4 e2. |
        e4 e e e |
    %30
        a4 a g2 |
        g4. g8 g4 g |
        e4 fs e2 |
        a4.( g8 e4) fs |
        g8 e4. e4.( fs8 |
    %35
        e4) e e2~ |
        e2. e4 |
        \repeat volta 2 {
            g4 g8([ a]) e4 e8([ d]) |
            c4 c8([ d]) e4 e |
            g4 a g e |
    %40
            a4 a a g |
            a b a g8([ fs]) |
            e2. e4 |
        } \alternative {
            { e2. e4 | }
            { e1 | }
        }
    %45
        %6/4
        R1.*5 |
    %50
        r2 g4 e2 e4 |
        e2 d4 e( fs) g |
        g2 g4 e2 e4 |
        e2 a4 a( g) a |
        g2.( a4 g fs |
    %55
        e2.) e4 |
        a2. g4 |
        e2. e4 |
        fs2 e |
        e1 |
    %60
        r2 e2 |
        g4 g g e |
        g4 a g b |
        a4 a a c |
        g4 g e e |
    %65
        a4 g8([ fs]) e4 e |
        g4 e8([ fs]) g4 g |
        a4 a a b |
        a4 a e fs |
        e4 e8([ fs]) g4 g |
    %70
        c4 b c a |
        g2. e4 |
        g4 a g e |
        g4 a g8([ fs e d] |
        e4. fs8[ g a]) g8[( fs]) |
    %75
        g4 e e a |
        e4 c e e |
        a4 a g e |
        a4 c g a |
        b4 b c b8([ a]) |
    %80
        g4 fs e e |
        g4 g g g |
        e4 e a e |
        a4 c g g |
        g8([ a]) g([ fs]) e4 e |
    %85
        a4 e fs e |
        e1 |
  }
}

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

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

tenorNotes = {
  \relative e' {
    \set Staff.instrumentName = "Tenor"
    \clef "treble_8"
        e2 e4 |
    %1
        c2 c4 d2 d4 |
        b2. c2 d4 |
        b2 c4 a2 g4 |
        a1. |
    %5
        b4 b c c |
        e1~( |
        e8[ fs e d] c4) c |
        d1~( |
        d8[ e d c] b4) b |
    %10
        c2 d4 e2 a,4 |
        b4( a) g a4 a2 |
        r2 r4 e'4( d) c |
        d4( c) b c( b) a |
        g2 g4 a2 b4 |
    %15
        c2 d4 e4( d) c |
        b2 a4 e'2 b4 |
        c2 a4 b4( a) g |
        a1. |
        e'1~ |
    %20
        e2. r4 |
        d1~ |
        d2. r4 |
        b4 b e e |
        c4 d8([ c]) b2 |
    %25
        c4 c d d |
        e8([ d]) c4 b2 |
        e2 b4 c2 a4 |
        b4( a) g a2. |
        b4 b c c |
    %30
        e4 c d2 |
        d4. d8 d4 b |
        c4 d8([ c]) b2 |
        a4.( b8 c4) d |
        e8 g4. e4.( d8 |
    %35
        c4) b4 a2~ |
        a2. r4 |
        \repeat volta 2 {
            R1 |
            r2 r4 e'4 |
            c4 a g e |
    %40
            a4 a a b |
            c4 d e8([ d]) c4 |
            b2. c8([ b]) |
        } \alternative {
            { a2. r4 | }
            { a1 | }
        }
    %45
        %6/4
        r2 r4 r2 a4 |
        c2 b4 a2 g4 |
        a4( b) c b2.~ |
        b2 b4 c2 d4 |
        e4( d) c b2.~ |
    %50
        b2 b4 c2 b4 |
        a2 b4 c( d) e |
        d2 d4 e2 e4 |
        e4( fs) g a( g) fs |
        e2.( d4 e fs |
    %55
        e2.) e4 |
        c2. d4 |
        b2. c4 |
        a2 g |
        a1 |
    %60
        r2 e'2 |
        e4 e e e8([ fs]) |
        g4 fs e d |
        e4 e e fs8([ e]) |
        d4 d d e8([ d]) |
    %65
        c4 c c a |
        b4 b b g |
        a4 a a b |
        c4 c c d |
        e4 e e d |
    %70
        c4 b c d |
        e2. e8([ fs]) |
        g4 e8([ fs]) g4 e8([ fs]) |
        g4 d e8([ fs] e[ d] |
        e4. d8 c4) b8([ c]) |
    %75
        d4 b g a8([ b]) |
        c4 a a g |
        a4 a a b |
        c4 e d c |
        b4 b c e |
    %80
        d4 c b b |
        c4 c c d |
        e4 e e c8([ d]) |
        e4 c a b8([ c]) |
        d4 b g a8([ b]) |
    %85
        c4 a a g |
        a1 |
  }
}

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

bassNotes = {
  \relative a {
    \set Staff.instrumentName = "Bass"
    \clef "bass"
        a2 g4 |
    %1
        a2 a4  g2 g4 |
        g2. a2 g4 |
        e2 c4 d2 e4 |
        a,1. |
    %5
        R1 |
        e'4 e a a |
        a2. c4 |
        g4 g g2 |
        g2 e4 e |
    %10
        c2 b4 c2 d4 |
        e2 e4 a,4 a2 |
        R1. |
        R1. |
        r2 e'4 a2 e4 |
    %15
        c2 g'4 e2 e4 |
        e2 a4 a2 g4 |
        a2 c,4 d2 e4 |
        a,1. |
        a4. a8 a4 a |
    %20
        a'4 a a r4 |
        g4. g8 g4 g |
        g4 g g r4 |
        e4 e a a |
        e4 c e2 |
    %25
        a4 a g g |
        a4 a e2 |
        c2 b4 c2 d4 |
        e2 e4 a,2. |
        e'4 e a a |
    %30
        a4 c g2 |
        g4. g8 g4 g |
        a4 g e2 |
        a4.( g8 a4) b |
        e,8 e4. c4.( d8 |
    %35
        e4) e a,2~ |
        a2. r4 |
        \repeat volta 2 {
            R1 |
            r2 r4 c4 |
            c4 c c e |
    %40
            d4 d d g |
            a4 g a a |
            e2. e4 |
        } \alternative {
            { a,2. r4 }
            { a1 | }
        }
    %45
        %6/4
        r2 r4 r2 a'4 |
        a2 g4 a2 b4 |
        a4( g) fs e2.~ |
        e2 e4 a2 b4 |
        c4( b) a g2.~ |
    %50
        g2 g4 a2 b4 |
        c2 b4 a( b) c |
        g2 g4 e2 e4 |
        a2 g4 a2 b4 |
        c2.( b4 c b |
    %55
        a4. g8 e4) e |
        a2. g4 |
        e2. c4 |
        d2 e |
        a,1 |
    %60
        r2 a'2 |
        c4 c c c8([ d]) |
        e4 d c b |
        a4 a a b8([ a]) |
        g4 g g e |
    %65
        a4 a a a |
        e4 e e d8([ c]) |
        d4 d d e |
        a4 a a b |
        c4 c c b |
    %70
        a4 g a b |
        e,2. e8([ d]) |
        c4 c c c |
        c4 b a2~ |
        a2. c4 |
    %75
        d4 e e a8([ g]) |
        a4 a a e |
        d4 d d g |
        a4 c b a |
        g4 g a c |
    %80
        b4 a e e |
        c4 c c b |
        a4 a a e' |
        a4 a c c |
        g4 g g c8([ b]) |
    %85
        a4 a d, e |
        a,1 |
  }
}

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

engravedLine = #(string-append "Engraved by LilyPond " (lilypond-version))

\header {
	composer = \markup { "Temple & Merrill" }
    opus = \markup { \italic "The Psalmodist's Best Companion" (1799) }
	title = \markup { \bigger "Claremont" }
    poet = \markup { "Alexander Pope" }
    piece = \markup { \italic "The Dying Christian to His Soul" }
    copyright = \markup {
        \smaller
        \center-align {
        "Copyright © 2005 by Michael Lauer.  "
        "This edition may be freely distributed, duplicated, performed, or recorded." } } 
    tagline = \markup { \smaller \column {
            \fill-line { \line { Source: \italic "The Southern Harmony" } " " }
            \line { "Dorian mode (all F-sharps) editorial" }
            \engravedLine
    } }
}

theMusic = {
  \context ChoirStaff = choir <<
      \new Staff {
        \context Voice =
          sopranoNotes << \global \sopranoNotes >>
      }
      \tag #'midiOnly \new Staff {
          << \global \transpose c c' \tenorNotes >> 
      }
      \lyricsto sopranoNotes \new Lyrics { \sopranoLyrics }
      \new Staff {
        \context Voice =
          altoNotes << \global \altoNotes >>
      }
      \lyricsto altoNotes \new Lyrics { \altoLyrics }
      \new Staff {
        \context Voice =
          tenorNotes << \global \tenorNotes >>
      }
      \tag #'midiOnly \new Staff {
          << \global \transpose c' c \sopranoNotes >> 
      }
      \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 {
      \Lyrics
      \override LyricText #'font-series = #'medium
      \override LyricText #'font-size = #-.5
      \override LyricHyphen #'minimum-distance = #0.5
      \override LyricSpace #'minimum-distance = #0.5
    }
    \context {
      \Staff
      \override InstrumentName #'padding = #0.75
      %\override Accidental #'font-size = #-4
    }
  }
}


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



 }