% title: Assurance
% composer: William Billings
% editor: Michael Lauer
\version "2.10.10"

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

#(set-global-staff-size 17)

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

headerMarkup = \markup { "Billings:" \italic "Assurance" } 

\paper {
  #(set-paper-size "letter")
  top-margin = .2\in
  bottom-margin = .2\in
  left-margin = .75\in
  line-width = 7\in
  between-system-padding = 0.08\in
  page-top-space = 0.2\in
  %ragged-last-bottom = ##t
  
    oddHeaderMarkup = \markup
    \on-the-fly #not-first-page \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
      ""
    }
    
    
    myStaffSize = #17
  #(define fonts
    (make-pango-font-tree "Baskerville1757"
                          "Sans"
                          "Mono"
                           (/ myStaffSize 20)))
}

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

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

  \key a \major

  \time 6/4
  \partial 2.
  \skip 2.
  \skip 1.*6
  \repeat volta 2
  {
      \skip 1.*7
  }
  \alternative {
      { \skip 1. } { \skip 1. }
  }
  \bar "|."
}

sopranoNotes = {
  \relative c'' {
    \set Staff.instrumentName = "Treble"
    \clef "treble"
        r2. |
    %1
        e4 d cs8( b) cs4( a) cs |
        b2 b4 cs2.~ |
        cs2 b4 cs( a) b4 |
        cs2.~ cs2 b4 |
    %5
        a2 b4 cs( d) e8( d) |
        cs4( a a a2) r4 |
        \repeat volta 2 {
            r1.
            r2 r4 r2 b4 |
            cs( d) e d( b) b |
        %10
            b2 b4 b2 a4 |
            e'2 cs4 a( cs) e |
            a,2.~ a2 e'4 |
            e2 cs4 d( cs) b |
        } \alternative {
            { cs2.~ cs2 r4 } { cs1. }
        }
  }
}

sopranoLyrics = \lyricmode {
    Now shall my head __ be lif -- ted high, __
    be lif -- ted high __
    A -- bove my foes a -- round. __
    And songs of Joy __ and Vic -- tor -- y
    with -- in thy Tem -- ple sound, __
    with -- in thy Tem -- ple sound.
    sound.
}

altoNotes = {
  \relative c' {
    \set Staff.instrumentName = "Counter"
    \clef "treble"
        r2.
    %1
        r2 r4 e4 e a |
        gs2 gs4 a2 a4 |
        a2 b4 a2 gs8( fs) |
        e2.~ e2 e4 |
    %5
        a2 gs8( fs) e4( fs) e |
        e4( e e e2) r4 |
        \repeat volta 2 {
            r2 r4 r2 e4 |
            e( fs) gs a2  gs4 |
            a2 a8( gs) fs2 fs4 |
        %10
            gs2.~ gs2 r4 |
            a2.~ a2 r4 |
            fs2.~ fs2 gs4 |
            a( gs) fs fs2 e4 |
        } \alternative {
            { e2.~ e2 r4 } { e1. }
        }
  }
}

altoLyrics = \lyricmode {
    Now shall my head be lif -- ted high,
    be lif -- ted high __
    A -- bove my foes a -- round. __
    And songs of Joy
    with -- in thy Tem -- ple sound, __
    sound, __ sound, __
    with -- in __ thy Tem -- ple sound.
    sound.
}

tenorNotes = {
  \relative a {
    \set Staff.instrumentName = "Tenor"
    \clef "treble_8"
        a4 cs4 cs4 |
    %1
        cs( b) a cs( e ) e |
        e2.~ e2.~ |
        e2 e4 fs2 gs4 |
        a2.~ a2 gs4 |
    %5
        fs( e) d cs( b) a |
        cs( e cs a2) r4 |
        \repeat volta 2 {
            r1.
            r2 r4 r2 e'4 |
            e( d) cs d( fs) ds |
        %10
            e2 e4 e2 d4 |
            cs2 e4 e2 cs4 |
            d2.~( d4 cs) b |
            cs( b) a b( a) gs |
        } \alternative {
            {a2.~ a2 r4 } { a1. }
        }
  }
}

tenorLyrics = \lyricmode {
    Now shall my head be lif -- ted high, __
    be lif -- ted high __
    A -- bove my foes a -- round. __
    And songs of Joy and Vic -- tor -- y
    with -- in thy Tem -- ple sound, __
    with -- in __ thy Tem -- ple sound.
    sound.
}

bassNotes = {
  \relative a {
    \set Staff.instrumentName = "Bass"
    \clef "bass"
        r2. |
    %1
        r1. |
        e4 e e a2.~ |
        a2 gs4 fs2 e4 |
        <a, a'>2. ~ <a a'>2 e'4 |
    %5
        d4( cs) b a( b) cs8( d) |
        e4( cs a~ a2) a4 |
        \repeat volta 2 {
            e'( fs) gs a2 a4 |
            a2 gs4 fs2 e4 |
            <a, a'>2 <a a'>4 <b b'>2 b4 |
        %10
            e2.~ e2 r4 |
            <a, a'>2.~ <a a'>2 r4
            d2.~ d2 e4 |
            a( e) fs d2 e4 |
        } \alternative {
            { a,2.~ a2 a4 } { a1. } 
        }
  }
}

bassLyrics = \lyricmode {
    Now shall my head __ be lif -- ted high, __
    A -- bove my foes a -- round. __
    And songs of Joy and Vic -- tor -- y
    with -- in thy Tem -- ple sound, __
    sound, __ sound, __
    with -- in __ thy Tem -- ple sound.
    And
    sound.
}

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

\header {
	composer = \markup { \bigger \bold \italic "William Billings" }
    %subtitle = ""
    poet = \markup { \bigger "“Words from Dr. W.”" }
    opus = \markup { \bigger  {\italic { The Psalm-Singer’s Amusement } (1781) } }
	title = \markup { \bigger \medium \italic "Assurance" }
    tagline = ""
    copyright = \markup { \smaller \center-align {
        "Copyright © 2005 by Michael Lauer."
        "This edition may be freely distributed, duplicated, performed, or recorded." 
        \engravedLine } }
}

theMusic = 
  \context ChoirStaff = choir <<
    \context Voice =
      sopranoNotes << \global \sopranoNotes >>
    \context Lyrics =
      sopranoLyrics \lyricsto sopranoNotes { \sopranoLyrics }
    \context Voice =
      altoNotes << \global \altoNotes >>
    \context Lyrics =
      altoLyrics \lyricsto altoNotes { \altoLyrics }
    \context Voice =
      tenorNotes << \global \tenorNotes >>
    \context Lyrics =
      tenorLyrics \lyricsto tenorNotes { \tenorLyrics }
    \context Voice =
      bassNotes << \global \bassNotes >>
    \context Lyrics =
      bassLyrics \lyricsto bassNotes { \bassLyrics }
  >>
  
\score {
    \theMusic
    
  \layout {
    \context {
      \Score
      \override MetronomeMark #'transparent = ##t
      \override BarNumber #'padding = #2
      %\override BarLine #'transparent = ##t
      %\remove "System_start_delimiter_engraver"
    }
    \context {
      \Staff   
      \override InstrumentName #'padding = #0.75
      \override InstrumentName #'font-size = #1
    }
    \context {
      \Lyrics
      \override LyricText #'font-series = #'medium
    }
  }
}

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