\version "2.18.0"

#(set-default-paper-size "a4")
#(set-global-staff-size 16.3)
#(ly:set-option 'point-and-click #f)
%mobile -s15.0 -i2.8 -m7

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

htitle="4. Heth. Cogitavit Dominus"
hcomposer="Victoria"

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

\header {
	title=\markup{\fontsize #3 "4. Heth. Cogitavit Dominus" }
	subtitle=\markup{"Lectio prima, 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 c \major \time 2/2 \skip 1*6 \bar "||" \break
				\skip 1*40 \bar "||" \break
				\skip 1*9 \bar "||" \break
				\skip 1*17 \bar "|."
}

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

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


altusdos={
	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 |
	s4*0^\markup{"Altus II"}
	d'1 |
	e'4. d'8[ e' f'] g'4 ~ |
	g' fis'8 e' fis'4 fis' |
%50
	g'2 r |
	g'1 |
	a'2. a'4 |
	b'!2 r4 g' |
	g'8 f' e' d' c'4 c' |
%55
	d'\breve*1/2 |
	g'1 |
	d' |
	f' |
	c'2 r4 f' ~ |
%60
	f' e'8 d' e'4 e' |
	d'1 |
	r4 e' a' a' |
	g' a'4. g'8 g'4 ~ |
	g' fis' \[g'2 |
%65
	a'\] g' |
	r r4 g' |
	g' g' a'2 |
	r4 a' a' a' |
	a'2 g' ~ |
%70
	g'4 d' g'2 ~ |
	g'4 fis'8 e' fis'2 |
	g'\breve*1/2
}

tenor={
	g'2. f'4 |
	e' d' c' b |
	a g a b |
	c'2 r |
%5
	\[c'1 |
	d'\breve*1/2\] |
	e'1 |
	e'2 f' |
	d' d' ~ |
%10
	d'4 d' d'2 |
	g'4. f'8 e'4 d' |
	c' b a a ~ |
	a b c' c' |
	c'2 c' |
%15
	r4 d'2 g4 |
	a4. b8 c'2 |
	d' c'4 e' |
	e'4. d'8 c'4 b |
	a8[ g] f[ g a b] c'4 ~ |
%20
	c' b c' e' |
	d' c' d' e' ~ |
	e'8 d' c' b a4 b |
	c'4. b8 a2 |
	b1 |
%25
	r4 e' e' e' |
	f'2. f'4 |
	f' f' d'2 |
	c' e' ~ |
	e'4 e' e' e' |
%30
	c'1 |
	d'2 r |
	d'1 |
	f'2 e'4 c' ~ |
	c' d'2 e'4 ~ |
%35
	e' f'2 e'8 d' |
	e'1 |
	d'2 r4 d' |
	e' e' f'4. f'8 |
	f'4. e'8 d'2 |
%40
	r4 d' b c' ~ |
	c' b c'2 |
	r4 g' e' f' ~ |
	f' e' f' c' ~ |
	c' b \[g2 |
%45
	d'2.\] d'4 |
	d'\breve*1/2 |
	g1 |
	c'2. e'4 |
	d'1 |
%50
	r2 b |
	c'2. b4 |
	d'1 |
	r4 d' b b |
	c' g2 c'4 ~ |
%55
	c' b b\breve*1/4 |
	R1*4/4 |
	R1*4/4 |
	d'1 |
	a |
%60
	c' |
	g |
	r4 c' f' f' |
	e' f'4. e'8 c'4 |
	d'2 e' |
%65
	d' g4 d' |
	d' d' e'2 |
	r4 c' c' c' |
	a c' c' c' |
	c'2. g4 ~ |
%70
	g8 a b c' d'4 g |
	a1 |
	g\breve*1/2
}

bassus={
	r2 c' ~ |
	c'4 b a g |
	f e d2 |
	c4 c'2 b4 |
%5
	a1 |
	g\breve*1/2 |
	c'1 |
	a2 f |
	g d ~ |
%10
	d4 g g2 ~ |
	g r |
	r c'4. b8 |
	a4 g f e |
	f2 c |
%15
	g2. e4 |
	d8 e f g a2 |
	g c4 c' |
	c'4. b8 a4 g |
	f2. e4 |
%20
	d2 c4 c' |
	b c' g c' ~ |
	c'8 b a g f4 g |
	a4. g8 f2 |
	e1 |
%25
	R1*4/4 |
	R1*4/4 |
	R1*4/4 |
	r2 c' ~ |
	c'4 c' c' c' |
%30
	a1 |
	g2 r |
	g1 |
	f2 c |
	f g |
%35
	a bes |
	a1 |
	r4 d g2 |
	c f4. f8 |
	f2 g |
%40
	d e4. f8 |
	g4 g c c' ~ |
	c' g a4. b8 |
	c'4 c' f2 |
	g e |
%45
	d2. d4 |
	g\breve*1/2 |
	R1*4/4 |
	R1*4/4 |
	R1*4/4 |
%50
	g1 |
	c2. e4 |
	d1 |
	g |
	c2. c4 |
%55
	g\breve*1/2 |
	R1*4/4 |
	g1 |
	d |
	f |
%60
	c2 r4 c' ~ |
	c' b8 a b4 b |
	c'2 r |
	R1*4/4 |
	R1*4/4 |
%65
	r2 r4 g |
	fis g c2 |
	c f ~ |
	f4 f f2 ~ |
	f \[c |
%70
	g2.\] g4 |
	d1 |
	g\breve*1/2
}

textocantus=\lyricmode{
% Het
Heth. __ _ _ 
Co -- gi -- ta -- vit Do -- _ mi -- nus _
dis -- _ si -- pa -- re mu -- rum,
fi -- _ _ _ _ li -- æ Si -- _ _ _ _  on: % Syon
te -- ten -- _ dit 
fu -- ni -- cu -- lum su -- _ _ um
et non a -- ver -- _ tit ma -- num su -- _ _ _ am
a per -- di -- ti -- o -- ne:
lu -- xit -- que
an -- te mu -- ra -- _ _ _ _ le,
et mu -- rus pa -- ri -- ter
dis -- _ _ _ si -- pa -- _ tus est,
\italicas
dis  -- _ si -- pa -- _ tus est
\rectas
dis -- si -- pa -- _ _ _ tus est.
Ie -- ru -- sa -- lem
\italicas
Ie -- ru  -- sa -- lem.
\rectas
Con -- _ ver -- _ te -- _ re
\italicas
con -- ver -- te -- re
\rectas
ad Do -- mi -- num
De -- um tu -- _ _ _ _ um,
con -- ver -- te -- re ad Do -- mi -- num De -- um tu -- um.
}

textoaltus=\lyricmode{
Heth. __ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ 
Co -- gi -- ta -- vit Do -- _ _ _ mi -- nus
dis -- si -- pa -- re mu -- rum
fi -- li -- æ,
fi -- _ li -- æ
Si -- on: _
te -- ten -- _ _ dit
fu -- ni -- cu -- lum su -- _ _ _ _ um
et non a -- ver -- tit ma -- num su -- am 
a per -- di -- ti -- o -- _ _ _ _ _ _ ne:
lu -- xit -- que
an -- te mu -- ra -- _ le
et mu -- rus pa -- ri -- ter,
pa -- ri -- ter
dis -- _ si -- pa -- tus est,
dis -- _ _ _ _ si -- pa -- tus est
\italicas
dis  -- si -- pa -- _ _ _ _ tus est.
\rectas
Ie -- ru -- _ _ _ _ _ _ _ _ sa  -- lem. _ _
Con -- _ ver -- _ te -- _ re,
\italicas
con -- ver -- te -- re
\rectas
con -- ver -- te -- re ad Do -- mi -- num De -- um tu -- _ um.
}


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

textotenor=\lyricmode{
Heth __ _ _ _  _ _ _ _ _ _ _ 
heth. __ _
Co -- gi -- ta -- vit Do -- _ mi -- nus 
dis -- si -- pa -- re mu -- _ rum,
dis -- _ si -- pa -- re mu -- rum
fi -- li -- æ __ _ _
Si -- on:
te -- ten -- _ _ _ _ _ _ _ _ _ _ _ _ dit
fu -- ni -- cu -- lum su -- _ _ _ _ _ _ _ _ _ um
et non a -- ver -- tit ma -- num su -- am
a _ per -- di -- ti -- o -- ne:
lu -- xit -- que an -- _ te mu -- _ ra -- _ _ _ le
et mu -- rus pa -- ri -- ter __ _ _
dis -- si -- pa -- _ tus est
\italicas
dis  -- si -- pa -- _ tus est,
\rectas
dis -- _ si -- pa -- _ tus est.
Ie -- ru -- sa -- lem
\italicas
Ie -- ru  -- sa -- lem
Ie -- ru  -- sa -- lem, 
\rectas
Ie -- ru -- _ sa -- lem.
Con -- ver -- te -- re 
ad Do -- mi -- num De -- _ _ _ um
tu -- um,
con -- ver -- te -- re ad Do -- mi -- num,
ad Do -- mi -- num De -- _ _ _ _ _ um tu -- um.
}

textobassus=\lyricmode{
Heth, __ _ _ _ _ _ _ _ _ 
heth. __ _ _ _ 
Co -- gi -- ta -- vit Do -- _ mi -- nus _
dis -- si -- pa -- re mu -- _ _ rum,
fi -- li -- æ __ _ _ _ _ Si -- on:
te -- ten -- _ _ _  _ _ _ dit
fu -- ni -- cu -- lum su -- _ _ _ _ _ _ _ _ _ um
a _ per -- di -- ti -- o -- ne:
lu -- xit -- que an -- te
mu -- ra -- le
et mu -- rus 
pa -- ri -- ter
dis -- si -- pa -- _ _ tus est,
dis -- _ si -- pa -- _ _ tus est,
\italicas
dis  -- si -- pa -- tus est.
\rectas
Ie -- ru -- sa -- lem,
\italicas
Ie -- ru  -- sa -- lem.
\rectas
Con -- ver -- te -- re
con -- _ ver -- _ _ te -- re
con -- ver -- te -- re ad Do -- _ mi -- num _ 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-c1"
		\key a \minor
		\time 2/2
		\[g'\breve*1/4 a' b'\]
		} 
	\layout {
                \context {\Voice
                        \remove Ligature_bracket_engraver
                        \consists Mensural_ligature_engraver
                }
                line-width=\incipitwidth
                indent=0
        }
	}
}


incipitaltus=\markup{
	\score{
		{ 
		\set Staff.instrumentName="Altus    "
		\override NoteHead.style = #'neomensural 
		\override Rest.style = #'neomensural
		\override Staff.TimeSignature.style = #'neomensural
		\cadenzaOn 
		\clef "petrucci-c2"
		\key a \minor
		\time 2/2
		g'1*3/2
		} 
	\layout { line-width=\incipitwidth indent = 0 }
	}
}


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
		g'1.
		} 
	\layout { 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
		c'1.
		} 
	\layout { 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 <<\global
		\new Voice = "v2" {
			\set Staff.instrumentName = \incipitaltus
			\set Staff.shortInstrumentName = "A"
			\clef "treble"
			\altus }
		\new Lyrics \lyricsto "v2" { \textoaltus }
		>>

		\new Staff \with {\remove "Ambitus_engraver"} <<\global
		\new Voice = "v3" {
			\set Staff.instrumentName = "Altus II  "
			\set Staff.shortInstrumentName = "A2"
			\clef "treble"
			\altusdos }
		\new Lyrics \lyricsto "v3" { \textoaltusdos }
		>>
		
		\new Staff <<\global
		\new Voice = "v4" {
			\set Staff.instrumentName = \incipittenor
			\set Staff.shortInstrumentName = "T"
			\clef "G_8"
			\tenor }
		\new Lyrics \lyricsto "v4" { \textotenor }
		>>
		

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

\layout{ 
	\context {\Score \override BarNumber.padding = #2 }
	\context {\Lyrics 
			\override LyricText.font-size = #1.2 
			\override LyricHyphen.minimum-distance = #0.33
	}
	\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 . 12) (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.4\cm
	system-system-spacing =
	#'((basic-distance . 20) (minimum-distance . 0) (padding . 5))
	top-system-spacing = % header
	#'((basic-distance . 9.4) (minimum-distance . 0) (padding . 0))
	last-bottom-spacing = % footer
	#'((basic-distance . 12) (minimum-distance . 0) (padding . 0))
	%top-markup-spacing #'basic-distance = 0
	%markup-system-spacing #'basic-distance = 20
}