\version "2.18.0"

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

% los incipit están mal por limitaciones de lilypond

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

htitle="6. Aleph. Ego vir"
hcomposer="Victoria"

% Lamentaciones de Jeremías
% He cotejado el texto de las lamentaciones con un breviario romano de 1686

\header {
	title=\markup{\fontsize #3 "6. Aleph. Ego vir" }
	subtitle=\markup{"Lectio tertia, Feria sexta in Passione Domini"} 
	subsubtitle=\markup{\column{" "}}
	composer="Tomás Luis de Victoria (c.1548-1611)"
        pdfauthor=\composer
	poet = "1585a"
	copyright=\markup{
		\fill-line {"Transcribed and edited by Nancho Alvarez" \typewriter "http://tomasluisdevictoria.org"}
	}
%	tagline=""
}

global={\key a \minor \time 2/2 \skip 1*9 \bar "||" 
				\skip 1*19 \bar "||" \break
				\skip 1*8 \bar "||" \break
				\skip 1*19 \bar "||" \break
				\skip 1*9 \bar "||"
				\skip 1*17 \bar "|."
}

cantus={
	R1*4/4 |
	R1*4/4 |
	R1*4/4 |
	R1*4/4 |
	% lilypond no permite ligaduras con color
%5
	r2 \[d'' ~ |
	d'' f'' ~ \] |
	f''4 e''8 d'' c''4 d'' |
	e'' d''2 cis''4 |
	d''\breve*1/2 |
%10
	d''1 |
	d''2 d'' |
	e''1 |
	d'' |
	R1*4/4 |
%15
	R1*4/4 |
	R1*4/4 |
	e''1 |
	f''2 e''4 e'' ~ |
	e'' e'' e'' e'' |
%20
	d'' e'' f'' e'' ~ |
	e'' d''8 c'' d''2 |
	e''1 |
	R1*4/4 |
	R1*4/4 |
%25
	r4 e''2 e''4 |
	e'' e'' d'' e'' |
	f''1 |
	e''\breve*1/2 |
	r2 a' ~ |
%30
	a'4 b' c'' d'' |
	c'' b'8 a' b'2 |
	a'4 f''2 e''4 |
	d''2 r |
	r4 e''4. d''16 c'' b'4 |
%35
	\[cis''2 d''\] |
	e''\breve*1/2 |
	d''2. d''4 |
	f''2. e''8 d'' |
	c''4 d''2 cis''4 |
%40
	d''1 |
	R1*4/4 |
	R1*4/4 |
	r2 d'' ~ |
	d''4 c'' bes'2 |
%45
	a'4 g' f'2 |
	e' d'4 d'' |
	d'' f'' e''8 d'' d''4 ~ |
	d'' cis'' d''2 |
	R1*4/4 |
%50
	R1*4/4 |
	r4 d'' d'' f'' |
	e''8 d'' d''2 cis''4 |
	d''1 ~ |
	d'' ~ |
%55
	d''\breve*1/2 |
	r2 d'' ~ |
	d'' f'' |
	e'' d'' |
	R1*4/4 |
%60
	f''1 |
	f''2 d''4 d'' ~ |
	d'' cis''8 b' cis''2 |
	r4 d'' f'' f'' |
	e''\breve*1/2 |
%65
	r2 a' ~ |
	a' c'' ~ |
	c'' d'' |
	e''2. e''4 |
	f''2. d''4 |
%70
	d''2 r |
	R1*4/4 |
	e''1 |
	f''2. f''4 |
	f''1 |
%75
	r4 f''2 e''8 d'' |
	e''2 d'' |
	d''1 |
	e'' |
	f''4. e''8 d'' c'' bes' a' |
%80
	g'4 a' bes' g' |
	a'\breve*1/2
}

cantusdos= {
	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 |
	s4*0^\markup{"Cantus II"}
	r2 a' ~ |
	a' a' |
	c'' d'' |
	R1*4/4 |
%60
	d''1 |
	c''2 bes' |
	a' e'' |
	f'' d''4 d'' ~ |
	d'' cis''8 b' cis''\breve*1/4 |
%65
	d''1 |
	f''2. e''8 d'' |
	e''4 f''4. e''8 d''4 ~ |
	d'' cis''8 b' cis''4 cis'' |
	d''1 |
%70
	R1*4/4 |
	R1*4/4 |
	R1*4/4 |
	r2 a' ~ |
	a' c'' ~ |
%75
	c''4 c'' c''2 |
	r4 c''2 b'8 a' |
	b'2 a'4 d'' ~ |
	d'' cis''8 b' cis''2 |
	d''1 ~ |
%80
	d'' ~ |
	d''\breve*1/2
}

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

altusdos={
	R1*4/4 |
	R1*4/4 |
	R1*4/4 |
	R1*4/4 |
%5
	\[a'1 |
	bes'2.\] a'8 g' |
	f'4 g' a' f' |
	e' a'4. g'16 f' e'4 |
	fis'\breve*1/2 |
%10
	g'1 |
	fis'2 g' |
	g'1 |
	g'2 r4 d' |
	e' f'2 d'4 |
%15
	a'4. f'8 bes'4 a' ~ |
	a' g'8 f' g'2 |
	a' r |
	r4 d' a'2 |
	gis'4 a'2 \ss g'4 |
%20
	f' e' d' c' |
	f'1 |
	e'4 e'2 e'4 |
	e' e' d' e' |
	f' e'2 d'4 |
%25
	e'2 e'4. e'8 |
	e'4 e' a' a' |
	a'4.  g'8[ f' e'] d'4 ~ |
	d' cis' cis'\breve*1/4 |
	d'2. e'4 |
%30
	f' g' a' d' |
	e'1 |
	f'2. g'4 |
	a' g'8 f' e'4 f' |
	e'1 |
%35
	\[e'2 f'\] |
	e'\breve*1/2 |
	R1*4/4 |
	R1*4/4 |
	R1*4/4 |
%40
	R1*4/4 |
	a'2. g'4 |
	f' e' f' d' ~ |
	d' cis' d'8 e' f' d' |
	e'2 r |
%45
	R1*4/4 |
	r2 r4 d' |
	bes' a' g'4. f'8 |
	e'2 d'4 f' |
	g' a' bes'4. a'8 |
%50
	g'4 f' e'2 |
	d' r |
	R1*4/4 |
	r4 \ss fis' g' a' |
	bes'4. a'8 g'2 ~ |
%55
	g'4 fis' fis'\breve*1/4 |
	R1*4/4 |
	R1*4/4 |
	r2 d' |
	f' e' |
%60
	d'1 |
	R1*4/4 |
	r2 e' |
	d' d' |
	e'\breve*1/2 |
%65
	R1*4/4 |
	R1*4/4 |
	R1*4/4 |
	R1*4/4 |
	d'1 |
%70
	f'2. e'8 d' |
	e'4 f'4. e'8 d'4 ~ |
	d' cis'8 b cis'4 cis' |
	d'2 r4 f' |
	a'2. a'4 |
%75
	a'2 g'4. f'8 |
	e'4 c' d'2 |
	g4 g'2 f'4 |
	e'1 |
	d' ~ |
%80
	d' ~ |
	d'\breve*1/2
}

tenor={
	\[d'1 |
	f'2.\] e'8 d' |
	c'4 d' e' d' ~ |
	d' cis'8 b cis'2 |
%5
	d'1 ~ |
	d'2 r4 d' ~ |
	d' c'8 b a4. b8 |
	c'4 d' e'2 |
	d'\breve*1/2 |
%10
	d'1 |
	d'2 d' |
	c'1 |
	d' |
	r2 d' |
%15
	e'4 f'2 e'4 |
	f'8 e' d' c' d'2 ~ |
	d'4 cis'8 b cis'2 |
	d' r |
	R1*4/4 |
%20
	R1*4/4 |
	r2 a |
	c' b4 c' ~ |
	c' b a gis |
	a c' a2 |
%25
	b cis'4. cis'8 |
	\ss cis'4 cis' d' cis'! |
	d'1 |
	e'\breve*1/2 |
	R1*4/4 |
%30
	R1*4/4 |
	R1*4/4 |
	r2 a ~ |
	a4 b c' d' |
	c' b8 a b2 |
%35
	a d' ~ |
	d'4 cis'8 b cis'\breve*1/4 |
	r2 d' ~ |
	d'4 d' f'2 ~ |
	f'4 e'8 d' e'2 |
%40
	d' f' ~ |
	f'4 e' d'2 |
	c'4 bes a2 |
	g a ~ |
	a r |
%45
	R1*4/4 |
	R1*4/4 |
	R1*4/4 |
	r2 r4 d' |
	e' fis' g'4. \ss f'8 |
%50
	e'4 d'2 cis'4 |
	d'2 r4 a' |
	g' f' e'2 |
	d'1 ~ |
	d' ~ |
%55
	d'\breve*1/2 |
	R1*4/4 |
	R1*4/4 |
	r2 d' ~ |
	d' c' |
%60
	bes a |
	R1*4/4 |
	r2 a |
	a a |
	a\breve*1/2 |
%65
	R1*4/4 |
	R1*4/4 |
	R1*4/4 |
	R1*4/4 |
	r2 a ~ |
%70
	a c' ~ |
	c' d' |
	e'1 |
	d' |
	c'2. c'4 |
%75
	c'1 |
	\[g |
	d'2.\] a4 |
	a1 |
	a2 r4 g |
%80
	d'2 bes |
	a\breve*1/2
}

bassus={
	r2 \[d ~ |
	d a ~ \] |
	a4 g8 f e4 f |
	g8 f e d e2 |
%5
	d1 |
	\[g2 d ~ \] |
	d4 e f d | % el fa tiene un ganchito
	a1 |
	d\breve*1/2 |
%10
	g1 |
	d2 g |
	c1 |
	g2 g ~ |
	g4 a bes2 |
%15
	a4 d'2 cis'4 |
	d'8 c' bes a bes2 |
	a1 |
	R1*4/4 |
	R1*4/4 |
%20
	R1*4/4 |
	r2 d |
	a gis4 a ~ |
	a g f e |
	d c f2 |
%25
	e a4. a8 |
	a4 a d a |
	d1 |
	a\breve*1/2 |
	R1*4/4 |
%30
	R1*4/4 |
	R1*4/4 |
	d2. e4 |
	f g a d |
	e1 |
%35
	\[a2 d\] |
	a\breve*1/2 |
	R1*4/4 |
	R1*4/4 |
	R1*4/4 |
%40
	r2 d' ~ |
	d'4 c' bes2 |
	a4 g f2 |
	e d |
	R1*4/4 |
%45
	r2 r4 f |
	g a bes4. a8 |
	g4 f \[g2 |
	a\] d |
	R1*4/4 |
%50
	r4 f g a |
	bes4. a8 g4 f |
	\[g2 a\] |
	d4 d g fis |
	g1 |
%55
	d\breve*1/2 |
	R1*4/4 |
	d'1 |
	c'2 bes |
	a1 |
%60
	d |
	f2 g |
	a r4 a |
	d2 d |
	<a a,>\breve*1/2 |
%65
	R1*4/4 |
	R1*4/4 |
	R1*4/4 |
	R1*4/4 |
	r2 d ~ |
%70
	d a ~ |
	a bes |
	a1 |
	d |
	f2. f4 |
%75
	f2 \[c ~ |
	c g ~ \] |
	g d |
	\[a a,\] |
	d g ~ |
%80
	g4 fis g2 |
	d\breve*1/2
}

textocantus=\lyricmode{
A -- _ _ _ _ _ _ _ _ _ _ leph.
E -- go vir vi -- dens
in vir -- ga in -- _ di -- gna -- ti -- o -- nis e -- _ _ _ _ _ ius
in -- di -- gna -- ti -- o -- nis e -- ius.
A -- _ _ _ _ _ _ _ _ leph, 
\italicas
a -- _ leph
\rectas
a -- _ _ _ _ _ leph.
Me mi -- na -- _ _ _ _ _ vit
et _ ad -- du -- xit in te -- ne -- bras, et non in lu -- _ _ _ _ cem
et non in lu -- _ _ _ cem. _ _ 
Ie -- _ ru -- sa -- lem
\italicas
Ie -- ru -- sa -- lem __ _ _ _ _ 
\rectas
Ie -- ru -- sa -- lem.
Con -- _ ver -- _ te -- re,
\italicas
con -- ver -- te -- re
\rectas
ad Do -- mi -- num De -- _ _ _ um
tu -- um,
De -- _ _ _ _ _ _ um tu -- _ um.
}

textocantusdos=\lyricmode{
Ie -- _ ru -- sa -- lem
\italicas
Ie -- ru -- sa -- lem, 
Ie -- ru -- sa -- lem. __ _ _ _ _ 
\rectas
Con -- ver -- _ _ _ _ _ _ _ _ _ _ te -- re
ad _ Do -- _ mi -- num
De -- _ _ _ um tu -- _ _ _ _ um. _ _
}

textoaltus=\lyricmode{
A -- _ _ _ _ _ _ _ _ _ leph, __ _ _ _ _ _ _ _ _ 
\italicas
a -- leph
\rectas
a -- _ _ _ _ _ leph.
E -- go vir vi -- dens
in _ vir -- ga in -- di -- gna -- ti -- o -- nis e -- ius
in vir -- _ ga in -- di -- gna -- ti -- o -- nis e -- _ _ _ _ ius.
A -- _ _ _ _ leph
\italicas
a -- _ _ _ _ leph. _
\rectas
Me mi -- na -- vit
et ad -- du -- xit in te -- _ ne -- bras, et non in lu -- _ cem
et non in lu -- _ cem,
\italicas et non in lu -- _ _ cem. \rectas 
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,
De -- _ um tu -- _ um. __ _ _ 
}

textoaltusdos=\lyricmode{
A -- _ _ _ _ _ _ _ leph,
\italicas
a -- _ _ _  leph.
\rectas
E -- go vir vi -- dens
pau -- per -- ta -- tem me -- _ _ _ _ _ _ _ am 
in vir -- ga in  -- di -- gna -- ti -- o -- nis e -- ius,
in -- di -- gna -- ti -- o -- nis e -- _ _ ius,
in -- di -- gna -- ti -- o -- nis e -- _ _ _ _ _ _ ius.
A -- _ _ _ _ _ leph,
\italicas
a -- _ _ _ _ _ _ leph,
\rectas
a -- _ leph.
et ad -- du -- xit in te -- _ ne bras __ _ _ _ _ 
et non in lu -- _ _ cem,
et non in lu -- _ _ _ _ cem
et non in lu -- _ _ _ _ cem.
Ie -- ru -- sa -- lem
\italicas
Ie -- ru -- sa -- lem.
\rectas
Con -- ver -- _ _ _ _ _ _ _ _ _ _ te -- re
ad Do -- mi -- num De -- _ _ _ _ um 
tu -- _ _ um. _ _ 
}

textotenor=\lyricmode{
A -- _ _ _ _ _ _ _ _ _ _ _ leph _
\italicas
a -- _ _ _ _ _ _ _ _ leph.
\rectas
E -- go vir vi -- dens
pau -- per -- ta -- tem me -- _ _ _ _ _ _ _ _ am
in vir -- ga in -- _ di -- gna -- ti -- o -- nis e -- ius,
in -- di -- gna -- ti -- o -- nis e -- ius.
A -- _ _ _ _ _ _ _ _ leph,
\italicas
a -- _ _ _ leph.
\rectas
Me _ mi -- na -- _ _ _ _ vit,
et _ ad -- du -- xit in te -- ne -- bras _
et non in lu -- _ _ _ _ cem
et non in lu -- cem. _ _
Ie -- _ ru -- sa -- lem
\italicas
Ie -- ru -- sa -- lem.
\rectas
Con -- _ ver -- _ te -- re
ad Do -- mi -- num De -- _ um tu -- um
De -- um tu -- um.
}

textobassus=\lyricmode{
A -- _ _ _ _ _ _ _ _ _ _ _ _ leph,
a -- _ _ _ _ _ _ leph.
E -- go vir  vi -- dens pau -- _ per -- ta -- tem me -- _ _ _ _ _ _ am
in vir -- ga in -- _ di -- gna -- ti -- o -- nis e -- ius,
in -- di -- gna -- ti -- o -- nis e -- ius.
A -- _ _ _ _ _ leph,
\italicas
a -- _ leph.
\rectas
et _ ad -- du -- xit in te -- ne -- bras
et non in lu -- _ _ _ _ _ cem
et non in lu -- _ _ _ _ _ \italicas cem, et non in lu -- \rectas cem.
Ie -- ru -- sa -- lem,
\italicas
Ie -- ru -- sa -- lem
Ie -- ru -- sa -- lem.
\rectas
Con -- _ ver -- _ te -- re ad Do -- mi -- num De -- _ _ _ um
tu -- _ um, De -- _ um tu -- um.
}

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 a \minor
		\time 2/2
		%\[d''\breve f''1.\]
		\[d''\breve f''\]
		} 
	\layout {
                \context {\Voice
                        \remove Ligature_bracket_engraver
                        \consists Mensural_ligature_engraver
                }
                line-width=\incipitwidth
                indent=0
        }
	}
}


incipitaltus=\markup{
	\score{
		{ 
		\set Staff.instrumentName="Altus I   "
		\override NoteHead.style = #'neomensural 
		\override Rest.style = #'neomensural
		\override Staff.TimeSignature.style = #'neomensural
		\cadenzaOn 
		\clef "petrucci-c1"
		\key a \minor
		\time 2/2
		%\[a'\breve c''1.\] % ennegrecida
		\[a'\breve c''\]
		} 
	\layout {
                \context {\Voice
                        \remove Ligature_bracket_engraver
                        \consists Mensural_ligature_engraver
                }
                line-width=\incipitwidth
                indent=0
        }
	}
}

incipitaltusdos=\markup{
	\score{
		{ 
		\set Staff.instrumentName="Altus II "
		\override NoteHead.style = #'neomensural 
		\override Rest.style = #'neomensural
		\override Staff.TimeSignature.style = #'neomensural
		\cadenzaOn 
		\clef "petrucci-c2"
		\key a \minor
		\time 2/2
		%\[a'\breve bes1.\]
		\[a'\breve b'\] % bug en lilypond: el bemol descuadra todas las distancias
		} 
	\layout {
                \context {\Voice
                        \remove Ligature_bracket_engraver
                        \consists Mensural_ligature_engraver
                }
                line-width=\incipitwidth
                indent=0
                %indent=-6.25 % bug en lilypond: el bemol descuadra todas las distancias
        }
	}
}


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 a \minor
		\time 2/2
		%\[d'\breve f'1.\]
		\[d'\breve f'\]
		} 
	\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-c4"
		\key a \minor
		\time 2/2
		%\[d\breve a1.\]
		\[d\breve a\]
		} 
	\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 = "C"
			\clef "treble"
			\cantus }
		\new Lyrics \lyricsto "v1" { \textocantus }
		>>

		\new Staff \with {\remove "Ambitus_engraver"} <<\global
		\new Voice = "v2" {
			\set Staff.instrumentName = "Cantus II "
			\set Staff.shortInstrumentName = "C2"
			\clef "treble"
			\cantusdos }
		\new Lyrics \lyricsto "v2" { \textocantusdos }
		>>

		\new Staff <<\global
		\new Voice = "v3" {
			\set Staff.instrumentName = \incipitaltus
			\set Staff.shortInstrumentName = "A1"
			\clef "treble"
			\altus }
		\new Lyrics \lyricsto "v3" { \textoaltus }
		>>

		\new Staff <<\global
		\new Voice = "v4" {
			\set Staff.instrumentName = \incipitaltusdos
			\set Staff.shortInstrumentName = "A2"
			\clef "treble"
			\altusdos }
		\new Lyrics \lyricsto "v4" { \textoaltusdos }
		>>

		\new Staff <<\global
		\new Voice = "v5" {
			\set Staff.instrumentName = \incipittenor
			\set Staff.shortInstrumentName = "T"
			\clef "G_8"
			\tenor }
		\new Lyrics \lyricsto "v5" { \textotenor }
		>>

		\new Staff <<\global
		\new Voice ="v6" {
			\set Staff.instrumentName = \incipitbassus
			\set Staff.shortInstrumentName = "B"
			\clef "bass"
			\bassus }
		\new Lyrics \lyricsto "v6" { \textobassus }
		>>
	>>
      }%transpose

\layout{ 
	\context {\Score \override BarNumber.padding = #2 }
	\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 {\Voice melismaBusyProperties = #'() }
	\context {\Staff \consists Ambitus_engraver
			\RemoveEmptyStaves
			\override VerticalAxisGroup.remove-first = ##t
			\override LigatureBracket.padding = #1
			\override VerticalAxisGroup.staff-staff-spacing =
			#'((basic-distance . 11) (minimum-distance . 0) (padding . 1))
	}
}

%\midi {\tempo 4 = 100}
 

}
\paper{
	evenHeaderMarkup=\markup  \fill-line { \fromproperty #'page:page-number-string \htitle \hcomposer }
	oddHeaderMarkup= \markup  \fill-line { \on-the-fly #not-first-page \smaller "Lamentationes Ieremiæ" \on-the-fly #not-first-page \htitle \on-the-fly #not-first-page \fromproperty #'page:page-number-string }
	%system-count=8
	%page-count=1
	ragged-last-bottom = ##f
	indent=3.7\cm
	system-system-spacing =
	#'((basic-distance . 20) (minimum-distance . 0) (padding . 5))
	top-system-spacing = % header
	#'((basic-distance . 0) (minimum-distance . 0) (padding . 4))
	last-bottom-spacing = % footer
	#'((basic-distance . 12) (minimum-distance . 0) (padding . 0))
	%top-markup-spacing #'basic-distance = 0
	%markup-system-spacing #'basic-distance = 20
}