\version "2.17.19-1"
\include "english.ly"
\include "gregorian.ly"
#(set-default-paper-size "letter")
#(ly:set-option 'point-and-click #f)


hb = {\once \override Staff.BarLine #'bar-extent = #'(-1.6 . 1.6)}


\paper {
%% annotate-spacing = ##t
 print-page-number = ##f
	top-margin = 12\mm
	after-title-space = 10\cm
	head-separation = 15\mm
%page-limit-inter-system-space = ##t
   % page-limit-inter-system-space-factor = 2
 ragged-last-bottom = ##t
 ragged-bottom = ##t
}

\header {
   poet = \markup{ \fontsize #4 \smallCaps "Adoro te devote"  }
    meter = \markup { \small { Music: \italic Gregorian, Parish Book of Chant; harm. Nova Organi Harmonia, 1942  Text: St. Thomas Aquinas, (1225-1274) } } 
    piece = ""
    %breakbefore
    %copyright = ""
    tagline = ""
}

%%% plainsong voice

plainsongFirst = \context VaticanaVoice  {  \relative c { 
	\override Staff.Accidental  #'transparent = ##t
	\clef "vaticana-do2"
	\set fontSize = #3
	\override Staff.StaffSymbol #'staff-space = #1.6
	\key f \major
	
	f8 a c c \parenthesize c \[ c\melisma \pes d\melismaEnd \] \augmentum c s16 \bar "'"
	b8 a g f \augmentum f s16 \hb \bar "|"
	f8 a c c \[ c\melisma \pes d\melismaEnd \] \augmentum c s16 \bar "'"
	b8 a g f^\markup {\bold \small "Mode V"} \augmentum f s16 \bar "|"

	c'8 c \[ d\melisma \pes e\melismaEnd \] f \[ f\melisma \flexa e\melismaEnd \] \augmentum c s16 \bar "'"
	d8 c b a \augmentum g s16 \hb \bar "|"

	a8 c b a \[ g\melisma \flexa f\melismaEnd \] \augmentum g s16 \bar "'"
	a8 f g f \augmentum f s16 \bar "||"
  }
}

plainsongSecond = \context VaticanaVoice  {  \relative c { 
	\override Staff.Accidental  #'transparent = ##t
	\clef "vaticana-do2"
	\set fontSize = #3
	\override Staff.StaffSymbol #'staff-space = #1.6
	\key f \major
	
	f8 a c c \[ c\melisma \pes d\melismaEnd \] \augmentum c s16 \bar "'"
	b8 a g f \augmentum f s16 \hb \bar "|"
	f8 a c c \[ c\melisma \pes d\melismaEnd \] \augmentum c s16 \bar "'"
	b8 a g f \augmentum f s16 \bar "|"

	c'8 c \[ d\melisma \pes e\melismaEnd \] f \[ f\melisma \flexa e\melismaEnd \] \augmentum c s16 \bar "'"
	d8 c b a \augmentum g s16 \hb \bar "|"

	a8 c b a \[ g\melisma \flexa f\melismaEnd \] \augmentum g s16 \bar "'"
	a8 f g f \augmentum f s16 \bar "||"
  }
}

plainsongThird = \context VaticanaVoice  {  \relative c { 
	\override Staff.Accidental  #'transparent = ##t
	\clef "vaticana-do2"
	\set fontSize = #3
	\override Staff.StaffSymbol #'staff-space = #1.6
	\key f \major	

	f8 a c c \[ c\melisma \pes d\melismaEnd \] \augmentum c s16 \bar "'"
	b8 a g f \augmentum f s16 \hb \bar "|"
	f8 a c c \[ c\melisma \pes d\melismaEnd \] \augmentum c s16 \bar "'"
	b8 a g f \augmentum f s16 \bar "|"

	c'8 c \[ d\melisma \pes e\melismaEnd \] f \[ f\melisma \flexa e\melismaEnd \] \augmentum c s16 \bar "'"
	d8 c b a \augmentum g s16 \hb \bar "|"

	a8 c b a \[ g\melisma \flexa f\melismaEnd \] \augmentum g s16 \bar "'"
	a8 f g f \augmentum f s16 \bar "||"
	\[ f8\melisma \pes g \flexa f\melismaEnd \] \[ \augmentum e\melisma \pes \augmentum f\melismaEnd \] s8 \bar "||"
  }
}


%%% Chant text

verseOne = \lyricmode {
	\set stanza = "1."
	 A -- dó -- ro te de -- vó -- te, 
	  la -- tens Dé -- i -- tas,
	Quae sub his fi -- gu -- ris
	  ve -- re lá -- ti -- tas:
	Ti -- bi se cor me -- um
	  to -- tum súb -- ji -- cit
	Qui -- a te con -- tém -- plans
	  to -- tum dé -- fi -- cit.
}

verseThree = \lyricmode {
	\set stanza = "3."
	In cru -- ce la -- _ té -- bat
	  so -- la Dé -- i -- tas,
	At hic la -- tet si -- mul 
	  et Hu -- má -- ni -- tas,
	Am -- bo ta -- men cre -- dens 
	  at -- que cón -- fi -- tens,
	Pe -- to quod pe -- tí -- vit 
	  lat -- ro paé -- ni -- tens.
}

verseFive = \lyricmode {
	\set stanza = "5."
	O mem -- o -- ri -- _ á -- le
	  mor -- tis Dó -- mi -- ni,
	Pa -- nis vi -- vus vi -- tam
	  praes -- tans hó -- mi -- ni,
	Praes -- ta me -- ae men -- ti
	  de te ví -- ve re,
	Et te il -- li sem -- per 
	  dul -- ce sá -- pe -- re.
}
%%%%%%%%%%%%%%%%%%%%%%
verseTwo = \lyricmode {
	\set stanza = "2."
	Vi -- sus, tac -- tus, gus -- tus
	  in te fál -- li -- tur,
	Sed au -- dí -- tu so -- lo
	  tu -- to cré -- di -- tur:
	Cre -- do quid -- quid di -- xit
	  De -- i Fí -- li -- us:
	Nil hoc ver -- bo ver -- i -- 
	  tá -- tis vé -- ri -- us.
}

verseFour = \lyricmode {
	\set stanza = "4."
	Pla -- gas, si -- cut Tho -- mas, 
	  non in -- tú -- e -- or: 
	De -- um ta -- men me -- um 
	  te con -- fí -- te -- or. 
	Fac me ti -- bi sem -- per 
	  ma -- gis cré -- de -- re, 
	In te spem ha -- bé -- re, 
	  te di -- lí -- ge -- re. 
}

verseSix = \lyricmode {
	\set stanza = "6."
	Pi -- e pel -- li -- cá -- ne
	  Je -- su Dó -- mi -- ne,
	Me im -- mun -- dum mun -- da
	  tu -- o sán -- gui -- ne,
	Cu -- jus u -- na stil -- la
	  sal -- vum fá -- ce -- re
	To -- tum mun -- dum quit ab
	  om -- ni scé -- le -- re.
}
%%%%%%%%%%%%%%%%%%%
verseSeven = \lyricmode {
	\set stanza = "7."
	 Je -- su, quem ve -- lá -- tum, 
	  nunc as -- pí -- ci -- o,
	O -- ro fi -- at il -- lud
	  quod tam sí -- ti -- o:
	Ut te re -- ve -- lá -- ta 
	  cer -- nens fá -- ci -- e,
	Vi -- su sim be -- á -- tus
	  tu -- ae gló -- ri -- ae. A -- men.
}

%%%%%%%%%%%%%%%%%%%% SATB voices

global = { 
 \cadenzaOn
 \key d \major
 \set Staff.midiInstrument = "church organ"
}

sopranoFirst = \relative c' { 
  %\once \override Score.SeparationItem #'padding = #2
	d8 fs a a \parenthesize a a[ b] a4 \bar "'"
	g8 fs e d d4 \hb \bar "|"
	d8 fs a a a[ b] a4 \bar "'"
	g8 fs e d d4 \bar "|"

	a'8 a b[ cs] d d[ cs] a4 \bar "'"
	b8 a g fs e4 \hb \bar "|"
	
	fs8 a g fs e[ d] e4 \bar "'"
	fs8 d e d d4 \bar "||"
}

altoFirst = \relative c' {
	d8~ <d~ fs~>8 <d~ fs>4. <d e~>4 <cs e>4 \bar "'"
	d b a \hb \bar "|"
	d~ d~ d~ d~ \bar "'"
	d a~ a \bar "|" 
	
	e' fs4. a4 e \bar "'"
	d b b \hb \bar "|"

	d2~ d2 \bar "'"
	a4~ a~ a \bar "||"
  }

tenorFirst = \relative c' { \clef bass 
	s1 s8 \bar "'" 
	b4 g fs \hb \bar "|"
	a4~ a e fs \bar "'"
	g4~ g fs \bar "|"

	cs' d4. e4 cs \bar "'"
	a4~ a g \hb \bar "|"

	a2 g2~ \bar "'"
	g4 e fs \bar "||" 
 }

bassFirst = \relative c { \clef bass
	s1 s8 \bar "'" 
	s2. \hb \bar "|"
	e4 d~ d~ d~ \bar "'"
	d~ d d \bar "|"

	cs' b4. fs4~ fs~ \bar "'"
	fs e~ e \hb \bar "|"

	b2~ b d4~ d~ d \bar "||"
}
%%%%%%%%%%%%%%%%

sopranoSecond = \relative c' { 
  %\once \override Score.SeparationItem #'padding = #2
	d8 fs a a a[ b] a4 \bar "'"
	g8 fs e d d4 \hb \bar "|"
	d8 fs a a a[ b] a4 \bar "'"
	g8 fs e d d4 \bar "|"

	a'8 a b[ cs] d d[ cs] a4 \bar "'"
	b8 a g fs e4 \hb \bar "|"
	
	fs8 a g fs e[ d] e4 \bar "'"
	fs8 d e d d4 \bar "||"
}

altoSecond = \relative c' {
	d4~ d~ d~ d~ \bar "'"
	d a~ a \hb \bar "|"
	d~ d cs d~ \bar "'"
	d a~ a \bar "|"

	e' d4. e2 \bar "'"
	cs4 d~ d~ \hb \bar "|"

	d~ d b2 \bar "'"
	d4 a~ a \bar "||"
  }

tenorSecond = \relative c { \clef bass 
	fs4 e fs~ fs \bar "'"
	g~ g fs~ \hb \bar "|"
	fs~ fs e fs \bar "'"
	g~ g fs \bar "|"
	
	e fs4. a2~ \bar "'"
	a4~ a g \hb \bar "|"
	
	a4~ a g2 \bar "'"
	a4 g fs \bar "||"
 }

bassSecond = \relative c { \clef bass
	d4~ d~ d cs \bar "'"
	b d~ d \hb \bar "|"
	cs4 b~ b~ b \bar "'"
	b d~ d \bar "|"

	cs b4. a2~ \bar "'"
	a4 b~ b~ \hb \bar "|"

	b d e2 \bar "'"
	d4~ d~ d \bar "||"
}
%%%%%%%%%%%%%%%%
sopranoThird = \relative c' { 
  %\once \override Score.SeparationItem #'padding = #2
	d8 fs a a a[ b] a4 \bar "'"
	g8 fs e d d4 \hb \bar "|"
	d8 fs a a a[ b] a4 \bar "'"
	g8 fs e d d4 \bar "|"

	a'8 a b[ cs] d d[ cs] a4 \bar "'"
	b8 a g fs e4 \hb \bar "|"
	
	fs8 a g fs e[ d] e4 \bar "'"
	fs8 d e d d4 \bar "||"

	d8[ e d] cs4( d4) \bar "||"
}

altoThird = \relative c' {
	d8~ <d~ fs~>8 <d~ fs>4 <d e~>4 <cs e>4 \bar "'"
	d b a \hb \bar "|"
	d~ d~ d~ d~ \bar "'"
	d a~ a \bar "|"

	e' d4. e2 \bar "'"
	cs4 d~ d~ \hb \bar "|"

	d4~ d b2 \bar "'"
	d4 a a \bar "||"

	b4. a2 \bar "||"
  }

tenorThird = \relative c { \clef bass 
	s1 \bar "'" 
	b'4 g fs~ \hb \bar "|"
	fs4 e fs~ fs \bar "'"
	g~ g fs \bar "|"
	
	e fs4. a2~ \bar "'"
	a4~ a g \hb \bar "|"
	
	a~ a g2 \bar "'"
	a4 g fs \bar "||"

	fs4. e4( fs4) \bar "||"
 }

bassThird = \relative c { \clef bass
 	s1 \bar "'" 
	s2. \hb \bar "|"
	d4~ d~ d cs \bar "'"
	b d~ d \bar "|"

	cs b4. a2~ \bar "'"
	a4 b~ b~ \hb \bar "|"
	b d e2 \bar "'"
	d4~ d~ d \bar "||"

	b4. d2 \bar "||"
	
}
%%%%%%%%%%%%%%%%% first harmonization
\score {	
  <<
 \new VaticanaVoice = "chant" {\plainsongFirst }
	\new Lyrics \lyricsto "chant" \verseOne
	\new Lyrics \lyricsto "chant" \verseThree
	\new Lyrics \lyricsto "chant" \verseFive
 \new ChoirStaff <<
 \new Staff = "upper" <<
     \context Voice = sopranos {\voiceOne \global \sopranoFirst }
     \context Voice = altos {\voiceTwo \global \altoFirst }
                      >> 
 \new Staff = "lower" <<
     \context Voice = tenors {\voiceOne \global \tenorFirst }
     \context Voice = bass {\voiceTwo \global \bassFirst }
	              >>
		 >>	  
  >>

\layout {
	indent = 1.0\cm
  ragged-right = ##f
  ragged-last = ##f
  \context { \Score timing = ##f }
  \context { \Score \override TimeSignature #'transparent = ##t }
  \context { \Score \remove "Mark_engraver" }
  \context { \Staff \consists "Mark_engraver" }
  
  
  \context { \VaticanaStaff
           % *** Increases distance between lines of staff  
           \override StaffSymbol #'staff-space = #1.6            
           % *** Changes staff to black instead of default red
           \revert StaffSymbol #'color
           % *** Makes clef bigger       
           \override Clef #'font-size = #3
           % *** Would make ledger lines black, if there were any
           \revert LedgerLineSpanner #'color
           % *** Makes terminal barline visible 
           \override BarLine #'transparent = ##f 
  	   % *** Remove custos
	   \remove Custos_engraver
	   % needed for certain tweaks
	   \consists "Mark_engraver"
           }
     }
}
 
%{ %%This next score block generates the midi, exluding the plainsong voice.
\score {	
 \new ChoirStaff <<
 \new Staff = "upper" <<
     \context Voice = sopranos {\voiceOne \global \soprano }
     \context Voice = altos {\voiceTwo \global \alto }
                      >> 
 \new Staff = "lower" <<
     \context Voice = tenors {\voiceOne \global \tenor }
     \context Voice = bass {\voiceTwo \global \bass }
	              >>
		 >>	  
\midi { 
   \context { \Score tempoWholesPerMinute = #(ly:make-moment 80 2) } }
   
} %%% midi score bracket 
%}


%%%%%%%%%%%second harmonization

\score {	
  <<
 \new VaticanaVoice = "chant" {\plainsongSecond }
	\new Lyrics \lyricsto "chant" \verseTwo
	\new Lyrics \lyricsto "chant" \verseFour
	\new Lyrics \lyricsto "chant" \verseSix
 \new ChoirStaff <<
 \new Staff = "upper" <<
     \context Voice = sopranos {\voiceOne \global \sopranoSecond }
     \context Voice = altos {\voiceTwo \global \altoSecond }
                      >> 
 \new Staff = "lower" <<
     \context Voice = tenors {\voiceOne \global \tenorSecond }
     \context Voice = bass {\voiceTwo \global \bassSecond }
	              >>
		 >>	  
  >>

\layout {
	indent = 1.0\cm
  ragged-right = ##f
  ragged-last = ##f
  \context { \Score timing = ##f }
  \context { \Score \override TimeSignature #'transparent = ##t }
  \context { \Score \remove "Mark_engraver" }
  \context { \Staff \consists "Mark_engraver" }
  
  
  \context { \VaticanaStaff
           % *** Increases distance between lines of staff  
           \override StaffSymbol #'staff-space = #1.6            
           % *** Changes staff to black instead of default red
           \revert StaffSymbol #'color
           % *** Makes clef bigger       
           \override Clef #'font-size = #3
           % *** Would make ledger lines black, if there were any
           \revert LedgerLineSpanner #'color
           % *** Makes terminal barline visible 
           \override BarLine #'transparent = ##f 
  	   % *** Remove custos
	   \remove Custos_engraver
	   % needed for certain tweaks
	   \consists "Mark_engraver"
           }
     }
}


%%%%%%%%%%% third harmonization

\score {
  <<
 \new VaticanaVoice = "chant" {\plainsongThird }
	\new Lyrics \lyricsto "chant" \verseSeven
 \new ChoirStaff <<
 \new Staff = "upper" <<
     \context Voice = sopranos {\voiceOne \global \sopranoThird }
     \context Voice = altos {\voiceTwo \global \altoThird }
                      >> 
 \new Staff = "lower" <<
     \context Voice = tenors {\voiceOne \global \tenorThird }
     \context Voice = bass {\voiceTwo \global \bassThird }
	              >>
		 >>	  
  >>

\layout {
	indent = 1.0\cm
  ragged-right = ##f
  ragged-last = ##f
  \context { \Score timing = ##f }
  \context { \Score \override TimeSignature #'transparent = ##t }
  \context { \Score \remove "Mark_engraver" }
  \context { \Staff \consists "Mark_engraver" }
  
  
  \context { \VaticanaStaff
           % *** Increases distance between lines of staff  
           \override StaffSymbol #'staff-space = #1.6            
           % *** Changes staff to black instead of default red
           \revert StaffSymbol #'color
           % *** Makes clef bigger       
           \override Clef #'font-size = #3
           % *** Would make ledger lines black, if there were any
           \revert LedgerLineSpanner #'color
           % *** Makes terminal barline visible 
           \override BarLine #'transparent = ##f 
  	   % *** Remove custos
	   \remove Custos_engraver
	   % needed for certain tweaks
	   \consists "Mark_engraver"
           }
     }
}