% title: Thomas-Town
% composer: William Billings
% editor: Michael Lauer

\version "2.10.0"

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

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

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

headerMarkup = \markup { "Billings:" \italic "Thomas-Town" } 

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


#(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 }
   
global = {
  % main

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

  \tsAllegro
  \skip 1*10
  \repeat volta 2 { \skip 1*10 }
}

theLyrics = \lyricmode {
    Great God how frail a thing is man,
    How swift his min -- utes pass,
    His age con -- tracts with -- in a span,
    He blooms and dies like grass.
  %\repeat volta 2 { 
    And must my mo -- ments thus de -- cline,
    And must I sink to death,
    To thee my spi -- rit I re -- sign,
    Thou ma -- ker of my breath.
  %}
}

sopranoNotes = {
  \relative d'' {
    \set Staff.instrumentName = "Treble"
    \clef "treble"
        r2 d2 |
        c8( bf) a4 bf a |
        g8.( bf16) a4 a a |
        c4 d a bf8.( c16) |
    %5
        d1 |
        r2 d2 |
        bf4 a g a |
        a4 bf bf8( c) d4 |
        c4 c8^\markup { * }( d) ef4 d |
    %10
        d1 |
      \repeat volta 2 {
        r2 bf2 |
        a4 bf a a |
        g8.([ a16]) bf8( g) a4 bf |
        d4 c bf a |
    %15
        a1 |
        r2 bf2 |
        a4 a g c8( bf) |
        a4 a a bf8( c) |
        d4 ef d8([ c]) bf8( a) |
    %20
        g1 |
      }
  }
}

sopranoLyrics = \lyricmode {
    \theLyrics
}

altoNotes = {
  \relative d' {
    \set Staff.instrumentName = "Counter"
    \clef "treble"
        r2 d2 |
        ef4 d d d |
        d8.( ef16) f4 f f |
        g4 d8.( ef16) f4 g |
    %5
        fs1 |
        r2 f2 |
        d4 d d8.( ef16) f4 |
        f4 f8( ef) d( ef) f4 |
        g4 g g fs |
    %10
        g1 |
      \repeat volta 2 {
        r2 g2 |
        fs4 g d d |
        d4 g fs g |
        g4^\markup { "*" } f8( ef) d( ef) f4 |
    %15
        f1 |
        r2 g2 |
        fs4 fs g g |
        f4 f f8([ ef ]) d( ef) |
        f4 g d d |
    %20
        d1 |
      }
  }
}

altoLyrics = \lyricmode {
    \theLyrics
}

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

tenorNotes = {
  \relative g {
    \set Staff.instrumentName = "Tenor"
    \clef "treble_8"
        r2 g2 |
        g4 fs g a |
        bf c d d |
        ef4 d c bf |
    %5
        a1 |
        r2 a2 |
        g4 a bf c |
        d4 d8( ef) f( ef) d4 |
        ef8([ d]) c([ bf]) c( bf) a4 |
    %10
        g1 |
      \repeat volta 2 {
        r2 bf2 |
        d4 d8.( ef16) f4 f |
        bf,4 bf8.( c16) d4 d |
        g,4 a bf c |
    %15
        d1 |
        r2 bf2 |
        d4 d g, g |
        c4 c f, f |
        bf4 a8( g) a4 g8( f) |
    %20
        g1 |
      }
  }
}

tenorLyrics = \lyricmode {
    \theLyrics
}

bassNotes = {
  \relative g {
    \set Staff.instrumentName = "Bass"
    \clef "bass"
        r2 g2 |
        c,4 d g, d' |
        g4 f8( ef) d4 d |
        c4 bf a g |
    %5
        d'1 |
        r2 d2 |
        g,4 d' g f8( ef) |
        d8( c) bf4 bf bf |
        c4 c c d |
    %10
        g,1 |
      \repeat volta 2 {
        r2 g'2 |
        d4 g f d |
        g4 g d g |
        bf4 f g f |
    %15
        d1 |
        r2 g2 |
        d4 d ef c |
        f4 f8( ef) d( c) bf 4 |
        bf4 c d d |
    %20
        g,1 |
      }
  }
}

bassLyrics = \lyricmode {
    \theLyrics
}

\header {
	composer = \markup { \bigger { \basCaps "William Billings" (1746-1800) }}
    opus = \markup { \bigger { \italic "The Continental Harmony" (1794) } }
	poet = \markup { \bigger "“Words by Dr. Biles”" }
    title = \markup { \bigger \medium \italic "Thomas-Town" }
    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 }
    {\tag #'midiOnly { \context Voice =
      sopranoTwoNotes << \global \transpose c c' \tenorNotes >> }}
    \context Voice =
      altoNotes << \global \altoNotes >>
    \context Lyrics =
      altoLyrics \lyricsto altoNotes { \altoLyrics }
    \context Voice =
      tenorNotes << \global \tenorNotes >>
    \context Lyrics =
      tenorLyrics \lyricsto tenorNotes { \tenorLyrics }
    { \tag #'midiOnly { \context Voice =
      tenorTwoNotes << \global \transpose c' c \sopranoNotes >> } }
    \context Voice =
      bassNotes << \global \bassNotes >>
    \context Lyrics =
      bassLyrics \lyricsto bassNotes { \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 Slur #'transparent = ##t
    }
    \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
      }
    }



 }