\version "2.16.0"

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

mtempo={\tempo 4 = 100}
mtempob={\tempo 4 = 50}

colorclaro=#(rgb-color .8 .8 .8)
coloroscuro=#(rgb-color 0 0 0)

mnon={
\override NoteHead #'color = \colorclaro
\override Stem #'color = \colorclaro
\override Beam #'color = \colorclaro
\override Flag #'color = \colorclaro
\override Dots #'color = \colorclaro
\override Tie #'color = \colorclaro
\override Rest #'color = \colorclaro
\override AccidentalSuggestion #'color = \colorclaro
\override MultiMeasureRest #'color = \colorclaro
}
mnoff={
\override NoteHead #'color = \coloroscuro
\override Stem #'color = \coloroscuro
\override Beam #'color = \coloroscuro
\override Flag #'color = \coloroscuro
\override Dots #'color = \coloroscuro
\override Tie #'color = \coloroscuro
\override Rest #'color = \coloroscuro
\override AccidentalSuggestion #'color = \coloroscuro
\override MultiMeasureRest #'color = \coloroscuro
}

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

htitle="Celsi confessoris"
hcomposer="Guerrero"

\header {
	title=\markup{\fontsize #3 "Celsi confessoris"}
	%subtitle=""
	%subsubtitle=\markup{\column{" " " "}}
	composer=\markup{\right-column{"Francisco Guerrero (1528-1599)" \smaller \raise #1 "Reconstrucción: Michael Noone"}} % tal vez sea de Morales
	%opus="(-)"
	poet=\markup{\smaller "Toledo, Códice 25"} 
	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." "Celsi confessoris festum venerandum: nobis ut est moris adest celebrandum."}} 
\markup{\null \vspace #.7 }
\markup{\larger
\line{\bold "3." "Urbs Toleti gaude prole gloriosa tanti patris laude ubique famosa."}}
\markup{\null \vspace #.7 }
\markup{\larger
\line{\bold "4." "Patrono applaude urbs imperiosa: et præcunctis aude esse preciosa."}}
\markup{\null \vspace #.7 }
\markup{\larger
\line{\bold "5." "Illefonse tuos iuva præsepia: fac iuvet ut suos nos virgo Maria."}}
\markup{\null \vspace #.7 }
\markup{\larger
\line{\bold "6." "Illefonsi Christe decus tuæ laudi instat chorus iste pie hunc exaudi."}}
\markup{\null \vspace #1 }

%tablet \pageBreak


global={\key c \major \time 2/2 \skip 1*27 \bar "||"
}


cantus=\relative c'{
	r2 d
	\[e2 f\]
	g4. a8[ b c] d4
	g,4 d'2 \ss cis4
	d2 g,4. f8
	g4 a4. \ss gis8 gis4
	a2 r
	d1
	\[c2 b
	a1\]
	g2 a
	d,4. e8 f4 e8 d
	e f d2 \ss cis4
	d4 a'2 a4
	f4 d4. e8 f4 ~
	f8 e c d e4 fis
	g2 r4 g
	g e c d
	e1 ~
	e2 d
	r4 d' a c
	g8 a b g a4. b8
	c4 g8 a b c d b
	c2. b4
	a4 g f e
	d d4. \ss cis8 cis4
	d\breve*1/2
}

altus=\relative c'{
	a2 \[b
	c\] d
	r2 d
	e4 f g2 ~
	g4 f2 e4 ~
	e d f e ~
	e8 d c b c4 d
	a2 a'2 ~
	a \[g
	f\] e
	d4 e2 d4 ~
	d8 b d2 c4 ~
	c8 b a4 g4. a8
	bes4 a8 g a2
	R1
	r2 r4 d ~
	d4 d b g
	c4. b8[ a g] a4 ~
	a4 \ss gis a8 b c d
	e f g4. f8 d4
	f4. e8 c4 e ~
	e8 d b4 d2
	c2 b4 \ss gis4
	a e'2 d4
	c4 b a2 ~
	a4 g a2
	a\breve*1/2
}

tenor=\relative c{
	d1
	\[a'1
	b ~ \]
	b2 g
	a4 b c2 ~
	c4 b8 a b2
	a1 ~
	a
	r2 d ~
	d c
	b a
	gis a ~
	a4 f e2
	d1
	d
	\[a'1
	b\]
	g2 \[a2
	b\] c2 ~
	c4 b8 a b2
	a1
	e2 f ~ % ennegrecido f e
	f4 e4 d2
	c4 e \[g2 
	e f ~ \] % ennegrecido f d
	f4 d e2
	d\breve*1/2
}

bassus=\relative c{
	d2 b
	a d
	g,2 g'4. f8
	e4 d e2
	d2 c4. d8
	e4 f d e
	a,2 r4 d ~
	d e f g
	a4 f g2
	a1
	r4 e c d
	b2 a4. b8
	c4 \mnon d \mnoff e4 g ~
	g f8 e f4 a4 ~
	a a f d ~
	d8 e f4 c d
	g, g' g e ~
	e c f2
	e a,4. b8
	c d e f g4. f8
	d2 r
	r2 r4 d
	a c g b
	a2 g
	a d ~
	d4 \ss bes a2
	d\breve*1/2
}

% cambio la colocación del texto, sobre todo en finales de verso
textocantus=\lyricmode{
\set stanza = "2."
Lau -- di -- _ _ _ _ _ _ _ _ _ bus
ca -- _ _ no -- _ _ ris
no -- bis __ _ _ est
ins -- tan -- _ _ _ _ _ _ _ _ dum
de -- bi -- tum ho -- _ _ _ _ _ _ no -- ris
de -- bi -- _ tum ho -- no -- ris
Il -- le -- fon -- _ _ _ _ _ _ _ _ _ _ _ _ _ so
dan -- _ _ _ _ _ _ _ _ dum.
}

textoaltus=\lyricmode{
\set stanza = "2."
Lau -- di -- _ bus
lau -- di -- _ bus
ca -- no -- _ ris,
ca -- _ _ _ _ no -- ris
no -- bis __ _ _ _ _ est __ _ _ 
ins -- _ _ tan -- _ _ _ _ dum
de -- bi -- tum ho -- no -- _ _ _ ris
de -- bi -- _ _ _ _ _ _ _ tum
ho -- _ _ no -- _ _ _ _ _ _ ris
Il -- le -- fon -- so dan -- _ _ dum.
}

textotenor=\lyricmode{
\set stanza = "2."
Lau -- di -- _ bus
ca -- no -- _ _ _ _ ris
no -- bis __ _ _ _ est
ins -- tan -- dum
de -- bi -- _ tum
ho -- _ no -- _ _ ris
Il -- le -- fon -- _ _ _ so
dan -- _ _ _ _ dum.
}

textobassus=\lyricmode{
\set stanza = "2."
Lau -- di -- bus ca -- no -- _ _ _ _ _ ris,
ca -- _ _ no -- _ _ ris
no -- _ bis est
ins -- tan -- _ dum no -- bis est
ins -- tan -- _ _ _ _ _ _ _ dum
de -- bi -- tum ho -- _ _ no -- _ ris,
de -- bi -- tum ho -- no -- _ _ _ _ _ _ _ _ _ ris
Il -- le -- fon -- _ _ _ _ so dan -- _ _ dum.
}


incipitcantus=\markup{
	\score{
		{ 
		\set Staff.instrumentName="Cantus " % Tiple
		\override NoteHead   #'style = #'neomensural
		\override Staff.TimeSignature #'style = #'neomensural
		\cadenzaOn 
		\clef "petrucci-c1"
		\key c \major
		\time 2/2
		d'1
		} 
	\layout { line-width=\incipitwidth indent = 0 }
	}
}

incipitaltus=\markup{
	\score{
		{ 
		\set Staff.instrumentName="Altus    "
		\override NoteHead   #'style = #'neomensural 
		\override Staff.TimeSignature #'style = #'neomensural
		\cadenzaOn 
		\clef "petrucci-c3"
		\key c \major
		\time 2/2
		a1
		} 
	\layout { line-width=\incipitwidth indent = 0 }
	}
}


incipittenor=\markup{
	\score{
		{ 
		\set Staff.instrumentName="Tenor   "
		\override NoteHead   #'style = #'neomensural 
		\override Staff.TimeSignature #'style = #'neomensural
		\cadenzaOn 
		\clef "petrucci-c4"
		\key c \major
		\time 2/2
		d\breve*1/2
		} 
	\layout { line-width=\incipitwidth indent=0 }
	}
}

incipitbassus=\markup{
	\score{
		{ 
		\set Staff.instrumentName="Bassus "
		\override NoteHead   #'style = #'neomensural
		\override Staff.TimeSignature #'style = #'neomensural
		\cadenzaOn 
		\clef "petrucci-f4"
		\key c \major
		\time 2/2
		d1
		} 
	\layout { 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 . 10) (minimum-distance . 0) (padding . 1)) %notablet
		        %tablet #'((basic-distance . 18) (minimum-distance . 0) (padding . 1))
		\consists Ambitus_engraver 
		\override LigatureBracket #'padding = #1
	}
}

%\midi { \mtempo }

}


%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%



global={
 \set Score.currentBarNumber=#28 \bar ""
 \key c \major \time 2/2 \skip 1*31 \bar "||"

}


cantus=\relative c''{
	d,2 \[a'
        b\] g
        \[a b\]
        c4 a c2
        b1
        R1
        r4 c g b ~
        b8 a a2 \ss gis4
        a4 c2 c4
        b4 g8[ a b c] d4 ~
        d8 c d4 a2
        R1
        r4 d b b
        c a4. g8 e f % mn \ss fis
        g8 f e d e4 f
        d4 e a2 ~
        a1 ~
        a2 r
        r e
        \[b'2 c ~ \]
        c4 b a g8 f
        e4 d8[ e f g] a4 ~
        a8 \ss gis gis4 a4. \ss g8
        e4 g2 \ss fis4
        g2 r4 d
        f4 g a f
        e g e g
        e8 f g a b4 g
        a4 d,8[ e f g] a4
        d, a'4. g8 e4
        \ss fis\breve*1/2
}

cantusdos=\relative c'{
	d2 c
        g'4. a8 b4 \ss cis
        d2 d,
        r4 a' a a
        g4 e8 f g a b c
        d4 c d2
        g, r4 g
        d f e2
        c r4 e ~
        e4 e d4. e8
        f g a2 f8 g
        a b c4. b8 a4
        \ss gis8 \ss fis gis a gis4 \mnon gis \mnoff
        a2 r4 a
        b4 b c8 b a g
        f4 e4. d8 d4 ~
        d8 \ss cis8 cis4 d4 d
        a' \ss bes a4. \ss b8 % mn no sugiere bemol
        c2 b4 e, ~
        e8 d d4 c e ~
        e d e4. f8
        g a b g a4 d,
        e2 e ~
        e4 d8 c d4 d'
        b c a2
        R1
        r4 e g e
        g4. f8 d4 e
        d8 e f g a4 f ~
        f8 e d2 \ss cis4
        d\breve*1/2
}

altus=\relative c'{
	s4*0^\markup{"Resolutio"}
	a1
	\[e'
	f2.\] d4 % ennegrecido
	e2. \ss fis4
	g2. f8 e
	f1
	e
	R1
	a
	g
	\[f
	e\]
	d2 e ~
	e c
	b a
	r a
	\[e'2 f\]
	d1
	e4 \ss fis g2 ~
	g4 f \[e2
	f2\] e2
	R1
	b2 \mnon c ~
	c4 b \mnoff a2
	g2 r
	r4 b d b
	c1 ~
	c2 b
	a1 ~
	a ~
	a\breve*1/2
}

tenor=\relative c'{
	s4*0^\markup{\musicglyph #"scripts.usignumcongruentiae" "Canon in diapente"}
	R1*2
	d,1
	\[a'
	b2.\] g4 % ennegrecidos
	a2. b4
	c2. b8 a
	b1
	a
	R1
	d1
	c
	\[b
	a\]
	g2 a ~
	a f
	e d
	r d
	\[a' b\]
	g1
	a4 b c2 ~
	c4 b \[a2
	b\] a
	R1
	e2 \mnon f ~
	f4 e \mnoff d2
	c r
	r4 e g e
	f1 ~
	f2 e
	d\breve*1/2
}

bassus=\relative c{
	d2 f
	e2. e4
	d4. c8 b2
	a1
	e'
	d4 a d2
	c4. d8[ e f] g4 ~
	g8 f d4 e2
	a,4 a'2 a4
	e2 g 
	d4 d4. c8 d4
	a1
	r2 e'
	a,1
	e'2 c4 d ~
	d \ss cis d2
	a r4 a'
	f g a2
	a, e'4. f8
	g2 c,
	r2 r4 c8 d
	e f g4 d f
	e2 a,4. b8
	c4 g d'2
	e4 c d2 ~
	d4 e f2
	g c, ~
	c r
	d1
	d2 a
	d\breve*1/2
}

textocantus=\lyricmode{
\set stanza = "7."
Sit laus __ _ _ pa -- _ _ tri de -- cus
laus pa -- tri __ _ de -- _ cus
na -- ti % to
par __ _ _ _ _ his __ _ u -- nus
na -- _ ti par his __ _ _ _ _ _ _ _ _ _ u -- _ nus
spi -- ri -- _ tus __ _ _ _ _ his __ _ _ _ _ _ _ 
e -- _ _ _ _ quus
fe -- rat ut his __ _ 
u -- _ _ _ _ _ _ _ _ _ nus.
A -- _ _ _ _ _ _ _ _ men.
}

textocantusdos=\lyricmode{
\set stanza = "7."
Sit laus pa -- _ _ tri
de -- cus
sit laus pa -- tri __ _ _ _ _ _ _ _ _ de -- cus
laus pa -- tri de -- cus
na -- ti par __ _ _ _ _ his __ _ _ _ _ _ _ _ _ _ _ _ u -- nus
na -- ti par __ _ _ _ _ _ his __ _ u -- _ _ nus
spi -- ri -- tus his __ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _
e -- _ _ quus, __ _ e -- quus __ _
fe -- rat ut his __ _ _ _ _ _ _ _ 
u -- nus. __ _ 
A -- _ men.
}

textoaltus=\lyricmode{
\set stanza = "7."
Sit laus __ _ _ pa -- tri
de -- _ _ _ cus
na -- ti par __ _ _ his u -- nus __ _ 
spi -- ri -- _ tus
his __ _ _ _ 
e -- _ quus
his e -- _ _ quus
fe -- rat his u -- num.
A-men.
}

textotenor=\lyricmode{
\set stanza = "7."
Sit laus __ _ _ pa -- tri
de -- _ _ _ cus
na -- ti par __ _ _ his u -- nus __ _ 
spi -- ri -- _ tus
his __ _ _ _ 
e -- _ quus
his e -- _ _ quus
fe -- rat his u -- num.
A-men.
}

textobassus=\lyricmode{
\set stanza = "7."
Sit laus __ _ 
pa -- tri __ _ de -- cus 
laus __ _ _ pa -- tri __ _ _ _ de -- _ _ _ cus
na -- ti __ _
par __ _ his __ _ u -- nus
na -- ti
par __ _ his __ _ u -- nus
spi -- ri -- tus his e -- _ _ _ quus
fe -- _ _ _ _ _ _ rat
ut __ _ his __ _ _ _ _ 
u -- _ _ _ nus.
A -- men, a -- men.
}


\score {\transpose c' c'{
\new ChoirStaff<<

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

        \new Staff <<\global
	\new Voice="v5" {
		\set Staff.instrumentName="Cantus II"
		\clef "treble"
		\cantusdos }
	\new Lyrics \lyricsto "v5" {\textocantusdos }
	>>
	
	\new Staff <<\global
	\new Voice="v2" {
		\set Staff.instrumentName="Altus"
		\clef "G_8"
		\altus }
	\new Lyrics \lyricsto "v2" {\textoaltus }
	>>
	
	\new Staff <<\global
	\new Voice="v3" {
		\set Staff.instrumentName="Tenor"
		\clef "G_8"
		\tenor }
	\new Lyrics \lyricsto "v3" {\textotenor }
	>>

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

	} % transpose

\layout{ 
        indent=1.7\cm
	\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 . 10) (minimum-distance . 0) (padding . 1)) %notablet
		        %tablet #'((basic-distance . 18) (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=8
	%page-count = 3
	systems-per-page = 3
	ragged-last-bottom = ##f
	indent=3.4\cm
	system-system-spacing =
	#'((basic-distance . 18) (minimum-distance . 0) (padding . 5))
	top-system-spacing = % header
	#'((basic-distance . 8) (minimum-distance . 0) (padding . 0))
	last-bottom-spacing = % footer
	#'((basic-distance . 12) (minimum-distance . 0) (padding . 0))
	%top-markup-spacing #'basic-distance = 0
	%markup-system-spacing #'basic-distance = 20
	score-system-spacing =
	#'((basic-distance . 18) (minimum-distance . 0) (padding . 0))
	

}