\version "2.18.0"

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

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

htitle="Iste Confessor"
hcomposer="Victoria"

\header {
	title=\markup{\fontsize #4 "Iste Confessor"}
	subtitle="In festo Confessorum"
	subsubtitle=\markup{\column{" " " " " "}}
	composer="Tomás Luis de Victoria (c.1548-1611)"
        pdfauthor=\composer
	%opus="(-)"
	poet="1581a,  1600b"
	copyright=\markup{
		\fill-line {"Transcribed and edited by Nancho Alvarez" \typewriter "http://tomasluisdevictoria.org"}
	}
%	tagline=""
}


\score {\transpose c c {
<<
         \new Voice = "canto" {
                 \override Staff.TimeSignature.stencil = #'()
                 \override Stem.transparent = ##t
                 \set Score.timing = ##f
                 \override NoteHead.style = #'neomensural         
                 \clef "G_8" 
                 \key a \minor
                 \override LigatureBracket.padding = #1
                 \[g4 a g\] e f g g a g a b c' g \bar "|"
                 c' a c' \[b g\] a a g e f g g \bar "|"
                 g e g \[f e d\] c g g a b a g \bar "|"
                 \[a b c' b a g\] a b a g  \bar "||" 
         }
         \new Lyrics \lyricsto "canto" {
         	 \set stanza = "1."
         	 I -- _ _ ste Con -- fes -- sor Do -- mi -- ni sa -- cra -- tus 
         	 Fe -- sta plebs cu -- _ ius ce -- le -- brat per or -- bem
         	 Ho -- di -- e læ -- _ _ tus me -- ru -- it se -- cre -- ta 
         	 Scan -- _ _ _ _ _ de -- re cæ -- li.
         }
         \new Lyrics \lyricsto "canto" {
         	 \set stanza = "3."
         	Ad __ _ _ sa -- crum cu -- ius tu -- mu -- lum fre -- quen -- ter
         	Mem -- bra lan -- guen -- _ tum mo -- do sa -- ni -- ta -- ti
         	Quo -- li -- bet mor -- _ _ bo fu -- e -- rint gra -- va -- ta
         	Res -- _ _ _ _ _ ti -- tu -- un -- tur. 
         }
         \new Lyrics \lyricsto "canto" { % esta estrofa no aparece en el original
         	 \set stanza = "5."
         	 \italicas
         	Sit _ _ sa -- lus il -- li de -- cus at -- que vir -- tus
         	Qui su -- pra cæ -- _ li re -- si -- dens ca -- cu -- men % coelis
         	To -- ti -- us mun -- _ _ di ma -- chi -- nam gu -- ber -- nat
         	Tri -- _ _ _ _ _ nus et u -- nus.
         }
>>
        }%transpose

\layout {
	\context {\Lyrics
                \override VerticalAxisGroup.nonstaff-nonstaff-spacing =
                #'((basic-distance . 0) (minimum-distance . 0) (padding . 1.5))
        }
        %line-width=16\cm 
        indent=1.0\cm
        %ragged-right = ##f
}
}


%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%5


global={\key c \major \time 2/2  \skip 1*36 \bar "||" \pageBreak
	\override Score.TimeSignature.break-visibility = #'#(#f #t #t)
				\time 2/2 \skip 1*30  \bar "|."

}

cantus={
	\[g'2 a'\]
	g' e'4 f'
	g'2 g'
	R1*4/4
%5
	r2 r4 a' ~
	a' gis' a'2
	b' c''
	b' r
	r r4 g' ~
%10
	g' g' e'2
	f'4 e' d'2
	c'4 c''2 b'4
	g' a' b' c''
	b'2 r4 c'' ~
%15
	c'' b' g' b'
	a'4. d'8 f'4 g' 
	a' f' e'4. d'16 c'
	d'2 c'4 g'
	e' g' d'4. e'8
%20
	f' g' a' f' g'4 e'
	f'1
	e'4 g'2 g'4
	a' b' a'2
	g'1
%25
	r2 \[a'
	b' c'' ~ \]
	c''4 b' a' g'
	a' b' a'2
	g' r
%30
	R1*4/4
	r2 \[a'
	b' c'' ~ \]
	c''4 b' a' g'
	fis' g' fis'8 d' a'4 ~ % segundo fa también sostenido?
%35
	a'8 g' g'2 fis'4
	g'\breve*1/2
	r2 \[g'
	a'\] g'
	e'4 f' g'2
%40
	g' r
	R1*4/4
	r4 a'2 gis'4
	a'2 b'
	c''1
%45
	g'2 r
	R1*4/4
	r4 c'' c'' a'
	bes'2 a'
	r4 a'2 g'4
%50
	e' f' g'2
	g' r
	R1*4/4
	r4 g' e' g'
	f' e' d' c'
%55
	d'2 c'
	R1*4/4
	R1*4/4
	g'2. g'4
	a' b' a'2
%60
	g' r
	r \[a'
	b' c'' ~ \]
	c''4 b' a' g'
	a' b' a' g' ~
%65
	g' fis'8 e' fis'2
	g'\breve*1/2
}

altus={
	R1*4/4
	R1*4/4
	\[d'2 e'\]
	d' b4 c'
%5
	d' e' d'4. c'8
	b2 c'4 a
	e2 r
	r4 e'2 a4
	d' e' d'2
%10
	e' r4 c'
	c' c' d'8 e' f' d'
	e'2 a4 e' ~
	e' d' b a
	\[b2 c'4.\] d'8
%15
	e'4 d'8 c' d'2
	d4 d'2 c'4
	a b c'8 g c'4 ~
	c' b c'2
	r4 c' b d'
%20
	a8 b c' d' e'4 c' ~
	c' b8 a b2
	c'4 e'4. e'8 e'4
	f' g'2 fis'4
	g'8 f' e' d' c'4 b
%25
	a g d d'
	b g a8 b c' d'
	e' f' g' e' f'4 e'
	f'8 d' g'2 fis'4
	g'2 r
%30
	R1*4/4
	r2 r4 d'
	b g a8 b c' d'
	e'4 d' e'2
	d'4 c' d'2 ~
%35
	d'1
	d'\breve*1/2
	\[d'2 e'\]
	d' b4 d'
	c'2. b8 a
%40
	b2 a
	d'4. c'8 d'4 e'
	f'2. e'8 d'
	c'4 d' b e' ~
	e' c' e' f'
%45
	e'2. c'4
	d'2 cis'4 e'
	e' c' e' f'
	g'2. f'8 e'
	f'4 e'4. c'8 d'4
%50
	c' a r e' ~
	e' d' b c'
	d' g a8 b c' d'
	e'2 c'
	R1*4/4
%55
	r2 r4 c'
	a c' b c' ~
	c' b c' e' ~
	e' c' e'2
	f'4 g'2 fis'4
%60
	g' d' e' f'
	g'2. f'8 e'
	d'4 g'2 f'4
	e' d' f' g'
	f' d' fis' g'
%65
	a' d'4. c'16 b a4
	b\breve*1/2
}

tenor={
	R1*4/4
	\[g2 a\]
	g e
	f g
%5
	g r
	r r4 a ~
	a gis a2
	b c'
	g1
%10
	r4 c'2 c'4
	a2 bes
	a r
	r r4 a ~
	a g e f
%15
	g2 g
	R1*4/4
	r2 g ~
	g e
	g1
%20
	\[f2 e
	d1\]
	c
	R1*4/4
	g2. g4
%25
	a b a2
	g r
	R1*4/4
	r2 \[a
	b2 c' ~ \]
%30
	c'4 b a g
	a b a2
	g r4 a ~
	a b c'4. b8
	a4 g a2
%35
	b a
	g\breve*1/2
	R1*4/4
	R1*4/4
	r2 \[d'
%40
	e'\] d'
	b4 g b4. c'8
	d'2 b
	r4 a2 gis4
	a4. b8 c'4 a
%45
	c'4. b16 a g4 a ~
	a g a c'
	c' a c' d'
	\[g2 d'\]
	a r
%50
	r r4 c' ~
	c' b g a
	b c'4. b8 a4
	g2 r4 c'
	a c' b c' ~
%55
	c' b c' c
	d e f g
	f2 g
	r4 c'2 e'4
	d' b c' d'
%60
	g2 r4 a
	b c' d'4. c'8
	b a g f e4 a
	g b c'4. b8
	a4 g a b
%65
	a1
	g\breve*1/2
}

bassus={
	R1*4/4
	R1*4/4
	R1*4/4
	\[d2 e\]
%5
	b,4 c \[d2
	e\] a,
	r r4 a ~
	a gis a c'
	b c'2 b4
%10
	c'2 r
	R1*4/4
	r4 a2 g4
	e f g a 
	e4.  d8[ c b,] a,4 
%15
	g,2 r4 g ~ 
	g f d e
	f d c4. b,16 a,
	g,2 c ~
	c r
%20
	r r4 g
	f d f2
	g r
	R1*4/4
	r4 e4. e8 e4
%25
	f g2 fis4
	g2 r
	R1*4/4
	r2 r4 d
	b, g, a,8 b, c d
%30
	e f g e f4 e
	f8 d g2 fis4
	g g f8 g a b
	c'4 g c2
	d4 e d4. c8
%35
	b,4 g, d2
	g,\breve*1/2
	R1*4/4
	r2 \[g
	a\] g
%40
	e fis
	g g
	d4. c8 d4 e
	\[f2 e\]
	a,1
%45
	r4 c c a,
	bes,2 a,
	R1*4/4
	r2 r4 d ~
	d c a, b,
%50
	c d e c
	g, g2 f4
	d e f2
	c1
	R1*4/4
%55
	g2 e4 g
	f e d c
	d2 c
	R1*4/4
	R1*4/4
%60
	R1*4/4
	r2 r4 d ~
	d e2 f4
	g2 f4 e
	f g d g, % d g d g, Pedrell?
%65
	d1
	g,\breve*1/2
}

textocantus=\lyricmode{
\set stanza = "2."
Qui __ _ _ pi -- us pru -- dens % en 1600b Qui _ pi -- us _
hu -- _ mi -- lis pu -- di -- cus
So -- _ bri -- us ca -- _ _ stus,
fu -- it et qui -- e -- _ tus
fu -- _ it et qui -- e -- _ _ _ _ _ _ _ _ _ tus,
Vi -- ta dum præ -- _ _ _ _ _ _ _ _ sens,
ve -- ge -- ta -- vit e -- ius
Cor -- _ _ _ _ _ _ po -- ris ar -- tus
cor -- _ _ _ _ _ _ po -- ris ar -- _ _ _ _ _ _ tus.
\set stanza = "4."
Un -- _ _ de nunc no -- ster
cho -- rus in ho -- no -- rem
I -- psi -- us hy -- mnum
ca -- nit hunc li -- ben -- ter
Ut pi -- is e -- _ _ _ _ ius
me -- ri -- tis iu -- ve -- mur
Om -- _ _ _ _ _ _ ne per æ -- _ _ _ _ _ vum.
}

textoaltus=\lyricmode{
\set stanza = "2."
Qui __ _ _ pi -- us pru -- _ _ _ _ _ _ dens
hu -- mi -- lis
pu -- di -- cus
So -- bri -- us ca -- _ _ _ _ stus,
fu -- _ it et qui -- e -- _ _ _ _ _ _ tus,
fu -- it et qui -- e -- _ _ _ _ tus
Vi -- ta dum præ -- _ _ _ _ _ _ _ _ _ sens,
ve -- ge -- ta -- vit e -- _ _ _ _ _ _ _ _ _ ius,
Cor -- po -- ris ar -- _ _ _ _ _ _ _ _ _ _ _ _ _ tus
cor -- po -- ris ar -- _ _ _ _ _ _ _ _ _ _ tus. 
\set stanza = "4."
Un -- _ _ de nunc no -- _ _ _ ster,
cho -- rus in ho -- no -- _ _ _ _ rem,
cho -- _ rus in ho -- no -- _ _ rem, % \italic en 1600b
I -- psi -- us hy -- _ _ _ _ _ _ _ _ _ mnum
ca -- _ nit hunc li -- ben -- _ _ _ _ _ _ ter
Ut pi -- is e -- _ _ _ ius me -- _ ri -- tis iu -- ve -- _ mur,
Om -- ne per æ -- vum, __ _ _  
om -- ne per __ _ æ -- _ vum,
om -- ne per æ -- _ _ _ _ vum.
}

textotenor=\lyricmode{
\set stanza = "2."
Qui __ _ _ pi -- us % en 1600b Qui _ pi _ us
pru -- dens hu -- _ mi -- lis pu -- di -- cus
So -- bri -- us ca -- stus
fu -- _ it et qui -- e -- tus
Vi -- _ ta dum præ -- _ _ sens ve -- ge -- ta -- vit e -- ius
Cor -- _ _ _ _ _ _ po -- ris ar -- tus
cor -- _ _ _ _ _ _ po -- ris ar -- tus.
\set stanza = "4."
Un -- _ _ de nunc no -- _ _ ster cho -- rus in __ _ _ ho -- no -- _ _ _ _ _ _ rem,
I -- psi -- us hy -- _ _ _ mnum ca -- _ nit hunc li -- ben -- _ _ _ ter
Ut pi -- is e -- _ _ _ ius,
ut pi -- is e -- _ _ ius
me -- ri -- tis iu -- ve -- _ mur
Om -- ne per æ -- _ _ _ _ _ _ _ vum,
om -- ne __ _ _ per æ -- _ _ vum.
}

textobassus=\lyricmode{
\set stanza = "2."
Qui __ _ pi -- us pru -- _ dens
hu -- _ mi -- lis pu -- di -- _ _ cus
fu -- it et qui -- e -- _ _ _ _ _ _ tus
fu -- _ it et qui -- e -- _ _ _ _ _ tus _
Vi -- ta dum præ -- sens ve -- ge -- ta -- vit e -- _ ius
Cor -- po -- ris ar -- _ _ _ _ _ _ _ _ _ _ _ _ _ tus,
cor -- po -- _ _ _ _ ris ar -- _ _ _ _ _ _ _ tus.
\set stanza = "4."
Un -- _ _ de nunc no -- ster,
cho -- rus in ho -- no -- _ rem
I -- psi -- us hy -- mnum
ca -- _ nit hunc li -- ben -- _ _ _ ter,
\italicas ca -- nit hunc li -- ben -- ter \rectas
Ut pi -- is e -- _ _ _ _ ius
Om -- _ ne per æ -- vum,
om -- ne per æ -- _ _ vum. % italicas en 1600b
}

incipitcantus=\markup{
	\score{
		{ 
		\set Staff.instrumentName="Cantus "
		\override NoteHead.style = #'neomensural
		\override Staff.TimeSignature.style = #'neomensural
		\cadenzaOn 
		\clef "petrucci-c1"
		\key c \major
		\time 2/2
		\[g'1 a'\]
		} 
	\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 Staff.TimeSignature.style = #'neomensural
		\cadenzaOn 
		\clef "petrucci-c3"
		\key c \major
		\time 2/2
		\[d'1 e'\]
		} 
	\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 Staff.TimeSignature.style = #'neomensural
		\cadenzaOn 
		\clef "petrucci-c4"
		\key c \major
		\time 2/2
		\[g1 a\]
		} 
	\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 Staff.TimeSignature.style = #'neomensural
		\cadenzaOn 
		\clef "petrucci-f4"
		\key c \major
		\time 2/2
		\[d1 e\]
		} 
	\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 
		\override BarNumber.padding = #2 
	}
	\context {\Voice 
		melismaBusyProperties = #'()
		%autoBeaming = ##f
	}
	%\context { \Staff \RemoveEmptyStaves }
	\context {\Staff 
		\override VerticalAxisGroup.staff-staff-spacing =
			#'((basic-distance . 12) (minimum-distance . 0) (padding . 1))
		\consists Ambitus_engraver 
		\override LigatureBracket.padding = #1
	}
}

%\midi {}

}


\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.3\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 = 5
	markup-system-spacing #'basic-distance = 20

}