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

\paper {
  #(set-paper-size "letter")
  top-margin = .3\in
  bottom-margin = .3\in
  left-margin = .75\in
  line-width = 7\in
  page-top-space = 0.25\in
  %before-title-space = 0\in
  between-system-padding = 0.04\in
  print-page-number = ##t
  %head-separation = 0\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
      ""
    }
    
    
    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
    %\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 c \major
    
    \tsThreeFour
    \partial 4
    s4
    s2.*16
    
    \tsTwoFour
    \repeat volta 2 {
        s2*13
    }
}

commonLyrics = \lyricmode {
    \tag #'tenor \tag #'bass {
        The Lord my pas -- ture shall pre -- pare,
    }
    \tag #'soprano \tag #'bass {
        And feed me with a shep -- herd’s care
    }
    \tag #'alto \tag #'bass {
        His pre -- sence shall
    }
    my wants sup -- ply,
    And guard __ me 
        \tag #'soprano \tag #'tenor { with __ } 
        \tag #'alto \tag #'bass { with } 
        a watch -- ful eye.
    
    My noon -- day walk he shall 
        \tag #'soprano \tag #'alto { at -- tend, }
        \tag #'tenor \tag #'bass { at -- tend, __ }
    And all my mid -- night hours de -- fend,
    And all my mid -- night hours de -- fend.
}

sopranoNotes = {
    \relative g' {
        \set Staff.instrumentName = "Treble"
        \clef "treble"
            r4 |
            R2.*3 |
        %5
            r2 g4 |
            c2 d4 |
            e2 f4 |
            e2 d4 |
            c2 r4 |
        %10
            R2. |
            r2 e4 |
            f2 d4 |
            e2 c4 |
            g8([ c b d]) b([ d]) |
        %15
            b8([ d c e]) g4 |
            c,8.( e16 d8 c) b4 |
            c2. |
            \repeat volta 2 {
                r4 c4 |
                c4 e16( c8.) |
            %20
                d8([ f]) e16( c8.) |
                e8( g) f( e) |
                d4 e |
                g4 f8.( a16) |
                g8.( e16) c8.( e16) |
            %25
                d8.( c16) b4 |
                c4. d8 |
                c8.( e16) f8( a) |
                g8( e) c4 |
                g'8.( f16) e8( d) |
            %30
                e2 |
            }
        }
}

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

altoNotes = {
    \relative g' {
        \set Staff.instrumentName = \markup "Counter"
        \clef "treble"
        % Original clef:
        %\clef "neomensural-c3"
            r4 |
            R2.*3 |
        %5
            R2.*4 |
            r2 g4 |
        %10
            g2 a4 |
            g2 g4 |
            a2 g4 |
            g2 e4 |
            d8.( f16 g4) g |
        %15
            g2 g4 |
            g4( a) g |
            g2. |
            \repeat volta 2 {
                r4 g8.( f16) |
                e8( g) a8.( g16) |
            %20
                a4 g |
                g8( e) f8( a) |
                g4. g8 |
                g4 a |
                g4 g |
            %25
                g4 g |
                a4. a8 |
                g4 a8( f) |
                g8( c) b( a) |
                g4 g |
            %30
                g2 |
            }
    }
}

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

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

tenorNotes = {
    \relative g {
        \set Staff.instrumentName = "Tenor"
        \clef "treble_8"
            g4 |
            c2 b4 |
            a2 g4 |
            c2 d4 |
        %5
            c2 r4 |
            R2.*4 |
        %10
            R2. |
            r2 c4 |
            c2 b4 |
            c2 g4 |
            c4( d8[ b]) d( b) |
        %15
            d4( e8[ c]) e( c) |
            e8.( g16 f8 e) d4 |
            c2. |
            \repeat volta 2 {
                r4 e8.( f16) |
                g16( e8.) c8.( e16) |
            %20
                f8( d) c8.( b16) |
                c8.( e16) d8.( c16) |
                b8.([ a16 g8]) g8 |
                c4 c8.( b16) |
                c8( e) e( c) |
            %25
                d8.( c16) d8.( e16) |
                d8( f4) d8 |
                e4 d8( c) |
                e8( g) g( f) |
                e8.( d16) c8.( b16) |
            %30
                c2 |
            }
    }
}

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

bassNotes = {
    \relative c {
        \set Staff.instrumentName = "Bass"
        \clef "bass"
            c4 |
            c2 e4 |
            f2 e4 |
            f8.( g16 a4) g4 |
        %5
            c2 b4 |
            c2 g4 |
            c2 b4 |
            c2 g4 |
            e2 c'4 |
        %10
            g2 f4 |
            e2 c4 |
            f2 g4 |
            c,2 c4 |
            c4( g') g |
        %15
            g2 e4 |
            c4( f) g |
            c,2. |
            \repeat volta 2 {
                r4 c4 |
                c4 f8.( e16) |
            %20
                d4 e |
                c4 d |
                g8.([ f16 e8]) d |
                c4 f |
                e4 c |
            %25
                g'4 g |
                f4. f8 |
                e4 f |
                e8( c) e( f) |
                g4 g, |
            %30
                c2 |
            }
    }
}

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

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

\header {
	composer = \markup { \bigger { \basCaps "William Billings" (1746-1800) }}
    opus = \markup { \bigger \italic 
            { The Continental Harmony } (1794) }
    title = \markup { \bigger \medium \italic "Cross-Street" }
    poet = "“Words from Addison”"
    copyright = \markup { \smaller \center-align {
        "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 = #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
    }
  }

  
  \midi {    }


}