\version "2.18.0"

#(set-default-paper-size "a4")
#(set-global-staff-size 16.0)
#(ly:set-option 'point-and-click #f)
%mobile -s13.5 -i0.5

mtempo={\tempo 4 = 100}
mtempob={\tempo 4 = 50}
ss=\once \set suggestAccidentals = ##t

htitle="2. Tristis est anima mea"
hcomposer="Gesualdo"

\header {
	title=\markup{\fontsize #3 "2. Tristis est anima mea"}
	subtitle=\markup {"Responsorio de Jueves Santo"}
	subsubtitle=\markup{\null \vspace #2 }
	composer=\markup{\right-column{ "Carlo Gesualdo de Venosa"  "(c.1566-1613)"}}
        pdfauthor=\composer
	poet="1611"
	copyright=\markup{
		\fill-line {"Edited by Nancho Alvarez" \typewriter "http://tomasluisdevictoria.org"}
	}
%	tagline=""
}


global={\key c \major \time 4/4 \skip 1*28 \bar "||" \break
				\skip 1*19 \bar "||" \break
				\skip 1*12 \bar "|." }


cantus=\relative c''{
        R1*2
        \[c2 a ~ \]
        a4 g a2
        r4 e4. e8 d4
        e2 d
        r4 d'4. d8 c4
        e1
        a,4 a2 a4
        f4 f2 e4
        a8[ b16 c] d2 d4
        R1
        c2 c4 d
        a2 c
        e1
        e,2 e ~
        e r4 b'8 b
        b4. b8 b2
        r4 c8 c cis4. cis8
        cis2 r
        R1
        \ss c2 c4 a8 a16 a
        g2 g
        R1
        r2 a
        r4 d2 bes8[ a]
        g[ a] bes d4 d8 g,4
        a\breve*1/2
        \mark \markup { \musicglyph #"scripts.segno" }
	d1
	r2 d16[ c bes a] g8 a ~
	a d4 c8 ~ c16[ b a g] f8 a
	c16 c c4 a8 r4 gis
	gis gis g e
	R1*4
	r2 r4 cis'
	cis cis c a
	r4 cis cis cis
	c2 a
	gis8 gis gis2 gis8 gis
	g!1
	fis2. b4
	bes2 a ~
	a1 ~
	a\breve*1/2
	\override Score.RehearsalMark.self-alignment-X = #right
	\override Score.RehearsalMark.break-visibility = #'#(#t #t #f)
	\mark \markup{"FINE"}
	s4*0^\markup{"Cantus I"}
	c2 c ~
	c4 bes2 a4
	fis8[ e16 fis] g2 e4
	e2 e
	r4 e fis4. fis8
	g4 c2 c4
	b4 b cis2
	cis r
	r a
	\ss c!4 a c4. b8
	a1 ~
	a2 \mtempob gis\breve*1/4
	\mark \markup{"D.S."}
}

cantusdos=\relative c'{
	R1
	r2 r4 \[f ~
	f e2\] d4
	f4 g4. fis8 fis4
	g8[ a b g] c4 a ~
	a a2 a4
	g4 d2 e8 e ~
	e e g4 a8[ g a b]
	c4 d8[ e] a,4 d,
	r4 c' c c
	fis,8[ d] g2 fis4
	gis8 gis a4 b8[ a16 b] c4
	a4 a2 a4
	e'1
	e,4 fis8[ gis] a2 ~
	a b ~
	b r4 fis8 fis
	fis4. fis8 fis2
	r4 a8 a a4. a8
	a2 a4 b8 d 
	a d, f8.[ e16] d8[ c d e]
	f4 a8 a4 a8 c c16 c
	c2 c
	R1
	r2 d2
	bes8[ a g a] bes4 d ~
	d d, g2
	fis\breve*1/2
	a1
	a16[ g f e] d4 d r
	f2 r8 c'16[ b] a[ g f8]
	a8 a16 a a8 c r2
	R1
	r4 gis gis gis
	g!2 e
	dis8 dis dis2 dis8 dis
	d!1
	cis2 r
	R1*5
	r2 a'4 g ~
	g8[ f e d] cis[ d] e4 ~
	e d8[ cis] d2
	e\breve*1/2
	s4*0^\markup{"Cantus II"}
	a2 a ~
	a4 g e2
	d2. c4
	b2 b
	r4 b d4. d8 
	e4 g2 g4
	g4 fis2 fis4 ~
	fis eis r2
	r2 fis
	a4 f! a g % \ss?
	f e2 d8[ c]
	d2 e\breve*1/4
}

altus=\relative c'{
	R1
	r2 \[d2
	c2.\] a4
	bes2 r
	r a ~
	a4 g2 fis4
	g4 g'4. gis8 a4 ~
	a e4. e8 c4
	f8[ e d cis] d[ e f g]
	a2 g
	d d
	c g
	a1 ~
	a2 a'
	cis,4 d2 c8[ b]
	c2 b ~
	b r4 d8 d
	dis4. dis8 dis2
	r4 e8 e e4. e8
	e2 r4 d
	f8 a d, a bes2
	a4 f' f8 f4 f16 f
	e2 e
	R1
	c4 d8[ e f e] d4
	g8[ f] d4 g8 f4 e8
	d8[ e16 f] g8 g4 d8 d4
	d\breve*1/2
	fis1
	r2 g8.[ f16] e[ d c8]
	d4 a'8. a16 a8 a, r4
	f'16 f f4 f8 r2
	R1*5
	r2 r4 a
	a a a, a
	r4 a' a a
	a,2. a4
	b8 b b2 b4
	c2 bes
	a r2
	r2 a
	a1
	cis\breve*1/2
	s4*0^\markup{"Altus"}
	f2 f
	d c
	b2. a4
	gis2 gis
	r4 gis a4. a8
	c4 e2 e4
	d d a'2
	gis2 cis,4 d
	cis e2 d4
	e8[ d c d] e[ f] e4 ~
	e8[ d c b] a2 ~
	a b\breve*1/4
}

tenor=\relative c'{
	R1
	r4 \[bes2 a4 ~ \]
	a4 g a2
	d4. d8 e4 c ~
	c b r4 r8 d ~
	d d cis4 d2 ~
	d4 b2 e,4 ~
	e8 e c'4 a2
	f4 r4 f' f
	c2 c,
	d a'4. a8
	e'2. e4 ~
	e8[ d16 e] f2 d4
	e4 e2 e4
	a,1 ~
	a
	gis2 r4 b8 b
	b4. b8 b2
	r4 e,8 e e4. e8
	e2 r
	R1
	c'2 c4 c8 f,16 f
	g2. g4
	g4 a8[ b c b] a4
	f8 e a4 a2
	d8[ c bes c] d4 d, ~
	d8 d d4 d2 ~
	d\breve*1/2
	d'1
	r4 f16[ e d c] bes8 g r4
	a8 d,16[ e] f[ g] a4 c c16 c
	c4 c r4 e
	e4 e e, e
	r4 b' b8 b b4 ~
	b4 a8[ g] a4 a
	b8 b b2 b4 ~
	b4 g g2
	a2 r4 a
	a a f f
	r4 a a a
	f2 f
	e8 e e2 e4 ~
	e8 c c4 d2 ~
	d1 ~
	d2 r4 cis
	d4. e8[ f g] a4
	a\breve*1/2
	R1*12
}

tenordos=\relative c{
	\[f2 e\]
	d2 f ~
	f \[f
	d\] c
	d4 g4. g8 f4
	a1
	d,2 r4 a' ~
	a8 a g4 e2
	c'4 a2 a4
	r4 c2 c4 ~
	c bes4 d,2
	e1
	c'2 c4 a
	cis,2 e ~
	e1 ~
	e ~
	e2 r4 fis8 fis
	fis4. fis8 fis2
	r2 a8 a a4 ~
	a8 a a4 r2
	R1
	f4 f f4. c'16 c
	c2 c
	r2 e,4 f8[ g]
	a[ g] f4 d4. d8
	d2 d8 d g8[ a]
	bes[ a] g bes4 bes8 bes4
	a\breve*1/2
	a1
	r2 r4 c16[ b a g]
	f8 f a16[ b c d] e8 f4 f,16 f
	f4 f r4 b
	b8 b b2 a4
	r4 e' e e
	e,2. e4
	fis8 fis fis2 fis4 ~
	fis d d2
	e2 r4 e'
	e8 e e2 d4
	r4 e e8 e e4 ~
	e d8[ c] d4 d
	e8 e e2 e4 ~
	e8 e ees4 d2 ~
	d1 ~
	d2 fis,
	f!1
	e\breve*1/2
	R1*12
}

bassus=\relative c{
	R1*3
	\once \override LigatureBracket.style=#'dashed-line
	\[bes2 a\] % no hay ligadura?
	g a ~
	a \[d
	b2.\] a4
	c4 c4. c8 a4
	a'8[ g f e] d[ cis d e]
	f2 g
	R1*2
	f2 f
	e a, ~
	a1 ~
	a2 e ~
	e r4 b'8 b
	b4. b8 b2
	r4 a8 a a4. a8
	a2 r
	R1
	f2 f4 f8 a16 a
	c2 c
	R1
	r2 r4 fis,4
	g8[ a bes a] g2
	g4. g8 g2
	d'\breve*1/2
	d1
	r2 r4 r8 f16[ e]
	d[ c bes8] a4. f4 f8
	f4 f r4 e'
	e e c c
	r4 e e e
	c2. c4
	b8 b b4 b2
	b bes
	a r
	R1*5
	r2 r4 g
	g2 a
	r4 f f2
	a\breve*1/2
	s4*0^\markup{"Bassus"}
	f'2 f
	fis4 g a2 ~
	a4 g e2 ~
	e e
	r4 e d4. d8
	c4 c2 e4
	g4 d cis2
	cis r4 fis
	a gis a2
	a,1 ~
	a2 f' ~
	f e\breve*1/4
	
}


textocantus=\lyricmode{
Tri -- _ stis est
a -- ni -- ma me -- a
a -- ni -- ma me -- a,
us -- que,
us -- que ad mor -- _ tem
us -- que ad mor -- tem,
ad mor -- tem:
sus -- ti -- ne -- te hic
sus -- ti -- ne -- te hic
nunc vi -- de -- bi -- tis tur -- bam
quæ quæ cir -- _ _ cum -- da -- bit me:
Vos fu -- _ gam,
vos fu -- _ gam ca -- pi -- e -- tis
et e -- go va -- dam
et e -- go va -- dam
et e -- go va -- dam
im -- mo -- la -- ri pro vo -- bis,
pro vo -- bis.
Ec -- ce ap -- pro -- pin -- _ quat ho -- ra
et Fi -- li -- us ho -- mi -- nis tra -- de -- tur
in ma -- nus pec -- ca -- to -- rum.
}

textocantusdos=\lyricmode{
Tri -- _ stis est a -- ni -- ma me -- _ a,
us -- que ad mor -- tem,
a -- ni -- ma me -- _ _ _ a
us -- que ad mor -- _ _ tem,
ad mor -- _ _ tem,
us -- que ad mor -- _ _ tem:
sus -- ti -- ne -- te hic
sus -- ti -- ne -- te hic,
et vi -- gi -- la -- te me -- _ _ cum:
nunc vi -- de -- vi -- tis tur -- bam
quæ cir -- _ cum -- da -- bit me:
Vos fu -- _ gam
vos fu -- _ gam ca -- pi -- e -- tis
et e -- go va -- dam
im -- mo -- la -- ri pro vo -- bis
pro vo -- _ _ _ _ bis.
Ec -- ce ap -- pro -- pin -- quat ho -- ra
et Fi -- li -- us ho -- mi -- nis tra -- de -- tur
in ma -- nus pec -- ca -- to -- _ _ _ rum.
}

textoaltus=\lyricmode{
Tri -- _ stis est
tri -- _ stis est a -- ni -- ma,
a -- ni -- ma me -- _ _ a,
us -- que ad mor -- tem,
ad mor -- _ _ _ tem:
sus -- ti -- ne -- te hic
sus -- ti -- ne -- te hic
et vi -- gi -- la -- te me -- cum:
nunc vi -- de -- bi -- tis tur -- bam
quæ cir -- cum -- da -- bit,
quæ cir -- _ _ _ cum -- da -- bit me:
Vos fu -- _ gam ca -- pi -- e -- tis
ca -- pi -- e -- tis
et e -- go va -- dam
et e -- go va -- dam im -- mo -- la -- ri
pro vo -- bis
pro vo -- bis.
Ec -- ce ap -- pro -- pin -- quat ho -- ra
et Fi -- li -- us ho -- mi -- nis tra -- de -- tur,
in ma -- nus pec -- ca -- to -- _ _ _ rum.
}

textotenor=\lyricmode{
Tri -- _ stis est a -- ni -- ma me -- a
a -- ni -- ma me -- a,
a -- ni -- ma me -- a
us -- que ad mor -- tem,
a -- ni -- ma me -- _ a,
us -- que ad mor -- tem:
sus -- ti -- ne -- te hic
sus -- ti -- ne -- te hic
nunc vi -- de -- bi -- tis tur -- bam,
quæ cir -- _ cum -- da -- bit,
quæ cir -- _ cum -- da -- bit me:
Vos fu -- _ gam
vos fu -- _ _ gam ca -- pi -- e -- tis
et e -- go va -- dam
et e -- go va -- _ _ dam
im -- mo -- la -- ri pro vo -- bis
et e -- go va -- dam
et e -- go va -- dam
im -- mo -- la -- ri pro vo -- bis
pro vo -- _ _ bis.
}

textotenordos=\lyricmode{
Tri -- _ stis est,
tri -- _ stis est a -- ni -- ma me -- a
a -- ni -- ma me -- a,
us -- que
us -- que ad mor -- tem,
us -- que ad mor -- tem:
sus -- ti -- ne -- te hic
sus -- ti -- ne -- te hic
nunc vi -- de -- bi -- tis tur -- bam
quæ cir -- _ _ cum -- da -- bit me,
quæ cir -- _ _ cum -- da -- bit me:
Vos fu -- _ gam,
fu -- _ gam ca -- pi -- e -- tis
et e -- go va -- dam
et e -- go va -- dam im -- mo -- la -- ri pro vo -- bis
et e -- go va -- dam
et e -- go va -- _ _ dam im -- mo -- la -- ri
pro vo -- bis,
pro vo -- bis.
}

textobassus=\lyricmode{
Tri -- _ stis est,
tri -- _ stis est a -- ni -- ma me -- _ _ a
us -- que ad mor -- tem:
sus -- ti -- ne -- te hic
sus -- ti -- ne -- te hic
nunc vi -- de -- bi -- tis tur -- bam
quæ cir -- _ cum -- da -- bit me:
Vos fu -- _ gam ca -- pi -- e -- tis
et e -- go va -- dam
et e -- go va -- dam im -- mo -- la -- ri pro vo -- bis
pro vo -- bis
pro vo -- bis.
Ec -- ce ap -- pro -- pin -- quat ho -- ra
et Fi -- li -- us ho -- mi -- nis tra -- de -- tur
in ma -- nus pec -- ca -- to -- rum.
}



\score {
\new ChoirStaff<<

	\new Staff <<\global
	\new Voice="v1" {
		\set Staff.instrumentName="C1 " 
		\clef "treble"
		\cantus }
	\new Lyrics \lyricsto "v1" {\textocantus }
	>>

	\new Staff <<\global
	\new Voice="v5" {
		\set Staff.instrumentName="C2 " 
		\clef "treble"
		\cantusdos }
	\new Lyrics \lyricsto "v5" {\textocantusdos }
	>>

	
	\new Staff << \global
	\new Voice="v2" {
		\set Staff.instrumentName="A  "
		\clef "G_8" 
		\altus}
	\new Lyrics \lyricsto "v2" {\textoaltus }
	>>

	
	\new Staff <<\global
	\new Voice="v3" {
		\set Staff.instrumentName="T1 "
		\clef "G_8"
		\tenor }
	\new Lyrics \lyricsto "v3" {\textotenor }
	>>
	
	
	\new Staff <<\global
	\new Voice="v6" {
		\set Staff.instrumentName="T2 "
		\clef "G_8"
		\tenordos }
	\new Lyrics \lyricsto "v6" {\textotenordos }
	>>
	

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

\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
	%systems-per-page = 3
	ragged-last-bottom = ##f
	indent=0.8\cm
	system-system-spacing =
	#'((basic-distance . 20) (minimum-distance . 0) (padding . 5))
	top-system-spacing = % header
	#'((basic-distance . 9) (minimum-distance . 0) (padding . 0))
	last-bottom-spacing = % footer
	#'((basic-distance . 12) (minimum-distance . 0) (padding . 0))
	%markup-system-spacing.padding = #1.5
}