\version "2.18.0"

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

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

htitle="Iesu nostra redemptio"
hcomposer="Victoria"

\header {
	title=\markup{\fontsize #4 "Iesu nostra redemptio"}
	subtitle="In Ascensione Domini"
	subsubtitle=\markup{\column{" " " " " " }}
	composer="Tomás Luis de Victoria (c.1548-1611)"
        pdfauthor=\composer
	%opus="(-)"
	poet="1581a,  1600b"
	copyright=\markup{
		\fill-line {"Transcribed and edited by Nancho Alvarez" \typewriter "http://tomasluisdevictoria.org"}
	}
%	tagline=""
}


\score {\transpose c d {
<<
         \new Voice = "canto" { % Pedrell se equivoca de clave!!!!
                 \override Staff.TimeSignature.stencil = #'()
                 \override Stem.transparent = ##t
                 \set Score.timing = ##f
                 \override NoteHead.style = #'neomensural         
                 \clef "G_8" 
                 \key c \major
                 \override LigatureBracket.padding = #1
                 f4 \[e f g a\] g \[f d\] f \[e f g\] f e \bar "|"
                 g \[a c'\] a \[a g f\] g g f \[e d c\] \bar "|"
                 d d c d \[f d\] e e e \bar "|"
		 g a g \[f d\] f \[e f g\] f e
                 \bar "||"
         }
         \new Lyrics \lyricsto "canto" {
         	 \set stanza = "1."
         	 Ie -- su __ _ _ _ no -- stra __ _ red -- em -- _ _ pti -- o 
         	 A -- mor __ _ et de -- _ _ si -- de -- ri -- um: __ _ _ 
         	 De -- us Cre -- a -- tor __ _ o -- mni -- um
         	 Ho -- mo in fi -- _ ne tem -- _ _ po -- rum.
         }
         \new Lyrics \lyricsto "canto" {
         	 \set stanza = "3."
         	In -- fer -- _ _ _ ni clau -- _ stra pe -- _ _ ne -- trans
         	Tu -- os __ _ cap -- ti -- _ _ vos re -- di -- mens: __ _ _ 
         	Vi -- ctor tri -- um -- pho __ _ no -- bi -- li % lis en el original
         	Ad dex -- tram Pa -- _ tris re -- _ _ si -- dens.
         }
         \new Lyrics \lyricsto "canto" {
         	 \set stanza = "5."
         	Tu es -- _ _ _ to no -- _ strum \italicas gau -- _ _ di -- um
         	Qui es __ _ fu -- tu -- _ _ rus præ -- mi -- um: __ _ _ 
         	Sit no -- stra in te __ _ glo -- ri -- a
         	Per cun -- cta sem -- _ per sæ -- _ _ cu -- la.
         }
>>
        }%transpose

\layout {
        %line-width=16\cm 
        indent=1.0\cm
        %ragged-right = ##f
}
}


%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%5

global={\key c \major \time 2/2  \skip 1*32 \bar "||" \pageBreak
	\override Score.TimeSignature.break-visibility = #'#(#f #t #t)
	\time 2/2 \skip 1*37 \bar "|."
}

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

altus={
	R1*4/4 |
	R1*4/4 |
	R1*4/4 |
	c'2 b4 c' |
%5
	d' e' d' c'8 b |
	c' a d'2 cis'4 |
	d' f' d' e' |
	f' c' f' e'8 d' |
	c'2. a4 |
%10
	b1 |
	r4 g b b |
	c'4. b8 a4 g |
	a8 b c' d' e' c' f'4 ~ |
	f' e' e'2 |
%15
	r4 c' d'8 e' f'4 ~ |
	f' e' d'2 |
	c'4 e'4. d'8 c' b |
	a4.  b8[ c' b] d'4 ~ |
	d'8 c' c'2 b4 |
%20
	c'1 |
	R1*4/4 |
	r2 d' |
	d'4 c' d'4. e'8 |
	f'4 e' f'4. e'8 |
%25
	d'4  c'8[ b c' d'] e'4 ~ |
	e' d' e' c' |
	g2 r4 c' |
	d' b c' b8 a |
	b4 c' d'2 |
%30
	b4 e'2 d'4 |
	c' b4. a8 a4 ~ |
	a gis8 fis gis\breve*1/4 |
	R1*4/4 |
	r2 c' ~ |
%35
	c'4 b c' d' |
	b c'4. a8 d'4 |
	c'8 d' e' c' d'4 d' |
	c'2 r4 c' |
	a a c' b |
%40
	a8 b c' d' e'4 d' |
	\[f'2 e' ~ \] |
	e'4 d'8 c' d'4 d' |
	e'1 |
	r4 c' d' e' |
%45
	f'2. e'4 |
	d'4. e'8 f'4 f' |
	e'2 r |
	r r4 c' |
	d' e' f' c' |
%50
	d' e' c' d' ~ |
	d'8 c' c'2 b4 |
	c'2 r4 a |
	a g a4. b8 | % Pedrell sugiere gis
	c'4 b c' a ~ |
%55
	a8 g g2 fis4 |
	g2 r4 d' |
	d' cis' d' a |
	c' b8 a \ss gis4. a8 | 
	b4 c' b2 |
%60
	a b |
	r4 d' e'2 ~ |
	e'4 d' c' b |
	d'2 c'4 b |
	a2. a4 |
%65
	b2 r4 b |
	c'2. b4 |
	a2. gis4 |
	a8 b c' d' e'4 c' |
	b\breve*1/2
}

tenor={
	r2 c' |
	b4 c' d' e' |
	d'4. c'8 d'4 e' ~ |
	e'8 d' e' c' d'4 e' |
%5
	d' c'8 b a2 ~ |
	a r |
	r4 d' b c' |
	f a4. f8 g4 |
	a g a2 ~ |
%10
	a4 gis gis4. a8 |
	b2 r4 g |
	a4. b8 c'4 b |
	c'4. b8 a4 f |
	c'2. b4 |
%15
	a2 f |
	g1 |
	r4 c e e |
	f d g2 ~ |
	g g |
%20
	g r4 a |
	a g a4. b8 |
	c'2. b4 |
	a g a2 ~ |
	a4 a a2 |
%25
	r4 a a g |
	a b c'2 ~ | % a b no se lee bien
	c'4 b c'2 |
	b a |
	r4 g a2 ~ |
%30
	a4 g e f |
	g2 a |
	b\breve*1/2 |
	R1*4/4 |
	R1*4/4 |
%35
	R1*4/4 |
	R1*4/4 |
	R1*4/4 |
	r2 f ~ |
	f e |
%40
	f g |
	a g ~ |
	g f |
	e1 |
	R1*4/4 |
%45
	r2 g ~ |
	g \[a |
	c'2.\] c'4 |
	b2 a |
	\[g f ~ \] |
%50
	f4 e \[f2 |
	e\] d |
	c r |
	R1*4/4 |
	r2 r4 d |
%55
	d2 c |
	d4. e8 f2 ~ |
	f4 e \[d2 |
	e2.\] e4 |
	e1 |
%60
	r2 r4 g |
	a2. g4 |
	f2 e | % Pedrell pone a2 e
	\[d e |
	f2.\] f4 |
%65
	e1 ~ |
	e ~ |
	e ~ |
	e ~ |
	e\breve*1/2
}

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

textocantus=\lyricmode{
\set stanza = "2."
Quæ _ te vi -- cit cle -- _ men -- _ ti -- a _ _ 
Ut fer -- _ res no -- stra cri -- _ _ _ mi -- na: _
Cru -- de -- lem mor -- _ _ tem pa -- _ _ ti -- ens
Ut nos _ a mor -- te __ _ _ tol -- _ _ _ le -- res.
\set stanza = "4."
I -- psa te co -- gat pi -- _ _ _ _ _ _ _ _ _ _ _ e -- tas __ _ _ _ _ % Ip -- sa 
i -- psa te co -- gat pi -- _ _ _ _ _ _ _ _ e -- tas
Ut ma -- la no -- _ stra su -- _ _ _ _ _ _ _ pe -- res,
ut ma -- la no -- _ stra su -- _ _ pe -- res:
Par -- cen -- do~et vo -- ti com -- _ _ _ _ _ _ _ po -- tes
par -- cen -- do~et vo -- ti com -- _ _ _ po -- tes,
Nos tu -- o vul -- tu sa -- _ _ _ _ ti -- es _
nos tu -- o vul -- tu sa -- _ ti -- es.
}

textoaltus=\lyricmode{
\set stanza = "2."
Quæ te vi -- cit cle -- men -- _ _ _ _ _ ti -- a,
\italicas
quæ te vi -- cit cle -- men -- _ _ _ ti -- a
\rectas
Ut fer -- res no -- _ _ stra cri -- _ _ _ _ _ _ _ mi -- na
ut fer -- _ _ _ res no -- stra cri -- _ _ _ _ _ _ _ _ _ _ _ mi -- na:
Cru -- de -- lem mor -- _ _ tem pa -- _ _ _ _ _ _ _ _ _ _ ti -- ens
Ut nos a mor -- _ _ _ _ _ te tol -- _ _ _ _ _ _ le -- _ res.
\set stanza = "4."
I -- _ psa te co -- gat pi -- _ _ _ _ _ _ _ e -- tas
i -- psa te co -- gat pi -- _ _ _ _ _ _ _ _ _ _ _ e -- tas
Ut ma -- la no -- stra su -- _ _ pe -- res
ut ma -- la no -- stra su -- _ _ _ _ _ _ pe -- res:
Par -- cen -- do~et vo -- _ _ ti com -- _ _ _ _ po -- tes
par -- cen -- do~et vo -- ti com -- _ _ _ _ _ _ _ po -- tes
Nos tu -- _ o vul -- tu sa -- _ _ _ ti -- es
nos tu -- o vul -- tu sa -- _ _ _ _ ti -- es.
}

textotenor=\lyricmode{
\set stanza = "2."
Quæ te vi -- cit cle -- men -- _ _ _ _ _ _ _ _ ti -- a __ _ _ _ _ 
quæ te vi -- cit cle -- _ _ men -- _ _ _ ti -- a __ _ _ 
Ut fer -- _ _ res no -- _ _ stra cri -- _ _ mi -- na
\italicas
ut fer -- res no -- stra cri -- _ mi -- na:
\rectas
Cru -- de -- lem mor -- _ _ tem pa -- _ _ _ ti -- ens
cru -- de -- lem mor -- _ _ _ tem pa -- ti -- ens % mor no se lee bien
Ut nos _ a mor -- te tol -- le -- res.
\set stanza = "4."
I -- _ psa te co -- gat pi -- _ e -- tas
Ut _ ma -- _ la no -- stra su -- _ _ _ _ _ pe -- res:
Par -- cen -- do~et vo -- _ _ _ ti com -- _ po -- tes
Nos tu -- o vul -- tu sa -- _ _ ti -- es. _ _ _ _ 
}

textobassus=\lyricmode{
\set stanza = "2."
Quæ te vi -- cit cle -- men -- _ _ _ _ _ _ _ ti -- a,
quæ te vi -- cit __ _ _ _ _ cle -- men -- ti -- a
quæ te vi -- cit cle -- men -- ti -- a _
Ut fer -- res no -- stra cri -- mi -- na
\italicas
ut fer -- _ _ res no -- _ _ _ _ stra cri -- mi -- na:
\rectas
Cru -- de -- lem mor -- _ _ _ _ tem pa -- _ _ _ ti -- ens
Ut nos a mor -- te tol -- _ _ _ _ le -- res. % le no se ve
\set stanza = "4."
I -- _ psa te co -- gat pi -- _ _ _ _ _ e -- tas
i -- psa te co -- gat pi -- _ _ _ _ _ _ _ _ _ _ e -- tas,
Ut ma -- la no -- stra su -- _ _ _ _ _ _ _ _ _ pe -- res:
Par -- cen -- do~et vo -- ti com -- _ _ _ _ _ _ _ po -- tes __ _ _ _ _ 
par -- cen -- do~et vo -- ti com -- _ _ _ _ _ _ _ po -- tes
Nos tu -- o vul -- tu sa -- _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ ti -- es.
}


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
		f'\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
		c'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
		c'1
		} 
	\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
		f1
		} 
	\layout { line-width=\incipitwidth indent = 0 }
	}
}


\score {\transpose c' d'{
\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 
		\override BarNumber.padding = #2 
	}
	\context {\Voice 
		melismaBusyProperties = #'()
		%autoBeaming = ##f
	}
	%\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 {}

}


\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.3\cm
	score-system-spacing =
	#'((basic-distance . 20) (minimum-distance . 0) (padding . 5))
	system-system-spacing =
	#'((basic-distance . 18) (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))
	top-markup-spacing #'basic-distance = 5
	markup-system-spacing #'basic-distance = 20

}