\header {
  title =       "Sanctus"
  subtitle =    "from ``Missa Brevis''"
  composer =    "Joshua P. Bowman"
  copyright =   "Copyright (c) 2002 Joshua P. Bowman"
}

global = \notes {
  \key f \major
  \time 2/2
  \skip 1*20
  \time 3/2
  \skip 1.*2
  \time 2/2
  \skip 1*4
  \time 3/2
  s1.          \bar "||"
  \time 2/2
  \skip 1*10
  \time 3/2
  s1.
  \time 2/2
  \skip 1*10   \bar "|."
}

tempos = \notes {
  s1^\markup{ "" \translate #(cons -4 4) { \bold {
  Lento (\note #"2" #0.75 = 48) 
  } } }
  \skip 1*19
  \skip 1.*2
  \skip 1*4
  s1.          \bar "||"
  s1^\markup{ "" \translate #(cons -4 4) { \bold {
  piu moso (\note #"2" #0.75 = 56)
  } } }
}

linebreaks = \notes {
  % m1
  \skip 1*6 \break
  % m7
  \skip 1*8 \break
}

tenorOneMelody = \notes {
  \relative c' {
  \dynamicUp
  % m1
  R1 | R | R | R | R | R |
  % m7
  bes\f(~ | bes4 c d e) | g2( f) | a1\ff~ | a2 g | a1~ | a |
  % m14
  R | f4\f e d c | c1 |
  % m17
  c2\mf d | c1 | e^\markup{ \bold \italic {cresc.} } | e2 e | f f1 | 
  g2.\f f8( g) a2 | f e |
  % m24
  r e4( fis) | g bes a g | f2( e) | f1 r2 |
  % m28
  R1 | r2 a,4\p a | bes2( a) | a1 | R | r2 e'4\<( f) | g1\!\mf | f2 e |
  % m36
  a1\f~ | a2 g | f1\>( g2\!\<) | a1\!~ | a2 g\> | f\!( e) |
  % m42
  r e4\<( fis) | g2\!\f bes | a( g) | f1\>~ | f2 e | f1\!\mf~ | f
  % END OF PIECE
  }
}

tenorTwoMelody = \notes {
  \relative c' {
  \dynamicUp
  % m1
  a2\p( bes | a bes) | bes( g) | bes\mp( c | bes a) | c1 |
  % m7
  bes2\mf( g | a bes) | a1 | 
  % m10
  c2\ff(\< cis | e\!)\> d | c\!(\< cis | e\!\> d) |
  % m14
  d\f d | c c | c1 |
  % m17
  a2\mf bes | c1 | b^\markup{ \bold \italic {cresc.} } | b2 b | d d1 | 
  c2.\f c4 c2 | c c |
  % m24
  r c | bes4 d c d | c2( bes) | a1 r2 |
  % m28
  d1\p | d | e2( d) | cis d4\<( e) | f2\!\mp( e) | d r | R1 |
  % m35
  c\mf\< | c2\!\f( cis | e) d | << { c1. } { s1\> s2\!\< } >> |
  % m39
  c2\!( cis | e) d\> | c1\! |
  % m42
  r2 c\< | bes\!\f d | c( bes) | c1\> | bes | a\!\mf~ | a
  % END OF PIECE
  }
}

baritoneOneMelody = \notes {
  \relative c {
  \dynamicUp
  % m1
  f2\p( d | f g) | g( e) | f1\mp( | g2 d) | g1 |
  % m7
  d2\mf( g | f1) | f | f2\ff(\< g | bes\!)\> bes | f\!(\< g | bes\!\> a) |
  % m14
  bes\!\f bes | g g | a1 |
  % m17
  f2\mf f | a1 | g^\markup{ \bold \italic {cresc.} } | g2 g | a a1 | 
  g2\f( c4) c c2 | a g |
  % m24
  r2 g4( a) | bes g c bes | a2( c) | c1 r2 |
  % m28
  d,1\p | d | d | d | R | r2 c'4\<( d) | e1\!\mf\< | d2 c |
  % m36
  a\!\f( g | bes) bes | a1(\> bes2\!\<) | c\!( g | bes) a4\>( g) | g1\! |
  % m42
  r2 g4\<( a) | bes2\!\f g | c( bes) | a\<( bes) | d\!\>( c) | c1\!\mf~ | c
  % END OF PIECE
  }
}

baritoneTwoMelody = \notes {
  \relative c {
  \dynamicUp
  % m1
  c1\mp(~ | c4 cis e d) | d2( c) | d1\mf(~ | d4 e g f) | f2( e) |
  % m7
  f( e | f1) | f | c2\ff(\< e | g\!)\> g | c,(\< e | g\!\> f) |
  % m14
  f\!\f f | f e | f1 |
  % m17
  R1 | r4 a\mf( g) f | e2^\markup{ \bold \italic {cresc.} } e~ | e4 e e2 | d d1 |
  % m22
  e2\f( c'4) bes a2 | f g | r e4( d) | d d f d | f2( g) | f1 r2 |
  % m28
  R1 | r2 f4\p f | g2( f) | g bes4\<( c) | d2\!\mp( c) | a r | R1 |
  % m35
  g\mf\< | f2\!\f( e | g) e | f1(\> e2\!\<) |
  f\!( e | g) g\> | g1\! |
  % m42
  r2 e4\<( d) | d2\!\f d | f( d) | f\<( g) | bes\!\>( g) | f1\!\mf~ | f
  % END OF PIECE
  }
}

bassMelody = \notes {
  \relative c {
  \dynamicUp
  % m1
  f,1\p~ | f | f | bes2\mp( a | g f) | c'1 |
  % m7
  bes2\mf( c | d bes) | f1 |
  % m10
  f2\ff(\< bes | des\!)\> c | f,(\< bes | cis\!\> d) |
  % m14
  bes\!\f bes | c c | f,1 |
  % m17
  R1 | r4 a\mf( g) f | e2^\markup{ \bold \italic {cresc.} } e'~ | e4 e e2 | d d1 |
  % m22
  c2\f( c'4) bes a2 | a, c | r c4( a) | g g a bes | c1 | f, r2 |
  % m28
  R1 | R | R | R | d'\mp | d\< | c | c\!\mf\< |
  % m36
  f2\!\f( bes, | des) c | a1(\> g2\!)\< |
  f\!( bes | g) a4\>( bes) | c1\! |
  % m42
  r2 c4\<( a) | g2\!\f g | a( bes) | c1\> | c | f\!\mf~ | f
  % END OF PIECE
  }
}

tenorOneLyrics = \lyrics {
  Sanc -- tus
  do -- mi -- nus  de -- us  sa -- ba -- oth.
  Ple -- ni  sunt  coe -- li  et  ter -- ra  glo -- ri -- a  tu -- a.
  Ho -- san -- na  in  ex -- cel -- sis.
  Be -- ne -- dic -- tus  qui  ve -- nit  in  no -- mi -- ne  do -- mi -- ni.
  Ho -- san -- na  in  ex -- cel -- sis.
}

tenorTwoLyrics = \lyrics {
  Sanc -- tus,  sanc -- tus,  sanc -- tus
  do -- mi -- nus  de -- us  sa -- ba -- oth.
  Ple -- ni  sunt  coe -- li  et  ter -- ra  glo -- ri -- a  tu -- a.
  Ho -- san -- na  in  ex -- cel -- sis.
  Be -- ne -- dic -- tus  qui  ve -- nit  in  no -- mi -- ne  do -- mi -- ni.
  Ho -- san -- na  in  ex -- cel -- sis.
}

baritoneOneLyrics = \lyrics {
  Sanc -- tus,  sanc -- tus,  sanc -- tus
  do -- mi -- nus  de -- us  sa -- ba -- oth.
  Ple -- ni  sunt  coe -- li  et  ter -- ra  glo -- ri -- a  tu -- a.
  Ho -- san -- na  in  ex -- cel -- sis.
  Be -- ne -- dic -- tus  qui  ve -- nit  in  no -- mi -- ne  do -- mi -- ni.
  Ho -- san -- na  in  ex -- cel -- sis.
}

baritoneTwoLyrics = \lyrics {
  Sanc -- tus,  sanc -- tus,  sanc -- tus
  do -- mi -- nus  de -- us  sa -- ba -- oth.
  Ple -- ni  sunt  coe -- li  et  ter -- ra  glo -- ri -- a  tu -- a.
  Ho -- san -- na  in  ex -- cel -- sis.
  Be -- ne -- dic -- tus  qui  ve -- nit  in  no -- mi -- ne  do -- mi -- ni.
  Ho -- san -- na  in  ex -- cel -- sis.
}

bassLyrics = \lyrics {
  Sanc -- tus,  sanc -- tus,  sanc -- tus
  do -- mi -- nus  de -- us  sa -- ba -- oth.
  Ple -- ni  sunt  coe -- li  et  ter -- ra  glo -- ri -- a  tu -- a.
  Ho -- san -- na  in  ex -- cel -- sis.
  Qui  ve -- nit  in  no -- mi -- ne  do -- mi -- ni.
  Ho -- san -- na  in  ex -- cel -- sis.
}

tenorOneTotal = \notes {
        \simultaneous {
          \global
          \tempos
          \linebreaks
          \clef "treble_8"
          \set Staff.instrument = "Tenor 1"
          \set Staff.instr = "T1"
          \context Voice = tenorOneNotes \tenorOneMelody
          \lyricsto tenorOneNotes \new Lyrics { \tenorOneLyrics }
        }
}

tenorTwoTotal = \notes {
        \simultaneous {
          \global
          \clef "treble_8"
          \set Staff.instrument = "Tenor 2"
          \set Staff.instr = "T2"
          \context Voice = tenorTwoNotes \tenorTwoMelody
          \lyricsto tenorTwoNotes \new Lyrics { \tenorTwoLyrics }
        }
}

baritoneOneTotal = \notes {
        \simultaneous {
          \global
          \clef "bass"
          \set Staff.instrument = "Baritone 1"
          \set Staff.instr = "B1"
          \context Voice = baritoneOneNotes \baritoneOneMelody
          \lyricsto baritoneOneNotes \new Lyrics { \baritoneOneLyrics }
        }
}

baritoneTwoTotal = \notes {
        \simultaneous {
          \global
          \clef "bass"
          \set Staff.instrument = "Baritone 2"
          \set Staff.instr = "B2"
          \context Voice = baritoneTwoNotes \baritoneTwoMelody
          \lyricsto baritoneTwoNotes \new Lyrics { \baritoneTwoLyrics }
        }
}

bassTotal = \notes {
        \simultaneous {
          \global
          \clef "bass"
          \set Staff.instrument = "Bass"
          \set Staff.instr = "Bs"
          \context Voice = bassNotes \bassMelody
          \lyricsto bassNotes \new Lyrics { \bassLyrics }
        }
}

\score {
  \context ChoirStaff = choir
    <<
      \context Staff = tenorOne \tenorOneTotal
      \context Staff = tenorTwo \tenorTwoTotal
      \context Staff = baritoneOne \baritoneOneTotal
      \context Staff = baritoneTwo \baritoneTwoTotal
      \context Staff = bass \bassTotal
    >>
  \paper {
    \context {
        % a little smaller so lyrics can be closer to the staff.
        \StaffContext
        minimumVerticalExtent = #'(-3 . 5)
    }
  }
}