\version "2.22.0"

#(set-default-paper-size "a4")
#(set-global-staff-size 16.6)
#(ly:set-option 'point-and-click #f)
%mobile -s14.5 -i3.2 -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}
mt=#(define-music-function (offset) (number?) ; move lyric text
      #{ \once \override LyricText.X-offset = -$offset #})

htitle="3bis. Iod. Manum suam"
hcomposer="Victoria"

\header {
	title=\markup{\fontsize #3 "3. Iod. Manum suam"}
	subtitle="Feria quinta in Cœna Domini. Lectio tertia"
	subsubtitle=\markup{"[Preliminary version]" }
	composer="Tomás Luis de Victoria (c.1548-1611)"
        pdfauthor=\composer
	%opus="(-)"
	poet=\markup{"Sistine Chapel, Ms. 186"}
	copyright=\markup{
		\fill-line {"Transcribed and edited by Nancho Alvarez" \typewriter "http://tomasluisdevictoria.org"}
	}
%	tagline=""
}


global={\key c \major \time 2/2  \skip 1*13 \bar "||" \break
					\skip 1*37 \bar "||"
					\skip 1*8 \bar "||"
					\skip 1*31 \bar "||" \pageBreak
					\skip 1*12 \bar "||"
					\skip 1*19 \bar "|."
}

cantus=\relative c' {
	r2 e ~
	e4 f g a
	b c \[b2
	c\] a ~
%5
	a4 g f d
	g1
	r2 e4. f8
	g4 a b2
	c1 % parece que tiene puntillo
%10
	b
	r2 \[b
	c4.\] b8 a2 ~
	a4 \ss gis8 fis \mtempob gis\breve*1/4 \mtempo
	b1
%15
	b2 c
	b1
	R1*4/4
	R1*4/4
	r2 r4 e,
%20
	b'2 b4 b
	c4. c8 c4 b
	a \ss gis a2
	c4. b16 a b2
	a1
%25
	R1*4/4
	r4 a2 a4
	g e f2
	f4 f e2 ~
	e1
%30
	e2 r
	c'2. b4
	a g f e
	d c f2
	e1
%35
	R1*4/4
	R1*4/4
	r2 r4 b' ~
	b g b2
	e,4 b'2 g4
%40
	b c b2
	a c
	b a4 g
	a2 g4 f8 e
	d4 e2 d8 c
%45
	d4 c e2
	r a ~
	a b
	c2. c4
	b2 a ~
%50
	a4 gis8 \ss fis \mtempob gis\breve*1/4 \mtempo 
	R1*4/4
	a1 ~
	a ~
	a
%55
	R1*4/4
	d,4. e8 f g a b
	c d c4. b8 a4 ~
	a \ss gis8 fis gis2 % el sostenido está en medio, debajo
	a2. a4
%60
	a a g e ~
	e d8 c d2
	e r
	R1*4/4
	r4 b' c b
%65
	g4. a8 b4 c
	b a2 gis4
	a1
	R1*4/4
	R1*4/4
%70
	R1*4/4
	r4 g a c ~
	\set Staff.autoBeaming = ##f
	c8 b a4 g c ~
	\set Staff.autoBeaming = ##t
	c8 b g4 a e
	f8 e e2 d4
%75
	e1 ~
	e
	R1*4/4
	r2 r4 g ~
	g c, e f
%80
	g2 a
	b c ~
	c4 c c2
	r4 c4. b8 a g
	a4 a g e ~
%85
	e d8 c d2
	e r4 c' ~
	c c b2
	a4. b8 c2
	b\breve*1/2
%90
	r2 e, ~
	e e ~
	e d
	e1
	R1*4/4
%95
	R1*4/4
	a1
	c2. b8 a
	g4 a2 g4 % parece que hay puntillo despues del primer sol; muy sucio el segundo sol
	a1 ~
%100
	a ~
	a
	e
	f4.  e8[ f g] a4 ~
	a \ss gis8 \ss fis gis4 gis
%105
	a1 ~
	a % parece que hay un silencio de blanca despues de la longa
	R1*4/4
	e1
	f2. e4
%110
	e1
	f2 e4 e ~
	e d8 c d2
	e r4 b'
	c2. c4
%115
	c1 ~
	c2 c ~
	c g4 c ~ % parece que hay puntillo despues del primer do
	c8 b a2 gis4 |
	a4. b8 c2
%120
	b\breve*1/2
}

cantusdos=\relative c' {
	e2. f4
	g a b c
	b a2 gis4
	a2 r
%5
	R1*4/4
	e2. f4
	g a b c
	b a2 \ss gis4
	a2 r4 a ~
%10
	a g e4. f8
	g4 a2 \ss gis4
	a4. b8 c2
	b\breve*1/2
	\ss gis1
%15
	\ss gis2 a ~
	a4 gis8 \ss fis gis2
	R1*4/4
	R1*4/4
	r4 e \ss gis2 ~
%20
	gis4 \ss gis gis2
	a4. a8 a4 \ss gis
	a b c f, ~
	f8 g a2 gis4
	a1
%25
	R1*4/4
	R1*4/4
	R1*4/4
	R1*4/4
	R1*4/4
%30
	r2 c ~
	c4 b a g
	f e d c
	f e2 d4
	e2 r
%35
	R1*4/4
	R1*4/4
	R1*4/4
	r4 b'2 g4
	b2 e,4 b'
%40
	g a2 gis4
	a1
	R1*4/4
	R1*4/4
	r2 a ~
%45
	a b
	c2. c4
	c2 b
	a r4 a ~
	a \ss gis a2
%50
	b\breve*1/2
	R1*4/4
	R1*4/4
	R1*4/4
	R1*4/4
%55
	a1 ~
	a ~
	a
	b
	c2. c4
%60
	c2 b4 g
	a1
	\ss gis2 c ~
	c4 b a2
	g r4 b
%65
	c b g4. a8
	b4 c b2
	a r
	R1*4/4
	R1*4/4
%70
	R1*4/4
	r2 r4 g
	a c4. b8 a4
	g c4. b8 g4
	 a8[ g]  g[ f16 e] f4 f
%75
	e2 r
	R1*4/4
	R1*4/4
	r4 g2 c,4
	e4. f8 g4 a ~
%80
	a8 g g2 fis4
	g1
	r4 g2 g4
	g2 r4 c ~
	c c b2
%85
	a1
	\ss gis2 a ~
	a4 a b2
	c4. b8 a2 ~
	a4 \ss gis8 fis \mtempob gis\breve*1/4 \mtempo
%90
	a1
	c2. b8 a
	g4 a2 \ss gis4
	a1
	R1*4/4
%95
	R1*4/4
	r2 a ~
	a c ~
	c b
	a4 e f2
%100
	d4 e f f
	e1
	a
	a
	b
%105
	c
	R1*4/4
	r2 e, ~
	e a ~
	a4 a a2 ~
%110
	a a ~
	a \ss gis
	a1
	\ss gis
	r4 e a2 ~
%115
	a4 a a2
	g1
	e4  c8[ d e f] g4 % despues del sol hay 2 puntillos, encima del custos
	c, c' b2
	a4 c4. b8 a4 ~
%120
	a \ss gis8 fis \mtempob gis\breve*1/4
}

altus=\relative c' {
	R1*4/4
	R1*4/4
	r2 e ~
	e4 d c b % despues del do parece que hay puntillo
%5
	a8 g c2 b4
	c1 % hay una linea que une el do con el si
	\[b
	e ~ \]
	e ~
%10
	e ~
	e ~
	e ~
	e\breve*1/2
	e1 % hay unos puntitos al principio de la frase
%15
	e2 e
	e r4 e ~
	e e f e ~
	e d8 c d2
	e1 ~
%20
	e
	R1*4/4
	R1*4/4
	R1*4/4
	R1*4/4
%25
	e2. e4
	d c d2
	e r4 a,
	d4. c8 b4 a
	g a2 gis4
%30
	a8 b c d e2 ~
	e1
	R1*4/4
	R1*4/4
	R1*4/4
%35
	e1
	e2 e4 d
	e c b2
	e2. e4
	e1 ~
%40
	e
	e
	R1*4/4
	R1*4/4
	R1*4/4
%45
	r2 r4 e ~
	e e e2 ~
	e4 e e2 ~
	e1
	e
%50
	e\breve*1/2
	a,2. b4
	\ss cis d e f ~
	f8 d e4 f2 ~
	f4 e8 d c4. d8
%55
	e4 f2 e4
	f2. e8 d % debajo del re hay una breve la que parece errata
	e1 ~
	e
	e2. e4
%60
	e e e2
	a,1
	b4 e4. c8 f4 ~
	f8 e e2 d4
	e1 ~
%65
	e ~
	e
	r4 a, e'4. e8
	e4 e d b
	d2 a4 c
%70
	d e f2
	e1 ~
	e ~
	e
	R1*4/4
%75
	r2 c ~
	c b4 e ~
	e d8 c d4 d
	e1
	r4 c2 a4
%80
	e' e d2 ~
	d e ~
	e4 e e2 ~
	e e ~
	e4 e e2
%85
	a,1
	b4 e2 e4
	e1
	e
	e\breve*1/2
%90
        \set Staff.shortInstrumentName=\markup{\fontsize #-2 "A1"}
	s4*0^\markup{\hspace #-2 "Altus I"}
	r2 a, ~
	a c ~
	c b
	a1
	R1*4/4
%95
	R1*4/4
	r2 e' ~
	e e ~
	e e
	cis r4 d
%100
	f e4. d8 d4 ~
	d cis8 b cis2 % el sostenido está en el si; está sucio
	a1
	d2. f4
	e1 ~
%105
	e
	R1*4/4
	R1*4/4
	r2 r4 a, ~
	a d2 cis4
%110
	\ss cis1
	d2 b4 c ~
	c b a2
	b1
	r4 a c2 ~
%115
	c4 c c2 ~
	c e ~
	e e
	e1 ~
	e
%120
	e\breve*1/2
}

altusdos=\relative c' {
	R1*4/4
	R1*4/4
	R1*4/4
	R1*4/4
%5
	R1*4/4
	R1*4/4
	R1*4/4
	R1*4/4
	R1*4/4
%10
	R1*4/4
	R1*4/4
	R1*4/4
	R1*4/4
	R1*4/4
%15
	R1*4/4
	R1*4/4
	R1*4/4
	R1*4/4
	R1*4/4
%20
	R1*4/4
	R1*4/4
	R1*4/4
	R1*4/4
	R1*4/4
%25
	R1*4/4
	R1*4/4
	R1*4/4
	R1*4/4
	R1*4/4
%30
	R1*4/4
	R1*4/4
	R1*4/4
	R1*4/4
	R1*4/4
%35
	R1*4/4
	R1*4/4
	R1*4/4
	R1*4/4
	R1*4/4
%40
	R1*4/4
	R1*4/4
	R1*4/4
	R1*4/4
	R1*4/4
%45
	R1*4/4
	R1*4/4
	R1*4/4
	R1*4/4
	R1*4/4
%50
	R1*4/4
	R1*4/4
	R1*4/4
	R1*4/4
	R1*4/4
%55
	R1*4/4
	R1*4/4
	R1*4/4
	R1*4/4
	R1*4/4
%60
	R1*4/4
	R1*4/4
	R1*4/4
	R1*4/4
	R1*4/4
%65
	R1*4/4
	R1*4/4
	R1*4/4
	R1*4/4
	R1*4/4
%70
	R1*4/4
	R1*4/4
	R1*4/4
	R1*4/4
	R1*4/4
%75
	R1*4/4
	R1*4/4
	R1*4/4
	R1*4/4
	R1*4/4
%80
	R1*4/4
	R1*4/4
	R1*4/4
	R1*4/4
	R1*4/4
%85
	R1*4/4
	R1*4/4
	R1*4/4
	R1*4/4
	R1*4/4
%90
	s4*0^\markup{\hspace #-2 "Altus II"}
	R1*4/4
	R1*4/4
	R1*4/4
	r2 e ~
	e e ~
%95
	e d
	c1 ~
	c
	R1*4/4
	a1
%100
	a2. a4
	a1
	R1*4/4
	R1*4/4
	R1*4/4
%105
	a1
	a
	b
	c
	R1*4/4
%110
	R1*4/4
	R1*4/4
	R1*4/4
	r4 b e2 ~
	e4 e e2 ~
%115
	e1
	r4 e4. d8 c b
	c2. g4
	\[a2 b\]
	\[c a\]
%120
	b1
}

tenor=\relative c {
	R1*4/4
	R1*4/4
	R1*4/4
	R1*4/4
%5
	R1*4/4
	r2 e ~
	e4 f g a
	b c b2
	a1
%10
	\[b2 g\]
	\[c b\]
	\[a1
	b\breve*1/2\]
	b1
%15
	b2 a
	b1
	c2. b4
	a1
	b ~
%20
	b
	R1*4/4
	R1*4/4
	R1*4/4
	r2 c ~
%25
	c4 c b g
	a1
	b4 g d'4. c8
	b4 a g4. a8
	b4 c b2
%30
	a1 ~
	a
	R1*4/4
	R1*4/4
	r2 b ~
%35
	b c
	c4 b c a
	g1 ~
	g ~
	g
%40
	R1*4/4
	a1
	b2 c ~
	c4 c c2
	b4 c4. b8 a g
%45
	a2. gis4
	a1
	r4 a2 gis4
	a2. a4
	b2 c
%50
	b\breve*1/2
	r2 a ~
	a4 b \ss cis d ~
	d \ss cis d2 ~
	d4 c8 b a2 ~
%55
	a1
	r2 r4 a ~
	a8 g a b c2
	b1
	a2. a4
%60
	a a b c ~
	c b a d,
	r2 a' ~
	a4 g f2
	e1 ~
%65
	e
	r2 r4 b'
	c4. c8 c4 c
	b g b2
	a4 b c8 b a g
%70
	a f c'2 b4
	c1 ~
	c ~
	c
	R1*4/4
%75
	r2 g ~
	g g
	a2. a4
	c1
	R1*4/4
%80
	R1*4/4
	g2. g4
	g2 r4 c ~
	c c c2
	a b
%85
	R1*4/4
	r2 a ~
	a4 a gis2
	a1
	b\breve*1/2
%90
	R1*4/4
	R1*4/4
	R1*4/4
	a1
	c2. b8 a
%95
	g4 a2 \ss gis4
	a1 ~
	a
	r2 r4 e ~
	e a2 d,4
%100
	a'4. g8 f4 d
	e1
	R1*4/4
	R1*4/4
	R1*4/4
%105
	e1
	f4.  e8[ f g] a4 ~
	a \ss gis8 fis gis4 gis
	a1
	r4 d, a'2 ~
%110
	a4 a a2 ~
	a r
	R1*4/4
	r2 r4 e
	a2. a4
%115
	a1
	e4. f8 g2 ~
	g e
	e1 ~
	e
%120
	e\breve*1/2
}

bassus=\relative c' {
	R1*4/4
	R1*4/4
	R1*4/4
	a2. g4
%5
	f e d2
	c1
	e ~
	e
	\[a,
%10
	e'2.\] d4
	c a e'2
	\[a,1
	e'\breve*1/2\]
	e1
%15
	e2 a,
	e'1
	a2. g4
	f1
	e ~
%20
	e
	R1*4/4
	R1*4/4
	R1*4/4
	r2 a2 ~
%25
	a4 a g e
	f1
	e2 d ~
	d e ~
	e1
%30
	a, ~
	a
	R1*4/4
	R1*4/4
	r2 e' ~
%35
	e a
	a4 \ss gis a f
	e1 ~
	e ~
	e
%40
	R1*4/4
	r2 a ~
	a4 g f e
	f2 e4 f
	g e f2 ~
%45
	f e
	a,2. a4
	a2 e'
	a,1
	\[e'2 a,\]
%50
	e'\breve*1/2
	R1*4/4
	R1*4/4
	R1*4/4
	a,2. b4
%55
	\ss cis d2 cis!4
	d2. c8 b
	\[a1
	e'\]
	a,2. a4
%60
	a a e'2
	f1
	e2 r
	R1*4/4
	R1*4/4
%65
	R1*4/4
	r2 r4 e
	a4. a8 a4 a
	g e g2
	d4 g f2 ~
%70
	f4 e d2
	c1 ~
	c
	R1*4/4
	R1*4/4
%75
	r2 c ~
	c e
	f2. f4
	c1
	R1*4/4
%80
	R1*4/4
	r2 c ~
	c4 c c2 ~
	c a ~
	a4 a e'2
%85
	f1
	e2 a, ~
	a4 a e'2
	a,1
	e'\breve*1/2
%90
	R1*4/4
	R1*4/4
	R1*4/4
	r2 a, ~
	a c ~
%95
	c b
	a1
	a
	c4. d8 \[e2
	a, d ~ \]
%100
	d4 \ss cis d d
	a1
	R1*4/4
	R1*4/4
	R1*4/4
%105
	a1
	d2. f4
	e1
	a,
	d2. a4
%110
	a1
	d2 e
	f1
	e
	a, ~
%115
	a
	c2. c4
	c1
	a2 e'
	a,1
%120
	e'\breve*1/2
}

textocantus=\lyricmode{
Iod, __ _ _ _ _ _ _ _ 
\italicas
iod, __ _ _ _ _ iod __ _ _ _ _ _ _ 
\rectas
iod. __ _ _ _ _ _ _ 
Ma -- num su -- am
ad o -- mni -- a de -- si -- de -- ra -- bi -- li -- a e -- _ _ _ ius:
qui -- a vi -- dit gen -- tes in -- gres -- sas
san -- ctu -- a -- ri -- \mt #.3 um __ _ _ _ su -- um
\mt #.5 ne in -- tra -- rent,
ne in -- \mt #.3 tra -- _ _ rent, in ec -- cle -- si -- am tu -- _ _ _ _ _ _ _ _ am
\italicas
in ec -- cle -- si -- am tu -- _ _ am. 
\rectas
Caph 
\italicas
\mt #.7 caph. __ _ _ _ _ _ _ _ _ _ _ _ _ _ 
\rectas
O -- mnis po -- pu -- lus e -- _ _ _ ius
et quæ -- rens pa -- _ _ _ _ _ _ nem
ad re -- fo -- cil -- lan -- dam a -- _ _ _ _ _ _ _ ni -- \mt #.7 man.
et con -- si -- _ _ de -- ra,
quo -- ni -- am fa -- _ _ _ _ cta sum vi -- _ _ _ lis
fa -- cta sum vi -- _ _ lis.
Ie -- ru -- sa -- lem
\italicas
Ie -- ru -- _ _ _ _ sa -- lem: 
\rectas
con -- \mt #.5 ver -- _ _ _ _ _ _ _ te -- re ad Do -- mi -- num De -- um tu -- _ _ _ um
ad Do -- mi -- num De -- um tu -- _ _ _ _ _ _ um.
}

textocantusdos=\lyricmode{
Iod __ _ _ _ _ _ _ _ _ _ 
iod __ _ _ _ _ _ _ _ _ _ 
iod. __ _ _ _ _ _ _ _ _ _ _ 
Ma -- num su -- _ _ am
ad o -- mni -- a de -- si -- de -- ra -- bi -- li -- a e -- _ _ _ ius:
san -- ctu -- a -- ri -- \mt #.7 um __ _ \mt #.3 su -- _ _ _ _ um
ne in -- tra -- rent,
ne in -- tra -- _ rent
in ec -- cle -- si -- am tu -- am
tu -- _ _ am.
Caph. __ _ 
O -- mnis po -- pu -- lus e -- ius ge -- _ _ mens
et quæ -- rens pa -- _ _ _ _ nem
ad re -- fo -- cil -- lan -- dam a -- _ _ _ _ _ _ _ _ ni -- \mt #.7 man. 
et con -- si -- _ _ _ _ _ de -- ra
quo -- ni -- am fa -- cta sum vi -- lis,
fa -- cta sum vi -- _ _ _ _ lis.
Ie -- ru -- _ _ _ _ sa -- lem
\italicas
Ie -- ru -- sa -- lem,
\rectas
Ie -- ru -- _ _ _ sa -- lem:
con -- ver -- te -- re 
ad Do -- mi -- num De -- um tu -- um
ad Do -- mi -- num De -- um tu -- _ _ _ _ um,
De -- um \mt #.3 tu -- _ _ _ _ _ um.
 
}

textoaltus=\lyricmode{
Iod. __ _ _ _ _ _ _ _ _ _ _ 
Ma -- num su -- am
\mt #.3 mi -- sit ho -- _ _ _ _ stis qui -- a vi -- dit gen -- tes in -- \mt #.6 gres -- _ _ _ _ _ _ \mt #.3 sas __ _ _ _ _ 
de qui -- bus præ -- ce -- pe -- ras, % pone præceperat
ne in -- tra -- rent
in ec -- cle -- si -- am tu -- am.
\mt #.8 Caph. __ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ 
O -- mnis po -- pu -- lus e -- ius ge -- _ _ _ _ _ mens 
de -- de -- runt pre -- ti -- o -- sa quæ -- que pro ci -- _ _ bo 
Vi -- de Do -- _ _ _ mi -- ne
et con -- si -- de -- ra quo -- ni -- am fa -- cta sum vi -- lis,
fa -- cta sum vi -- lis.
Ie -- ru -- sa -- lem
\italicas
Ie -- ru -- sa -- lem
\rectas
Ie -- ru -- sa -- _ _ _ _ \mt #1 lem:
con -- ver -- te -- re ad Do -- mi -- num De -- um tu -- _ _ um
ad Do -- mi -- num De -- um tu -- um.
}

textoaltusdos=\lyricmode{
Ie -- ru -- sa -- lem \italicas
Ie -- ru -- sa -- lem:
\rectas
con -- ver -- te -- re
ad Do -- mi -- num De -- _ _ _ _ um tu -- _ _ _ um.
}

textotenor=\lyricmode{
Iod. __ _ _ _ _ _ _ _ _ _ _ _ _ _ 
Ma -- num su -- am
mi -- sit ho -- stis \mt #1 qui -- a vi -- dit gen -- tes in -- \mt #.6 gres -- _ _ _ _ _ _ _ _ sas de qui -- bus præ -- ce -- pe -- ras 
in ec -- cle -- si -- am \mt #.3 tu -- _ _ _ _ _ _ am
in ec -- cle -- si -- am tu -- am.
\mt #.2 Caph __ _ _ _ _ _ _ _ _ 
\mt #.5 caph. __ _ _ _ _ _ 
O -- mnis po -- pu -- lus e -- _ _ ius
ge -- _ _ mens de -- de -- runt pre -- ti -- o -- sa quæ -- que pro ci -- _ _ _ _ _ _ _ bo 
Vi -- de 
Do -- mi -- ne
quo -- ni -- am fa -- cta sum vi -- lis
fa -- cta sum vi -- lis.
Ie -- ru -- _ _ _ _ sa -- lem Ie -- ru -- sa -- _ _ _ _ lem:
con -- \mt #.5 ver -- _ _ _ _ _ _ _ te -- re
ad Do -- mi -- num ad Do -- mi -- num \mt #.2 De -- _ _ um tu -- um.
}

textobassus=\lyricmode{
\mt #.5 Iod. __ _ _ _ _ _ _ _ _ _ _ _ _ _ _ 
Ma -- num su -- am mi -- sit ho -- stis \mt #1 qui -- a vi -- dit gen -- tes in -- gres -- sas de qui -- bus præ -- ce -- pe -- ras 
in ec -- cle -- si -- am \mt #.2 tu -- _ _ _ _ am,
in ec -- cle -- si -- am
tu -- _ am.
\mt #.8 Caph. __ _ _ _ _ _ _ _ _ _ 
O -- mnis po -- pu -- lus e -- ius
de -- de -- runt pre -- ti -- o -- sa quæ -- que pro ci -- _ _ bo Vi -- de
Do -- mi -- ne
quo -- ni -- am fa -- cta sum vi -- lis,
fa -- cta sum vi -- lis.
Ie -- ru -- sa -- lem,
\italicas
Ie -- \mt #.3 ru -- _ _ _ _ _ _ sa -- lem:
\rectas
con -- ver -- te -- re ad Do -- mi -- num De -- um tu -- um,
ad Do -- mi -- num De -- um tu -- um.
}



incipitcantus=\markup{
	\score{
		{ 
		\set Staff.instrumentName="Cantus I  "
		\override NoteHead.style = #'neomensural
		\override Staff.TimeSignature.style = #'neomensural
		\cadenzaOn 
		\clef "petrucci-c1"
		\key c \major
		\time 2/2
                e'1.
		} 

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


incipitcantusdos=\markup{
	\score{
		{ 
		\set Staff.instrumentName="Cantus II "
		\override NoteHead.style = #'neomensural
		\override Staff.TimeSignature.style = #'neomensural
		\cadenzaOn 
		\clef "petrucci-c1"
		\key c \major
		\time 2/2
                e'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
                e'1.
		} 
	\layout { line-width=\incipitwidth indent = 0 }
	}
}


incipitaltusdos=\markup{
	\score{
		{ 
		\set Staff.instrumentName="Altus II  "
		\override NoteHead.style = #'neomensural 
		\override Staff.TimeSignature.style = #'neomensural
		\cadenzaOn 
		\clef "petrucci-c3"
		\key c \major
		\time 2/2
                e'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
                e1.
		} 
	\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
                a1.
		} 
	\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
        \set Staff.shortInstrumentName=\markup{\fontsize #-2 "C1"}
		\clef "treble"
		\cantus }
	\new Lyrics \lyricsto "v1" {\textocantus }
	>>

        \new Staff <<\global
	\new Voice="v5" {
		\set Staff.instrumentName=\incipitcantusdos
        \set Staff.shortInstrumentName=\markup{\fontsize #-2 "C2"}
		\clef "treble"
		\cantusdos }
	\new Lyrics \lyricsto "v5" {\textocantusdos }
	>>

	\new Staff <<\global
	\new Voice="v2" {
		\set Staff.instrumentName=\incipitaltus
        \set Staff.shortInstrumentName=\markup{"A"}
		\clef "G_8"
		\altus }
	\new Lyrics \lyricsto "v2" {\textoaltus }
	>>
	
	\new Staff\with{\remove "Ambitus_engraver"} <<\global
	\new Voice="v6" {
		\set Staff.instrumentName=\incipitaltusdos
               \set Staff.shortInstrumentName=\markup{\fontsize #-2 "A2"}
		\clef "G_8"
		\altusdos }
	\new Lyrics \lyricsto "v6" {\textoaltusdos }
	>>
	
	\new Staff <<\global
	\new Voice="v3" {
		\set Staff.instrumentName=\incipittenor
        \set Staff.shortInstrumentName=\markup{"T"}
		\clef "G_8"
		\tenor }
	\new Lyrics \lyricsto "v3" {\textotenor }
	>>

	\new Staff <<\global
	\new Voice="v4" {
		\set Staff.instrumentName=\incipitbassus
        \set Staff.shortInstrumentName=\markup{"B"}
		\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=16
	%page-count = 8
	ragged-last-bottom = ##f
	indent=3.6\cm
	system-system-spacing =
	#'((basic-distance . 19) (minimum-distance . 0) (padding . 5))
	top-system-spacing = % header
	#'((basic-distance . 9) (minimum-distance . 0) (padding . 0))
	last-bottom-spacing = % footer
	#'((basic-distance . 13) (minimum-distance . 0) (padding . 0))
	markup-system-spacing.padding = #2.0
}