% title: Creation
% composer: William Billings
% editor: Michael Lauer

\version "2.11.62"

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

\paper {
  #(set-paper-size "letter")
  top-margin = .5\in
  bottom-margin = .5\in
  left-margin = .75\in
  line-width = 7\in
  page-top-space = 0.3\in
  %before-title-space = 0\in
  between-system-padding = 0.04\in
  print-page-number = ##t
  page-limit-inter-system-space = ##t
  page-limit-inter-system-space-factor = 1.2
  head-separation = .3\in
  %ragged-last-bottom = ##t
  %annotate-spacing = ##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
      ""
    }
    
    bookTitleMarkup = \markup {
      \override #'(baseline-skip . 3.5)
      \column {
        \fill-line { \fromproperty #'header:dedication }
        \override #'(baseline-skip . 3.5)
        \column {
          \huge \larger \bold
          \fill-line {
            \larger \fromproperty #'header:title
          }
          \fill-line {
            \large \smaller \bold
            \larger \fromproperty #'header:subtitle
          }
          \fill-line {
            \smaller \bold
            \fromproperty #'header:subsubtitle
          }
          \override #'(baseline-skip . 3) \column {
          \fill-line {
            \fromproperty #'header:poet
            { \large \bold \fromproperty #'header:instrument }
            \fromproperty #'header:composer
          }
          \fill-line {
            \fromproperty #'header:meter
            \fromproperty #'header:arranger
          }
          \fill-line {
            \fromproperty #'header:piece
            \fromproperty #'header:opus
          }
        }
        }
      }
    }
    
    scoreTitleMarkup = \markup { }
    
    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 }
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 = ""
    
  \set Staff.printKeyCancellation = ##f

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

  \key f \major

  \tsThreeTwo
  \partial 2
  s2
  s1.*14
  
  \tsThreeFour
  s2.*7
  
  \tsThreeTwo
  s1.*8
  
  \tsAllegro
  s1*31
  
  \bar "|."
    
}

commonLyrics = \lyricmode {
    When \tag #'tenor { I __ }
         \tag #'alto \tag #'soprano \tag #'bass { I }
        with plea -- sing won -- der \extATB stand,
        And \extSTB  all my \extST frame sur -- vey,
    Lord, ’tis thy work, __ I \extSTB own thy __ hand,
    Thus built __ my hum -- ble clay.
    
    Lord, ’tis thy work, I own __ thy hand,
    Thus built __ my hum -- ble clay.
    
    Our \tag #'soprano \tag #'alto \tag #'bass { life }
        \tag #'tenor { life __ }
    \tag #'soprano \tag #'tenor \tag #'bass { con -- tains __ }
        \tag #'alto { con -- tains } a thou -- sand springs,
    And \tag #'soprano \tag #'tenor \tag #'bass { dies __ }
        \tag #'alto { dies } if 
        \tag #'soprano \tag #'alto \tag #'tenor { one __ }
        \tag  #'bass { one } be gone.
    
    \tag #'soprano {
        Strange that a harp of thou -- sand strings
        Should keep in tune so long.
        Should keep in tune, should keep in tune so long. __
        Should keep in tune so long.
        Should keep in tune so long.
        Strange that a harp of thou -- sand strings
        Should keep in tune so long, __ so long, __ so long. __
        Should keep in tune so long.
        Should keep in tune so long.
    }
    
    \tag #'alto {
        Strange that a harp of thou -- sand strings
        Should keep in tune so long. __
        Strange that a harp of thou -- sand strings
        Should keep in tune,
        Should keep in tune so long. __ 
        Our life con -- tains a __ thou -- sand springs,
        And dies if one be gone.
        Strange that a harp of thou -- sand strings
        Should keep in tune so long.
        Should keep in tune so long, __ so long.
    }
    
    \tag #'tenor {
        Strange that a harp of thou -- sand strings
        Should keep in tune so long.
        Should keep in tune so long. __
        Should keep in tune so long. __
        Should keep in tune so long.
        Strange that a harp of thou -- sand strings
        Should keep in tune so long. __
        Should keep in tune so __ long. __
    }
    
    \tag #'bass {
        Strange that a harp of thou -- sand strings
        Should keep in tune so long.
        Strange that a harp of thou -- sand strings
        Should keep in tune so long.
        Should keep in tune __ so long. __
        Should keep in tune so long. __
        Strange that a harp of thou -- sand strings
        Should keep in tune so long. __
        Strange that a harp of thou -- sand strings
        Should keep in __ tune,
        Should keep in tune so long.
    }
    
    Strange that a harp of thou -- sand strings
    Should keep in tune so long.
}

sopranoNotes = {
    \relative c'' {
        \set Staff.instrumentName = "Treble"
        \clef "treble"
            c2 |
            c1 c4( f) |
            e1 d2 |
            c2( bf) a |
        %5
            d1 c2 |
            a4.( \stemUp bf8 \stemNeutral a2) c2 
            c4.( bf8 a2) d |
            c1 c2 |
            d1 c2 |
        %10
            c4.( bf8 a2) c |
            f2( c) c4( f) |
            e1 d2 |
            c2( f) f |
            d1 c2 |
        %15
            c1. |
        %3/4
            f4 e e |
            f4( c) c |
            c4( bf) a |
            f8.( g16 a4) d |
        %20
            c4( d8 bf) c4 |
            d2 c4 |
            c2. |
        %3/2
            r2 r2 c2 |
            c1 c2 |
        %25
            c4.( bf8 a2) d |
            c2( bf) c |
            d1 c2 |
            a4.( g8 a2) c2 |
            c2( f) d |
        %30
            e1 r2 |
        %allegro
            R1 |
            r2 c4 c8\noBeam c |
            f4 e8( d) c4 c |
            c4 c c c |
        %35
            c2 d |
            c2. a4 |
            c4 c c c  |
            c4 f8( e) d4 c |
            c1~ |
        %40
            c2 d2 |
            e4 c c c  |
            a2. a4 |
            bf4 c d c |
            c1~ |
        %45
            c2 c4 d8\noBeam e |
            f4 d c c |
            f4 e8( d) c\noBeam d c\noBeam bf |
            a4( a a8.[ bf16 a8 g] |
            a4 c c) c |
        %50
            c4( c c c8 a |
            bf4 d d) d |
            c4( c c8. d16 c8 bf |
            c4 a c) c |
            d4 d c c |
        %55
            c2. c4 |
            c4 d c bf |
            a1 |
            c4 f,8\noBeam g a4 a |
            bf4 c c bf |
        %60
            c4 d c c |
            c1 |
        }
}

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

altoNotes = {
    \relative f' {
        \set Staff.instrumentName = \markup "Counter"
        \clef "treble"
        % Original clef:
        %\clef "neomensural-c3"
            f2 |
            f1 g4(a ) |
            g1 f2 |
            f1 f2 |
        %5
            d4.( e8 f2) e |
            f1 e2 |
            f1 f2 |
            e1 e2 |
            f1 f2 |
        %10
            e2( d) e |
            f1 g4( a) |
            g1 f2 |
            f4.( g8 a2) a4( f) |
            g2( f) e |
        %15
            f1. |
        %3/4
            a4 g g |
            a2 g4 |
            a4( g) f |
            f2 g4 |
        %20
            a8.( g16 f4) f4 |
            g4( a8 f) <e g>4 |
            <f a>2. |
        %3/2
            r2 r2 f2 |
            f1 e2 |
        %25
            f1 g2 |
            a4.( g8 f2) f |
            g2( a4 f) e2 |
            d1 e2 |
            f4.( g8 a2) g |
        %30
            g1 r2 |
        %allegro
            R1 |
            r2 f4 e8\noBeam d |
            c4 c f f |
            f4 f f c |
        %35
            f4 f f2( |
            e2 f) |
            r2 f4 e8\noBeam d |
            c4 c f f |
            f4 f f e |
        %40
            f4 g a f |
            g4 e f2( |
            e2 f~ |
            f2 g |
            a1~ |
        %45
            a1) |
            r2 f2 |
            a4 g f4 e8( d) |
            c4 c f f |
            f4 e f f |
        %50
            e1 |
            d4 d8\noBeam e f4 f |
            e4 e f f |
            f4 e f f |
            g2 a |
        %55
            f4 f e e |
            f4( g f) e |
            f1 |
            a4 a8\noBeam g f4 f |
            g4 g a g |
        %60
            f4 f f e |
            f1 |
    }
}

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

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

tenorNotes = {
    \relative f {
        \set Staff.instrumentName = "Tenor"
        \clef "treble_8"
            f2 |
            a4.( g8 a2) g4( f) |
            c'1 bf2 |
            a2( d) c |
        %5
            bf2( a) g |
            f4.( g8 f2) g |
            a4.( bf8 c2) bf4( a4) |
            g1 g2 |
            bf1 a2 |
        %10
            g2( f) c' |
            bf2( a) g4( f) |
            c'1 bf2 |
            a2( d) c |
            bf2( a) g|
        %15
            f1. |
        %3/4
            c'4 c c |
            c4( f) e |
            f8.( e16 d4) c |
            d4( c) bf |
        %20
            a4( d) c |
            bf4( a) g |
            f2. |
        %3/2
            r2 r2 f2 |
            a4.( g8 a2) g |
        %25
            a4.( bf8 c2) bf |
            c2( d) c |
            bf2( a) g |
            f4.( g8 f2) g |
            a4.( bf8 c2) b |
        %30
            c1 r2 |
        %allegro
            R1 |
            c4 c8\noBeam bf a4 g |
            a4 c f, a |
            c8([ a]) f([ a]) bf([ g]) f([ e]) |
        %35
            f1 |
            r2 r4 c'4 |
            f,4 f f g |
            a1~ |
            a2 r4 g4 |
        %40
            a4 g a bf |
            c1( |
            a2) r4 c4 |
            d4 c d e |
            f1 |
        %45
            f4 e8\noBeam d c4 a |
            d4 bf c a |
            f4 bf a g |
            f4( f4 f8. g16 f8 e |
            f4 a a a |
        %50
            g4 g g8. a16 g8 f |
            g4 bf bf bf |
            a4 a a8. bf16 a8 g |
            a4 c c) a |
            d4 bf c8([ bf]) a([ g]) |
        %55
            f4.( a8 g4. bf8 |
            a4 g a bf |
            c1) |
            f4 f8\noBeam e d4 c |
            d4 e f e8( d) |
        %60
            c4 bf a g |
            f1 |
    }
}

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

bassNotes = {
    \relative f {
        \set Staff.instrumentName = "Bass"
        \clef "bass"
            f2 |
            f1 e4( d) |
            c1 d2 |
            f2( bf) a |
        %5
            g2( f) c |
            f4.( e8 d2) c |
            f1 bf,2 |
            c1 c2 |
            bf1 f'2 |
        %10
            c2( d) c |
            d4.( e8 f2) e4( d) |
            c1 d2 |
            f4.( e8 d2) f |
            bf,1 c2 |
        %15
            f,1. |
        %3/2
            f'4 c c |
            f2 c4 |
            f4( g) a |
            bf4( a) g |
        %20
            f4( bf) a |
            g4( f) c |
            f,2. |
        %3/2
            r2 r2 f'2 |
            f1 c2 |
        %25
            f4.( g8 a2) g |
            f2( bf) a |
            g2( f) c |
            d4.( e8 d2) c |
            f1 g2 |
        %30
            c,1 r2 |
        %allegro
            f4 f8\noBeam e d4 d |
            c4 c f c |
            f4 a c a |
            f1 |
        %35
            f8([ e]) d\noBeam c d4 bf |
            c4 c f a |
            c4 a f c |
            f1 |
            f2 d4 c |
        %40
            f4( e) d2 |
            c2( f4. g8 |
            a4. g8 f4) f |
            bf4 a g c, |
            f1~ |
        %45
            f1 |
            r2 f4 f8\noBeam e |
            d4 e f c |
            f4 a c a |
            f4 c f2( |
        %50
            c1) |
            R1 |
            r2 f4 f8\noBeam e |
            f4 c f a |
            g4 g f8([ g]) a([ bf]) |
        %55
            c2 c, |
            f4 bf a g |
            f1 |
            f4 f8\noBeam f f4 a |
            g4 c, f g |
        %60
            a4 bf c c, |
            f1 |
    }
}

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

#(define engravedLine (string-append 
    "Engraved by LilyPond (version "
    (lilypond-version)
    ")" ))
 
\header {
	composer = \markup { \larger { \basCaps "William Billings" (1746-1800) }}
    opus = \markup { \larger {\italic 
        { The Continental Harmony } (1794) }}
    title = \markup { \larger \medium \italic "Creation" }
    poet = \markup { \larger "“Words by Dr. Watts”" }
    piece = \markup { \larger { Psalm 139, Hymn ii:19 \basCaps "(cm)" } }
    copyright = \markup { \center-column {
        "Edition copyright © 2007 by Michael Lauer."
        "This edition may be freely distributed, duplicated, performed, or recorded." } } 
}

\score {
  \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 }
  >>
  
  \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 = #1
      \override InstrumentName #'font-size = #1
      \override InstrumentName #'self-alignment-X = #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    
      \override LyricText #'stencil = #add-bligs-print
    }
  }

  
  \midi {    }


}