% title: Wareham
% 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 "Wareham" }

\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.1\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)))
}

#(define-markup-command (basCaps layout props str) (markup?)
    "Real small capitals in Baskerville"
    (interpret-markup layout props (markup #:bold #:italic str)))

# (define (tsaFn grob)
  (interpret-markup
   (ly:grob-layout grob)
   '(( ))
   (markup #:rotate 180 #:musicglyph "timesig.C22")))
   
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 }

% a lot of staccatissimo!
st = \staccatissimo

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

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

    \key a \minor

    \tsAllegro
    \skip 1*11
  \repeat volta 2 {
    \skip 1*26
  }
    
}

sopranoNotes = {
  \relative a' {
    \set Staff.instrumentName = "Treble  "
    \clef "treble"
        r2 a2 |
        c4 b a b |
        c4.( d8 e4) e |
        d8( c) b4 c c |
    %5
        b4.( c8 d4) e4 |
        a,4 a b a |
        b4 b c b8( a) |
        b4 b a e' |
        d2 e |
    %10
        f8([ e]) d([ c]) b([ a]) gs4 |
        a1 |
      \repeat volta 2 {
        R1*3 |
    %15
        r2 r4 a4 |
        e'4 e8( d) c4 c |
        b4 b c b8( a) |
        b4 c e d |
        c2. e4 |
    %20
        d4.( c8 b4) a |
        b8.( c16 b8. a16 b4) b |
        a\st e'\st e\st d |
        e4.( f8 e d) c4 |
        b\st b\st b\st  c8.( d16) |
    %25
        e8.( f16 e8. d16 e8 d) c( b) |
        a4\st c\st c\st r4 |
        b2 a4 b |
        c4 b8([ a]) g([ a]) b( c) |
        b2. b4 |
    %30
        c4.( b8 a4) gs |
        a4\st c\st c\st r4 |
        c2. r4 |
        b2. r4 |
        c1 |
    %35
        r2 c2 |
        c4.( d8 e4) e8( d) |
        c4\st a\st a2\st |
      }  
  }
}

sopranoLyrics = \lyricmode {
    My God, my life, my love, __
    to thee, to thee I call. __
    I can -- not live if thou re -- move
    for thou art all in all,
    for thou art all in all.
    %repeat
    I can -- not live if thou re -- move
    for thou __ art all in all,
    in all,
    \repeat unfold 3 { for thou __ art all in all, }
    I can -- not live if thou re -- move
    for thou __ art all in all,
    all, all, all, 
    for thou __ art all in all.

}


altoNotes = {
  \relative e' {
    \set Staff.instrumentName = "Counter  "
    \clef "treble"
        r2 e2 |
        e4 e e g |
        g2 a4( gs) |
        a4 g8( f) e4 g |
    %5
        g2. g8( f) |
        e4 e8( f) g4 a |
        g4 f e f |
        g4 g8( f) e4 e |
        f2 e |
    %10
        f4 f e e |
        e1 |
      \repeat volta 2 {
        R1*2 |
        r2 e2 |
    %15
        g4 g g a |
        g4 e a a |
        g8.( a16 g8. f16 e4) f |
        g4\st a\st a\st r4 |
        g4 g a2~ |
    %20
        a2 r2 |
        g4\st g4\st g4\st r4 |
        a8.( b16 a8. g16 a8[ g]) f( e) |
        e4\st a\st a\st r4 |
        g4\st g\st g\st r4 |
    %25
        g8.( a16 g8. f16 e4) e |
        e4\st a\st a\st r4 |
        g2 a4 g4 |
        g4 f e e |
        e2. f4 |
    %30
        g8.( a16 g8. f16 e4) e |
        e4\st a\st a\st r4 |
        a2. r4 |
        g2. r4 |
        a1 |
    %35
        r2 a2 |
        g2( a4) g8( f) |
        e4\st e\st e2\st |
      }
  }
}

altoLyrics = \lyricmode {
    My God, my life, my love,
    to __ thee, to thee I call.
    I __ can -- not live if thou re -- move
    for thou art all in all,
    for thou art all in all.
    %repeat
    I can -- not live if thou re -- move
    for thou __ art all in all,
    all in all, __
    all in all,
    thou __ art all in all, all in all,
    thou __ art all in all,
    I can -- not live if thou re -- move
    for thou __ art all in all,
    all, all, all, 
    for thou __ art all in all.
}

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

tenorNotes = {
  \relative a {
    \set Staff.instrumentName = "Tenor  "
    \clef "treble_8"
        r2 a2 |
        a4 b c d |
        e4.( d8 c4) b |
        a4 b c e |
    %5
        d4.( c8 b4) b |
        c4 c d d |
        e4 f g f |
        e4.( d8 c4. b8 |
        a4. b8 c4) e |
    %10
        d4( c) b2 |
        a1 |
      \repeat volta 2 {
        R1 |
        r2 r4 e4 |
        a4 a8( b) c4 c |
    %15
        b4 b8( c) d4 d |
        c4 c8( d) e4 f |
        e8([ d]) e8( f)  g4 f |
        e8.( f16 e8. d16 c4) d |
        e4\st e\st e\st r4 |
    %20
        f8.( g16 f8. e16 d4) c |
        d4\st d\st d\st r4 |
        e8.( f16 e8. d16 c4) b |
        c4\st c\st c\st r4 |        
        d8.( e16 d8. c16 b4) a |
    %25
        b4\st b\st b\st r4 |
        a4\st e'\st e\st r4 |
        e2 a,8([ b]) c( d) |
        e4 d c8([ d]) e( f) |
        g2. f4 |
    %30
        e8.( f16 e8. d16 c4) b |
        a4\st e'\st e\st r4 |
        e2. r4 |
        e2. r4 |
        e1 |
    %35
        r2 e2 |
        e8.( f16 e8. d16 c4) b |
        a4\st a\st a2\st |
      }
  }
}

tenorLyrics = \lyricmode {
    My God, my life, my love, __
    to thee, to thee I call. __
    I can -- not live if thou re -- move
    for thou __ art all __ in all.
    %repeat
    I can -- not live, 
    I can -- not live, 
    I can -- not live if thou re -- move
    for thou __ art all in all,
    \repeat unfold 3 { thou __ art all in all, }
    all in all, 
    I can -- not live if thou re -- move
    for thou __ art all in all,
    all, all, all, 
    for thou __ art all in all.
}

bassNotes = {
  \relative a, {
    \set Staff.instrumentName = "Bass  "
    \clef "bass"
        r2 <a a'>2 |
        <a a'>4 e' <a, a'> <g g'> |
        <c c'>4.( <b b'>8 <a a'>4) e' |
        f4 e8( d) c4 c |
    %5
        g'2. e4 |
        a4 a g f |
        e4 d c d |
        e4 e a, a |
        d2 c |
    %10
        f4 d e e |
        a,1 |
      \repeat volta 2 {
        r2 a2 |
        e'4 e8( d) c4 c |
        d4 d e a |
    %15
        g8.( a16 g8. f16 g4) f |
        e4\st <a, a'>\st <a a'>\st r4 |
        e'8.( f16 e8. d16 c4) d |
        e4\st <a, a'>\st <a a'>\st r4 |
        c'8.( d16 c8. b16 a4) a |
    %20
        d,4\st d\st d\st r4 |
        g8.( a16 g8. f16 g4) e |
        <a, a'>4\st <a a'>4\st <a a'>\st r4 |
        a'8.( b16 a8. gs16 a4) e |
        g\st g\st g\st r4 |
    %25
        e4\st e\st e\st r4 |
        a,\st  \stemUp <a a'>\st <a a'>\st \stemNeutral r4 | 
        e'2 f4 e8( d) |
        c4 d e8([ f]) g8( f) |
        e2. d4 |
    %30
        c8.( d16 c8. d16 e4) e |
        a,\st <a a'>\st <a a'>\st r4 | 
        <a a'>2. r4 |
        e'2. r4 |
        <a, a'>1 |
    %35
        r2 <a a'>2 |
        <c c'>4.( <b b'>8 <a a'>4) e' |
        a,4\st a\st a2\st |
      }
  }
}

bassLyrics = \lyricmode {
    My God, my life, my love, __
    to thee, to thee I call.
    I can -- not live if thou re -- move
    for thou art all in all,
    for thou art all in all.
    %repeat
    I can -- not live if thou re -- move
    for thou __ art all in all,
    \repeat unfold 4 { thou __ art all in all, }
    all in all, all in all,
    I can -- not live if thou re -- move
    for thou __ art all in all,
    all, all, all, 
    for thou __ art all in all.
}

\header {
	composer = \markup { \bigger \bold \italic "William Billings" }
    %subtitle = ""
    poet = \markup { \bigger "“Words from D. W.”" }
    piece = \markup { \bigger { Isaac Watts, 
    \italic { Hymns and Spiritual Songs, } Hymn 2:93 } }
            opus = \markup { \bigger { \italic { The Psalm-Singer’s Amusement } (1781) }}
	title = \markup { \bigger \medium \italic "Wareham" }
    tagline = ""
    copyright = \markup { \center-align {
        "Copyright © 2005 by Michael Lauer."
        "This edition may be freely distributed, duplicated, performed, or recorded." 
        } }
}

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
    }
    \context {
      \Staff   
      \override InstrumentName #'padding = #0.75
      \override InstrumentName #'font-size = #1
    }
    \context {
      \Voice
    }
    \context {
      \Lyrics
      \override LyricText #'font-series = #'medium
      \override LyricText #'font-size = #1
      \override LyricHyphen #'minimum-distance = #0.5
      \override LyricSpace #'minimum-distance = #0.5
    }
  }
}

\score {
  \unfoldRepeats \theMusic

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



}