\version "2.18.0"

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

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

htitle="Tibi Christe splendor patris"
hcomposer="Victoria"

\header {
	title=\markup{\larger \larger \larger \larger "Tibi Christe splendor patris"}
	subtitle=\markup{\column{"De Sancto Michaele" " " " " }}
	composer="Tomás Luis de Victoria (c.1548-1611)"
        pdfauthor=\composer
	%opus="(-)"
	poet="1581a,  1600b"
	copyright=\markup{
		\fill-line {"Edited by Nancho Alvarez" \typewriter "http://tomasluisdevictoria.org"}
	}
%	tagline=""
}

\score {\transpose c' d'{
<<
         \new Voice = "canto" {
                 \set Staff.instrumentName=
                        \markup{\score {{
                        \override NoteHead.style = #'neomensural  
                        \override Staff.TimeSignature.stencil = #'() 
                        \override Staff.TimeSignature.stencil = #'() 
                        \clef "petrucci-f3" 
                        \key c \major % el canto llano parece transportado
                        d4 } 
                        \layout{line-width = 33}
                        }}
                 \override Staff.TimeSignature.stencil = #'()
                 \override Stem.transparent = ##t
                 \set Score.timing = ##f
                 \override NoteHead.style = #'neomensural         
                 \clef "G_8" 
                 \key c \major 
	d4 d d c f e d c \bar "|"
	f g a f g a \[a g\] \bar "|" \break
	f g a g \[f e\] \[f g f\] d d \bar "|"
	g f f d e d c \bar "|" \break
	c d f d e f g f \bar "|"
	a g \[f e\] \[f g f\] d c d 
        \bar "||" 
}
\new Lyrics \lyricsto "canto" {
\set stanza = "1."
Ti -- bi Chri -- ste splen -- dor pa -- tris
vi -- ta vir -- tus cor -- di -- um __ _
In con -- spe -- ctu an -- _ ge -- _ _ lo -- rum
vo -- tis vo -- ce psal -- li -- mus
Al -- ter -- nan -- tes con -- cre -- pan -- do
me -- los da -- _ mus __ _ _ vo -- ci -- bus.
}
\new Lyrics \lyricsto "canto"{
\set  stanza = "3."
Quo cu -- sto -- de pro -- cul pel -- le
rex Chri -- ste pi -- is -- si -- me __ _
Om -- ne ne -- fas i -- _ ni -- _ _ mi -- ci
mun -- do cor -- de~et cor -- po -- re
Pa -- ra -- di -- so red -- de tu -- o
nos so -- la __ _ cle -- _ _ men -- ti -- a.
}
        
>>
        }%transpose

\layout {
	\context{\Lyrics
		\override VerticalAxisGroup.minimum-Y-extent = #'(-1.2 . 1.5)
	}
        ragged-right = ##f
        indent=2.0\cm
        %system-count=2
}
}

%tablet \pageBreak

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



global={\key f \major \time 2/2  \skip 1*38 \bar "||"  \break
	\override Score.TimeSignature.break-visibility = #'#(#f #t #t)
				\time 3/4 \skip 1*3/4*34 \bar "|."

}

cantus={
	g'2. g'4
	g'2 f'
	bes' g'4 d'' ~
	d''8 c'' bes'2 a'4
%5
	bes' d''2 c''4
	bes'1
	a'4 f'2 d'4
	d''4. e''8 f''2
	e''4 c''2 b'4
%10
	c''2 a' ~
	a' bes'
	c'' a'
	bes' f'4 bes' ~
	bes' a' bes'2
%15
	R1*4/4
	R1*4/4 %\pageBreak
	R1*4/4
	c''2. bes'4
	bes'2 g'
%20
	a' g'
	f'4 f'' d'' bes'
	d''2 c'' ~
	c'' c''
	a' bes' ~
%25
	bes' c''
	d'' c''4 c'' ~
	c'' b' c'' g'
	r f' g' bes'
	a' d''4. c''8 bes'4
%30
	a' bes'2 a'4
	bes' d'' c'' bes' ~
	bes'8 a' f' g' a'4 bes'
	c'' a' bes'2
	R1*4/4
%35
	r2 r4 d'' ~
	d'' c'' bes' a'
	bes' g'2 fis'4
	g'\breve*1/2
	 \once \override TextScript.X-offset = #-3.7
        \once \override TextScript.padding = #2
        s4*0^\markup{\raise #.5 \musicglyph #"timesig.mensural34" \smaller \smaller \smaller \column {\raise #.9 3 \raise #1.2 2}}
	g'4 bes' bes'
%40
	c''2 d''4
	c'' bes'2
	a' r4
	d''2 c''4
	a'2 d''4
%45
	c''2 b'4
	c''2 r4
	bes'2 c''4
	d''2 c''4
	\[bes' a'\] c''
%50
	d''4. bes'8 d''4
	c''4. bes'8 c''4
	b'2 r4
	c''2 d''4
	d''2 c''4
%55
	\[a' bes'\] g'
	c''2 r4
	R1*3/4
	R1*3/4
	R1*3/4
%60
	R1*3/4
	R1*3/4
	d''2 c''4
	\[bes' a'\] c''
	\[d'' c''\] \[d''
%65
	bes'\] c'' a'
	bes' r r
	d''2 c''4
	bes' a'2
	bes'4. g'8 a'4
%70
	bes' d'' bes'
	c'' a'2
	b'\breve*3/8
}

altus={
	R1*4/4
	r2 d' ~
	d'4 d' d'2
	bes \[c'
%5
	d'\] bes4 f' ~
	f' e'8 d' e'2
	f' r4 f' ~
	f' g' a' f'
	g'2. d'4
%10
	e'2 r4 c'4 ~
	c' d'2 e'4 ~
	e' c' d' f'
	e' d'8 c' d'4 e'
	f'2 r4 f'
%15
	g' a'2 g'4
	a' e' g' f'8 e'
	d'2 e'4 g' ~
	g' f' e' d'
	g'4. a'8 bes'4 g' ~
%20
	g'8 f' f'2 e'4
	f'2 r4 g'
	bes'2 a'4 f'
	e'8 c' f'2 e'4
	f'2 r4 f'
%25
	g' bes' a' g' ~
	g' f' f'4. g'8
	a'4 f'2 e'4
	d'4. c'8 d'4 e'
	f'2 d'4 e'
%30
	f'1
	f'2 r
	r4 a'2 g'4
	f' e'  g'8[ f']  f'[ e'16 d']
	e'4 e' d' g'
%35
	e' fis' g' g
	bes c' d'2 ~
	d'4 ees' d'2 ~
	d'\breve*1/2
	g'4 g' g'
%40
	a'2 f'4
	f'2 e'4
	f'2 r4
	f' g' a' ~
	a' f' g' ~
%45
	g'8 f' f'4 d'
	e'2 r4
	g'2 a'4
	bes'2 g'4
	f'2 g'4
%50
	bes'8 f' bes'4. a'8
	g'2 fis'4
	g'2 r4
	g'2 bes'4
	bes'2 a'4
%55
	f' g'2
	a' r4
	a' g'2
	f' g'4
	f'2 e'4
%60
	f'4.  e'8[ d' c']
	bes4 c'2
	bes4 d' e'
	f'2 g'4 ~
	g' a'4. g'8
%65
	g'2 fis'4
	g' r r
	R1*3/4
	g'2 f'4
	\[ees' d'\] f'
%70
	\[g' a'4.\] g'8
	g'2 fis'4
	g'\breve*3/8
}

tenor={
	R1*4/4
	R1*4/4
	R1*4/4
	R1*4/4
%5
	R1*4/4
	bes1
	c'2 d'
	bes c' ~
	c' d'
%10
	c'1
	R1*4/4
	R1*4/4
	bes1
	c'2 d' ~
%15
	d'4 c' \[bes2
	a\] bes ~
	bes c'4. bes8
	a2 g
	R1*4/4
%20
	r2 c' ~
	c'4 bes bes2
	g a ~
	a g
	f r
%25
	R1*4/4
	r2 f ~
	f g
	bes g
	a bes
%30
	c'4 d' c'2
	bes r
	d'1
	c'2 \[bes
	a\] \[bes
%35
	c'2.\] bes4
	g2. fis4
	g4. a8 bes4 a
	g\breve*1/2
	d'4 d' d'
%40
	f'2 f'4
	f bes2
	c' r4
	d'2 e'4
	f'2 d'4
%45
	e' f'2
	g' r4
	R1*3/4
	d'2 e'4
	f'2 e'4
%50
	\[f' g'\] f'
	e' c'2
	d' r4
	e'2 f'4
	f' g'4. f'8
%55
	f'2 e'4
	f'2 r4
	f' e'2
	d' bes4
	\[c' d'\] c'
%60
	\[bes a\] \[bes
	g\] \[ees f\]
	bes2 r4 % notacion negra
	d'2 c'4
	\[bes a\] bes
%65
	g a2
	g4 c' g
	g'4. e'8 \ss fis'4 % notacion negra ( no entiendo)
	g' d'2
	g4 r r
%70
	\[g' fis'\] g'
	ees' d'2
	d'\breve*3/8
}

bassus={
	R1*4/4
	R1*4/4
	g2. g4
	g2 f
%5
	bes2. a4
	g1
	f2 r4 bes ~
	bes g f2
	c g4. g8
%10
	c2 f ~
	f g
	a f
	g4. a8 bes4 g
	f2 bes,4 bes ~
%15
	bes c' d' bes
	c' c' d'4. c'8
	bes a g4 c2
	r r4 g ~
	g ees ees2
%20
	f c4. c8
	f4 bes, bes g ~
	g bes f8 g a bes
	c'4 f c2
	r4 f g bes ~
%25
	bes g a c'
	bes2. a8 g
	f4 d c2
	bes,4 bes2 g4
	f d g g
%30
	f1
	bes,4 bes a g ~
	g8 f d e f4 g
	a a g d' ~
	d' c' bes g
%35
	a2 g4. f8
	\[ees2 d\]
	g4 c d2
	g\breve*1/2
	g4 g g
%40
	f2 bes4
	a g2
	f r4
	bes2 c'4
	d'2 bes4
%45
	c' d'2
	c' r4
	R1*3/4
	bes2 c'4
	d'2 c'4
%50
	\[bes g\] bes
	c'8 bes a g a4
	g2 r4
	c'2 bes4 % estos 3 compases en notacion negra
	bes g a ~
%55
	a g2
	f r4
	f g2
	bes g4
	\[a bes\] c'
%60
	\[d' c'4.\] bes8
	bes2 a4
	bes2 r4
	R1*3/4
	R1*3/4
%65
	d'2 c'4 % sera d'4 c'2 ?
	\[bes4 a\] bes
	g a2
	g4 r r
	g2 f4
%70
	\[ees d\] ees
	c d2
	g\breve*3/8
}

textocantus=\lyricmode{
\set  stanza = "2."
Col -- lau -- da -- mus ve -- ne -- ran -- _ _ _ _ tes, % collaudemus?
ve -- ne -- ran -- tes,
o -- mnes cæ -- _ _ li mi -- li -- tes:
Sed _ præ -- ci -- pu -- e pri -- ma -- _ _ tem
cæ -- le -- stis ex -- er -- ci -- tus, % e xer
\italicas
cæ -- le -- stis ex -- er -- _ ci -- tus, 
\rectas
Mi -- _ cha -- e -- lem in _ vir -- tu -- te
Mi -- cha -- e -- lem in __ _ _ vir -- tu -- _ te,
con -- te -- ren -- _ _ _ _ _ tem Za -- bu -- lon
con -- _ te -- ren -- _ tem  Za -- bu -- lon.
\set  stanza = "4."
Glo -- ri -- \italicas am \rectas Pa -- tri me -- lo -- dis % Gloria en el original, melodiis?
per so -- ne -- mus vo -- ci -- bus:
Glo -- ri -- am Chri -- sto __ _ ca -- na -- _ _ _ _ _ mus
glo -- ri -- am Pa -- ra -- _ cli -- to: % Paracleto?
ex -- tat an -- _ te sæ -- _ _ _ _ cu -- la
\italicas
ex -- tat an -- te sæ -- cu -- _ la,
\rectas
an -- te sæ -- cu -- la.
}

textoaltus=\lyricmode{
\set  stanza = "2."
Col -- _ lau -- da -- mus ve -- _ ne -- ran -- _ _ _ _ tes
o -- _ mnes cæ -- li mi -- li -- tes:
Sed _ præ -- ci -- _ pu -- e pri -- ma -- _ _ _ _ tem
sed præ -- ci -- pu -- e pri -- ma -- _ _ _ tem,
cæ -- _ le -- stis ex -- er -- _ _ _ _ _ _ ci -- tus
cæ -- le -- stis ex -- er -- _ _ ci -- tus
Mi -- cha -- e -- lem in _ vir -- tu -- _ _ _ _ _ _ _ _ _ _ _ _ te
con -- te -- ren -- tem Za -- _ _ _ _ _ bu -- lon,
con -- te -- _ ren -- tem Za -- _ _ _ bu -- lon. _
\set  stanza = "4."
Glo -- ri -- \italicas am \rectas Pa -- tri me -- lo -- dis
per -- so -- ne -- _ mus vo -- _ _ _ ci -- bus:
Glo -- ri -- am Chri -- sto ca -- na -- _ _ _ _ _ mus
glo -- ri -- am Pa -- ra -- cli -- to:
Qui tri -- nus et u -- nus De -- _ _ _ _ _ us,
ex -- tat an -- te _ sæ -- _ _ cu -- la
ex -- tat an -- _ te sæ -- _ _ _ cu -- la.
}

textotenor=\lyricmode{
\set  stanza = "2."
O -- mnes cæ -- li mi -- _ li -- tes:
Sed præ -- ci -- _ pu -- e __ _ pri -- _ ma -- _ _ tem
cæ -- _ le -- stis ex -- er -- _ ci -- tus
Mi -- _ cha -- e -- lem in vir -- tu -- _ _ te
con -- te -- ren -- _ tem __ _ _ Za -- _ _ _ _ bu -- lon.
\set  stanza = "4."
Glo -- ri -- \italicas am \rectas Pa -- tri me -- lo -- dis
per -- so -- ne -- mus vo -- ci -- bus:
Glo -- ri -- am Chri -- sto __ _ ca -- na -- _ mus
glo -- ri -- am Pa -- ra -- cli -- _ to: 
Qui tri -- nus et u -- _ nus De -- _ _ _ _ _ us
ex -- tat an -- _ te sæ -- cu -- la,
\italicas
ex -- tat an -- te __ _ sæ -- cu -- la
\rectas
an -- _ te sæ -- cu -- la.
}

textobassus=\lyricmode{
\set  stanza = "2."
Col -- lau -- da -- mus ve -- ne -- ran -- tes
o -- _ mnes cæ -- li mi -- li -- tes:
Sed _ præ -- ci -- pu -- e __ _ _  pri -- ma -- tem,
\italicas
sed _ præ -- ci -- pu -- e pri -- ma -- _ _ _ _ tem
\rectas
cæ -- _ le -- stis ex -- er -- ci -- tus,
\italicas
cæ -- le -- stis _ ex -- er -- _ _ _ _ ci -- tus
\rectas
Mi -- cha -- e -- _ lem in vir -- tu -- _ _ _ _ _ te,
Mi -- cha -- e -- lem in vir -- tu -- te,
con -- te -- ren -- _ _ _ _ _ tem Za -- bu -- lon,
con -- _ te -- ren -- _ tem Za -- _ _ _ _ _ bu -- lon.
\set  stanza = "4."
Glo -- ri -- \italicas am \rectas Pa -- tri me -- lo -- dis
per -- so -- ne -- mus vo -- ci -- bus:
Glo -- ri -- am Chri -- sto __ _ ca -- na -- _ _ _ _ mus
glo -- ri -- am Pa -- ra -- _ cli -- to:
Qui tri -- nus et u -- _ nus De -- _ _ _ _ us
ex -- tat an -- _ te sæ -- cu -- la
ex -- tat an -- _ te sæ -- cu -- la.
}


incipitcantus=\markup{
	\score{
		{ 
		\set Staff.instrumentName="Cantus "
		\override NoteHead.style = #'neomensural
		\override Rest.style = #'neomensural
		\override Staff.TimeSignature.style = #'neomensural
		\cadenzaOn 
		\clef "petrucci-g"
		\key f \major
		\time 2/2
		g'1.
		} 
	\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-c2"
		\key f \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-c3"
		\key f \major
		\time 2/2
		bes\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-f3"
		\key f \major
		\time 2/2
		g1.
		} 
	\layout {
		\context {\Voice
			\remove Ligature_bracket_engraver
			\consists Mensural_ligature_engraver
		}
		line-width=\incipitwidth
		indent = 0
	}
	}
}





\score {\transpose c' a{
\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 = #'() 
	}
	%\context { \Staff \RemoveEmptyStaves }
	\context {\Staff 
		\override VerticalAxisGroup.staff-staff-spacing =
			#'((basic-distance . 10) (minimum-distance . 0) (padding . 1))
		\consists Ambitus_engraver 
		\override LigatureBracket.padding = #1
	}
}

%\midi {}

}

%tablet \pageBreak

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


\score {\transpose c' a{
<<
         \new Voice = "canto" {
                 \override Staff.TimeSignature.stencil = #'()
                 \override Stem.transparent = ##t
                 \set Score.timing = ##f
                 \override NoteHead.style = #'neomensural         
                 \clef "G_8" 
                 \key f \major 
        g4 a g 
        \bar "||" 
}
\new Lyrics \lyricsto "canto" {
A -- _ men.
}
       
>>
        }%transpose

\layout {
        ragged-right = ##f
        indent=7.5\cm
        %tablet indent = 5.5\cm
        line-width = 11.5\cm
        %tablet line-width=11\cm
        %system-count=2
}
}

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


\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
	%line-width=19.0\cm
	ragged-last-bottom = ##f
	indent=3.5\cm
	score-system-spacing =
	#'((basic-distance . 22) (minimum-distance . 0) (padding . 5))
	system-system-spacing =
	#'((basic-distance . 20) (minimum-distance . 0) (padding . 5))
	top-system-spacing = % header
	#'((basic-distance . 12) (minimum-distance . 0) (padding . 0))
	last-bottom-spacing = % footer
	#'((basic-distance . 13) (minimum-distance . 0) (padding . 0))
	top-markup-spacing #'basic-distance = 5
	markup-system-spacing #'basic-distance = 20

}