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

\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
  %\set Staff.forceClef = ##t
  %\set Staff.forceTime = ##f
  %\set Timing.defaultBarType = ""

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

  \key c \major

  \tsThreeTwo
  \partial 2
  \skip 2
  \skip 1.*12
  %funky barring
  \tsAllegro
  \skip 1.
  \bar ":"
  \skip 2
  \tsThreeTwo
  \newSpacingSection
  \skip 1
  \bar ":"
  \skip 2
  \skip 1
  \bar "|:"
  \skip 2
  \skip 1.*16
  \skip 1
  \bar ":|"
}

commonLyrics = \lyricmode {
    Ye slumb’ -- ring saints, __
    a heav’n -- ly host,
    stands wait -- ing 
    \tag #'soprano \tag #'tenor { at __ }
    \tag #'alto \tag #'bass { at }
    your
    gap -- ing tombs,
    let ev’ -- ry sa -- cred sleep -- ing dust,
    leap in -- to 
    \tag #'soprano \tag #'alto \tag #'bass { life }
    \tag #'tenor { life __ }
    for Je -- sus comes,
}

sopranoNotes = {
  \relative a' {
    \set Staff.instrumentName = "Treble"
    \clef "treble"
        a2 |
        a1 \times 2/3 { g4( a b) } |
        c2( d) e |
        c2( b) a |
        gs1 b2 |
    %5
        a4.( b8 c2) d |
        c4.( d8 e2) f |
        e2( a,) gs |
        a1 a2 |
        c4.( b8 a2) b4( c) |
    %10
        b1 c2 |
        e4.( d8 c2) d |
        b1 b2 |
        d2 c e a, |
        c4.( b8 a2) gs2 |
    %15
        a1 r2 |
        R1.*4 |
    %20
        R1. |
        a2 e'( d4 c) |
        b1 c2( |
        d2) e a,4.( b8 |
        c4) b8( a) g4.( f8 e2) |
    %25
        r2 c'2 b |
        b2 a4( b8 c8 d2) |
        c2 e \times 2/3 { d4( e f) } |
        e1 e2 |
        c2( f) e4( c) |
    %30
        d4.( c8 b2) \times 2/3 { a4( c e) } |
        d2( c) b |
        c1 
  }
}

sopranoLyrics = \lyricmode {
    \keepWithTag #'soprano \commonLyrics
    let ev’ -- ry sa -- cred sleep -- ing dust, __
    leap in -- to life __ for Je -- sus __ comes,
    leap in -- to life __ for __ Je -- sus comes.
}

altoNotes = {
  \relative e' {
      \set Staff.instrumentName = \markup "Counter"
    \clef "treble"
        e2 |
        e1 d2 |
        e2( d4. f8) e2 |
        g1 e2 |
        e1 e2 |
    %5
        e1 d2 |
        e1 d2 |
        e2( f) e |
        e1 e2 |
        c4.( d8 e2) f |
    %10
        g1 e2 |
        e1 d2 |
        e1 e2 |
        f2 e e f |
        g2( f) e |
    %15
        e1 r2 |
        R1.*2 |
        r2 r2 e2 |
        g1 f2 |
    %20
        e2( f) e |
        e1 f2 |
        g1 e2 |
        g4 g g g f e8( d) |
        e2 r2 e2 |
    %25
        R1. |
        g2 a g4.( f8 |
        e2) r2 a2 |
        r2 g2 g |
        c,( d) e |
    %30
        g1 e2 |
        f1 e2 |
        e1 
  }
}

altoLyrics = \lyricmode {
    \keepWithTag #'alto \commonLyrics
    let ev’ -- ry sa -- cred sleep -- ing dust,
    let ev’ -- ry sa -- cred sleep -- ing dust,
    leap, leap, leap, leap, __ 
    leap, leap,
    leap in -- to life for Je -- sus comes.
}

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

tenorNotes = {
  \relative e {
    \set Staff.instrumentName = "Tenor"
    \clef "treble_8"
        e2 |
        a4.( b8 c2) b4( a) |
        g4.( a8 b2) c |
        e2( d) c |
        b1 e2 |
    %5
        c4.( b8 a4. c8) b2 |
        g4.( f8 e2) a |
        c4.( e8 d4 c) b2 |
        a1 c2 |
        e4.( f8 e2) d4( c) |
    %10
        d4.( e8 d2) c4( b) |
        a4.( c8 b4 a) g( f) |
        e1 e2 |
        a8( gs a b c4) c b8( a b c d4) d |
        e8( d c b a4 c) b2 |
    %15
        a1 r2 |
        R1. |
        r2 a2 e'4.( d8 |
        c2) b c( |
        d2) e a,4.( b8 |
    %20
        c2) b4( a) g4.( f8 |
        e2) r2 a2 |
        e'2( d) c |
        b1 a2 |
        g4.( a8 b4) c a2 |
    %25
        r2 e'2 g4.( f8 |
        e4. g8 f4. e8 d4. f8 |
        e4. d8 c4. e8 d4. c8 |
        b1) e2 |
        a,4.( gs8 a4. b8 c4. e8 |
    %30
        d1) c2 |
        b2( a) gs |
        a1
  }
}

tenorLyrics = \lyricmode {
    \keepWithTag #'tenor \commonLyrics
    let ev’ -- ry sa -- cred sleep -- ing dust, __
    leap in -- to life for Je -- sus comes,
    leap in -- to life __ for Je -- sus comes.
}

bassNotes = {
  \relative a, {
    \set Staff.instrumentName = "Bass"
    \clef "bass"
        a2 |
        a1 b2 |
        c2( b) a |
        c2( g') a |
        e1 e2 |
    %5
        a,1 b2 |
        c1 d2 |
        c2( d) e |
        a,1 a'2 |
        a4.( b8 c2) b4( a) |
    %10
        g1 a2 |
        a,1 b2 |
        e1 e2 |
        d2 a' e d |
        c2( d) e^\markup {*} |
    %15
        a,1 a2 |
        e'4.( d8 c2) b |
        c2( d) e |
        f4.( e8 d2) a' |
        g4.( f8 e2) d |
    %20
        c2( d) e |
        a,4.( b8 c2) d |
        e4.( f8 g2) a |
        g4.(f8 e2) r2 |
        e2 r2 a, |
    %25
        r2 a'2 e |
        e2 d g |
        c,1 d2 |
        e1 e2 |
        f4.( e8 d2) c |
    %30
        g'1 a2 |
        d,1 e2 |
        a,1 

  }
}

bassLyrics = \lyricmode {
    \keepWithTag #'bass \commonLyrics
    let ev’ -- ry sa -- cred sleep -- ing dust,
    let ev’ -- ry sa -- cred sleep -- ing dust,
    leap, leap,
    leap in -- to life for Je -- sus comes,
    leap in -- to life for Je -- sus comes.
}

\header {
	composer = \markup { \bigger { \basCaps "William Billings" (1746-1800) }}
    opus = \markup { \bigger { \italic "The Continental Harmony" (1794) } }
	title = \markup { \bigger \medium \italic "Great-Plain" }
    poet = \markup { \bigger "“Words from Dr. Watts”" }
    copyright = \markup { \center-align {
        "Copyright © 2005 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 SpacingSpanner
      %          #'common-shortest-duration = #(ly:make-moment 1 4)
      %\override SpacingSpanner
      %          #'base-shortest-duration = #(ly:make-moment 1 4)
    }
    \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 {
    \context {
      \Score
      tempoWholesPerMinute = #(ly:make-moment 80 2)
      }
    }
}