% Title: Rutland
% Composer: William Billings

\version "2.10.10"

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

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

% a little smaller than the default 20 to get
% 3 systems on the first page
#(set-global-staff-size 17)

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

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

# (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
  %\key aes \major
  %\set Timing.defaultBarType = ""

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

  #(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 a \minor

  \tsAllegro 
  \skip 1*34
  \bar "||"
  \key d \minor
  \skip 1*5
  \bar "||"
  \tsThreeFour
  \skip 4*24
  \bar "||"
  \key c \major
  \tsAllegro
  \skip 1*31
  \bar "|."
    
}

sopranoNotes = {
  \relative g' {
    \set Staff.instrumentName = "Treble"
    \clef "treble"
        R1 |
        r2 a2 |
        a4 a g g |
        e e c2 |
    %5
        e4 e a2~ |
        a1~ |
        a1~ |
        a1 |
        a2 a |
    %10
        e1 |
        fs2 fs |
        fs1 |
        g2 f? |
        d1 |
    %15
        d2 d |
        e1 |
        e2 e2 |
        g1~ |
        g1~ |
    %20
        g1~ |
        g1 |
        r2 a2 |
        e'4 e c d8( c) |
        b2 a |
    %25
        a2. r4 |
        R1 |
        r2 b2 |
        c4.( b8 a4) a |
        b2. b4 |
    %30
        b( c d) g, |
        g1~ |
        g2. g4 |
        c8( d) e4 e a, |
        a2 a |
    %35
        a2. a4 |
        a2. g4 |
        a2 bf4( a) |
        bf( c8 d c bf) a4 |
        a1 |
    %40
        r2. |
        r4 r4 a4 |
        a2 g4 |
        a2 g4 |
        g8 g8\noBeam g4 g4 |
    %45
        a8.( bf16 c4) c |
        d( c) bf |
        a( bf) c |
        c1 |
        R1 |
    %50
        R1 |
        R1 |
        c4.( d8 e[ d]) e( f) |
        e1 |
        b4.( c8 d[ e]) f4 |
    %55
        e4.( d8 c2) |
        e4.( f8 g[ f]) e( d) |
        c2( b) |
        d2 e4( e8 f) |
        e4.( d8 c2) |
    %60
        e4( d8 c) d4( c8 b) |
        c1 |
        c4 c8 \noBeam d c4 c8( d) |
        e( d) c( b) a2 |
        a4 g8\noBeam a b4 c |
    %65
        f8( e) d( c) b2 |
        c8( d) e\noBeam f^\markup {\tiny * } a,4 b |
        c c c2 |
        c8( d) e\noBeam f g4 c, |
        c e d2~ |
    %70
        d e8( f) g\noBeam d |
        e4 f g8( e) f4 |
        f1 |
        R1 |
        e1 |
    %75
        R1 |
        c1 |
        R1 |
        e1 |
  }
}

sopranoLyrics = \lyricmode {
    My flesh shall slum -- ber in the ground,
    in the ground, __
    in the ground,
    in the ground,
    in the ground,
    in the ground,
    in the ground, __
    Till the last Trum -- pet
    joy -- ful sound,
    Then burst __ the Chains with sweet __ sur -- prise, __
    And in my Sav -- ior’s Im -- age rise,
    And in my Sav -- ior’s Im -- age rise.
    This life’s a dream, an emp -- ty show,
    but the bright world to which I go
    and __ sin -- cere, and __ sin -- cere, __
    and __ sin -- cere, __ and sin -- cere, __
    and __ sin -- cere.
    When shall I wake and find me there,
    When shall I wake and find me there,
    When shall I wake and find me there,
    When shall I wake and find me there, __
    When shall I wake and find me there,
    There, There, There.
}

altoNotes = {
  \relative c' {
    \set Staff.instrumentName = "Counter"
    \clef "treble"
    % Original clef:
    %\clef "neomensural-c3"
        R1 |
        R1 |
        R1 |
        c2 a4 a |
    %5
        c4.( b8 c4) c |
        c2 c |
        c1~ | 
        c1~ | 
        c1 | 
    %10
        c2 c2 |
        d1~ |
        d1 |
        e2 d |
        b1 |
    %15
        b2 b |
        c1 |
        c2 c |
        e1~ |
        e1~ |
    %20
        e1~ |
        e1 |
        r2 e2 |
        g4 g a a |
        g2 e2 |
    %25
        fs2. r4 |
        r2 g2 |
        g4( a g) g8( f) |
        e2. e8( f) |
        g4.( a8 g4) g |
    %30
        g2. d4 |
        e4.( f8 e4) f |
        e2. e8( f) |
        g4 g g f |
        f2 e |
    %35
        f2. e4 |
        f4.( e8 d4) c |
        d2 e4( f) |
        g4( a) a2 |
        fs1 |
    %40
        r4 r4 e4 |
        f2 e4 |
        d2 g4 |
        f2 d4 |
        e2 e4 |
    %45
        f2 g4 |
        f2 d4 |
        f8.( e16 d4) f |
        e1 |
        r2 d2 |
    %50
        e4.( d8 e4) g |
        g2 a2 |
        g4.( f8 e4) g |
        g1 |
        g2 g4 g |
    %55
        g g a f |
        g g g g |
        a f g( e) |
        f4( g8 a) g2~ |
        g2 r2 |
    %60
        e4( f8 g) f4( g8 a) |
        g1 |
        g8( f) e\noBeam d c( d) e( f) |
        g4 a a2 |
        f4 e8\noBeam d e4 e |
    %65
        f g g2 |
        g4 g8\noBeam f e4 g |
        a a a2 |
        e8( f) g\noBeam a g4 a |
        g c b2~ |
    %70
        b c4 b8\noBeam a |
        g4 a8.( b16) c8.( b16) a4 |
        a1 |
        R1 |
        g1 |
    %75
        R1 |
        e1 |
        R1 |
        g1 |
  }
}

altoLyrics = \lyricmode {
    My flesh shall slum -- ber in the ground, __
    in the ground, __
    in the ground,
    in the ground,
    in the ground, __
    Till the last Trum -- pet
    joy -- ful sound,
    Then burst __ the Chains with sweet __ sur -- prise,
    with sweet __ sur -- prise,
    And in my Sav -- ior’s Im -- age rise,
    And in __ my Sav -- ior’s Im -- age rise.
    This life’s a dream, an emp -- ty show,
    but the bright world to which I go
    Hath Joys __ sub -- stan -- tial and __ sin -- cere,
    Hath Joys sub -- stan -- tial,
    Joys sub -- stan -- tial, 
    Joys sub -- stan -- tial, 
    and __ sin -- cere, __
    and __ sin -- cere.
    When shall I wake and find me there,
    When shall I wake and find me there,
    When shall I wake and find me there,
    When shall I wake and find me there, __
    When shall I wake and find me there,
    There, There, There.
}

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

tenorNotes = {
  \relative a {
    \set Staff.instrumentName = "Tenor"
    \clef "treble_8"
        R1 |
        R1 |
        R1 |
        a2 e4 e |
    %5
        a4.( gs8 a4) e |
        a2 e2 |
        e1~ |
        e1 |
        e2 e |
    %10
        a1~ |
        a1~ |
        a1 |
        c2 a |
        g1~ |
    %15
        g1~ |
        g1 |
        g2 g2 |
        c1~ |
        c1 |
    %20
        c2 c |
        b1 |
        r2 c2 |
        b4 b a a |
        e'2 cs |
    %25
        d2. r4 |
        R1 |
        R1 |
        r2 c2 |
        e8.([ f16 e8 d] e4) e |
    %30
        d4( c8. d16 b4) b |
        c4.( d8 c4) b |
        c2. c8( d) |
        e4 e8( d) c4 a |
        d2 cs |
    %35
        d2. cs4 |
        d4.( e8 d4) e |
        f2 e4( d) |
        e( f e8 d) cs4 |
        d1 |
    %40
        r4 r4 a4 |
        d2 e4 |
        f2 e4 |
        d4( c) b |
        c2 c4 |
    %45
        a2 g4 |
        a2 d4 |
        c( bf) a |
        g1 |
        r2 g2 |
    %50
        c4.( b8 c4) d |
        e4.( d8 e4) d |
        e4.( f8 g[ f]) e( d) |
        c2( b) |
        d4.( e8 f[ e]) d( c) |
    %55
        b2( a4) r4 |
        c4.( d8 e[ d]) c( b) |
        a2( g) |
        a4( b8 c) b4( c8 d) |
        c1 |
    %60
        c4( d8 e) d4( e8 f) |
        e1 |
        e8( d) c\noBeam b a4 g |
        c c c2 |
        d8( c) b\noBeam a g4 g |
    %65
        d' d d2 |
        e8( d) c\noBeam b c4 e^\markup { \tiny * } |
        f f f2 |
        g8( f) e\noBeam d e4 c |
        e g g2~ |
    %70
        g g8( f) e\noBeam f |
        g4 f e d |
        c1 |
        R1 |
        c1 |
    %75
        R1 |
        g1 |
        R1 |
        c1 |
  }
}

tenorLyrics = \lyricmode {
    My flesh shall slum -- ber in the ground, __
    in the ground, __
    in the ground, __
    in the ground, __
    in the ground,
    Till the last Trum -- pet
    joy -- ful sound,
    Then burst __ the Chains __ with sweet __ sur -- prise,
    And in my Sav -- ior’s Im -- age rise,
    And in __ my Sav -- ior’s Im -- age rise.
    This life’s a dream, an emp -- ty show,
    but the bright world to which I go
    Hath Joys __ sub -- stan -- tial and __ sin -- cere, __
    and __ sin -- cere, __
    and __ sin -- cere, __
    and __ sin -- cere, __
    and __ sin -- cere.
    When shall I wake and find me there,
    When shall I wake and find me there,
    When shall I wake and find me there,
    When shall I wake and find me there, __
    When shall I wake and find me there,
    There, There, There.
}

bassNotes = {
  \relative a {
    \set Staff.instrumentName = "Bass"
    \clef "bass"
    a2 e4 e |
    f4.( e8 d4) c |
    d2 e2
    a,1~ |
    a1~ |
    a1~ |
    a1 |
    a2 a2 |
    a1 |
    a2 a2 |
    d1~ |
    d1 |
    c2 d |
    g,1 |
    g2 g |
    c1~ |
    c1~ |
    c1~ |
    c1 |
    c2 c |
    e1 |
    r2 <a, a'>2 |
    e'4 e f d |
    e2 <a, a'>2 |
    d2. e4 |
    a8.([ b16 a8 b] c4) b8( a) |
    g4( f8. g16 e4) e |
    a4.( b8 a4) a, |
    e'2. e8( f) |
    g4.( a8 g4) g, |
    c1~ |
    c2. c4 |
    c c8( d) e4 f |
    d2 <a a'>2 |
    d2. a4 |
    d4.( e8 f4) e |
    d2 g4( f) |
    e( d a') a, |
    d1 |
    r2. |
    r4 r4 a4 |
    d2 e4 |
    f2 g4 |
    c,8 c\noBeam c4 c |
    f2 e4 |
    d8.( e16 f4) g |
    a4( g) f |
    c1 |
    R1 |
    r2 r4 g'4 |
    c4.( b8 a g) f4 |
    e4.( d8 c4) c |
    c2 e |
    g1 |
    e2 f |
    e c4 e |
    f2( e) |
    d2 g |
    c,2 f |
    e d |
    c1 |
    c4 c8\noBeam c f4 e |
    c f f2 |
    d4 g8\noBeam f e4 c |
    d g g2 |
    c8( b) a\noBeam g a4 e |
    f f f2 |
    e8( d) c\noBeam f e4 f |
    e c g'2~ |
    g c4 g8\noBeam f |
    e4 d c d8.( e16) |
    f1 |
    R1 |
    c1 |
    R1 |
    c1 |
    R1 |
    c1 |
  }
}

bassLyrics = \lyricmode {
    My flesh shall slum -- ber in the ground, __
    in the ground,
    in the ground, __
    in the ground,
    in the ground, __
    in the ground,
    Till the last Trum -- pet
    joy -- ful sound,
    Then burst __ the Chains __ with sweet __ sur -- prise,
    with sweet __ sur -- prise, __
    And in my Sav -- ior’s Im -- age rise,
    And in __ my Sav -- ior’s Im -- age rise.
    This life’s a dream, an emp -- ty show,
    but the bright world to which I go
    Hath Joys __ sub -- stan -- tial and sin -- cere,
    Hath Joys sub -- stan -- tial and __ sin -- cere,
    and sin -- cere,
    sin -- cere.
    When shall I wake and find me there,
    When shall I wake and find me there,
    When shall I wake and find me there,
    When shall I wake and find me there, __
    When shall I wake and find me there,
    There, There, There.

}

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

\header {
	title = \markup { \bigger \medium \italic "Rutland" }
	composer = \markup { \bigger {\bold \italic "William Billings" "(1746-1800)" }}
    %subtitle = ""
    poet = \markup { \bigger "“Words from D. W.”" }
    piece = \markup { \bigger { "(Isaac Watts, Psalm 17" \bold \italic "lm)" }}
    opus = \markup { \bigger { \italic { The Psalm-Singer’s Amusement } (1781) } }
    copyright = \markup {  { \center-align {
        "Copyright © 2005 by Michael Lauer."
        "This edition may be freely distributed, duplicated, performed, or recorded." } } } 
    tagline = \markup { \column {
            \fill-line { "Edited by Michael Lauer" " " }
            \engravedLine
            "Measure 66: orignal has E in treble, C in tenor." 
            } }
}

\score {
  \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 }
  >>
  \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
    }
  }

  
  \midi {
    \context {
      \Score
      tempoWholesPerMinute = #(ly:make-moment 60 2)
      }
    }



}