\version "2.8.6"

% O Sacrum Convivium
% Farrant

% Choir and Piano Reduction Score

\include "mydefs.ly"
\include "includes/Tempi.ly"
\include "includes/Breaks-5.ly"
\include "includes/Soprano.ly"
\include "includes/Alto.ly"
\include "includes/Tenor.ly"
\include "includes/Bass.ly"

#(set-global-staff-size 18)		% set overall size of score layout (for 4 pages)
%#(set-global-staff-size 14.5)		% set overall size of score layout (for 3 pages)

globalStaff={
 \key g 
 \major 
 \time 2/2
 \lyricSize #2.0			% increase size of lyrics
}

\header {
 title = \markup { \fontsize #4 "O Sacrum Convivium" }
 subtitle = "  "
 subsubtitle = "   "
 composer = "Music by Richard Farrant (c1530-1580)"
 poet = "Words by Thomas Aquinas (1225-1274)"
 tagline = "Music engraving by Trevor Daniels using LilyPond 2.8.6 - www.lilypond.org"
}

\markup {
 \fill-line {
  \hspace #1.0
  \column {
   \line {"  "}
   \line {"  "}
   \line {"  "}
   \line {"  "}
   \line {"  "}
   \line {"O sacrum convivium" }
   \line {"in quo Christus sumitur," }
   \line {"recolitur memoria passionis ejus," }
   \line {"mens impletur gratia," }
   \line {"futurae gloriae nobis pignus datur." }
   \line {"Amen."}
   \line {"  "}
   \line {"  "}
   \line {"  "}
   \line {"  "}
  }
  \hspace #2
  \column {
   \line {"  "}
   \line {"  "}
   \line {"  "}
   \line {"  "}
   \line {"  "}
   \line { \italic {"O sacred feast"} }
   \line { \italic {"in which Christ is received,"} }
   \line { \italic {"the memory of His Passion is renewed,"} }
   \line { \italic {"the mind is filled with grace," } }
   \line { \italic {"and a pledge of future glory is given to us." }}
   \line { \italic {"Amen."}}
   \line {"  "}
   \line {"  "}
   \line {"  "}
   \line {"  "}
  }
  \hspace #1.0
 }
}

\score {
 <<	% start staves
  \new ChoirStaff << % the actions defined at this level are in parallel
   \new Staff=Soprano
   \with { 
    \consists Ambitus_engraver	% show vocal range required
   }
   << % specify new staff explicitly (needed for midi)
    \set Staff.instrument = \markup { \hcenter-in #6 "Soprano" }
    \set Staff.instr = \markup { \hcenter-in #3 "S" }
    \clef treble 
    \globalStaff 
    \set Staff.midiInstrument="Voice Oohs"
    \context Voice=Soprano {
     \dynamicUp
     <<
      \Tempi			% set tempi from includes/Tempi.ly
      \Breaks			% implement page breaks
      \removeWithTag #'Piano	% don't apply piano-positioning of dynamics to soprano
      \SopranoDynamics
      \SopranoMusic
     >>
    }	% end context Voice=Soprano
    \new Lyrics=SopranoLyrics \lyricsto Soprano {
     \SopranoLyrics 
    }
   >>	% end context Staff=Soprano

   \context Staff=Alto 
   \with { 
    \consists Ambitus_engraver	% show vocal range required
   }
   <<
    \set Staff.instrument = \markup { \hcenter-in #6 "Alto" }
    \set Staff.instr = \markup { \hcenter-in #3 "A" }
    \clef treble 
    \set Staff.midiInstrument="Voice Oohs"
    \globalStaff
    \context Voice=Alto {	% Voice implies new staff
     \dynamicUp
     <<
      \AltoDynamics
      \AltoMusic
     >>
    }  

    \new Lyrics \lyricsto Alto {
     \AltoLyrics
    }
   >>

   \context Staff=Tenor 
   \with { 
    \consists Ambitus_engraver	% show vocal range required
   }
   <<
    \set Staff.instrument = \markup { \hcenter-in #6 "Tenor" }
    \set Staff.instr = \markup { \hcenter-in #3 "T" }
    \clef "G_8" 
    \globalStaff
    \set Staff.midiInstrument="Voice Oohs"
    \context Voice=Tenor { 
     \dynamicUp
     <<
      \TenorDynamics
      \TenorMusic
     >>
    } 

    \new Lyrics \lyricsto Tenor {
     \TenorLyrics
    }
   >>

   \context Staff=Bass 
   \with { 
    \consists Ambitus_engraver	% show vocal range required
   }
   <<
    \set Staff.instrument = \markup { \hcenter-in #6 "Bass" }
    \set Staff.instr = \markup { \hcenter-in #3 "B" }
    \clef bass 
    \globalStaff
    \set Staff.midiInstrument="Voice Oohs"
    \context Voice=Bass { 
     \dynamicUp
     <<
      \BassDynamics
      \BassMusic
     >>
    }

    \new Lyrics \lyricsto Bass {
     \BassLyrics
    }
   >>
  >>

  \PianoStaffWithSize #-2 #11	% Reduce staff and font sizes (-2) and increase separation (11)
  <<	% start components of PianoStaff in parallel
   \set PianoStaff.instrument = \markup { \column { \hcenter-in #6 Piano \italic { \center-align {"(only for" rehearsal) } } } }
   \new Staff=RH {
    \globalStaff
    \clef treble
    \set Staff.printPartCombineTexts = ##f		% don't want solo annotation
    \partcombine
    << 
     \SopranoMusic
    >>
    <<
     \AltoMusic
    >>
   }	% end Staff=Treble

   \new Staff=LH {
    \globalStaff
    \clef bass
    \set Staff.printPartCombineTexts = ##f
    \partcombine
    << 
     \TenorMusic
     \dynamicUp
     % Use tagged soprano dynamics for piano
     \keepWithTag #'Piano
     \SopranoDynamics
    >>
    << 
     \BassMusic
    >>
   }	% end Staff=Bass
  >>	% end PianoStaff
 >>	% end Staves

 \layout { 

  % Here go all the score-related commands which influence the printed score's general appearance %

  \context {
   \Score \override BarNumber #'padding = #3	% move bar numbers up to avoid collision with StaffGroup bracket
  }
  \context {
   \Staff \override TimeSignature #'style = #'numbered	% Avoid cut-time symbol on all staves
  }
 }	% end layout

 \midi {
  \tempo 2=80	% Tempi are set explicitly in tempi.ly
		% but the first is needed here
 }

}	% end Score

\paper {

 % Here go all the non-score-related commands which set up the paper appearance

 ragged-bottom=##t
 print-page-number = ##t	% print page numbers
}