\version "2.18.0"

#(set-default-paper-size "a4")
#(set-global-staff-size 16.5)
#(ly:set-option 'point-and-click #f)
%mobile -s13.0 -i2.0 -gira

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

htitle="Dixit Dominus"
hcomposer="Guerrero"

\header {
	title=\markup{\fontsize #4 "Dixit Dominus"}
	subtitle="Salmo 109"
	subsubtitle=\markup{\column{"Tonus primus" " " " " " " " " " " }}
	composer="Francisco Guerrero (1528-1599)"
        pdfauthor=\composer
	%opus="(-)"
	poet=\markup{"Roma 1584"}
	copyright=\markup{
		\fill-line {"Edited by Nancho Alvarez" \typewriter "http://tomasluisdevictoria.org"}
	}
%	tagline=""
}

%tablet \markup{\null \vspace #7 }

\score {\transpose c c {
<<
         \new Voice = "canto" {
                 \override Staff.TimeSignature.stencil = #'()
                 \override Stem.transparent = ##t
                 \set Score.timing = ##f
                 \override NoteHead.style = #'neomensural         
                 \clef "G_8" 
                 \key c \major
                 f4 g a a a a a a \[a g\] a \bar "|"
		 a a a g f \[a g f e\] d \bar "||"
         }
         \new Lyrics \lyricsto "canto" {
                 \set stanza = "1." Di -- xit Do -- mi -- nus Do -- mi -- no me -- _ o:
		 se -- de a dex -- tris me -- _ _ _ is.
         }
>>
        }%transpose

\layout {
         line-width=17\cm %notablet
        indent=2.0\cm
        %tablet indent = 0\cm
        ragged-right = ##f
        \override LigatureBracket.padding = #0
}
}

\markup{\bold "3. " \larger "Virgam virtutis tuæ emittet Dominus ex Sion: dominare in medio inimicorum tuorum."}
\markup{\null \vspace #1 }
\markup{\bold "5. " \larger "Iurabit Dominus et non penitebit eum: Tu es sacerdos in æternum secundum ordinem Melchisedech."}
\markup{\null \vspace #1 }
\markup{\bold "7. " \larger "Iudicabit in nationibus, implebit ruinas: conquassabit capita in terra multorum."}
\markup{\null \vspace #2 }

%tablet \pageBreak

global={\key c \major \time 2/2 \skip 1*7 \bar "||" \break
				\skip 1*14 \bar "||" \break
				\skip 1*8 \bar "||" \break
				\skip 1*9 \bar "||" \break
				\skip 1*14 \bar "||" }


cantus=\relative c''{
	a4 a a a
	a a a a
	gis2 a
	r4 a a2
	a4 a g f
	a2 g4 f
	e2 d\breve*1/4
	r2 r4 a'
	a a a2 ~
	a4 a a a
	a2 a ~
	a4 a a a
	g1
	fis2 a4 a
	a a a a
	gis2 a
	r4 a a4. a8
	a4 a4. a8 a4
	g2 f4 a 
	g f4. e8 d4 ~
	d \ss cis d\breve*1/4
	a'2 a4 cis ~
	cis \ss cis d d
	d2 cis
	r4 \ss c! c2
	c4 d c d
	b c d2 ~
	d4 b c8 b a g
	a4 e fis\breve*1/4
	a4 a c2
	c4 c c a
	\ss bes2 a ~
	a r4 a
	c2 c4 c
	c c b2
	a4. b8 c4 d ~
	d cis d2 ~
	d\breve*1/2
	R1
	r2 a ~
	a4 a a2
	c a4 c ~
	c8 b g4 a b ~
	b8 a a2 gis4
	a2 r
	a2 a
	a g ~
	g f
	a1
	g2. f4
	e4 d2 \ss cis4
	d\breve*1/2
}

altus=\relative c'{
	e4 e e e
	f f f f
	e2 e
	r4 e e2
	f4 f e d
	c e2 d4 ~
	d cis d\breve*1/4
	d2 c4 a
	c d e f
	e8 d c b a4. b8
	c4 f,8 g a b c d
	e4 d f2
	e4 d2 cis4
	d2 f4 f
	f c d a
	b4 d2 cis4
	r4 e f4. f8
	e4 e4. e8 f4
	d e d e ~
	e d4. c8 \ss bes4
	a2 a\breve*1/4
	f'2 f4 e ~
	e e f4. e8
	d4 b e2
	r4 e e2
	e4 f e f
	e8 f g e f4. d8
	f4 e4. d8 d4 ~
	d \ss cis4 d\breve*1/4
	e4 e a2
	a4 a a e
	g2 e ~
	e r4 e
	a2 a4 a
	a e g2
	c,4. d8 e4 f
	g2. \ss fis8 e
	fis\breve*1/2
	d2 d4 d
	f2 d4 c
	d e f f
	e1 ~
	e ~
	e2 r
	r4 a, a8 b c d
	e4 d f2
	e4 f e8 d d4 ~
	d \ss cis d a
	a8 b c d e2 ~
	e4 e d4. c8
	\[bes2 a\]
	a\breve*1/2
}

tenor=\relative c'{
	a4 a c c
	c c d d
	b2 a
	r4 c c2
	d4 c2 a4
	a c4. b8 a g
	a2 a\breve*1/4
	R1 
	r2 r4 d
	c a c d
	e f e8 d c b
	a4 a d c ~
	c b g2
	a2 d4 d
	c8[ b] a[ g] f4 e
	d2 e
	r4 cis' d4. d8
	\ss cis4 cis4. cis8 d4
	b4 c a c ~
	c8 b a g f4 g
	e2 d\breve*1/4
	a'2 a4 a ~
	a a a a ~
	a gis a2
	r4 a a2
	a4 a a a
	g2 f4 \[a ~
	a g2\] f4
	e2 d\breve*1/4
	c'4 c e2
	e4 e e c
	d d2 \ss cis8 b
	cis2 r4 \ss c4
	e2 e4 e
	e c d e
	f e8[ d c b] a4
	g4. a8 bes4 a
	a\breve*1/2
	R1*2
	a2. a4
	a2 c
	a4 c2 b4
	c2 b
	a4 c c a
	c d4. c8 a4
	c2 \[b
	g\] a4 d
	c a c2
	b4 c a2
	g4. f8 e2
	d\breve*1/2
}

bassus=\relative c{
	a4 a a' a
	f f d d
	e2 a,
	r4 a' a2
	d,4 f c d
	a4. b8 c4 d
	a2 d\breve*1/4
	r2 a'2
	f4 d a' d,
	a'4. g8[ f e] d4
	a d c a
	c d4. e8 f4
	\[g2 e\]
	d2 d4 d
	f4. e8 d4 c
	b2 a
	r4 a d4. d8
	a4 a'4. a8 d,4
	g c, d a
	c d2 g,4
	a2 d\breve*1/4
	d2 d4 a ~
	a a d4. c8
	b2 a
	r4 a a2
	a4 d a d
	e2 d
	d4 e c d
	a2 d\breve*1/4
	a'4 a a2
	a4 a a a
	g2 a ~
	a r4 a
	a2 a4 a
	a a g2
	f4 a4. g8 f4
	e2 d ~
	d\breve*1/2
	r2 d
	d4 d f2
	d4 cis d d
	a a'4. a8 a4
	c2 a4 gis
	a2 e
	a,1
	r4 d d8 e f g
	a4 f g g
	e2 d
	r4 a a8 b c d
	e4 c d d
	\[g,2 a\]
	d\breve*1/2
}

textocantus=\lyricmode{
\set stanza = "2."
Do -- nec po -- nam i -- ni -- mi -- cos tu -- os:
sca -- bel -- lum pe -- dum tu -- o -- _ _ _ rum.
\set stanza = "4."
Te -- cum prin -- ci -- pi -- um in di -- e vir -- tu -- tis tu -- æ,
in splen -- do -- ri -- bus san -- cto -- rum:
ex u -- te -- ro an -- te lu -- ci -- fe -- rum ge -- nu -- _ _ i te.
\set stanza = "6."
Do -- mi -- nus a dex -- tris tu -- is:
con -- fre -- git in di -- e i -- ræ su -- æ re -- _ _ _ _ _ ges.
\set stanza = "8."
De tor -- ren -- te in vi -- a bi -- bet:
pro -- pte -- re -- a ex -- al -- ta -- bit __ _ _ ca -- _ put.
\set stanza = "9."
Glo -- ri -- a Pa -- tri et __ _ _ Fi -- _ _ _ li -- o
et Spi -- ri -- tu -- i San -- _ _ _ _ _ cto.
}

textoaltus=\lyricmode{
\set stanza = "2."
Do -- nec po -- nam i -- ni -- mi -- cos tu -- os:
sca -- bel -- lum pe -- dum tu -- o -- _ _ _ rum.
\set stanza = "4."
Te -- cum prin -- ci -- pi -- um
in di -- _ _ _ _ _ _ e __ _ _ _ _ _ _ vir -- tu -- tis tu -- _ æ,
in splen -- do -- ri -- bus san -- cto -- _ rum:
ex u -- te -- ro an -- te lu -- ci -- fe -- rum ge -- nu -- _ _ i te.
\set stanza = "6."
Do -- mi -- nus a dex -- tris tu -- _ is:
con -- fre -- git in di -- e i -- _ _ _ _ ræ su -- æ __ _ re -- _ ges.
\set stanza = "8."
De tor -- ren -- te in vi -- a bi -- bet:
pro -- pte -- re -- a ex -- al -- ta -- bit __ _ _ _ ca -- _ _ \italicas put. \rectas
\set stanza = "9."
Glo -- ri -- a Pa -- tri et Fi -- _ _ li -- o
et Spi -- _ _ _ _ ri -- tu -- i San -- _ _ _ _ cto,
et Spi -- _ _ _ _ ri -- tu -- i San -- _ cto.
}

textotenor=\lyricmode{
\set stanza = "2."
Do -- nec po -- nam i -- ni -- mi -- cos tu -- os:
sca -- bel -- lum pe -- dum tu -- o -- _ _ _ _ rum.
\set stanza = "4."
Te -- cum prin -- ci -- pi -- um in di -- _ _ _ _ e vir -- tu -- tis tu -- æ,
in splen -- do -- _ ri -- _ bus san -- cto -- rum:
ex u -- te -- ro an -- te lu -- ci -- fe -- rum ge -- _ _ _ _ nu -- i te.
\set stanza = "6."
Do -- mi -- nus a dex -- tris tu -- is:
con -- fre -- git in di -- e i -- ræ su -- _ æ re -- ges.
\set stanza = "8."
De tor -- ren -- te in vi -- a bi -- bet: __ _ _ _ 
pro -- pte -- re -- a ex -- al -- ta -- bit ca -- _ _ _ _ _ _ _ _ _ put.
\set stanza = "9."
Glo -- ri -- a Pa -- tri et __ _ Fi -- li -- o,
et Spi -- ri -- tu -- i __ _ _ San -- _ _ cto,
et Spi -- ri -- tu -- i __ _ _ San -- _ _ cto.
}

textobassus=\lyricmode{
\set stanza = "2."
Do -- nec po -- nam i -- ni -- mi -- cos tu -- os:
sca -- bel -- lum pe -- dum tu -- o -- _ _ _ _ rum.
\set stanza = "4."
Te -- cum prin -- ci -- pi -- um __ _ _ _ _
in di -- æ vir -- tu -- tis __ _ _ tu -- _ æ,
in splen -- do -- ri -- bus san -- cto -- rum:
ex u -- te -- ro an -- te lu -- ci -- fe -- rum ge -- nu -- i __ _ _ te.
\set stanza = "6."
Do -- mi -- nus a dex -- tris tu -- is
con -- fre -- git in di -- e i -- ræ su -- æ re -- _ _ ges.
\set stanza = "8."
De tor -- ren -- te in vi -- a bi -- bet:
pro -- pte -- re -- a ex -- al -- ta -- bit ca -- _ _ _ put.
\set stanza = "9."
Glo -- ri -- a Pa -- tri et Fi -- li -- o,
glo -- ri -- a Pa -- tri et Fi -- li -- o
et Spi -- _ _ _ _ ri -- tu -- i San -- cto
et Spi -- _ _ _ _ ri -- tu -- i San -- _ cto.
}

incipitcantus=\markup{
	\score{
		{ 
		\set Staff.instrumentName="C "
		\override NoteHead.style = #'neomensural
		\override Rest.style = #'neomensural
		\override Staff.TimeSignature.style = #'neomensural
		\cadenzaOn 
		\clef "petrucci-c1"
		\key c \major
		\time 4/4
		a'2
		} 
	\layout {
		\context {\Voice
			\remove Ligature_bracket_engraver
			\consists Mensural_ligature_engraver
		}
		line-width=\incipitwidth
		indent = 0
	}
	}
}


incipitaltus=\markup{
	\score{
		{ 
		\set Staff.instrumentName="A "
		\override NoteHead.style = #'neomensural
		\override Rest.style = #'neomensural
		\override Staff.TimeSignature.style = #'neomensural
		\cadenzaOn 
		\clef "petrucci-c3"
		\key c \major
		\time 4/4
		e'2
		} 
	\layout {
		\context {\Voice
			\remove Ligature_bracket_engraver
			\consists Mensural_ligature_engraver
		}
		line-width=\incipitwidth
		indent = 0
	}
	}
}

incipittenor=\markup{
	\score{
		{ 
		\set Staff.instrumentName="T "
		\override NoteHead.style = #'neomensural 
		\override Rest.style = #'neomensural
		\override Staff.TimeSignature.style = #'neomensural
		\cadenzaOn 
		\clef "petrucci-c4"
		\key c \major
		\time 4/4
		a2
		} 
	\layout {
		\context {\Voice
			\remove Ligature_bracket_engraver
			\consists Mensural_ligature_engraver
		}
		line-width=\incipitwidth
		indent=0
	}
	}
}

incipitbassus=\markup{
	\score{
		{ 
		\set Staff.instrumentName="B "
		\override NoteHead.style = #'neomensural 
		\override Rest.style = #'neomensural
		\override Staff.TimeSignature.style = #'neomensural
		\cadenzaOn 
		\clef "petrucci-f4"
		\key c \major
		\time 4/4
		a,2
		} 
	\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
		\clef "treble"
		\cantus }
	\new Lyrics \lyricsto "v1" {\textocantus }
	>>

	\new Staff <<\global
	\new Voice="v2" {
		\set Staff.instrumentName=\incipitaltus
		\clef "treble"
		\altus }
	\new Lyrics \lyricsto "v2" {\textoaltus }
	>>
	
	\new Staff <<\global
	\new Voice="v3" {
		\set Staff.instrumentName=\incipittenor
		\clef "G_8"
		\tenor }
	\new Lyrics \lyricsto "v3" {\textotenor }
	>>

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

	}%transpose

\layout{ 
	\context {\Lyrics 
		\override VerticalAxisGroup.minimum-Y-extent = #'(-0.0 . 0.0) 
		%\override LyricText.font-size = #1.2
		\override LyricHyphen.minimum-distance = #0.33
	}
	\context {\Score 
		\override BarNumber.padding = #2 
	}
	\context {\Voice 
		%melismaBusyProperties = #'() 
	}
	%\context { \Staff \RemoveEmptyStaves }
	\context {\Staff 
		\override VerticalAxisGroup.staff-staff-spacing =
			#'((basic-distance . 11) (minimum-distance . 0) (padding . 1))
		\consists Ambitus_engraver 
		\override LigatureBracket.padding = #1
	}
}

%\midi {}

}

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%


global={\key c \major \time 2/2 \skip 1*17 \bar "|." }


cantus=\relative c'{
	\set Score.currentBarNumber = #53 \bar ""
	\once \override Score.TimeSignature.stencil = ##f
	f2 g
	a a
	R1
	b2 c4 e ~
	e8 d c b c2
	d c4 a
	c2. b4
	g4 a2 \ss gis4
	a1
	R1
	d2. c4
	e d2 \[c4 ~
	c4 b2\] a4
	b4 e e d ~
	d c4. d8 e c
	d4 d, f4. g8
	a2 a\breve*1/4
}


cantusdos=\relative c''{
	r2 r4 d ~
	d \ss cis d a ~
	a8 b c4 b a ~
	a \ss gis a2
	r4 a2 a4
	a a a e
	a2. g4
	e f e4. d8
	c2 r
	R1
	a'2. a4
	a a a2
	r2 r4 a ~
	a g g f ~
	f a g2 ~
	g4 f d f
	e2 d\breve*1/4
}

altus=\relative c'{
	r4 f e d
	e2 d4 f
	e a, b8 c d a
	b4 b a2
	c2 a4 a ~
	a a a2 ~
	a r
	R1
	e'2 c4 e ~
	e8 a, d2 \ss cis4
	d2 r
	r r4 e
	e g2 f4
	e2. a,4
	d4 e2 e4
	d2. a4
	a\breve*1/2
}

altusdos=\relative c'{
	R1*2
	c2 d
	e e
	e2. e4
	d d e2
	r4 a, e'2 ~
	e4 d c b
	a2 r4 a
	e'8 f g d f4 g ~
	g f8 e f4 e ~
	e f e2
	c4 e d c
	b2 r2
	a4. a8 e4 g ~
	g8 d f g a d, d'4 ~
	d \ss cis4 d\breve*1/4
}

tenor=\relative c'{
	d2 c4 \ss bes
	a2 d,
	R1
	r4 e2 e4
	a2 \[e
	f\] e ~
	e r
	r r4 e ~
	e e'4. d8 c b
	c4 b a g
	a d2 a4
	c d a2
	R1
	r4 b c d 
	a c2 c4
	b4 a2 d,4
	e2 fis\breve*1/4
}

bassus=\relative c'{
	R1*2
	a2 g4 f
	e2 a,
	a2 a
	d4 d a2 ~
	a r
	R1
	a2 a' ~
	a4 g f e
	d2 r
	r r4 a' ~
	a e g a
	e2 r4 d ~
	d a c2
	g4 d' d2
	a d\breve*1/4
}

textocantus=\lyricmode{
\set stanza = "10."
Sic -- ut e -- rat
in prin -- ci -- _ _ _ _ pi -- o et nunc et sem -- _ _ per
et in sæ -- _ _ _ cu -- la sæ -- cu -- lo -- rum. __ _ _ _ _ 
A -- _ _ _ men.
}

textocantusdos=\lyricmode{
\set stanza = "10."
Sic -- ut e -- _ _ _ _ _ _ rat
in prin -- ci -- pi -- o et nunc et sem -- _ per __ _ _
et in sæ -- cu -- la sæ -- cu -- lo -- rum. 
A -- _ _ _ _ _ men.
}

textoaltus=\lyricmode{
\set stanza = "10."
Sic -- ut __ _ 
e -- rat in prin -- ci -- _ _ _ _ _ pi -- o,
in prin -- ci -- pi -- o
et nunc et __ _ sem -- _ per
et in sæ -- cu -- la sæ -- cu -- lo -- rum.
A -- _ men.
}

textoaltusdos=\lyricmode{
\set stanza = "10."
Sic -- ut e -- rat in prin -- ci -- pi -- o
et nunc et sem -- _ per
sic -- ut __ _ _ _ e -- rat in __ _ prin -- ci -- pi -- o,
et in sæ -- cu -- la sæ -- cu -- lo -- rum. __ _ _ _ _ _ A -- _ men.
}

textotenor=\lyricmode{
\set stanza = "10."
Sic -- ut __ _ e -- rat
in prin -- ci -- pi -- _ o
et nunc __ _ _ _ _ et sem -- _ per,
et in sæ -- cu -- la
et in sæ -- cu -- la sæ -- cu -- lo -- rum. A -- men.
}

textobassus=\lyricmode{
\set stanza = "10."
Sic -- ut __ _ e -- rat in prin -- ci -- pi -- o
et nunc et sem -- _ per
et in sæ -- cu -- la
sæ -- cu -- lo -- rum. A -- men, a -- men.
}


\score {\transpose c' c'{
\new ChoirStaff<<

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

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

	\new Staff <<\global
	\new Voice="v2" {
		\set Staff.instrumentName="Altus I  "
		\clef "treble"
		\altus }
	\new Lyrics \lyricsto "v2" {\textoaltus }
	>>
	
	\new Staff <<\global
	\new Voice="v6" {
		\set Staff.instrumentName="Altus II "
		\clef "G_8"
		\altusdos }
	\new Lyrics \lyricsto "v6" {\textoaltusdos }
	>>
	
	\new Staff <<\global
	\new Voice="v3" {
		\set Staff.instrumentName="Tenor  "
		\clef "G_8"
		\tenor }
	\new Lyrics \lyricsto "v3" {\textotenor }
	>>

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

	}%transpose

\layout{ 
        indent = 2\cm
        %tablet indent = 1.5\cm
	\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
	ragged-last-bottom = ##f
	indent=2.5\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 = #3
}