\version "2.22.0"

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

italicas=\override LyricText.font-shape = #'italic
rectas=\override LyricText.font-shape = #'upright
ss=\once \set suggestAccidentals = ##t
incipitwidth = 20
mtempo={\tempo 4 = 100}
mtempob={\tempo 4 = 150}
mt=#(define-music-function (offset) (number?) ; move lyric text
      #{ \once \override LyricText.X-offset = -$offset #})



htitle="O quam gloriosum: Sanctus"
hcomposer="Victoria"

\header {
	title=\markup{\larger \larger \larger "4. Sanctus" }
	subtitle="de la misa 'O quam gloriosum'"
	subsubtitle="  "
	composer="Tomás Luis de Victoria (c.1548-1611)"
        pdfauthor=\composer
	poet="1583a"
	copyright=\markup{
		\fill-line {"Transcribed and edited by Nancho Alvarez" \typewriter "http://tomasluisdevictoria.org"}
	}
	%tagline=""
}

global=  { \time 2/2  \key  c \major  \skip  1*41
           \override Score.TimeSignature.break-visibility=#end-of-line-invisible
           \break
           \mtempob
           \bar "||" \time 3/4  \skip 4*54  \bar "|."}
cantus= \relative c'' 
{
R1 g2. f4 e  d8[ c] d2 e4 g2 fis4 g a g2 r2 r4 c4~c b a  g8[ f] g2 a4  f8[ g]  a[ b] c2 b4 a2 r2
 r4 d2 c4 b  a8[ g] a2 b2 r4 d4 d d  c8[ b a g] a2 b2 r2 g2~ g4 g e2 f4 d g4.  f8 e2 d2 e4. f8 g4 a4~
\set Staff.autoBeaming = ##f
a8 a f4 g2 
\set Staff.autoBeaming = ##t
e4 a4.  g8[ f e] d4.  e8[ f g] a4~  a8[ g] g2 fis4 g2 b2~ b4 b b2 c1 b2 r4 g4 a2. g4  f8[ e d c]  d[ e] f4~ f4 e4 d2 r4 d' b cis d2 g, r4 g4 e fis g2 c,4 c' b g a2 g r4 a4 g e f2 g4 c b g a g2 fis4 g\breve*1/2
%42
\once \override Score.RehearsalMark.self-alignment-X = #LEFT
\mark \markup{\fontsize #-2 \musicglyph #"timesig.mensural34" \fontsize #-3 \column{3 \raise #-.2 2 }}
R2. R
g4^\markup{\fontsize #3 \musicglyph "noteheads.s1neomensural"  } a a b2 a4 \[b c\] a
g2 r4 g4 e fis g4.  f16[ e] d4 e4 \[f4 d\]
g2 r4 % ennegrecida
c4 d d e2 d4 \[c d\] b
a2 r4 % ennegrecida
c a b
c2 b4 c a2 % 2 compases ennegrecidos
b\breve*3/8
 }


altus =  \relative  c'{
g2. a4 b c g d'~  d8[ c] c2 b4 c4. b8 a2 g4 f4 g2 r2 r4 c~c d e f~ f e f2~f4 e4 d2 R1 r4 d2 e4 fis g2 fis4 g d2 d4 b2 c a4 d4.  c8[ b a] g4 a4 b4. c8 d4 e4.  d8[ c b] a4 b g2 r2 r4 g'~g g e2 f2 d4 e4~ e8[ d c b] a4. g8 f4 bes  a8[ \ss b c d] e4 d c a b d2 d4 d2 r4 g~g  fis8[ e] fis2 g4 d  g8[ f e d]  c[ b a g] f4 g  a8[ g f e ]  f2
%31
g4 c b g a2 g4 g' f d e2 d r r4 d e fis g2 c, % d en la edicion inglesa
r4 g' f d e2 d4 f e c d4. e8 f4 e d2 d\breve*1/2
%42
g,4 g a b2 a4 \[b c\] a
d2 r4 % ennegrecida
g, a a b2 a4 \[b c\] a
e'2 r4 % ennegrecida
c d d e2 d4 \[e f\] d
g2 r4 % ennegrecida
R2. c,4 a b c d2 c8 d e f g4
e d2 % ennegrecidas
d\breve*3/8
}

tenor =  \relative c'
{
R1 R R R  c2. b4 a  g8[ f] g2 a4 f c'2~c2 f, r r4 d'~ d  c4 b  a8[ g] a2 b4 g d'1 g,4. a8 b4. c8 d2 r R1 r4 d2 d4 b2 c4 a d4.  c8[ b8 a] g4~ g8[ c,] c'2 b4 c2 r r4 d4. d8 b4 c a c d a d4. d8 e4 c4 b a a g1 r4 d' d d c4. b8 c2 d4 b  e8[ d c b ]  a[ g f g]  a[ b] c4~c  b8[ a] \[b2 c2\]
g r r4 g4 a b c2 g4 d' c a b2 a r2 r4 a b cis d4. a8 b4 c4 a2 r4 e' d b c4. b8 a2 g\breve*1/2
R2. R  g4 e \ss fis g2 f4 \[e c\] d
d'2 r4 % ennegrecida
g, a a c2 b4 \[a f\] g
c,2 r4 % ennegrecida
c' a b c2 b4 a2  gis4 a2 r4 a f g a2 g4 g2  fis4 g\breve*3/8
}


bassus=  \relative c{
R1 R R c2. d4 e f c g'~ 
 g8[ f] f2 e4 f d4 c2~c r4 d4~d e f g d4 a'4. g8 g4~g fis g e d1 r2 g2~g4 g e f~f d g4. f8 e4 d g, g'~
\set Staff.autoBeaming = ##f
g8 g e4 a2 
\set Staff.autoBeaming = ##t
d,4 g4.  f8[ e d] c2 g' c,4 c'2 c4 a4 bes2 g4 a4.  g8[ f e] d4~d g, d' a~a b  c d g,2 r4 g'~g g g2 a1 g2 r4 c,4 f2. e4 d1
%31
c2 r4 g' f  d \[e2 d\]
c4 c' b g a2 g r4 a4 g e f2 e r4 f e c d2 c g' f4 c d2 g,\breve*1/2
g'4 e fis g2 f4 \[e c\] d
g,2 r4 % ennegrecida
g' e fis g2 f4 \[e c\] d
c2 r4 % ennegrecida
c' a b c2 b4 \[a f\] g
c,2 r4 % ennegrecida
f d e f2 e4 \[a, d\] b
a8 b c d e4
c d2 % ennegrecidas
g,\breve*3/8
}


textocantus=\lyricmode 
{
San -- _ _ _ _ _ ctus, 
\italicas
San -- _ _ _ ctus
\mt #.5 San -- _ _ _ _ _ _ _ _ _ _ _ _ _ ctus
\rectas
San -- _ _ _ _ _ ctus 
Do -- mi -- nus De -- _ _ _ _ us 
Do -- _ mi -- nus De -- us sa -- _ _ ba -- oth, __ _ _  
\italicas
Do -- _ mi -- nus De -- us sa -- _ _ _ _ _ _ _ _ _ _ _ ba -- oth. 
\rectas
Ple -- _ ni sunt cæ -- li et ter -- _ _ _ _ _ _ _ _ _ _ ra
%32
glo -- ri -- a tu  -- a
\italicas
glo -- ri -- a tu -- a, 
\rectas
glo -- ri --  a tu -- a
\italicas
glo -- ri -- a tu -- a, 
glo -- ri -- a  tu -- _ _ a.
\rectas
%42
Ho -- san -- na in ex -- \mt #.5 cel -- _ _ sis
\italicas
Ho -- san -- na in __ _ _ _  ex -- cel -- _ sis
Ho -- san -- na in ex -- \mt #.5 cel -- _ _ sis
\rectas
Ho -- san -- na in ex -- cel -- _ sis.
 }
 

textoaltus=\lyricmode 
{
San -- _ _ _ ctus, 
\italicas
San -- _ _ _ _ _ _ _ _ _ ctus
\rectas
\mt #.5 San -- _ _ _ _ _ _ _ _ _ ctus
\italicas
San -- _ _ _ _ ctus,  
\rectas
Do -- mi -- nus De -- us 
sa -- _ _ _ _ ba -- oth, __ _ _   
sa -- _ _ _ _ ba -- oth
Do -- _ mi -- nus De -- us sa -- _ _ _ _ _ _ _ ba -- oth, __ _ _ _ _ 
sa -- ba -- _ oth.  
Ple -- ni sunt cæ -- _ _ _ _ li et ter -- _ _ _ _ _ _ _ _ _ _ _ _ _ _ ra,
%32
glo -- ri -- a tu -- a, 
\italicas
glo -- ri -- a tu -- a
\rectas
glo -- ri -- a tu -- a
\italicas
glo -- ri -- a tu -- a, 
\rectas
glo -- ri -- a  tu -- _ _ _ _ a.
%42
Ho -- san -- na in ex -- \mt #.2 cel -- _ _ sis
\italicas
Ho -- san -- na in ex -- \mt #.2 cel -- _ _ sis
\rectas
Ho -- san -- na in ex -- \mt #.2 cel -- _ _ sis
\italicas
Ho -- san -- na in ex -- cel -- _ _ _ _ _ _ sis.

}

 textotenor=\lyricmode 
{ 
San -- _ _ _ _ _ _ _ _ _ ctus
\italicas
\mt #.5 San -- _ _ _ _ _ _ _ _ _ ctus __ _ _ _ _ 
\rectas
Do -- mi -- nus De -- us sa -- _ _ _ _ _ _ _ ba -- oth
\italicas
Do -- mi -- nus De -- us sa -- ba -- oth,  
Do -- mi -- \mt #.5 nus De -- us sa -- ba -- oth.  
\rectas
Ple -- ni sunt cæ -- _ _ li et ter -- _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ ra
%32
glo -- ri -- a tu -- a, 
\italicas
glo -- ri -- a tu -- a
glo -- ri -- a tu -- _ _ _ a
\rectas
glo -- ri -- a tu -- _ _ a.
%42
Ho -- san -- na in ex -- \mt #.5 cel -- _ _ sis
\italicas
Ho -- san -- na in ex -- cel -- _ _ sis
\rectas
Ho -- san -- na in ex -- \mt #.2 cel -- _ sis
\italicas
Ho -- san -- na in ex -- cel -- _ sis.

}

 
textobassus=\lyricmode 
{
San -- _ _ _ ctus, 
\italicas
\mt #1 San -- _ _ _ _ _ _ ctus _
\rectas
\mt #.5 San -- _ _ _ _ ctus, 
\italicas
San -- _ _ _ _ _ _ ctus  
\rectas
Do -- _ mi -- nus De -- _ us sa -- _ _ ba -- oth,  
\italicas
Do -- _ mi -- nus De -- us sa -- _ _ _ _  ba -- oth, 
\rectas
Do -- mi -- nus De -- us sa -- _ _ _ _ _ ba -- oth,  
sa -- _ _ _ ba -- oth.   
Ple -- _ ni sunt cæ -- li et ter -- _ _ ra
%32
glo -- ri -- a tu -- _ a, 
\italicas
glo -- ri -- a tu -- a
\rectas
glo -- ri -- a tu -- a
\italicas
glo -- ri -- a tu -- a, 
glo -- ri -- a tu -- a.
\rectas
%42
Ho -- san -- na in ex -- \mt #.2 cel -- _ _ sis
\italicas
Ho -- san -- na in ex -- \mt #.2 cel -- _ _ sis
\rectas
Ho -- san -- na in ex -- \mt #.2 cel -- _ _ sis
\italicas
Ho -- san -- na in ex -- \mt #.2 cel -- _ _ _ _ _ _ _ _ _ sis.

}

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.
		} 

	\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
                g1.
		} 
	\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
                c'1.
		} 
	\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
                c1.
		} 
	\layout { line-width=\incipitwidth indent = 0 }
	}
}

%\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.4\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))
	markup-system-spacing.padding = #1.5

first-page-number=14
oddHeaderMarkup=\markup \fill-line {\hcomposer \htitle \fromproperty #'page:page-number-string }
evenHeaderMarkup=\markup \fill-line {\on-the-fly #not-first-page \fromproperty #'page:page-number-string \on-the-fly #not-first-page \htitle \on-the-fly #not-first-page \hcomposer }

first-page-number=14
oddHeaderMarkup=\markup \fill-line {\hcomposer \htitle \fromproperty #'page:page-number-string }
evenHeaderMarkup=\markup \fill-line {\on-the-fly #not-first-page \fromproperty #'page:page-number-string \on-the-fly #not-first-page \htitle \on-the-fly #not-first-page \hcomposer }
}