\version "2.16"
date = #(strftime "%d %B %Y" (localtime (current-time)))

\header {
  title = "Morning"
  composer = "Music: Amos Pilsbury, 1799"
  source = ""
  style = ""
  copyright = \date
  lastupdated = ""
  tagline = ""
}

%%% music

%part: treble
treble = {
  \set Staff.instrumentName = "Treble "
  \relative c'' {
    \key e \minor

    <e, b' e>1\fermata |
    \bar "||"

    \mark \default
    b'2 b4 b |
    d2 e |
    e8 d c4 b2 ~ |
    b2 r |
    g2 b4 b |
    b2 a |
    c8 b a4 b2 ~ |
    b1 |

    \mark \default
    R1 |
    R1 |
    g2 d'4 d |
    d2 d |
    b4 b b2 |
    g2 a8 g fis4 |
    e4. fis8 e fis g a |
    b2 e |
    d4. c8 b4 b |
    b1 |

  }
}

%part: alto
alto = {
  \set Staff.instrumentName = "Alto "
  \relative c'' {
    \key e \minor

    <e, b' e>1\fermata |
    \bar "||"

    \mark \default
    e'2 e4 e |
    d2 e |
    d8 e e4 e2 ~ |
    e2 r |
    g2 e4 e |
    g2 fis |
    e8 d fis4 e2 ~ |
    e1 |

    \mark \default
    \repeat volta 2 {
      r2 e2 |
      g4 g g2 |
      e2 d4 d |
      d2 e |
      e4 e e2 |
      e2 fis4 fis |
      e2 e |
      e4 d fis2 |
      e4. d8 e4 e |
      e1 |
    }

  }
}

%part: tenor
tenor = {
  \set Staff.instrumentName = "Melody "
  \relative c' {
    \key e \minor

    <e, b' e>1\fermata |
    \bar "||"

    \mark \default
    e'2 e4 e |
    b'2 g |
    a8 g fis4 e2 ~ |
    e2 r |
    b'2 g4 g |
    d'2 d |
    e8 d c4 b2 ~ |
    b1 |

    \mark \default
    \repeat volta 2 {
      R1 |
      R1 |
      R1 |
      r2 b |
      e4 e e2 |
      b2 d4 c |
      b2 g |
      b4 c8 b a2 |
      b4 c8 b a4 a |
      e1 |
    }

  }
}

%part: bass
bass = {
  \set Staff.instrumentName = "Bass "
  \relative c {
    \key e \minor

    <e, b' e>1\fermata |
    \bar "||"

    \mark \default
    e'2 g4 g |
    g2 e |
    b4 b e2 ~ |
    e2 r |
    e2 b4 b |
    g'2 d |
    e4 fis b,2 ~ |
    b1 |

    \mark \default
    \repeat volta 2 {
      r2 b |
      e4 e e2 |
      e2 g4 g |
      g2 g |
      e4 e e2 |
      e2 b4 b |
      b2 b |
      g'4 fis e2 |
      e2 b4 b |
      e1 |
    }

  }
}

%%% lyrics

wordsTreble = \lyricmode {
  _ We2 rise4 by mi2 -- llions! Wor4 -- kers rise1 _2
  and fill4 the streets2 with free4 -- dom sounds!1.
  _1 _
  A2 glo4 -- rious ra2 -- diance fills4 the skies,2
  a su4 -- dden tre1 -- e2 -- mbli2.. -- ng8 shakes4 the ground.1
}

wordsAlto = \lyricmode {
  _1 _ _ _ _ _ _ _ _ _2
  A2 glo4 -- rious ra2 -- diance fills4 the skies,2
  a2 glo4 -- rious ra2 -- diance fills4 the skies,2
  a2 su4 -- dden tre2 -- mbli4. -- ng8 shakes4 the ground.1
}

wordsTenor = \lyricmode {
  _1 _ _ _ _ _ _ _ _ _ _ _ _2
  A2 glo4 -- rious ra2 -- diance fills4 the skies,2
  a2 su4 -- dden tre2 -- mbli4. -- ng8 shakes4 the ground.1
}

wordsBass = \lyricmode {
  _1 _ _ _ _ _ _ _ _ _2
  A2 glo4 -- rious ra2 -- diance fills4 the skies,2
  a2 glo4 -- rious ra2 -- diance fills4 the skies,2
  a2 su4 -- dden tre2 -- mbling shakes4 the ground.1
}

%%% layout

\book {
  \score {
    <<
      \tempo 4 = 180
      \unfoldRepeats \new Staff \treble
      \unfoldRepeats \new Staff \alto
      \unfoldRepeats \new Staff \tenor
      \unfoldRepeats \new Staff \bass
    >>
    \midi { }
  }
}

#(set-default-paper-size "letter" 'portrait)
#(define output-suffix "C")
\book {
  \paper { }
  \header { poet = "C / Do" }
  \score {
    <<
      \new Staff << 
        \treble
        \new Lyrics { \wordsTreble }
      >>
      \new Staff <<
        \alto
        \new Lyrics { \wordsAlto }
      >>
      \new Staff \transpose c c, <<
        { \clef bass \tenor }
        \new Lyrics { \wordsTenor }
      >>
      %\new Staff \tenor
      \new Staff <<
        { \clef bass \bass }
        \new Lyrics { \wordsBass }
      >>
    >>
  }
}

#(define output-suffix "Bflat")
\book {
  \paper { }
  \header { poet = "B flat / Si bémol" }
  \score {
    <<
      \new Staff <<
        { \transpose bes c'  \treble }
        \new Lyrics { \wordsTreble }
      >>
      \new Staff <<
        { \transpose bes c'  \alto }
        \new Lyrics { \wordsAlto }
      >>
      \new Staff <<
        { \transpose bes c'  \tenor }
        \new Lyrics { \wordsTenor }
      >>
      \new Staff <<
        { \transpose bes c'' \bass }
        \new Lyrics { \wordsBass }
      >>
    >>
  }
}

#(define output-suffix "Eflat")
\book {
  \paper { }
  \header { poet = "E flat / Mi bémol" }
  \score {
    <<
      \new Staff <<
        { \transpose ees c'  \treble }
        \new Lyrics { \wordsTreble }
      >>
      \new Staff <<
        { \transpose ees c   \alto }
        \new Lyrics { \wordsAlto }
      >>
      \new Staff <<
        { \transpose ees c'  \tenor }
        \new Lyrics { \wordsTenor }
      >>
      \new Staff <<
        { \transpose ees c'' \bass }
        \new Lyrics { \wordsBass }
      >>
    >>
  }
}

#(define output-suffix "F")
\book {
  \paper { }
  \header { poet = "F / Fa" }
  \score {
    <<
      \new Staff <<
        { \transpose f c   \treble }
        \new Lyrics { \wordsTreble }
      >>
      \new Staff <<
        { \transpose f c   \alto }
        \new Lyrics { \wordsAlto }
      >>
      \new Staff <<
        { \transpose f c'  \tenor }
        \new Lyrics { \wordsTenor }
      >>
      \new Staff <<
        { \transpose f c'' \bass }
        \new Lyrics { \wordsBass }
      >>
    >>
  }
}