\version "2.18.0"

#(set-default-paper-size "a4")
#(set-global-staff-size 17.0)
#(ly:set-option 'point-and-click #f)
%mobile -s15.5 -i3.0

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

htitle="Ad cænam Agni providi"
hcomposer="Guerrero"

\header {
	title=\markup{\fontsize #3 "Ad cænam Agni providi"}
	subtitle="Dominica in albis"
	subsubtitle=\markup{\null \vspace #2 }
	composer="Francisco Guerrero (1528-1599)"
        pdfauthor=\composer
	poet=\markup{"Liber vesperarum, Roma 1584"}
	copyright=\markup{
		\fill-line {"Edited by Nancho Alvarez" \typewriter "http://tomasluisdevictoria.org"}
	}
%	tagline=""
}
%tablet \markup{\null \vspace #4 }
\markup{\null \vspace #1 }
\markup{\larger
\line{\bold "1." "Ad cænam Agni providi et stolis albis candidi, post transitum maris Rubri Christo canamus principi."}} 
\markup{\null \vspace #1 }
\markup{\larger
\line{\bold "3." "Protecti paschæ vespero a devastante angelo, erepti de durissimo Pharaonis imperio."}}
\markup{\null \vspace #1 }
\markup{\larger
\line{\bold "5." "O vera, digna hostia, per quam franguntur tartara, captiva plebs redimitur, redduntur vitæ præmia."}}
\markup{\null \vspace #1 }
\markup{\larger
\line{\bold "6." "Consurgit Christus tumulo, victor redit de barathro, tyrannum trudens vinculo et paradisum reserans."}}
\markup{\null \vspace #1 }
\markup{\larger
\line{\bold "7." "Esto perenne mentibus paschale, Iesu, gaudium, et nos renatos gratiæ tuis triumphis aggrega."}}
\markup{\null \vspace #1 }
\markup{\larger
\line{\bold "8." "Iesu, tibi sit gloria, qui morte victa prænites, cum Patre et almo Spiritu, in sempiterna sæcula."}}
\markup{\null \vspace #1 }
%faltan estrofas de polifonia? 

%tablet \pageBreak

global={\key c \major \time 2/2 \skip 1*28 \bar "||" \pageBreak
				\skip 1*30 \bar "|." }

cantus=\relative c''{
	R1
	g1
	c2 b4 g ~
	g8 a b4 a8 b c a
	b c d b c4 a ~
	a gis a2
	r4 a2 f4
	d g4. f8 e d
	e4 c2 c'4
	b d4. c8 b a
	g4 a8[ g f e] d4 ~
	d cis d2 ~
	d r
	r r4 d'
	c a b8 a g a
	b c d b c4 f,
	g f8[ e f g] a4 ~
	a8 g g2 \ss fis4
	g2 \[b
	d\] c
	b4 d4. c8 b4
	a2 b ~
	b4 a8 g a4 g
	r4 g2 f4 ~
	f e g g
	f8 g a f g a b c
	d4 g,2 fis4
	g\breve*1/2
	R1
	g1
	\[c2 b\]
	\[a2 g\]
	b \[c
	d\] c ~
	c4 b a2 ~
	a1
	r2 \[a
	b\] g ~
	g1
	\[e2 f\]
	g1 g
	\[e2 f\]
	e2 d
	\[d e\]
	g \[g
	e\] g
	\[g a ~ \]
	a4 \[c2 b4 ~ \]
	b4 a b2
	\[b2 d\]
	\[c2 b\]
	\[a g\]
	b \[a
	b\] g
	a1
	g ~
	g\breve*1/2
}

altus=\relative c'{
	r4 d2 d4
	e2 d4 d
	e c d8 c b a
	g4 g'2 fis4
	g4. g8 e4 f ~
	f e c e ~
	e c a d ~
	d8 c b a b4 c
	g a a2
	r4 b d d
	e c d a ~
	a8 g a4 f2
	r4 f'e c 
	d e4. d8 b4
	c4 c d2 ~
	d r4 d
	g, a a2
	d4 d2 d4
	d2 r4 g ~
	g f2 e4
	g2 d4 g ~
	g8 \ss fis16 e fis!4 g4. \ss f16 e
	d8 e f4. c8 e4
	d2 r4 d
	c2 b
	d4 c e d8 c 
	b a b c d2
	d\breve*1/2
	R1*2
	c2 \[g'2
	f\] \[e 
	d\] f ~
	f4 g a2 ~
	a4 g f2
	e2 r
	\[e f\]
	d d4 d ~
	d e2 d4 ~
	d c a d ~
	d8 c b a b a g f
	e4 e'4. d8 d4 ~
	d cis d2
	r4 g,2 g'4 ~
	g g g4. f8
	e8 d c4. b16 a b4
	c g4. a8 b c
	d4 e a, f'4 ~
	f e8 d c4 d
	d1
	\[d2 f\]
	e4 e4. e8 d4
	d a b2
	d e4 d ~
	d d d e ~
	e d8 c d2
	e1
	d\breve*1/2
}

tenor=\relative c'{
	g1
	\[c2 b\]
	\[a g\]
	b \[c
	d\] c
	b a
	r \[a
	b\] g
	e2. f4
	g2 \[g
	e\] f
	e d
	\[d e\]
	g \[g
	e\] g
	\[g a\]
	c1
	\[b2 a\]
	b1
	R1
	\[b1
	d ~ \]
	d2 \[c 
	b\] a ~
	a4 g2 b4
	\[a2 b\]
	\[g a\]
	g\breve*1/2
	g1
	\[c2 b\]
	a4 g4. a8 b c
	d4 c4. g8 c4
	b4 b a2
	r4 d e e
	f d2 c8 b
	c4 a8[ b c a] d4 ~
	d cis d2
	R1*2
	r2 r4 d,
	g g g4. a8
	b4 c4. b8 g4
	a a d, a'
	g c2 b8 a
	b2 c ~
	c4 e d4. d8
	c2 d4 d
	b c4. b8 a g
	f4 g a8 e g4 ~
	g fis g2
	r4 g d8 e f g
	a4 g8 f g2
	d2 d'4. c8 
	b a g2 fis4
	g4. a8 b4 c ~
	c8 b a g a2
	c4 c2 b4
	b\breve*1/2
}

bassus=\relative c'{
	R1*2
	r2 r4 g ~
	g4 g a2
	g4 g a8 g f e
	d4 e a,2
	a'2 f4 d
	g4. f8[ e d] c4 ~
	c8 b a g a2
	g r4 g
	c a d4. d8
	a4 a d2
	r4 d c a
	b c4. b8 g4
	a a g2
	r4 g' f d
	e f4. e8 f4
	g2 d
	g,4 g' g g
	d d8[ e f g] a4
	g1
	r2 g ~
	g4 f2 e4
	\[g2 d4.\] e8
	f4 c8[ d e f] g4
	d f e g ~
	g8 \noBeam f e4 d2
	g,\breve*1/2
	r2 c ~
	c g'
	f4 c8[ d e f] g4
	d4 f \[c2
	g'\] f
	bes a4 a
	f g d8 e f g
	a4. g8 f4 d
	a'2 r4 d,
	g g g4. a8
	b4 c4. b8 g4
	a a d,2
	R1*2
	r2 \[d
	e\] g
	g, c ~
	c4 c g g
	c2 r4 g'
	g c, f4. e8 
	d4 c8 b a4 g
	d' d g,2 ~
	g r4 d'
	a8 b c d e f g4 ~
	g fis g g, ~
	g8 a b4 c d
	g, g'2 e4
	f2 f4 f
	c2 e
	g\breve*1/2
}

textocantus=\lyricmode{
\set stanza = "2."
Cu -- ius cor -- pus __ _ _ san -- _ _ _ _ _ _ _ _ ctis -- si -- mum
in a -- ra cru -- _ _ _ _ cis tor -- ri -- dum, __ _ _ _ _ 
tor -- _ _ _ _ ri -- dum
cru -- o -- re e -- _ _ _ _ _ _ _ _ ius ro -- _ _ _ _ _ _ _ se -- o,
gu -- _ stan -- do vi -- _ vi -- mus De -- _ _ _ o
gu -- stan -- do vi -- vi -- mus __ _ _ _ _ _ _ _ _ De -- _ o.
\set stanza = "4."
Iam pa -- _ scha __ _ no -- strum __ _ Chri -- stus est
qui __ _ im -- mo -- _ la -- tus a -- _ gnus est,
sin -- _ ce -- ri -- _ ta -- tis __ _ a -- _ zi -- ma,
ca -- _ ro __ _ e -- _ ius o -- _ bla -- ta est.
}

textoaltus=\lyricmode{
\set stanza = "2."
Cu -- ius cor -- pus san -- ctis -- si -- mum, __ _ _ _ _
cu -- ius cor -- pus san -- ctis -- si -- mum,
in a -- ra cru -- _ _ _ _ cis tor -- ri -- dum
in a -- ra cru -- cis tor -- _ _ ri -- dum
cru -- o -- re e -- ius __ _ _ ro -- se -- o
cru -- o -- re e -- ius ro -- se -- o
gu -- stan -- do vi -- vi -- mus __ _ _ _ De -- _ _ _ _ _ _ _ o
gu -- stan -- do vi -- vi -- mus De -- _ _ _ _ _ _ o.
\set stanza = "4."
Iam pa -- _ scha __ _ no -- strum Chri -- _ stus est
qui __ _ im -- mo -- la -- tus a -- gnus est,
qui __ _ _ _ im -- _ _ _ mo -- la -- tus a -- gnus est
sin -- ce -- ri -- ta -- _ _ _ _ _ _ _ tis a -- _ _ _ _ zi -- ma,
a -- _ _ _ zi -- ma,
ca -- _ ro e -- ius o -- bla -- ta est
ca -- ro e -- ius o -- bla -- _ _ _ ta est.
}

textotenor=\lyricmode{
\set stanza = "2."
Cu -- ius __ _ cor -- _ pus san -- _ ctis -- si -- mum
in __ _ a -- ra __ _ cru -- cis __ _ tor -- ri -- dum,
cru -- _ o -- re __ _ e -- ius __ _ ro -- se -- _ o
gu -- _ stan -- _ do vi -- vi -- mus __ _ De -- _ o.
\set stanza = "4."
Iam pa -- _ scha no -- _ _ _ _ strum __ _ _ Chri -- stus est
iam pa -- scha no -- strum __ _ _ _ Chri -- _ _ _ _ stus est
qui im -- mo -- la -- _ _ tus __ _ _ a -- gnus est,
sin -- ce -- ri -- _ _ _ ta -- tis a -- zi -- ma,
sin -- ce -- ri -- ta -- _ _ _ _ tis a -- _ _ zi -- ma
ca -- ro __ _ _ _ _ e -- _ _ ius,
ca -- _ _ _ _ ro e -- _ _ ius __ _ _ _ _ o -- bla -- ta est.
}

textobassus=\lyricmode{
\set stanza = "2."
Cu -- ius cor -- pus san -- ctis -- _ _ _ si -- mum,
in a -- ra cru -- _ _ _ _ _ _ _ _ _ cis
in a -- ra cru -- cis tor -- ri -- dum
cru -- o -- re e -- ius __ _ _ ro -- se -- o
cru -- o -- re e -- ius __ _ _ ro -- se -- o,
gu -- stan -- do vi -- vi -- _ _ _ _ mus
gu -- stan -- do vi -- _ _ _ vi -- _ _ _ _ mus De -- o,
vi -- vi -- mus De -- o.
\set stanza = "4."
Iam pa -- scha no -- _ _ _ _ strum Chri -- stus __ _ est,
iam pa -- scha no -- strum Chri -- _ _ _ _ _ _ stus est
qui im -- mo -- la -- _ _ tus __ _ _ a -- gnus est
sin -- _ ce -- ri -- ta -- tis a -- zi -- ma
sin -- ce -- ri -- ta -- _ _ _ _ _ tis a -- zi -- ma
ca -- ro __ _ _ _ _ _ _ e -- ius o -- _ _ bla -- ta est,
ca -- ro e -- ius o -- bla -- ta est.
}

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

incipitaltus=\markup{
	\score{
		{ 
		\set Staff.instrumentName="Altus   "
		\override NoteHead.style = #'neomensural
		\override Rest.style = #'neomensural
		\override Staff.TimeSignature.style = #'neomensural
		\cadenzaOn 
		\clef "petrucci-c3"
		\key c \major
		\time 2/2
		d'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-c4"
		\key c \major
		\time 2/2
		g\breve
		} 
	\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-f4"
		\key c \major
		\time 2/2
		g1
		} 
	\layout {
		\context {\Voice
			\remove Ligature_bracket_engraver
			\consists Mensural_ligature_engraver
		}
		line-width=\incipitwidth
		indent=0
	}
	}
}



\score {\transpose c' c'{
\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="v2" {
		\set Staff.instrumentName=\incipitaltus
		\clef "G_8"
		\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 }
	>>
	
>>

	}%transpose

\layout{ 
	\context {\Lyrics 
		\override VerticalAxisGroup.staff-affinity = #UP
		\override VerticalAxisGroup.nonstaff-relatedstaff-spacing =
			#'((basic-distance . 0) (minimum-distance . 0) (padding . 1))
		\override LyricText.font-size = #1.2
		\override LyricHyphen.minimum-distance = #0.5
	}
	\context {\Score 
		tempoHideNote = ##t
		\override BarNumber.padding = #2 
	}
	\context {\Voice 
		%melismaBusyProperties = #'()
		%autoBeaming = ##f
	}
	\context {\Staff 
                %\RemoveEmptyStaves
                %\override VerticalAxisGroup.remove-first = ##t
		\override VerticalAxisGroup.staff-staff-spacing =
			#'((basic-distance . 11) (minimum-distance . 0) (padding . 1))
		\consists Ambitus_engraver 
		\override LigatureBracket.padding = #1
	}
}

%\midi { \mtempo }

}


\paper{
	evenHeaderMarkup=\markup  \fill-line { \fromproperty #'page:page-number-string \htitle \hcomposer }
	oddHeaderMarkup= \markup  \fill-line { \on-the-fly #not-first-page \hcomposer \on-the-fly #not-first-page \htitle \on-the-fly #not-first-page \fromproperty #'page:page-number-string }
	%system-count=20
	%page-count = 8
	ragged-last-bottom = ##f
	indent=3.5\cm
	system-system-spacing =
	#'((basic-distance . 20) (minimum-distance . 0) (padding . 5))
	top-system-spacing = % header
	#'((basic-distance . 9) (minimum-distance . 0) (padding . 0))
	last-bottom-spacing = % footer
	#'((basic-distance . 12) (minimum-distance . 0) (padding . 0))
	markup-system-spacing.padding = #1.5
}