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

\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
    \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
      ""
    }

}

#(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 }

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

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

  \key e \minor
  \tsAllegro
  \partial 2 
  \skip 2
  \skip 1*4
  \time 3/2
  \skip 1.*15
  \time 2/4
  \repeat volta 2
  {
      \skip 2*26
  }
}

commonLyrics = \lyricmode {
    He dies, He dies.
    The heaven -- ly lo -- ver dies,
    The ti -- dings strike a dole -- ful sound
    on 
        \tag #'tenor { my __ }
        \tag #'soprano \tag #'alto \tag #'bass { my } 
        poor heart -- strings.
    \tag #'soprano \tag #'bass { Deep }
    \tag #'alto \tag #'tenor { Deep __ }
        He lies in the __ cold ca -- verns
        \tag #'soprano \tag #'tenor \tag #'bass { of __ }
        \tag #'alto { of } 
        the ground.
    \tag #'soprano \tag #'bass { Come saints and drop }
    \tag #'soprano \tag #'tenor { A tear or two }
    \tag #'tenor \tag #'bass { On the dear bo -- som of your God. }
    He bled a thou -- sand 
    \tag #'alto \tag #'tenor { drops for you }
    A thou -- sand drops of ri -- chest blood
    A thou -- sand drops
    A thou -- sand drops 
    A thou -- sand drops of ri -- chest blood.
}

sopranoNotes = {
  \relative g' {
    \set Staff.instrumentName = "Treble"
    \clef "treble"
            g2 |
            g1 |
            r2 b2 |
            b1 |
            r2 b2 |
        %5
            b1 a2 |
            g4.( a8 b2) b |
            b1 b2 |
            e1 e2 |
            b1 d2 |
        %10
            d2( c) b |
            b1 b2 |
            b1 d4( c) |
            b1 a2 |
            b1 b4( a) |
        %15
            b1 b2 |
            b4.( a8 g2) a |
            g4.( a8 b2) b |
            b2( c) b |
            b1. |
        %20
        \repeat volta 2 {
            r4 b8( c) |
            d4 d |
            g,4 g8( a) |
            b4 b |
            b2 |
        %25
            R2*4 |
            r4 d4 |
        %30
            e4 \times 2/3 { e8( d c) } |
            b4 b |
            R2 |
            r4 e4 |
            e4 ds |
        %35
            e8.( d16) c4 |
            b4 b |
            b4. b8 |
            e4 e |
            d4 d |
        %40
            d4 c |
            b4 e |
            e4 ds |
            e8.( d16) c4 |
            b4 b |
        %45
            b2 |
        }
  }
}

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

altoNotes = {
  \relative e' {
      \set Staff.instrumentName = "Counter"
      \clef "treble"
            e2 |
            e1 |
            r2 g2 |
            fs1 |
            r2 e2 |
        %5
            e4.( fs8 g2) fs2 |
            e1 ds2 |
            e1 e2 |
            g1 g2 |
            g1 b2 |
        %10
            b2( a4 g) fs2 |
            g1 g2 |
            fs1 fs2 |
            g1 a2 |
            g4.( fs8 e2) fs4( g) |
        %15
            fs1 g2 |
            fs2( e) d |
            d2( e) ds |
            e1 ds2 |
            e1. |
        %20
        \repeat volta 2 {
            R2*5 |
        %25
            R2*4 |
            r4 fs4 |
        %30
            g4 g8( a) |
            g4 g |
            fs4 e |
            fs4 g |
            g4 a |
        %35
            b4 a8( g) |
            fs4 fs |
            g4. a8 |
            b4 b |
            b4 b |
        %40
            b4 a8( g) |
            fs4 g |
            g4 a |
            b4 a8( g) |
            fs4 fs |
        %45
            g2 |
        }
  }
}

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

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

tenorNotes = {
  \relative b {
    \set Staff.instrumentName = "Tenor"
    \clef "treble_8"
            b2 |
            b1 |
            r2 e2 |
            d1 |
            r2 b2 |
        %5
            g1 a2 |
            b4.( a8 g2) fs |
            e1 b'2 |
            b1 b2 |
            e1 fs2 |
        %10
            g2( fs4 e) ds2 |
            e1 e2 |
            d4.( e8 d4 c) b( a) |
            b2( e) ds |
            e4.( fs8 g2) fs4( e) |
        %15
            ds1 e2 |
            d4.( c8 b2) a |
            b4.( a8 g2) fs |
            g4( b a g) fs2 |
            e1. |
        %20
        \repeat volta 2 {
            R2*2 |
            r4 b'8( c) |
            d4 d |
            g,2 |
        %25
            g8( a) b\noBeam c |
            d4 c |
            b8( a) g( a) |
            b2 |
            r4 b4 |
        %30
            b8.( c16) b8( a) |
            b4 e |
            d4 c |
            b4 b |
            e4 fs |
        %35
            g4 fs8( e) |
            ds4 ds |
            e4. fs8 |
            g4 g |
            fs4 fs |
         %40
            e8.( g16) fs8( e) |
            d4 b |
            e4 fs |
            g4 fs8( e) |
            ds4 ds |
        %45
            e2 |
        }
  }
}

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

bassNotes = {
  \relative e {
    \set Staff.instrumentName = "Bass"
    \clef "bass"
            e2 |
            e1 |
            r2 e2 |
            b1 |
            r2 e2 |
        %5
            e1 d2 |
            g4.( fs8 e2) b |
            e1 e2 |
            e1 e2 |
            e1 <b b'>2 |
        %10
            <g g'>2( <a a'>) <b b'> |
            e1 e2 |
            b1 b2 |
            e4.( fs8 g2) fs |
            e1 d4( c) |
        %15
            b1 e2 |
            b2( e) fs |
            g4.( fs8 e2) b |
            e2( a,) b |
            <e, e'>1. |
        %20
        \repeat volta 2 {
            r4 g'8( a) |
            b4 b |
            e,4 r4 |
            R2 |
            R2 |
        %25
            e8( fs) g\noBeam a |
            b4 a |
            g8( fs) e4 |
            b2 |
            r4 b4 |
        %30
            e4 e8( fs) |
            g4 e |
            R2 |
            r4 e8.( fs16) |
            g4 fs |
        %35
            e4 <a, a'> |
            <b b'>4 b |
            e4. ds8 |
            e4 e |
            <b b'>4 <b b'>8( <a a'>) |
        %40
            <g g'>4 <a a'> |
            <b b'>4 e8.( fs16) |
            g4 fs |
            e4 <a, a'> |
            <b b'>4 b |
        %45
            e2 |
        }
  }
}

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

\header {
	composer = \markup { \bigger { \bold \italic "William Billings" "(1746-1800)" }}
    %subtitle = ""
    poet = "“Words by Dr. W.”"
    opus = \markup { \bigger { \italic "The Psalm-Singer’s Amusement" (1781) }}
	title = \markup { \bigger \medium \italic "Berlin" }
    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 {
      \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 {
  \unfoldRepeats \removeWithTag #'scoreOnly  \theMusic

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