% title: Vital Spark
% 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 to his Soul" } 

\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
  
    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 }
tsSixEight = { \time 6/8 \tempo 4.=80 }

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

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

  %#(override-auto-beam-setting '(end * * * *) 1 4 )
  %#(override-auto-beam-setting '(end * * * *) 2 4 )
  %#(override-auto-beam-setting '(end * * * *) 3 4 )
  %#(override-auto-beam-setting '(end * * * *) 4 4 )
  
  \key b \minor
  
        \tsAllegro
        \skip 1*8
    %9
        \autoBeamOff
        \time 2/4
        \skip 2*2
    %11
        \time 3/2
        \skip 1.*1
    %12
        \tsTwoFour
        \skip 2*1
    %13
        \autoBeamOn
        \tsAllegro 
        \skip 1*4
    %17
        \time 2/4
        \skip 2*8
    %25
        \tsAllegro
        \skip 1*3
    %28
        \tsTwoFour
        \skip 2*6
    %34
        \tsAllegro
        \skip 1*17
    %51
    \repeat volta 2 {
        \autoBeamOff
        \set Staff.printKeyCancellation = ##f
        \tsSixEight
        \key b \major
        \skip 2.*9
    %60
        \tsTwoFour
        \skip 2*6
    %66
        \tsAllegro
        \skip 1*3
    }

}

theLyrics = \lyricmode {
    \tag #'soprano \tag #'tenor \tag #'bass { 
        Vi -- tal spark of Heav’n -- ly flame, __
    }
    \tag #'alto { 
        Vi -- tal spark of Heav’n -- ly __ flame, __
    }
    \tag #'bass { Quit, oh, quit this mor -- tal __ frame, }
    Tremb -- ling, ho -- ping, ling’ -- ring, fly -- ing,
    \tag #'soprano { Oh the Pain, the __ Bliss __ } 
    \tag #'alto { Oh the Pain, the Bliss __ }  
    \tag #'tenor { Oh __ the Pain, __ the Bliss __ }  
    \tag #'bass { Oh the Pain, the Bliss } 
    of dy -- ing,
    Cease, fond Na -- ture, cease the strife,
    Let me lan -- guish in -- to Life.
    Hark! they whis -- per, An -- gels say:
    Sis -- ter Spi -- rit, come a -- way.
    \tag #'bass { What is this ab -- sorbs me __ quite, }
    \tag #'alto { Steals my __ Sen -- ses, }
    \tag #'soprano { Shuts my __ sight, }
    \tag #'tenor { Drowns my Spi -- rits }
    \tag #'bass { Draws my Breath? }
    Tell me, my Soul, can this be Death?
    \tag #'soprano { 
        The World re -- cedes it dis -- ap -- pears;
        Heav’n o -- pens on my Eyes; my Ears
        With sounds se -- ra -- phic,
    }
    \tag #'alto {
        Heav’n o -- pens on my Eyes; my Ears
    }
    \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:
    Lend, lend your Wings!
    I mount! I fly!
    O Grave, where is thy Vic -- to -- ry?
    O Death, where 
    \tag #'soprano \tag #'tenor { is __ }
    \tag #'alto \tag #'bass { is }
    thy Sting?
}

sopranoNotes = {
  \relative b' {
    \set Staff.instrumentName = "Treble"
    \clef "treble"
            b2 b |
            d2 cs |
            b2 cs |
            d4( b cs2) |
        %5
            R1 |
            R1 |
            R1 |
            R1 |
            d8 b r4 |
        %10
            cs8 a r4 |
            b2 d r2 |
            cs8 cs r4 |
            d2 d |
            cs2 d8( cs b cs) |
        %15
            d8.( e16 d8 cs b4) a8( g) |
            fs4 fs r2 |
            d'4 ^\markup { \italic Forte } d |
            cs4 cs |
            b4 a |
        %20
            a2 |
            b4 ^\markup { \italic Piano } b4 |
            a4 fs |
            b4 as |
            b2 |
        %25
            r2 b2 |
            r2 ^\markup { \italic Piano } r4 d8.( b16) |
            a4 fs r2 |
            b8( cs) d( b) |
            cs8.( b16 a4) |
        %30
            b4 cs |
            d8 cs4. |
            b4 as |
            b2 |
            R1 ^\markup { \italic Languissiant } |
        %35
            R1 |
            R1 |
            R1 |
            R1 |
            R1 |
        %40
            R1 |
            d2 \times 2/3 { e4( d e) } |
            fs1 |
            R1 |
            R1 |
        %45
            R1 | 
            R1 |
            b,2 d4 e |
            d2 b2 |
            fs'4( e) d( cs) |
        %50
            b1 |
        \repeat volta 2 {
            r4. r4 fs8 |
            b8([ as]) b cs([ b]) as |
            b8([ as]) gs fs4 r8 |
            r4. fs4. |
        %55
            b4 cs8 ds([ e]) fs |
            b,8([ ds]) cs ds([ e]) fs |
            b,4 b8 e\noBeam ds\noBeam cs |
            b4 ds8 gs,([ cs]) b |
            as4.~ as4 r8 |
        %60
            b4 ds8. fs16 |
            fs8. fs16 gs8 fs16([ e]) |
            ds2 |
            ds4 cs8. b16 |
            cs8. ds16 e16([ ds]) cs([ b]) |
        %65
            cs4. r8 |
            b1 ^\markup { \italic Forte } |
            ds4 b fs'8([ e]) ds8([ cs]) |
            ds1 |
        }
  }
}

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

altoNotes = {
  \relative fs' {
    \set Staff.instrumentName = "Counter"
    \clef "treble"
            fs2 fs |
            fs2 fs |
            fs2 fs4 ( e) |
            d4( e fs2) |
        %5
            R1 |
            R1 |
            R1 |
            R1 |
            fs8 fs r4 |
        %10
            fs8 fs r4 |
            fs2 fs r2 |
            a8 a r4 |
            fs2 fs |
            a2 b |
        %15
            a8.( b16 a8 g fs4) fs |
            fs4 fs r2 |
            a4 a4 |
            a4 a4 |
            g4 e |
        %20
            fs2 |
            fs4 g |
            fs4 fs |
            e8( g) fs4 |
            fs2 |
        %25
            r2 fs2 |
            r2 r4 fs4 |
            fs4 fs r2 |
            fs4 fs |
            fs2 |
        %30
            fs4 fs |
            fs8 a4. |
            g4 fs |
            fs2 |
            R1 |
        %35
            R1 |
            R1 |
            R1 |
            R1 |
            fs2 e4( fs8 g) |
        %40
            fs4 fs2 r4 |
            R1
            R1
            R1
            R1
        %45
            R1
            R1
            b2 fs4 g |
            a2 g |
            fs2 fs |
        %50
            fs1 |
        \repeat volta 2 {
            R2. |
            R2. |
            R2. |
            R2. |
        %55
            r4. r4 ds8 |
            fs4 fs8 fs([ e]) ds |
            gs4 gs8 gs4 fs8 |
            fs4 gs8 gs4 fs8 |
            fs4.~ fs4 r8 |
        %60
            fs4 fs8. fs16 |
            fs8. fs16 gs8 as |
            b2 |
            b4 gs8. gs16 |
            fs16([ e]) ds8 gs8. gs16 |
        %65
            fs4. r8 |
            <e b'>1 |
            fs4 gs fs fs |
            fs1 |
        }
  }
}

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

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

tenorNotes = {
  \relative b {
    \set Staff.instrumentName = "Tenor"
    \clef "treble_8"
            b2 fs |
            b2 cs |
            d2 cs |
            b2( a) |
        %5
            R1 |
            R1 |
            R1 |
            R1 |
            b8 b r4 |
        %10
            cs8 cs r4 |
            d2 d r2 |
            e8 e r4 |
            fs4.( g8 fs4) d |
            e4.( fs8 g4) e |
        %15
            fs8.( g16 fs8 e d4) cs |
            b4 b r2 |
            fs'4 fs |
            e4 a, |
            d4 cs |
        %20
            d2 |
            d4 b |
            cs16( d cs b) a4 |
            b8( d) cs4 |
            b2 |
        %25
            r2 b2 |
            r2 r4 b8.( d16) |
            cs4 a r2 |
            fs'8.( e16) d4 |
            cs2 |
        %30
            d4 cs |
            d8 fs4. |
            e8( d) cs4 |
            b2 |
            R1
        %35
            R1
            R1
            R1
            R1
            R1
        %40
            R1
            R1
            R1
            d2 b |
            cs4 a2 r4 |
        %45
            R1
            R1
            g'2 fs4 e |
            fs2 b,4.( cs8) |
            d4( cs) b( as) |
        %50
            b1 |
        \repeat volta 2 {
            R2. |
            R2. |
            R2. |
            R2. |
        %55
            R2. |
            R2. |
            r4. r4 cs8 |
            ds4 b8 e4 ds8 |
            cs4.~ cs4 r8 |
        %60
            ds4 ds8. ds16 |
            cs8. fs,16 b16([ cs]) ds([ e]) |
            fs2 |
            fs4 e8. ds16 |
            cs8. b16 cs16([ b]) cs([ ds]) |
        %65
            cs4. r8 |
            gs'1 |
            fs4 e ds8([ cs]) b([ as]) |
            b1 |
        }
  }
}

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

bassNotes = {
  \relative b, {
    \set Staff.instrumentName = "Bass"
    \clef "bass"
            b2 b |
            b2 <fs fs'> |
            <b b'>2 <a a'> |
            <g g'>2( <fs fs'>) |
        %5
            <fs fs'>2 <b b'> |
            <fs' a>4( <e g>) <d fs>2 |
            <cs e>4( <b d>) <a cs>( <g b>) |
            <fs fs'>2 r2 |
            b8 b r4 |
        %10
            <fs fs'>8 <fs fs'> r4 |
            <b b'>2 <b b'> r2 |
            <a a'>8 <a a'> r4 |
            <b b'>2 <b b'> |
            <a a'>2 <g g'> |
        %15
            <fs fs'>2 <fs fs'> |
            b4 b r2 |
            d4 d |
            a' fs |
            g4 a |
        %20
            d,2 |
            d4 e |
            fs4 fs |
            g8( e) fs4 |
            b,2 |
        %25
            r2 b2 |
            r2 r4 b4 |
            <fs fs'>4 <fs fs'> r2 |
            <b b'>4 <b b'> |
            fs'2 |
        %30
            b4 as |
            b8 fs4. |
            g8( e) fs4 |
            b,2 |
            R1 |
        %35
            b2 fs' |
            g2 fs4( e) |
            d2 e8( d e4) |
            fs1 |
            R1 |
        %40
            R1
            R1
            R1
            R1
            R1
        %45
            b4( a) g2 |
            fs1 |
            e2 d4 cs |
            d2 e |
            fs2 <fs, fs'> |
        %50
            b1 |
        \repeat volta 2 {
            R2. |
            R2. |
            r4. r4 fs'8 |
            b8([ as]) b fs8.([ e16]) ds8 |
        %55
            e8([ ds]) cs8 b4 b8 |
            ds4 fs8 b,([ cs]) ds |
            e4 e8 e4 fs8 |
            b4 gs8 e4 b8 |
            <fs fs'>4.~ <fs fs'>4 r8 |
        %65
            b4 b8. b16 |
            fs'8. ds16 e8 ds16([ cs]) |
            b2 |
            b4 e8. e16 |
            fs8. gs16 cs,8. cs16 |
        %70
            <fs, fs'>4. r8 |
            e'1 |
            ds4 e fs fs, |
            b1 |
        }
  }
}

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

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

\header {
	composer = \markup { \bigger { \bold \italic "William Billings" "(1746-1800)" }}
    %subtitle = ""
    poet = \markup { \bigger "Alexander Pope" }
    piece = \markup { \bigger \italic "The Dying Christian to his Soul" }
    opus = \markup { \bigger { \italic "The Psalm-Singer’s Amusement" (1781) }}
	title = \markup { \bigger \medium \italic "The Dying Christian to his Soul" }
    %tagline = ""
	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 {
  % actually, I like it better as written!
  \removeWithTag #'scoreOnly  \unfoldRepeats \theMusic
  
  \midi {
    \context {
      \Score
      tempoWholesPerMinute = #(ly:make-moment 60 2)
      }
    }



 }