\version "2.11.45"

#(set-default-paper-size "a4")
#(set-global-staff-size 16)
#(ly:set-option 'point-and-click #f)

italicas=\override LyricText #'font-shape = #'italic
rectas=\override LyricText #'font-shape = #'upright
ss=\once \set suggestAccidentals = ##t
incipitwidth = 20


\header {
	title=\markup{\bigger \bigger \bigger \bigger  "Iustorum animæ"}
	composer="William Byrd (c.1543-1623)"
	subtitle="Todos los Santos"
	poet="Gradualia (1605)"
	copyright=\markup{
		\fill-line {"Edited by Nancho Alvarez" \typewriter "http://tomasluisdevictoria.org"}
	}
	%tagline=""
}

global={\key ees \major \time 4/4 \skip 1*38 \bar "|."
}


cantus=\relative c''{
	g2 f ~
	f g
	aes2. g4
	f2 f4 bes ~
	bes g2 bes4 ~
	bes a8 g \ss a!4 a
	bes2 r4 bes
	c2 ees4. des8
	c2 bes4 bes
	ees4 c2 bes4
	aes2 g4 g 
	c bes bes2
	a4 c c c
	b2 c
	R1
	r4 c2 f,4
	c'2 aes ~
	aes4 g g2
	g4. aes8 bes2 ~
	bes r4 c
	\autoBeamOff
	ees8 d c bes aes4 c ~
	c bes aes2
	g2 r
	aes2. g4 
	f1
	f2 bes4. a8
	bes4 g bes d ~
	d c d2
	ees c
	r2 r4 bes ~
	bes a bes c
	bes2 r4 c
	\autoBeamOn
	ees8 d c bes16 aes g4 r
	bes ees8 d c bes aes c
	bes4 c bes ees,8 f
	g2 g4 bes ~
	bes aes8 g f2
	ees\breve*1/2
}

cantusdos=\relative c''{
	r2 bes
	bes bes
	c2. bes4
	bes2 r4 f
	bes2 bes
	c2. c4
	d2 r4 d 
	ees4 c2 bes4
	aes2 g4 g
	c2 ees4. des8
	c2 bes4 bes
	aes4 g f2 
	f r
	r2 r4 ees'4
	ees4 d c2
	c r
	r4 c2 f,4
	c'4 c2 d4
	\autoBeamOff
	ees4 c des8 c bes aes
	g4 bes2 aes4
	g2 f
	r2 r4 c'
	ees8 d c bes aes2
	c2. bes4
	a4 bes2 a4
	bes d2 c4
	d ees d bes ~
	bes a bes4. \ss aes8
	g2 r4 c
	ees1
	c2 r4 g ~
	g f g aes
	\autoBeamOn
	g4 g bes8 aes g f
	ees4 c' ees8 d c bes16 aes
	g2 r4 g
	bes8 aes g f16 ees d2
	r4 ees4 bes'2
	bes\breve*1/2
}

altus=\relative c'{
	ees2 d ~
	d ees 
	ees2. ees4
	d2 d4 d ~
	d ees g2
	c,4 d8 ees f4 f
	f2 f4 f
	aes2. ees4
	ees2 ees4 ees
	ees aes4. aes,8 bes4
	c4 aes r ees'
	ees ees des2
	c4 aes' aes aes
	\autoBeamOff
	g2 g4 aes8 g ~
	g f f2 e4
	f2 aes ~
	aes4 g f c ~
	c g c r
	r ees f2
	ees4 d4. bes8 c4
	r c c4. d8 
	ees f g2 f4 ~
	f e f f ~
	\autoBeamOn
	f ees8 d c d ees d
	c4 bes c8 f4 ees8
	d2 r
	R1
	R
	r4 bes'2 a4
	bes c bes g
	aes8 g f es d4 ees ~
	ees8 \noBeam bes d16[ ees] f4 ees16[ d] c4
	r2 ees4 bes'8 aes
	g f ees4 r c
	ees8 d c bes16 aes g2
	r4 d'2 g4 ~
	g8 f ees2 d4 
	ees\breve*1/2
}

tenor=\relative c'{
	bes2 bes ~
	bes bes 
	aes2. bes4
	bes f bes2
	bes ees4. d8
	f4 f,2 c'4
	bes2 bes
	aes4 aes2 g4
	aes2 ees
	r4 ees' c ees
	ees2 ees4 ees,
	aes ees bes'2
	f4 f' ees f
	d2 e4 c 
	bes bes g2
	a2 c
	f,4 c'2 f4 ~
	f ees8 d ees4 d
	c2 bes
	\autoBeamOff
	bes4. c8 d ees f4
	g8.[ f16] e4 f2
	c1 ~
	c2 f,4 aes
	aes8 bes c d ees4 ees ~
	ees d c2 
	bes r4 f' ~
	f ees f g
	f2 r
	r4 g2 f4 
	g aes g ees
	f2 bes,4 r
	r bes2 aes4
	bes c bes d
	ees1
	ees,
	\autoBeamOn
	r4 g4 bes8 aes g f16 ees
	d4 ees f2 
	g\breve*1/2
}

bassus=\relative c{
	ees2 bes ~
	bes ees
	aes,2. ees'4
	bes1
	bes4 ees2 g4
	f2 f
	bes,1
	R
	r2 bes'2
	aes4 aes2 g4
	aes2 ees
	R1
	r4 f aes f
	g2 c,4 c
	ees bes c2
	f2 f ~
	f4 e f2
	c2. b4 
	c2 r4 d
	\autoBeamOff
	ees8 f g aes bes4 f
	c'2 f,
	R1
	r4 c4 des8 ees f g
	aes2 ees
	f1
	bes,4 bes'2 f4
	bes c bes2
	\autoBeamOn
	r4 f bes8 aes g f
	ees2 f
	ees8 d c d ees2
	r2 r4 ees ~
	ees d ees f
	ees2. bes4
	ees8 d c bes aes2
	r4 c ees8 d c bes16 aes
	g2 g 
	bes1
	ees\breve*1/2
}


textocantus=\lyricmode{
Iu -- sto -- _ rum a -- ni -- mæ 
in ma -- _ nu De -- _ _ _ _ i sunt
et non tan -- get il -- los,
\italicas
et non tan -- get il -- los
\rectas
tor -- men -- tum mor -- tis,
\italicas
tor -- men -- tum mor -- tis:
\rectas
vi -- si sunt o -- _ cu -- lis,
o -- cu -- lis _
in -- si -- pi -- en -- ti -- um mo -- _ _ _ ri
mo -- _ _ ri:
il -- li au -- tem sunt,
il -- _ li au -- tem sunt
il -- _ li au -- tem sunt
in pa -- _ _ _ _ ce
in pa -- _ _ _ _ _ ce,
in pa -- _ _ ce,
in pa -- _ _ _ _ ce.
}

textocantusdos=\lyricmode{
Iu -- sto -- rum a -- ni -- mæ
in ma -- nu De -- i sunt
et non tan -- get il -- los,
\italicas
et non tan -- get il -- los
\rectas
tor -- men -- tum mor -- tis
\italicas
tor -- men -- tum mor -- tis:
\rectas
vi -- si sunt o -- cu -- lis in -- si -- pi -- en -- ti -- um 
mo -- _ _ ri
in -- si -- pi -- en -- ti -- um mo -- _ ri,
mo -- _ ri:
il -- li au -- tem sunt,
\italicas
il -- _ li au -- tem sunt
\rectas
in pa -- ce
il -- _ li au -- tem sunt
in pa -- _ _ _ ce,
in pa -- _ _ _ _ ce
in pa -- _ _ _ _ ce
in pa -- ce.
}

textoaltus=\lyricmode{
Iu -- sto -- _ rum a -- ni -- mæ 
in ma -- _ nu De -- _ _ _ _ i sunt,
et non tan -- get il -- los,
\italicas
et non tan -- get __ _ il -- los
\rectas
tor -- men -- tum mor -- tis,
\italicas
tor -- men -- tum mor -- tis,
\rectas
tor -- men -- _ tum mor -- _ tis:
vi -- _ si sunt o -- _ cu -- lis
in -- si -- pi -- en -- ti -- um
in -- si -- pi -- en -- ti -- um mo -- _ _ ri,
mo -- _ _ _ _ _ _ _ _ _ _ _ _ ri:
il -- li au -- tem sunt
in pa -- _ _ _ ce,
il -- _ li au -- _ _ tem __ _ sunt
in pa -- _ _ _ ce
in pa -- _ _ _ _ ce
in pa -- _ _ _ _ ce.
}

textotenor=\lyricmode{
Iu -- sto -- _ rum
a -- ni -- mæ in ma -- nu De -- i sunt,
De -- i sunt,
et non tan -- get il -- los
tor -- men -- tum mor -- tis,
\italicas
tor -- men -- tum mor -- tis,
\rectas
tor -- men -- tum mor -- tis,
\italicas
tor -- men -- tum mor -- tis:
\rectas
vi -- si sunt o -- _ _ _ _ cu -- lis
in -- si -- pi -- en -- ti -- um mo -- _ _ ri,
mo -- _ ri,
in -- si -- pi -- en -- ti -- um mo -- _ _ _ ri:
il -- _ li au -- tem sunt
il -- li au -- tem sunt in pa -- ce
\italicas
il -- li au -- tem sunt in pa -- ce
\rectas
in pa -- _ _ _ _ _ _ _ ce.
}

textobassus=\lyricmode{
Iu -- sto -- _ rum a -- ni -- mæ
in ma -- nu De -- i sunt
et non tan -- get il -- los
tor -- men -- tum mor -- tis,
\italicas
tor -- men -- tum mor -- tis:
\rectas
vi -- _ si sunt o -- cu -- lis
in -- si -- pi -- en -- ti -- um
mo -- _ ri
in -- si -- pi -- en -- ti -- um mo -- _ ri:
il -- li au -- tem sunt
in pa -- _ _ _ ce,
in pa -- _ _ _ ce
il -- _ li au -- tem sunt in pa -- _ _ _ ce
in pa -- _ _ _ _ ce,
in pa -- ce.
}




incipitcantus=\markup{
	\score{
		{ 
		\set Staff.instrumentName="Cantus I    "
		\override NoteHead   #'style = #'neomensural
		\override Rest #'style = #'neomensural
		\override Staff.TimeSignature #'style = #'neomensural
		\cadenzaOn 
		\clef "petrucci-g"
		\key f \major
		\time 4/4
		a'1 
		} 
	\layout {
		\context {\Voice
			\remove Ligature_bracket_engraver
			\consists Mensural_ligature_engraver
		}
		line-width=\incipitwidth
		indent = 0
	}
	}
}


incipitcantusdos=\markup{
	\score{
		{ 
		\set Staff.instrumentName="Medius"
		\override NoteHead   #'style = #'neomensural
		\override Rest #'style = #'neomensural
		\override Staff.TimeSignature #'style = #'neomensural
		\cadenzaOn 
		\clef "petrucci-g"
		\key f \major
		\time 4/4
		r1 c''1
		} 
	\layout {
		\context {\Voice
			\remove Ligature_bracket_engraver
			\consists Mensural_ligature_engraver
		}
		line-width=\incipitwidth
		indent = 0 
	}
	}
}


incipitaltus=\markup{
	\score{
		{ 
		\set Staff.instrumentName="Contratenor "
		\override NoteHead   #'style = #'neomensural 
		\override Rest #'style = #'neomensural
		\override Staff.TimeSignature #'style = #'neomensural
		\cadenzaOn 
		\clef "petrucci-c2"
		\key f \major
		\time 4/4
		f'1 
		} 
	\layout {
		\context {\Voice
			\remove Ligature_bracket_engraver
			\consists Mensural_ligature_engraver
		}
		line-width=\incipitwidth
		indent = 0 
	}
	}
}


incipittenor=\markup{
	\score{
		{ 
		\set Staff.instrumentName="Tenor         "
		\override NoteHead   #'style = #'neomensural 
		\override Rest #'style = #'neomensural
		\override Staff.TimeSignature #'style = #'neomensural
		\cadenzaOn 
		\clef "petrucci-c3"
		\key f \major
		\time 4/4
		c'1 
		} 
	\layout {
		\context {\Voice
			\remove Ligature_bracket_engraver
			\consists Mensural_ligature_engraver
		}
		line-width=\incipitwidth
		indent = 0 
	}
	}
}


incipitbassus=\markup{
	\score{
		{ 
		\set Staff.instrumentName="Bassus      "
		\override NoteHead   #'style = #'neomensural 
		\override Rest #'style = #'neomensural
		\override Staff.TimeSignature #'style = #'neomensural
		\cadenzaOn 
		\clef "petrucci-f3"
		\key f \major
		\time 4/4
		f1
		} 
	\layout {
		\context {\Voice
			\remove Ligature_bracket_engraver
			\consists Mensural_ligature_engraver
		}
		line-width=\incipitwidth
		indent = 0 
	}
	}
}





\score {
\new ChoirStaff<<

	\new Staff <<\global
	\new Voice="v1" {
		\set Staff.instrumentName=\incipitcantus
		\clef "treble"
		\cantus }
	\new Lyrics \lyricsto "v1" {\textocantus }
	>>

	
	\new Staff <<\global
	\new Voice="v5" {
		\set Staff.instrumentName=\incipitcantusdos
		\clef "treble"
		\cantusdos }
	\new Lyrics \lyricsto "v5" {\textocantusdos }
	>>

	
	\new Staff << \global
	\new Voice="v2" {
		\set Staff.instrumentName=\incipitaltus
		\clef "treble" 
		\altus}
	\new Lyrics \lyricsto "v2" {\textoaltus }
	>>

	
	\new Staff <<\global
	\new Voice="v3" {
		\set Staff.instrumentName=\incipittenor
		\clef "G_8"
		\tenor }
	\new Lyrics \lyricsto "v3" {\textotenor }
	>>
	

	\new Staff <<\global
	\new Voice="v4" {
		\set Staff.instrumentName=\incipitbassus
		\clef "bass" 
		\bassus }
	\new Lyrics \lyricsto "v4" {\textobassus}
	>>
	
>>

\layout{ 
	\context {\Lyrics 
		\override VerticalAxisGroup #'minimum-Y-extent = #'(-0 . 0) 
		\override LyricHyphen #'minimum-distance = #0.33
		%\override LyricText #'font-size = #1.2
	}
	\context {\Score 
		\override BarNumber #'padding = #2 
	}
	\context {\Voice 
		melismaBusyProperties = #'() 
	}
	%\context { \RemoveEmptyStaffContext }
	\context {\Staff 
		\consists Ambitus_engraver 
		\override LigatureBracket #'padding = #1
	}
}

%\midi {}

}


\paper{
	evenHeaderMarkup=\markup  \fill-line { \fromproperty #'page:page-number-string "Iustorum animæ" "Byrd" }
	oddHeaderMarkup= \markup  \fill-line { \on-the-fly #not-first-page "Byrd" \on-the-fly #not-first-page "Iustorum animæ" \on-the-fly #not-first-page \fromproperty #'page:page-number-string }
	%system-count=3
	%line-width=19.0\cm
	ragged-last-bottom = ##f
	indent=4 \cm
	between-system-padding = 0
	foot-separation=2\mm
	head-separation=1\mm
}