\version "2.18.0"

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

italicas=\override LyricText.font-shape = #'italic
rectas=\override LyricText.font-shape = #'upright
ss=\once \set suggestAccidentals = ##t
incipitwidth = 20
mtempo={\tempo 4 = 100}


htitle="Sancta Maria, succurre miseris"
hcomposer="Victoria"

\header {
	title=\markup{\fontsize #4 "Sancta Maria, succurre miseris"}
	subtitle=\markup{"in festo Sanctæ Mariæ ad Nivem"}
	subsubtitle=\markup{\null \vspace #2 } 
	composer="Tomás Luis de Victoria (c.1548-1611)"
        pdfauthor=\composer
	%opus="(-)"
	%poet="1572,  1583b,  1589a,  1589b,  1603"
	poet="1572,  1583b..."
        copyright=\markup{
		\fill-line {"Transcribed and edited by Nancho Alvarez" \typewriter "http://tomasluisdevictoria.org"}
	}
%	tagline=""
}


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

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

altus={
	a2 a4 a |
	d'2 c' |
	r4 c' c' d' |
	e'4. d'8 c'4 b |
%5
	c'4. b16 a g4 a |
	b1 |
	r4 e' e' d' |
	g'2. f'8 e' |
	d'4. c'8 d'4 e' ~ |
%10
	e' d' e'2 ~ |
	e' r |
	r4 e'2 d'4 |
	e' b c'2 ~ |
	c'4 b a gis |
%15
	a2. a4 |
	b1 |
	e'2. e'4 |
	e' g'2 f'4 |
	e' d' e'2 ~ |
%20
	e' r4 c' |
	d' e'2 d'4 |
	e'2 e' ~ |
	e' f' |
	r4 f' f' f' |
%25
	d'2. d'4 |
	cis'1 |
	r4 \ss c'! a b |
	c'4. d'8 e'2 |
	r4 e'4. e'8 g'4 |
%30
	f' d' f' c' |
	r e'4. e'8 e'4 |
	d'2 f' |
	e'1 |
	cis'2 r |
%35
	d'2. d'4 |
	d'2 e' |
	d'4. e'8 f'4 f' |
	e' d'8 c' d'2 |
	e'1 |
%40
	r2 e' |
	e'4 e' f'2 ~ |
	f' e' ~ |
	e' e' |
	e'2. e'4 |
%45
	fis'2 g' ~ |
	g' e' ~ |
	e' r4 c' |
	b g a2 |
	e4 e' c' d' |
%50
	e'2 a4 a' |
	g' e' f' e'8 d' |
	e'2 r4 e' |
	c' d' e'2 |
	d'4 c'4. b8 a4 ~ |
%55
	a gis8 \ss fis gis2 |
	r4 e' e' e' |
	f'4. e'8 d'4 c' |
	b2 r4 e' |
	e' e' f'8 e' d' c' |
%60
	d' e' f'4 e'2 ~ |
	e'4 e' cis' e' |
	e' d' f'4. e'8 |
	d'4 c' d' e' |
	f'2 e' ~ |
%65
	e'1 ~ |
	e' ~ |
	e'2 r4 a |
	a a f'4. e'8 |
	d'4 c' d'8 e' f' d' |
%70
	e' f' g' e' f'4 e' ~ |
	e' d' e'2 ~ |
	e'1 ~ |
	e' ~ |
	e' ~ |
%75
	e' ~ |
	e'\breve*1/2
}

tenor={
	R1*4/4 |
	R1*4/4 |
	R1*4/4 |
	R1*4/4 |
%5
	R1*4/4 |
	e2 e4 e |
	a2 g |
	r4 g g a |
	b2. a8 g |
%10
	a4. b8 c'4 b |
	a c'2 b4 |
	c' g a2 | %! c' b a2 en 1603
	b a |
	R1*4/4 |
%15
	r2 a ~ |
	a4 gis gis2 |
	c'2. b4 |
	b e'2 d'8 c' |
	b4 a b b |
%20
	a c'4. b8 a g |
	f4 e f f |
	e2 a ~ |
	a d4 d' |
	d' d' c'2 ~ |
%25
	c'4 b a2 |
	r4 a a a |
	g2. f4 |
	e a4. a8 a4 |
	g e g2 |
%30
	d r4 a ~ |
	\set Staff.autoBeaming = ##f
	a8 a c'4 b g |
	\set Staff.autoBeaming = ##t
	b2 a4 d' |
	c' b8 a b2 |
	a r |
%35
	a2. a4 |
	b2 c'4 c' ~ |
	c' b c' d' ~ |
	d'8 c' c'2 b4 |
	c'2 b |
%40
	b4 b a2 |
	r4 a a a |
	d'4. c'8 b4 a |
	b2 a4 a ~ |
	a gis8 \ss fis gis4 gis |
%45
	a2 c'4. g8 |
	c'4 b4. a8 a4 ~ |
	a gis a e' |
	d' b \[c'2 |
	b\] a4 a |
%50
	b cis' d'4. \ss c'8 |
	b4 a4. g8  g[ fis] |
	a2 e |
	r4 a b c' |
	a gis a2 |
%55
	b r4 b |
	b b c'4. b8 |
	a g f4. g8 a4 ~ |
	a gis8 \ss fis gis4 gis |
	a2 r4 a |
%60
	a d' c' b8 a |
	b4 b a c'8 b |
	a g f2 d4 |
	a1 |
	r4 a a a |
%65
	c'4. b8 a4 gis |
	c'2. b8 a |
	b4 c'4. b8 a g |
	f4 e d8 e f g |
	a4. g8 f2 |
%70
	g r |
	r4 a b b |
	c'4. b8 a4 e |
	a2 e4 c' |
	c' b a e |
%75
	a2. gis8 \ss fis |
	gis\breve*1/2
}

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

textocantus=\lyricmode{
San -- cta Ma -- ri -- a,
suc -- cur -- re mi -- _ _ _ _ _ _ _ _ _ _ _ se -- _ ris
iu -- va pu -- sil -- la -- ni -- mes
iu -- _ va pu -- sil -- la -- _ _ _ _ _ _ _ _ _ ni -- mes,
re -- fo -- ve fle -- _ _ _ _ bi -- les _
o -- ra pro po -- _ pu -- lo
o -- ra pro po -- pu -- lo _
in -- ter -- ve -- ni pro cle -- ro
in -- ter -- ve -- ni pro cle -- _ _ _ _ _ ro
in -- ter -- ce -- de pro de -- vo -- to
fe -- mi -- ne -- o,
fe -- mi -- ne -- o __ _ _ _ 
_ \italicas se -- _ _ \rectas xu:
%! en 1572 "se" va sobre la sincopa
%! en 1589b y 1603 "se" va sobre el gis anterior
sen -- ti -- ant o -- _ _ _ _ mnes
tu -- um iu -- va -- men, tu -- um
iu -- va -- _ men,
tu -- um
iu -- va -- _ _ men _
qui -- cum -- que ce -- _ _ _ _ _ _ _ _ _ _ le -- brant _ _ 
tu -- am com -- me -- mo -- ra -- ti -- o -- _ _ _ _ _ _ _ nem _
tu -- am com -- me -- mo -- ra -- ti -- o -- nem
tu -- am com -- me -- mo -- ra -- ti -- o -- _ _ _ nem. _
}

textoaltus=\lyricmode{
San -- cta Ma -- ri -- a,
suc -- cur -- re mi -- _ _ _ _ _ _ _ se -- ris
suc -- cur -- re mi -- _ _ _ _ _ _ _ se -- ris _
iu -- va pu -- sil -- la -- _ _ _ _ _ ni -- mes,
re -- fo -- ve fle -- _ _ bi -- les _
fle -- _ _ bi -- les, o -- _ ra
o -- ra pro po -- pu -- lo
o -- ra pro po -- pu -- lo
in -- ter -- ve -- ni pro cle -- ro
in -- ter -- ve -- ni pro cle -- ro
in -- ter -- ce -- de pro __ _ _ de -- vo -- _ _ _ to
fe -- mi -- ne -- o _
se -- _ xu:
sen -- ti -- ant o -- _ mnes _
tu -- um
iu -- va -- men,
tu -- um iu -- va -- men,
tu -- um iu -- va -- _ _ men
tu -- um iu -- va -- _ _ _ _ _ _ _ men
qui -- cum -- que ce -- _ _ le -- brant
qui -- cum -- que ce -- _ _ _ _ _ _ _ _ le -- brant,
tu -- am com -- me -- mo -- ra -- ti -- o -- _ _ nem _ _ _ 
tu -- am com -- me -- mo -- ra -- ti -- o -- _ _ _ _ _ _ _ _ _ _ _ nem. _ _ _ _ _ 
}

textotenor=\lyricmode{
San -- cta Ma -- ri -- a, 
suc -- cur -- re mi -- _ _ _ _ _ se -- ris,
iu -- va pu -- sil -- la -- ni -- mes
re -- _ fo -- ve,
re -- fo -- ve fle -- _ _ _ _ _ bi -- les,
fle -- _ _ _ _ _ _ bi -- les,
o -- _ ra,
o -- ra pro po -- _ pu -- lo
o -- ra pro po -- pu -- lo,
in -- ter -- ve -- ni pro cle -- ro
in -- _ ter -- ve -- ni pro cle -- ro,
pro cle -- _ _ _ ro
in -- ter -- ce -- de pro _ de -- vo -- _ _ _ _ _ to,
fe -- mi -- ne -- o
fe -- mi -- ne -- o __ _ _ _ se -- xu:
sen -- _ _ _ _ ti -- ant
o -- _ _ _ _ _ _ _ mnes,
tu -- um iu -- va -- _ men,
tu -- um iu -- va -- _ _ _ _ _ _ _ men
tu -- um iu -- va -- _ _ men
qui -- cum -- que ce -- _ _ _ _ _ _ _ _ _ _ le -- brant
qui -- cum -- que ce -- _ _ _ le -- brant,
ce -- _ _ _ _ le -- brant
tu -- am com -- me -- mo -- ra -- ti -- o -- _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ nem
tu -- am com -- me -- mo -- ra -- ti -- o -- nem,
com -- me -- mo -- ra -- ti -- o -- _ _ nem.
}

textobassus=\lyricmode{
suc -- cur -- re mi -- _ _ _ se -- ris
iu -- va pu -- sil -- la -- ni -- mes,
iu -- _ va pu -- sil -- la -- ni -- mes,
re -- fo -- ve fle -- _ _ bi -- les
fle -- _ _ _ _ _ _ bi -- les _
o -- ra pro po -- pu -- lo
o -- ra pro po -- pu -- lo
in -- ter -- ve -- ni pro cle -- _ _ ro,
pro cle -- ro
in -- ter -- ce -- de pro de -- vo -- to,
fe -- mi -- ne -- o,
fe -- mi -- ne -- o _
se -- _ xu:
sen -- ti -- ant om -- _ _ _ _ _ _ _ mnes
tu -- um iu -- va -- _ men,
tu -- um iu -- va -- _ men,
tu -- um
iu -- va -- men,
tu -- um iu -- va -- men
qui -- cum -- que ce -- _ _ _ _ _ _ _ _ le -- brant,
qui -- cum -- que ce -- _ le -- brant
tu -- am com -- me -- mo -- ra -- ti -- o -- nem
tu -- am com -- me -- mo -- ra -- ti -- o -- _ _ _ _ _ _ nem,
com -- me -- mo -- ra -- ti -- o -- nem
tu -- am com -- me -- mo -- ra -- ti -- o -- _ nem. _
}


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 c \major
		\time 2/2
		e'1
		} 
	\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-c3"
		\key c \major
		\time 2/2
		a1
		} 
	\layout {
		\context {\Voice
			\remove Ligature_bracket_engraver
			\consists Mensural_ligature_engraver
		}
		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-c4"
		\key c \major
		\time 2/2
		e1
		} 
	\layout {
		\context {\Voice
			\remove Ligature_bracket_engraver
			\consists Mensural_ligature_engraver
		}
		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-f4"
		\key c \major
		\time 2/2
		e1
		} 
	\layout {
		\context {\Voice
			\remove Ligature_bracket_engraver
			\consists Mensural_ligature_engraver
		}
		line-width=\incipitwidth
		indent = 0
	}
	}
}





\score {\transpose d 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 
                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.4\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
}