\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 -ball

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

htitle="Quodcumque vinclis"
hcomposer="Victoria"

% La polifonía es igual a Petrus Beatus

\header {
	title=\markup{\fontsize #4 "Quodcumque vinclis"}
	subtitle="In Cathedra Sancti Petri"
	subsubtitle=\markup{\column{\smaller "[Same music as «Petrus Beatus»]" " " " "}}
	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
                 f4 e d \[c d e\] e \bar ";" % el original hay barra, pero es el mismo verso
                 e f g f d \[c d\] d \bar "|" \break
                 f \[g a\] a \[g a\] \[d c\] f \[g a\] g f d e e \bar "|"
                 g a c' c' a a c' g g e \[f g\] g \bar "|" \break
                 g \[a b\] a \[g a\] a \bar ";" a c' g \[g e\] f e \[d e\] \bar "|" % en Petrus beatus hay una barra
                 c d e f d e f \[g a\] g \[f e\] \[d e\] e 
                 \bar "||"
         }
         \new Lyrics \lyricsto "canto" {
         	 \set stanza = "1."
         	 Quod -- cum -- que vin -- _ _ clis
         	 su -- per ter -- ram strin -- xe -- _ ris
         	 E -- rit __ _ in a -- _ stris __ _ re -- li -- _ ga -- tum for -- ti -- ter
         	 Et quod re -- sol -- vis in ter -- ris ar -- bi -- tri -- _ o
         	 E -- rit __ _ so -- lu -- _ tum su -- per cæ -- li __ _ ra -- di -- um __ _
         	 In fi -- ne mun -- di iu -- dex e -- _ ris sæ -- _ cu -- _ li.
         }
>>
        }%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
}
}

%tablet \pageBreak

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

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

}

cantus={
	R1*4/4
	r2 f'
	e'4 d' \[c'2
	d'4.\] e'8 f'2
%5
	g'4 c''2 b'4
	a' g'2 f'4
	e'1
	e' 
	R1*4/4
%10
	r4 e' f' g' ~
	g' e' a'4. g'8
	a' b' c''2 b'8 a'
	b'4 g' a'8 g' f' e'
	f'4 d'2 cis'4
%15
	d'2 f' 
	\[g' a' ~ \]
	a'4 a' g'2
	f'4. g'8 a'2
	R1*4/4
%20
	r4 f' g'2
	a' g'
	f'4. e'8 d'4 d'
	c' c''2 b'4
	a'2 g'
%25
	a'4. g'8 a'4 f' 
	e'2. e'4
	c'8 d' e' f' g'2 ~
	g' r
	r4 g' a' c''
%30
	c''2. a'4
	g'2 r4 a' ~
	a' a' f' d'
	e'  c'8[ d' e' f'] g'4 ~
	g' e' d'2
%35
	r a'4. a'8
	g'4 e' g'2 ~
	g'4 fis'8 e' fis'4 fis'
	g'1
	R1*4/4
%40
	r4 g' e' g'
	f'8 e' a'2 g'4 % petrus sol sostenido, quodcumque sol natural, en 1600b natural
			% sol sostenido choca con si bemol
	a'2 r
	r4 a'2 e'4
	g' d' f'8 g' a' b'
%45
	c''4 a' g' c'' ~
	c'' b'8 a' b'4 g'
	a'2. a'4
	g' e' f' g'
	f'2 e'4 e'
%50
	c' f'4. g'8 a' b'
	c''4. b'8[ a' g'] f'4
	d' e'2 d'4
	e'2 r4 a' ~
	a' gis' a'8 b' c''4 ~
%55
	c''4 b' a'2 ~ a'4 gis'8 \ss fis' 
	gis'\breve*1/4
}

altus={
	R1*4/4
	c'2 b4 a
	g2 a4 c' ~
	\set Staff.autoBeaming = ##f
	c'8 c' b4 a f
	\set Staff.autoBeaming = ##t
%5
	c'2 f4 f' ~
	f' e' d'2
	c' b
	r4 b2 c'4 
	d'2 b4 e' ~
%10
	e'8 d' c' b c'4 b8 a
	b4 c'4. d'8 e'4
	c' a d'2 ~
	d'4 b c'8 b a g
	a4 bes2 a4
%15
	a2 r4 d'
	c' b a8 g a b 
	c' f f'2 e'4
	f'2 r4 f'
	e' d' c'2
%20
	c' r4 c' ~
	c' d' e' c'
	d'8 c' c'2 b4
	c'2 r
	c'2. b4
%25
	d' a d'2
	c'4 b8 a b4 b
	a c' d' e'
	d'8 c' d' e' f'2
	e' r4 c'
%30
	e' g' c'4. d'8
	e' f' g'2 f'4
	e'  d'8[ c' d' e'] f'4
	e'2 r4 c' ~
	c' c' b g
%35
	b c'4. a8 d'4
	b c'2 b4
	d'1
	r4 d' b d'
	c' b c'2 ~
%40
	c'4 b8 a b4 c'
	d'1
	e'2 r4 d' ~
	d' a c'4. b16 a
	g4 g a8 b c' d'
%45
	e' c' f'2 e'4
	d'4. c'8 d'4 e' ~
	e' d'8 c' d'4 d'
	e'2 r4 c'
	a b2 c'4 ~
%50
	c' a2 f4
	g a2 d4
	a2. a4
	a8 b c' d' e'4 a
	b2 c'
%55
	a4 b c' c'
	b\breve*1/2
}

tenor={
	R1*4/4
	R1*4/4
	R1*4/4
	f1
%5
	e2 d
	\[c d
	e1\]
	e
	R1*4/4
%10
	R1*4/4
	e1
	f2 g ~
	g f
	d e
%15
	d1
	R1*4/4
	R1*4/4
	f1
	\[g2 a ~ \]
%20
	a4 a g2
	f r
	r4 f g2
	a2. g4
	\[f2 e
%25
	d2.\] d4
	e1
	r2 g ~
	g a
	c' c' ~
%30
	c' a
	r a ~
	a1
	c'
	g2. g4
%35
	\[e2 f
	g1
	a2.\] a4
	g1
	R1*4/4
%40
	g1
	\[a2 bes\]
	a \[g
	a\] a
	r a ~
%45
	a c'
	g2. e4
	f2. f4
	e2 r4 c
	d2 e
%50
	f d4 d
	e2 f ~
	f4 e f f
	e1 ~
	e ~
%55
	e ~
	e\breve*1/2 
}

bassus={
	f2 e4 d
	\[c2 d\]
	\[e f4.\] e8
	d1
%5
	c2 r
	r4 c' b a
	g a2 gis8 \ss fis
	\ss gis2 r4 e
	f g2 e4 % en Petrus beatus fa sostenido, en Quodcumque fa natural
			% en 1600b natural. Es más lógico natural. 
%10
	a2. g8 f
	e d c b, a,2 ~
	a,4 a, g,2 ~
	g, r4 d ~
	d8 c bes, a, g,4 a,
%15
	d2 r
	R1*4/4
	R1*4/4
	r2 d
	c4 b, a,8 g, a, b,
%20
	c8 f, f2 e4 
	f2 r 
	R1*4/4
	r4 f2 g4
	a f g2 ~
%25
	g4  f8[ e f g] a4 ~
	a gis8 \ss fis gis4 gis
	a2 r
	r r4 f
	a c' f8 g a b
%30
	c'4 c f4. e8
	c2 d
	r4 d2 d4
	c a, c2 ~
	c4 c g, g ~
%35
	g g f d
	e c \[e2
	d2.\] d4
	g,2 r4 g
	e g f e8 d
%40
	e1
	d2 r
	r4 a e g
	d8[ e f g a b] c'4 ~
	c' b c'4. b8
%45
	a4 f c2
	R1*4/4
	R1*4/4
	r4 c d e
	f2 g
%50
	a4. g8 f4 d
	c a, d2 ~
	d4 cis d d
	a,1
	e,2 a,4 a, ~
%55
	a, gis, a, a,
	<e e,>\breve*1/2 % en 1600b no hay nota aguda
}

textocantus=\lyricmode{
\set stanza = "2."
Glo -- ri -- a De -- _ _ _ o, % En el breviario: Gloria Patri
glo -- ri -- a De -- _ _ o
per im -- men -- _ sa sæ -- _ _ _ _ _ _ _ _ _ _ _ _ _ _ cu -- la:
Sit ti -- _ _ bi na -- te __ _ _ % breviario: "nate" mayúscula en Quodcumque, minúscula en Petrus
de -- cus et im -- pe -- _ _ ri -- um,
de -- cus et im -- pe -- _ _ _ _ ri -- um __ _ _ _ _ _ 
Ho -- nor po -- te -- _ stas
San -- _ cto -- que Spi -- ri -- _ _ _ _ _ _ tu -- i
San -- cto -- que Spi -- ri -- _ _ _ _ tu -- i:
Sit Tri -- ni -- ta -- _ _ _ ti 
sa -- lus in -- di -- vi -- _ _ _ _ du -- a,
in -- _ _ _ _ di -- vi -- du -- a,
Per in -- fi -- ni -- ta sæ -- cu -- lo -- _ _ _ _ _ _ _ _ rum
sæ -- cu -- la
sæ -- _ cu -- lo -- _ _ _ rum sæ -- _ cu -- _ la.
}

textoaltus=\lyricmode{
\set stanza = "2."
Glo -- ri -- a De -- o,
glo -- _ ri -- a De -- _ _ o,
\italicas glo -- _ ri -- a De -- o \rectas
per im -- men -- sa sæ -- _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ cu -- la:
sit ti -- bi na -- _ _ _ _ _ _ _ te
sit ti -- bi na -- te
de -- _ cus et im -- pe -- _ _ ri -- um
de -- cus et im -- pe -- _ _ _ _ ri -- um,
Ho -- nor po -- te -- _ _ _ _ stas
ho -- nor po -- te -- _ _ _ _ _ _ _ _ _ _ _ stas
San -- _ cto -- que Spi -- ri -- _ _ _ _ _ tu -- i:
Sit Tri -- ni -- ta -- _ _ _ _ _ _ _ _ ti sa -- _ lus 
in -- _ _ _ di -- vi -- _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ du -- a
Per in -- fi -- ni -- _ ta sæ -- cu -- lo -- rum sæ -- cu -- la, __ _ _ _ _ 
sæ -- cu -- lo -- _ \italicas rum \rectas sæ -- cu -- la. % en 1581a rum __ _, en 1600b _ rum
}

textotenor=\lyricmode{
\set stanza = "2."
Glo -- ri -- a De -- _ _ o
per im -- men -- _ sa sæ -- cu -- la:
sit ti -- _ _ bi na -- te
de -- cus et im -- pe -- _ _ ri -- um
Ho -- _ nor po -- te -- _ stas
San -- _ cto -- que Spi -- ri -- _ _ _ tu -- i:
Sit Tri -- _ ni -- ta -- _ ti
sa -- _ lus in -- di -- vi -- du -- a
Per in -- fi -- ni -- ta sæ -- cu -- lo -- _ rum sæ -- cu -- la. _ _ _ 
}

textobassus=\lyricmode{
\set stanza = "2."
Glo -- ri -- a De -- _ _ _ _ _ o
glo -- ri -- a De -- _ _ _ o
per im -- men -- sa sæ -- _ _ _ _ _ _ _ _ cu -- la _
sæ -- _ _ _ _ _ cu -- la:
sit ti -- bi na -- _ _ _ _ _ _ _ te
de -- cus et im -- pe -- _ _ _ _ _ _ _ _ _ _ ri -- um
Ho -- nor po -- te -- _ _ _ _ _ _ _ _ stas
San -- cto -- que Spi -- ri -- _ tu -- i,
\italicas San -- _ cto -- que Spi -- ri -- _ _ _ tu -- i: \rectas
Sit Tri -- ni -- ta -- _ _ _ ti sa -- lus in -- di -- _ _ _ _ _ _ _ _ vi -- _ _ du -- a
Per in -- fi -- ni -- ta sæ -- _ _ cu -- lo -- rum sæ -- _ _ _ cu -- la,
sæ -- cu -- lo -- _ rum sæ -- cu -- la.
}

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
		f'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
		c'1
		} 
	\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
		f\breve
		} 
	\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
		f1
		} 
	\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 
		\override BarNumber.padding = #2 
	}
	\context {\Voice 
		melismaBusyProperties = #'()
		%autoBeaming = ##f
	}
	%\context { \Staff \RemoveEmptyStaves }
	\context {\Staff 
		\override VerticalAxisGroup.staff-staff-spacing =
			#'((basic-distance . 11) (minimum-distance . 0) (padding . 1))
		\consists Ambitus_engraver 
		\override LigatureBracket.padding = #1
	}
}

%\midi {}

}

%tablet \pageBreak

\score {\transpose c c {
<<
         \new Voice = "amen" {
         	 \set Staff.instrumentName=
                        \markup{\score {{
                        \override NoteHead.style = #'neomensural  
                        \override Staff.TimeSignature.stencil = #'() 
                        \override Staff.TimeSignature.stencil = #'() 
                        \clef "petrucci-f4" % debería ser f3, como el otro canto llano? 
                        \key c \major 
                        \set Staff.instrumentName = "                        " 
                        b,4 } 
                        \layout{line-width = 5.5\cm indent= 4\cm }
                        }}
                 %\override Staff.TimeSignature.stencil = #'()
                 \override Staff.TimeSignature.transparent = ##t
                 \override Stem.transparent = ##t
                 \set Score.timing = ##f
                 \override NoteHead.style = #'neomensural         
                 \clef "G_8" 
                 \key a \minor
                 \override LigatureBracket.padding = #1
         	 \key a \minor
         	 \clef "G_8"
         	 d4 e % el original pone b4 c , pero seguramente hay un error de claves
         	 \bar "||" }
	 \new Lyrics \lyricsto "amen" {
	A -- men.
	}
>>
        }%transpose
        
\layout {
	\context {\Lyrics
                \override VerticalAxisGroup.nonstaff-nonstaff-spacing =
                #'((basic-distance . 0) (minimum-distance . 0) (padding . 1.5))
        }
        line-width=11\cm 
        indent=7.5\cm
        ragged-right = ##f
}

}

\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 . 20) (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

}