\version "2.18.0"

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

italicas=\override LyricText.font-shape = #'italic
rectas=\override LyricText.font-shape = #'upright
ss=\once \set suggestAccidentals = ##t
incipitwidth = 20
mtempo={\tempo 4 = 100}
mtempob={\tempo 4 = 50}
mt=#(define-music-function (parser location offset) (number?) ; move lyric text
      #{ \once \override LyricText.X-offset = -$offset #})

htitle="O Domine Iesu Christe"
hcomposer="Guerrero"

\header {
	title=\markup{\fontsize #3 "O Domine Iesu Christe"}
	subtitle="Dominica Palmarum"
	subsubtitle=\markup{\null \vspace #1 }
	composer="Francisco Guerrero (1528-1599)"
        pdfauthor=\composer
	%opus="(-)"
	poet=\markup{"Venecia 1570, 1597"} % Nürmberg 1600, 1613
	copyright=\markup{
		\fill-line {"Edited by Nancho Alvarez" \typewriter "http://tomasluisdevictoria.org"}
	}
%	tagline=""
}


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

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

altus={
	r2 e' ~ |
	e'4 d'8 c' d'4 e' |
	b e'2 d'4 |
	c' b c' d' ~ |
%5
	d'8 c' b a b4 c' ~ |
	c'8 b a b c' d' e'4 ~ |
	e' d' c' b8 c' |
	d' a d'2 c'4 ~ |
	c' b8 a b4 cis' |
%10
	d'2 r4 c' |
	a b c'8 a a'4 ~ |
	a' g'2 f'4 |
	e'1 |
	r4 e' f'2 ~ |
%15
	f'4 e' e' d' ~ |
	d' c'2 b8 a |
	b e a2 \ss gis4 |
	a8 b c' d' e'4 d' ~ |
	d'8 c' b4 a e' ~ |
%20
	e' e' e'2 |
	e'1 |
	R1*4/4 |
	c'2 f'4. e'8 |
	d'4 e'4. d'8 e' c' |
%25
	d'4 g' e' f' ~ |
	f'8 d' e'4 f' c' |
	d' b e'2 |
	r4 c' e'4. d'8 |
	c'4 b c' a |
%30
	c' b a8 c'4 b8 |
	d'2 g4 g' |
	g' f' e' d' |
	cis' d'4. a8 \ss c'4 |
	b2 a4 c' |
%35
	d' e' d'2 |
	e' r4 e' ~ |
	e' b c' d' |
	e'2 b4 c' ~ |
	c'8 b a4 g g' ~ |
%40
	g'  f'8[ e' f' e'] e'4 ~ |
	e' d' e'2 ~ |
	e' r4 e' ~ |
	e' \[e'2 d'4 ~ \]
	d' b b2 |
%45
	r4 e' f'2 |
	d' e' |
	r4 c' c'2 ~ |
	c'4 b c'2 ~ |
	c'1 ~ |
%50
	c'2 r4 c' |
	c'2 a4 c' |
	d' c' \[f'2 |
	e'\] r4 e' |
	f'4. f'8 e'4 c' ~ |
%55
	\set Staff.autoBeaming = ##f
	c'8 c' e'4 e'4. d'8 |
	\set Staff.autoBeaming = ##t
	c'4 d' e'2 |
	r4 e' f'4. f'8 |
	e'4 c'4. c'8 e'4 |
	d' c'4. b8 c'4 |
%60
	g8 a b c' d'4 c' ~ |
	c'8 b g a b4 c' |
	a2 r4 c' ~ |
	c' g b a |
	c'2 b ~ |
%65
	b\breve*1/2
}

tenor={
	R1*4/4 |
	R1*4/4 |
	R1*4/4 |
	r2 a ~ |
%5
	a4 gis8 fis gis4 a |
	e2 a4. g8 |
	f2 e |
	R1*4/4 |
	e'1 |
%10
	f'2. e'4 |
	e' e'2 d'4 |
	c' b c'8 b a g |
	a4 a2 gis8 \ss fis |
	gis4 a d4. e8 |
%15
	f g a4. g8 f4 |
	e a2 g8 f |
	g4 f8 e d2 |
	e4 a g4. g8 |
	g2 e4 a |
%20
	\[g2 c'\] |
	b r4 b |
	c'2 d' |
	e' r |
	R1*4/4 |
%25
	g2 a |
	b4 c'4. b8 a4 ~ |
	a gis a2 |
	r4 a c'4. b8 |
	a4 g f2 |
%30
	e r |
	r4 a e'2 ~ |
	e'4 d' c' b |
	a2 a |
	r r4 a ~ |
%35
	a e a b |
	c'4. b8 g4 a ~ |
	a g f2 |
	e r4 e' ~ |
	e' d' b c' |
%40
	b c'2 b4 |
	a2 b |
	gis1 |
	a2. fis4 |
	g d'2 e'4 ~ |
%45
	e' c' d'8 c' c'4 ~ |
	c' b c'2 |
	r4 g a a |
	f2 r4 g |
	g2 e4 g |
%50
	a g c'2 |
	r4 e' f' e' |
	a a2 a4 |
	a2 c' |
	d'4. d'8 c'4 a ~ |
%55
	\set Staff.autoBeaming = ##f
	a8 a c'4 b2 |
	\set Staff.autoBeaming = ##t
	a4 r8 a b4 c' |
	g g a f |
	g8 f e d c2 |
	R1*4/4 |
%60
	r4 g a4. a8 |
	g4 e4. e8 g4 |
	f2 e |
	r4 e2 e4 |
	a2. gis4 |
%65
	gis\breve*1/2
}

bassus={
	e1 |
	f2. e4 |
	e2 a ~ |
	a4 g f8 e d c |
%5
	d4 e2 a,4 |
	a,1 |
	R1*4/4 |
	r2 a ~ |
	a4 gis8 fis gis4 a |
%10
	d2 a ~ |
	a4 g f2 |
	e4. d8 c4 d |
	a,2 r |
	r r4 d ~ |
%15
	d cis8 b, cis4 d |
	a,2 e ~ |
	e4 d8 c b,4 b, |
	a,4. b,8 c4 g, |
	g,2 a, |
%20
	c4 g, a,2 |
	e r4 e |
	a4. g8 f4 g |
	c2 r |
	g a |
%25
	b c' |
	r4 c f4. e8 |
	d4 e a,2 ~ |
	a, r |
	r4 e a2 ~ |
%30
	a4 g f e |
	d2 c |
	R1*4/4 |
	r4 d2 a,4 |
	d e f4. e8 |
%35
	d4 cis d b, |
	a,2 r |
	R1*4/4 |
	r4 e2 a,4 |
	c d e4. f8 |
%40
	g4 a2 g4 |
	f2 e ~ |
	e e |
	a,2. d4 |
	g,2 g |
%45
	a \[f |
	g\] c |
	r4 c f2 |
	d c ~ |
	c1 |
%50
	r4 c c2 |
	a,4 c d c |
	f4.  e8[ d c] d4 |
	a,1 |
	R1*4/4 |
%55
	r2 e |
	f4. f8 e4 c ~ |
	\set Staff.autoBeaming = ##f
	c8 c e4 d2 |
	\set Staff.autoBeaming = ##t
	c r4 c |
	f4. f8 e4 c |
%60
	e2 d4 f |
	c2 r4 c |
	d4. d8 c4 a, ~ |
	\set Staff.autoBeaming = ##f
	a,8 a, c4 g, a, ~ |
	\set Staff.autoBeaming = ##t
	a,8 b, c d e2 ~ |
%65
	e\breve*1/2
}

textocantus=\lyricmode{
O _ Do -- _ mi -- ne _
Ie -- su Chri -- ste
O Do -- _ mi -- ne Ie -- su _ Chri -- _ _ _ _ _ ste _
O Do -- mi -- ne Ie -- _ _ su Chri -- _ _ _ ste
a -- do -- ro te
a -- do -- ro te in cru -- ce vul -- ne -- ra -- _ _ _ tum
in cru -- _ ce vul -- ne -- ra -- _ _ _ _ _ _ _ _ tum
fel -- le et a -- ce -- _ to po -- ta -- _ _ _ _ _ _ _ tum
de -- pre -- cor te
de -- pre -- cor te,
de -- pre -- _ cor te
ut vul -- ne -- ra tu -- a sint
re -- me -- di -- um a -- ni -- mæ me -- æ
a -- ni -- mæ me -- æ
re -- me -- di -- um a -- _ ni -- \mt #.8 mæ me -- æ,
a -- ni -- mæ _ me -- æ. _ _ _ 
}

textoaltus=\lyricmode{
O _ Do -- _ _ mi -- ne Ie -- su Chri -- ste, 
Ie -- su __ _ _ _ _ _ Chri -- _ _ _ _ _ _ _ _ ste,
Ie -- su __ _ _ _ _ Chri -- _ _ _ _ _ ste
O Do -- mi -- ne _ Ie -- _ su Chri -- ste
O Do -- _ mi -- ne Ie -- _ su __ _ _ _ _ _ _ Chri -- _ _ _ _ _ _ _ _ ste,
Ie -- _ su Chri -- ste
a -- do -- _ _ ro __ _ _ _ te,
a -- do -- ro __ _ _ _ te,
a -- do -- ro te
in cru -- ce vul -- ne -- ra -- tum,
in cru -- ce vul -- ne -- ra -- tum,
in cru -- ce vul -- ne -- ra -- _ _ _ _ tum,
vul -- ne -- _ ra -- tum
fel -- _ le et a -- ce -- to po -- _ _ ta -- tum,
po -- _ ta -- _ _ _ _ _ _ tum _
de -- _ pre -- _ _ cor te
de -- pre -- cor te
de -- pre -- _ cor te _ _
ut vul -- ne -- ra tu -- a sint __ _ 
re -- me -- di -- um a -- _ ni -- mæ me -- _ _ _ æ
re -- me -- di -- um a -- ni -- mæ me -- æ,
a -- ni -- mæ __ _ _ _ _ me -- _ _ _ _ _ _ æ
a -- _ ni -- \mt #.5 mæ __ _ me -- æ. _
}

textotenor=\lyricmode{
O _ Do -- _ _ mi -- ne Ie -- su Chri -- ste
O Do -- mi -- ne Ie -- su Chri -- _ ste, __ _ _ _ _ 
O Do -- _ _ mi -- ne __ _ _ _ _ _ _ _ Ie -- su __ _ _ _ _ Chri -- ste,
O Do -- mi -- ne Ie -- su Chri -- _ ste
a -- do -- ro te
a -- do -- _ _ _ _ _ ro te
in cru -- ce vul -- ne -- ra -- tum
in cru -- _ ce vul -- ne -- ra -- tum
fel -- _ le et a -- ce -- _ _ to _ po -- ta -- tum
fel -- _ le et a -- ce -- to po -- ta -- tum,
de -- pre -- cor te,
de -- pre -- _ _ _ _ _ _ cor te
de -- pre -- cor te
ut vul -- ne -- ra tu -- a sint
ut vul -- ne -- ra tu -- a sint 
re -- me -- di -- um a -- _ ni -- mæ me -- æ
re -- me -- di -- um a -- ni -- mæ me -- _ _ _ æ
re -- me -- di -- um a -- ni -- mæ me -- æ
a -- ni -- mæ me -- æ.
}

textobassus=\lyricmode{
O Do -- mi -- ne Ie -- _ su Chri -- _ _ _ _ _ _ ste
O _ Do -- _ _ mi -- ne Ie -- _ su Chri -- _ _ _ _ ste
O _ Do -- _ _ mi -- ne Ie -- _ _ _ su Chri -- _ _ _ ste,
Ie -- su Chri -- _ _ ste
a -- do -- _ _ ro te
a -- do -- ro te
a -- do -- _ _ ro te _
in cru -- _ ce vul -- ne -- ra -- tum
fel -- le et a -- ce -- _ _ to po -- ta -- tum
fel -- le et a -- ce -- _ _ to po -- ta -- tum, _
de -- pre -- cor te,
de -- pre -- cor __ _ te
de -- pre -- cor te _
ut vul -- _ ne -- ra tu -- a __ _ _ _ _ sint
re -- me -- di -- um a -- _ ni -- mæ me -- æ
re -- me -- di -- um a -- ni -- mæ me -- æ
re -- me -- di -- um a -- _ ni -- mæ me -- æ. __ _ _ _ _ _ _ 
}

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

	\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 }
	}
}


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
                a1.
		} 
	\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
                e\breve
		} 
	\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
		\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.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=3.6\cm
	system-system-spacing =
	#'((basic-distance . 20) (minimum-distance . 0) (padding . 5))
	top-system-spacing = % header
	#'((basic-distance . 8) (minimum-distance . 0) (padding . 0))
	last-bottom-spacing = % footer
	#'((basic-distance . 12) (minimum-distance . 0) (padding . 0))
	markup-system-spacing.padding = #1.5
}