\version "2.22.0"

#(set-default-paper-size "a4")
#(set-global-staff-size 16.1)
#(ly:set-option 'point-and-click #f)
%mobile -s10.3 -i2.1 -m6

italicas=\override LyricText.font-shape = #'italic
rectas=\override LyricText.font-shape = #'upright
ss=\once \set suggestAccidentals = ##t
incipitwidth = 19
mtempo={\tempo 4 = 100}
mtempob={\tempo 4 = 50}
mtempoc={\tempo 4 = 150}
mtempod={\tempo 4 = 150 }
mt=#(define-music-function (offset) (number?) ; move lyric text
      #{ \once \override LyricText.X-offset = -$offset #})
rapido=\markup { \score {
      \relative {
                  \override NoteHead.style = #'neomensural
                  \override Rest.style=#'neomensural
		  \override Staff.TimeSignature.style = #'neomensural
		  \cadenzaOn 
		  \clef "petrucci-c1"
		  \key f \major
                  r2 a'8 a a a c4 a4 } 
                 \layout { #(layout-set-staff-size 15) }
} }
%tablet rapido=\markup{\null}

htitle="Missa pro victoria: Kyrie"
hcomposer="Victoria"

\header {
	title=\markup{\fontsize #3 "1. Kyrie"}
	subtitle="de la Missa pro victoria"
%	subsubtitle=\markup{\null \vspace #1 }
	composer=\markup{"Tomás Luis de Victoria (c.1548-1611)"}
        pdfauthor=\composer
	%opus="(-)"
	poet=\markup{"1600a"}
	copyright=\markup{
		\fill-line {"Transcribed and edited by Nancho Alvarez" \typewriter "http://tomasluisdevictoria.org"}
	}
%	tagline=""
}


global={
\set Staff.autoBeaming = ##f
\override Score.TimeSignature.break-visibility=#end-of-line-invisible
\key f \major \time 2/2
                \skip 1*17  \bar "||" \break
                \time 3/4 \mtempoc
		\skip 1*3/4*17 \bar "||" \break
		\time 2/2 \mtempod
		\skip 1*16 \bar "|."
}

cantus=\relative c'' {
	R1*4/4 |
	r2 c ~ |
	c4 c c c |
	c2 a |
%5
	r g ~ |
	g4 g g g |
	a a a2 |
	R1*4/4 |
	c4. c8 c4 c |
%10
	c1 |
	c |
	r4 d2 d4 |
	d d es es |
	\ss ees  ees,8[ f]  g[ a bes c] |
%15
	d4 d d2 |
	c c ~ |
	c \mtempob c\breve*1/4
	\once \override TextScript.X-offset = #-3.7
        \once \override TextScript.padding = #1
        s4*0^\markup{\musicglyph #"timesig.mensural22" \hspace #-.5 \raise #-.8 3  \hspace #4 \fontsize #2 \musicglyph #"noteheads.s0neomensural" }
        r4 g g |
	bes a4. f8 |
%20
	g2 g4 |
	a2.
	R1*3/4 |
	R1*3/4 |
	R1*3/4 |
%25
	c2 c4 |
	d2 d4 |
	c bes2 | % ennegrecidas
	a4  g8[ f] g4 |
	f a a |
%30
	c d2 | % ennegrecidas
	c4 a a |
	bes2 bes4 |
	a g2 | % ennegrecidas
	g\breve*3/8
%35
	\once \override TextScript.X-offset = #-32.7
        \once \override TextScript.padding = #3.5
        r2^\rapido a8 a a a |
	c2 a |
	a8 a a a c4 c |
	c1 |
	r2 c ~ |
%40
	c4 g c2 ~ |
	c4 g c2 ~ |
	c4 g g2 |
	a8 a a a c4 c |
	c2 f,8 f f f |
%45
	a4 a a2 |
	c8 c c c a4 a |
	g2 c8 c c c |
	c2 c |
	c1 ~ |
%50
	c\breve*1/2
}

cantusdos=\relative c'' {
	R1*4/4 |
	R1*4/4 |
	R1*4/4 |
	r2 c ~ |
%5
	c4 c c c |
	c2 g4 c ~ |
	c c c2 |
	R1*4/4 |
	r4 g2 g4 |
%10
	g g  f8[ g a bes] |
	c4 a a2 |
	r bes ~ |
	bes4 bes bes bes |
	bes1 |
%15
	r4 bes8 bes bes4 f ~ |
	 f8[ g a bes] c4 g |
	g2 a\breve*1/4
	r4 e e |
	f2 f4 |
%20
	e d2 | % ennegrecidas
	f2.
	R1*3/4 |
	R1*3/4 |
	g2 g4 |
%25
	a2 a4 |
	g f2 | % ennegrecidas
	e4 d d |
	f2 e4 |
	f2 r4 |
%30
	R1*3/4 |
	r4 f f |
	f2 f4 |
	f8[ e d c] d4 |
	e\breve*3/8
%35
	r2 f4 g |
	a bes c d |
	c2. a4 |
	r2 e ~ |
	e4 c e2 ~ |
%40
	e4 c e2 ~ |
	e4 c c2 |
	g'8 g g g e4 c |
	c2 f ~ |
	f4 g a bes |
%45
	c d c a |
	a2 c8 c c c |
	c2 g |
	a1 ~ |
	a ~ |
%50
	a\breve*1/2
}

altus=\relative c' {
	R1*4/4 |
	R1*4/4 |
	R1*4/4 |
	R1*4/4 |
%5
	r2 e ~ |
	e4 e e e |
	f f f2 |
	R1*4/4 |
	r4 e2 e4 |
%10
	e e f f |
	f1 |
	r4 f2 f4 |
	f f g g |
	g1 |
%15
	r4 f8 f f4 f |
	f2.  e8[ d] |
	e2 f\breve*1/4
	c2 c4 |
	d2 d4 |
%20
	c bes2 | % ennegrecidos
	a4 c d |
	es d4. c8 |
	c2 b4 |
	c e e |
%25
	f f2 | % ennegrecidas
	bes, r4 |
	R1*3/4 |
	r4 g g |
	bes a4. f8 |
%30
	g2 g4 |
	a c c |
	d2 d4 |
	c2 b4 |
	c\breve*3/8
%35
	r2 f ~ |
	f4 c f2 ~ |
	f4 c f f |
	e1 |
	e2. c4 |
%40
	e2. c4 |
	e2. c4 |
	e2 e8 e e e |
	c4 a a2 |
	r f' ~ |
%45
	f4 c f2 ~ |
	f4 c f2 ~ |
	f e |
	f1 ~ |
	f ~ |
%50
	f\breve*1/2
}

tenor=\relative c' {
	R1*4/4 |
	R1*4/4 |
	R1*4/4 |
	R1*4/4 |
%5
	g2. g4 |
	g g g2 |
	f1 |
	R1*4/4 |
	r4 g2 g4 |
%10
	g g a a |
	a1 |
	r4 bes2 bes4 |
	bes bes bes2 |
	bes1 |
%15
	r4 bes8 bes f4. g8 |
	a4 f g2 ~ |
	g4 c c\breve*1/4
	R1*3/4 |
	R1*3/4 |
%20
	R1*3/4 |
	r4 a a |
	bes2 a4 |
	g f2 | % ennegrecidas
	g2. |
%25
	R1*3/4 |
	r4 bes bes |
	c  g8[ a bes c] |
	 d[ a] c4 c |
	f, f f |
%30
	e d2 | % ennegrecidas
	e4 f f |
	f  d8[ e f g] |
	\[a4 d,\] g |
	g\breve*3/8
%35
	r2 f ~ |
	f4 f f2 ~ |
	f4 f f2 |
	c g' ~ |
	g4 g g2 |
%40
	g g |
	c, g'8 g g g |
	e4 c c2 |
	f8 f f f f2 |
	f4 f2 f4 |
%45
	f2. f4 |
	c'2. c4 |
	c2 r |
	c8 c c c a4 f |
	c'1 ~ |
%50
	c\breve*1/2
}

bassus=\relative c {
	R1*4/4 |
	R1*4/4 |
	R1*4/4 |
	R1*4/4 |
%5
	c2. c4 |
	c c c2 |
	f,1 |
	R1*4/4 |
	r4 c'2 c4 |
%10
	c c f f |
	f1 |
	r4 bes,2 bes4 |
	bes bes es es |
	es1 |
%15
	r4 bes8 bes bes4 bes |
	\[f'2 c ~ \]
	c4 c f\breve*1/4
	R1*3/4 |
	R1*3/4 |
%20
	R1*3/4 |
	f2 f4 |
	g2 f4 |
	e d2 | % ennegrecidas
	c2. |
%25
	R1*3/4 |
	R1*3/4 |
	R1*3/4 |
	r4 c c |
	d2 d4 |
%30
	c bes2 | % ennegrecidas
	a4 f f |
	bes2 bes4 |
	f g2 | % ennegrecidas
	c\breve*3/8
%35
	r2 c'8 c c c |
	a4 f c'2 |
	c8 c c c a4 f |
	c'2 c,4 c |
	c2 c |
%40
	c c |
	g' c,8 c c c |
	c'4 c c2 |
	r f,4 g |
	a bes c d |
%45
	c2 a4 f8 f |
	f2 f |
	c1 |
	f ~ |
	f ~ |
%50
	f\breve*1/2
}

cantustres=\relative c'' {
	c2. c4 |
	c c c2 |
	a4 a2 a4 |
	a a a2 |
%5
	g1 ~ |
	g2 r4 c8 c |
	c4 c a2 |
	f4 f8 f f4 f ~ |
	f e e2 ~ |
%10
	e r4 a ~ |
	a a a a |
	bes bes bes2 |
	r r4 bes ~ |
	bes bes bes bes |
%15
	bes4. bes8 bes4 bes8 bes |
	a4 a g2 ~ |
	g f\breve*1/4
	R1*3/4 |
	R1*3/4 |
%20
	R1*3/4 |
	R1*3/4 |
	R1*3/4 |
	R1*3/4 |
	R1*3/4 |
%25
	R1*3/4 |
	R1*3/4 |
	R1*3/4 |
	R1*3/4 |
	R1*3/4 |
%30
	R1*3/4 |
	R1*3/4 |
	R1*3/4 |
	R1*3/4 |
	R1*3/4 |
%35
	a8 a a a c4 a |
	a2 a8 a a a |
	c4 a a2 |
	g e4 f |
	g a g2 |
%40
	e g |
	e4 f g a |
	g e e2 |
	f4 g a bes |
	c4. d8 c2 |
%45
	a f4 g |
	a bes c2 |
	 c,8[ d e f]  g[ a] g4 |
	f1 ~ |
	f ~ |
%50
	f\breve*1/2
}

altusdos=\relative c' {
	R1*4/4 |
	f2. f4 |
	f f f2 |
	c4 f f f ~ |
%5
	f e e2 ~ |
	e1 % el puntillo se ve mal
	r4 c8 c c4 c |
	a2 f4 f8 f |
	g4 c c2 ~ |
%10
	c r4 f ~ |
	f f f f |
	d d d2 |
	r r4 g ~ |
	g g g g |
%15
	d d8 d  bes8.[ c16]  d8[ bes] |
	c4 c c2 ~ |
	c a\breve*1/4
	R1*3/4 |
	R1*3/4 |
%20
	R1*3/4 |
	R1*3/4 |
	R1*3/4 |
	R1*3/4 |
	R1*3/4 |
%25
	R1*3/4 |
	R1*3/4 |
	R1*3/4 |
	R1*3/4 |
	R1*3/4 |
%30
	R1*3/4 |
	R1*3/4 |
	R1*3/4 |
	R1*3/4 |
	R1*3/4 |
%35
	f'2. c4 |
	f2. c4 |
	f2. c4 |
	e4. f8 g2 |
	c,2. g4 |
%40
	c2. g4 |
	c2. g4 |
	c2 c8 c c c |
	a4 f c'2 |
	c8 c c c a4 f |
%45
	c'2 c8 c c c |
	a4 f c'2 |
	c8 c c c c4 c |
	a2 c8 c c c |
	a4 f  c'8[ bes a g] |
%50
	a\breve*1/2
}

tenordos=\relative c' {
	R1*4/4 |
	R1*4/4 |
	r2 c ~ |
	c4 c c c |
%5
	c2 g4 c ~ |
	c c c c |
	a2 f4 c'8 c |
	c4 c2 b4 |
	c g2 g4 |
%10
	g2 r4 c ~ |
	c c c c |
	f, f f2 |
	r r4 es ~ |
	es \ss es es es |
%15
	f f f f ~ |
	f8 f c4  c8[ d e f] |
	 e8.[ f16 g8] c, c\breve*1/4
	R1*3/4 |
	R1*3/4 |
%20
	R1*3/4 |
	R1*3/4 |
	R1*3/4 |
	R1*3/4 |
	R1*3/4 |
%25
	R1*3/4 |
	R1*3/4 |
	R1*3/4 |
	R1*3/4 |
	R1*3/4 |
%30
	R1*3/4 |
	R1*3/4 |
	R1*3/4 |
	R1*3/4 |
	R1*3/4 |
%35
	f2. f4 |
	f2. f4 |
	f2. f4 |
	g2 c,4 d |
	e f g4. a8 |
%40
	g2 e |
	c4 d e f |
	g4. a8 g2 |
	f1 |
	f2. c4 |
%45
	f2. c4 |
	f2 f |
	g e8 e e e |
	c2 c |
	c1 ~ |
%50
	c\breve*1/2
}

bassusdos=\relative c {
	R1*4/4 |
	R1*4/4 |
	f2. f4 |
	f f f2 |
%5
	c1 ~ |
	c |
	f2. f4 |
	f f d2 |
	c1 ~ |
%10
	c2 r4 f, ~ |
	f f f f |
	bes bes bes2 |
	r r4 es, ~ |
	es es es es |
%15
	bes' bes bes bes8 bes |
	f4 f c'2 ~ |
	c f,\breve*1/4
	R1*3/4 |
	R1*3/4 |
%20
	R1*3/4 |
	R1*3/4 |
	R1*3/4 |
	R1*3/4 |
	R1*3/4 |
%25
	R1*3/4 |
	R1*3/4 |
	R1*3/4 |
	R1*3/4 |
	R1*3/4 |
%30
	R1*3/4 |
	R1*3/4 |
	R1*3/4 |
	R1*3/4 |
	R1*3/4 |
%35
	c''8 c c c a4 f |
	c'2 c8 c c c |
	a4 f c'2 |
	c,1 |
	c |
%40
	c |
	c |
	c |
	f,2 f ~ |
	f f |
%45
	f1 |
	f |
	c' |
	f, ~ |
	f ~ |
%50
	f\breve*1/2
}

textocantus=\lyricmode{
Ky -- _ ri -- e e -- lei -- son
\italicas Ky -- _ ri -- e e -- le -- i -- son
Ky -- ri -- e e -- lei -- son
Ky -- ri -- e e -- le -- i -- son, \rectas
Ky -- _ _ _ _ _ _ ri -- e e -- lei -- _ son.
Chri -- ste e -- le -- _ _ i -- son
\italicas Chri -- ste e -- le -- _ i -- _ _ _ _ son,
Chri -- ste e -- lei -- son,
Chri -- ste e -- le -- _ i -- son. \rectas
Ky -- ri -- e e -- lei -- son, 
\italicas 
Ky -- ri -- e e -- le -- i -- son
Ky -- _ ri -- e _
e -- le -- _ i -- son, \rectas
Ky -- ri -- e e -- le -- i -- son,
\italicas 
Ky -- ri -- e e -- le -- i -- son,
Ky -- ri -- e e -- le -- i -- son,
Ky -- ri -- e e -- le -- i -- son. _
}

textocantusdos=\lyricmode{
Ky -- _ ri -- e e -- lei -- son,
Ky -- _ ri -- e
\italicas
Ky -- ri -- e e -- le -- _ _ _ _ i -- son
Ky -- _ rie e -- lei -- son
Ky -- ri -- e e -- _ _ _ _ _ le -- i -- son.
\rectas
Chri -- ste e -- \italicas le -- _ i -- \rectas son % e -- _ lei -- _
\italicas
Chri -- ste e -- le -- _ i -- son,
Chri -- ste e -- lei -- son
Chri -- ste e -- le -- i -- _ _ _ _ son.
\rectas
Ky -- ri -- e e -- _ _ lei -- son
\italicas Ky -- _ ri -- e _ e -- le -- _ i -- son, \rectas
Ky -- ri -- e e -- \italicas le -- i -- \rectas son, % lei -- _ 
\italicas
Ky -- _ ri -- e e -- _ _ le -- i -- son,
\rectas
Ky -- ri -- e e -- \italicas le -- i -- \rectas son. _ _ % lei -- _ 
}

textoaltus=\lyricmode{
Ky -- _ ri -- e e -- le -- i -- son
\italicas
Ky -- ri -- e e -- le -- i -- son
Ky -- ri -- e e -- le -- i -- son
Ky -- ri -- e e -- le -- _ _ i -- son.
\rectas
Chri -- ste e -- \italicas le -- _ i -- \rectas son, % e -- _ lei -- _ son
\italicas
Chri -- ste e -- _ _ le -- i -- son,
Chri -- ste e -- lei -- son
\rectas Chri -- ste e -- le -- _ _ \italicas i -- \rectas son, % lei
\italicas
Chri -- ste e -- le -- _ i -- son.
\rectas
Ky -- _ ri -- e _
e -- le -- i -- son,
\italicas
Ky -- ri -- e e -- le -- i -- son,
\rectas
Ky -- ri -- e e -- le -- \italicas i -- \rectas son % lei
Ky -- _ ri -- e _ e -- le -- _ \italicas i -- \rectas son. _ _ % lei
}

textotenor=\lyricmode{
Ky -- ri -- e e -- lei -- son
\italicas Ky -- ri -- e e -- le -- i -- son
Ky -- ri -- e e -- lei -- son
Ky -- ri -- e e -- le -- _ _ _ i -- son. 
\rectas
Chri -- ste e -- _ _ lei -- son
\italicas
Chri -- ste e -- le -- _ _ _ _ _ _ i -- son,
\rectas
Chri -- ste e -- lei -- son,
\italicas
Chri -- ste e -- _ _ _ _ le -- _ i -- son.
\rectas
Ky -- _ ri -- e _
e -- lei -- son,
\italicas
Ky -- _ ri -- e e -- lei -- son,
\rectas
Ky -- ri -- e e -- le -- \italicas i -- \rectas son, % lei
Ky -- ri -- e e -- lei -- son,
\italicas
Ky -- ri -- e e -- le -- i -- son
\rectas Ky -- ri -- e e -- le -- \italicas i -- \rectas son. _ % lei
}

textobassus=\lyricmode{
Ky -- ri -- e e -- lei -- son
\italicas Ky -- ri -- e e -- le -- i -- son
Ky -- ri -- e e -- le -- i -- son
Ky -- ri -- e e -- le -- _ _ i -- son.
\rectas
Chri -- ste e -- _ _ lei -- son
\italicas
Chri -- ste e -- le -- _ i -- son,
\rectas
Chri -- ste e -- \italicas le -- _ i -- \rectas son. % Chri -- ste e lei -- _ son. (repite "e")
Ky -- ri -- e e -- le -- \italicas i -- \rectas son, % lei
\italicas
Ky -- ri -- e e -- le -- i -- son,
\rectas
Ky -- ri -- e e -- le -- i -- son,
\italicas
Ky -- ri -- e e -- le -- i -- son
\rectas
Ky -- ri -- e e -- _ _ lei -- son,
\italicas
Ky -- ri -- e e -- lei -- son. _ _ 
}

textocantustres=\lyricmode{
Ky -- ri -- e e -- lei -- son,
\italicas
Ky -- ri -- e e -- lei -- son _
\rectas
Ky -- ri -- e e -- lei -- son,
\italicas
Ky -- ri -- e e -- _ lei -- son _
Ky -- _ ri -- e e -- le -- i -- son
Ky -- _ ri -- e e -- le -- i -- son,
\rectas
Ky -- ri -- e e -- lei -- _ son.
Ky -- ri -- e e -- le -- \italicas i -- \rectas son, % lei
\italicas
Ky -- ri -- e e -- le -- i -- son,
\rectas
Ky -- ri -- e e -- _ lei -- son,
\italicas
Ky -- ri -- e e -- _ le -- i -- son,
\rectas
Ky -- ri -- e e -- _ _ lei -- son,
Ky -- ri -- e \italicas e -- _ \rectas % falta la "e"
lei -- _ _ _ _ _ _ son. _ _ 
}

textoaltusdos=\lyricmode{
Ky -- ri -- e e -- lei -- son,
\italicas
Ky -- rie e -- _ lei -- son _
\rectas
Ky -- ri -- e e -- lei -- son,
\italicas Ky -- rie e -- lei -- son _ \rectas
Ky -- _ ri -- e e -- le -- i -- son
\italicas Ky -- _ rie e -- lei -- son, \rectas
Ky -- ri -- \italicas e __ _ _ _ _ e -- \rectas lei -- _ son. % e e -- _ _ _ _ 
Ky -- ri -- e e -- le -- \italicas i -- \rectas \mt #1 son, __ _ _ % lei
Ky -- ri -- e e -- le -- \italicas i -- \rectas son, % lei
Ky -- ri -- e e -- le -- \italicas i -- \rectas son, % lei
\italicas
Ky -- ri -- e e -- le -- i -- son,
Ky -- ri -- e e -- le -- i -- son,
Ky -- ri -- e e -- le -- i -- son,
\rectas
Ky -- ri -- e e -- le -- i -- son. __ _ _ _ _ 
}

textotenordos=\lyricmode{
Ky -- _ ri -- e e -- lei -- son,
\italicas \mt #.5 Ky -- _ ri -- e e -- lei -- son,
Ky -- ri -- e e -- lei -- son, \rectas
Ky -- ri -- e
Ky -- _ ri -- e e -- le -- i -- son
\italicas
Ky -- _ ri -- e e -- le -- i -- son, \rectas
Ky -- _ ri -- e e -- _ _ _ _ _ _ lei -- son. 
Ky -- ri -- e e -- le -- i -- son,
Ky -- ri -- e e -- lei -- _ _ son,
Ky -- ri -- e e -- lei -- _ _ son,
Ky -- ri -- e e -- le -- i -- son,
Ky -- ri -- e e -- le -- i -- son. _ % falta la "e -- "
}

textobassusdos=\lyricmode{
Ky -- ri -- e e -- lei -- son, _
\italicas
Ky -- ri -- e e -- lei -- son _
Ky -- _ ri -- e e -- le -- i -- son
Ky -- _ ri -- e e -- le -- i -- son,
Ky -- ri -- e e -- lei -- _ son.
\rectas
Ky -- ri -- e e -- le -- \italicas i -- \rectas son, % lei
\italicas Ky -- ri -- e e -- le -- i -- son, \rectas
Ky -- ri -- e e -- lei -- son,
Ky -- _ ri -- e e -- lei -- son. _ _ 
}



incipitcantus=\markup{
	\score{
		{ 
		\set Staff.instrumentName=\markup{\column{"Cantus 1a " \raise #.5 \fontsize #-3 "(Cantus I)"}}
		\override NoteHead.style = #'neomensural
		\override Staff.TimeSignature.style = #'neomensural
		\cadenzaOn 
		\clef "petrucci-c1"
		\key f \major
		\time 4/4
                c''1.
		} 

	\layout { line-width=\incipitwidth indent = 0 }
	}
}

incipitcantusdos=\markup{
	\score{
		{ 
		\set Staff.instrumentName=\markup{\column{"Cantus 1b " \raise #.5 \fontsize #-3 "(Cantus II)"}}
		\override NoteHead.style = #'neomensural
		\override Staff.TimeSignature.style = #'neomensural
		\cadenzaOn 
		\clef "petrucci-c1"
		\key f \major
		\time 4/4
                c''1.
		} 

	\layout { line-width=\incipitwidth indent = 0 }
	}
}


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


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

incipitbassus=\markup{
	\score{
		{ 
		\set Staff.instrumentName="Bassus 1  "
		\override NoteHead.style = #'neomensural
		\override Staff.TimeSignature.style = #'neomensural
		\cadenzaOn 
		\clef "petrucci-f4"
		\key f \major
		\time 4/4
                c1.
		} 
	\layout { line-width=\incipitwidth indent = 0 }
	}
}

incipitcantustres=\markup{
	\score{
		{ 
		\set Staff.instrumentName=\markup{\column{"Cantus 2 " \raise #.5 \fontsize #-3 "(Cantus III)"}}
		\override NoteHead.style = #'neomensural
		\override Staff.TimeSignature.style = #'neomensural
		\cadenzaOn 
		\clef "petrucci-c1"
		\key f \major
		\time 4/4
                c''1.
		} 

	\layout { line-width=\incipitwidth indent = 0 }
	}
}

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


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

incipitbassusdos=\markup{
	\score{
		{ 
		\set Staff.instrumentName="Bassus 2 "
		\override NoteHead.style = #'neomensural
		\override Staff.TimeSignature.style = #'neomensural
		\cadenzaOn 
		\clef "petrucci-f4"
		\key f \major
		\time 4/4
                f1.
		} 
	\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 StaffGroup 
	%\with {systemStartDelimiter = #'SystemStartBrace }
	%<<
	%\override Score.BarLine.allow-span-bar=##f
	
	\new Staff <<\global
	\new Voice="v1" {
		\set Staff.instrumentName=\incipitcantus
		\set Staff.shortInstrumentName=\markup{\fontsize #-2 "C1a"}
		\clef "treble"
		\cantus }
	\new Lyrics \lyricsto "v1" {\textocantus }
	>>
	
	\new Staff <<\global
	\new Voice="v9" {
		\set Staff.instrumentName=\incipitcantusdos
		\set Staff.shortInstrumentName=\markup{\fontsize #-2 "C1b"}
		\clef "treble"
		\cantusdos }
	\new Lyrics \lyricsto "v9" {\textocantusdos }
	>>
	%>>
	
	\new Staff <<\global
	\new Voice="v2" {
		\set Staff.instrumentName=\incipitaltus
		\set Staff.shortInstrumentName="A1"
		\clef "G_8"
		\altus }
	\new Lyrics \lyricsto "v2" {\textoaltus }
	>>
	
	\new Staff <<\global
	\new Voice="v3" {
		\set Staff.instrumentName=\incipittenor
		\set Staff.shortInstrumentName="T1"
		\clef "G_8"
		\tenor }
	\new Lyrics \lyricsto "v3" {\textotenor }
	>>

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

\new ChoirStaff<<

	\new Staff <<\global
	\new Voice="v5" {
		\set Staff.instrumentName=\incipitcantustres
		\set Staff.shortInstrumentName="C2"
		\clef "treble"
		\cantustres }
	\new Lyrics \lyricsto "v5" {\textocantustres }
	>>

	\new Staff <<\global
	\new Voice="v6" {
		\set Staff.instrumentName=\incipitaltusdos
		\set Staff.shortInstrumentName="A2"
		\clef "G_8"
		\altusdos }
	\new Lyrics \lyricsto "v6" {\textoaltusdos }
	>>
	
	\new Staff <<\global
	\new Voice="v7" {
		\set Staff.instrumentName=\incipittenordos
		\set Staff.shortInstrumentName="T2"
		\clef "G_8"
		\tenordos }
	\new Lyrics \lyricsto "v7" {\textotenordos }
	>>

	\new Staff <<\global
	\new Voice="v8" {
		\set Staff.instrumentName=\incipitbassusdos
		\set Staff.shortInstrumentName="B2"
		\clef "bass"
		\bassusdos }
	\new Lyrics \lyricsto "v8" {\textobassusdos }
	>>
	
>>
>>
	} % transpose

\layout{ 
	\context {\Lyrics 
		\override VerticalAxisGroup.staff-affinity = #UP
		\override VerticalAxisGroup.nonstaff-relatedstaff-spacing =
			#'((basic-distance . 0) (minimum-distance . 0) (padding . .5))
		\override VerticalAxisGroup.nonstaff-unrelatedstaff-spacing =
			#'((basic-distance . 10) (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 {\ChoirStaff 
                  \override StaffGrouper.staffgroup-staff-spacing =
                        #'((basic-distance . 12) (minimum-distance . 0) (padding . 1))
                  \override StaffGrouper.staff-staff-spacing =
                        #'((basic-distance . 10) (minimum-distance . 0) (padding . 1))
        }
	\context {\Staff 
                \RemoveEmptyStaves
                %\override VerticalAxisGroup.remove-first = ##t
		\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.6\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 . 10) (minimum-distance . 0) (padding . 0))
	markup-system-spacing.padding = #1.5

}