\version "2.18.0"

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

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}

htitle="Ave Regina cælorum"
hcomposer="Guerrero"

\header {
	title=\markup{\fontsize #3 "Ave Regina cælorum"}
	subtitle="[antífona mariana]"
	subsubtitle=\markup{\null \vspace #2 }
	composer="Francisco Guerrero (1528-1599)"
        pdfauthor=\composer
	%opus="(-)"
	poet=\markup{"1584,  1589,  1597"} % Venecia, Giacomo Vincenti 1589; Venecia, Giacomo Vincenti 1597; Liber Vesperarum, Roma 1584
	copyright=\markup{
		\fill-line {"Edited by Nancho Alvarez" \typewriter "http://tomasluisdevictoria.org"}
	}
%	tagline=""
}


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

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

altus={
	c'1
	bes2 a
	c' g4. a8
	bes4 a8 g a2
%5
	g4 c'2 \ss b4
	c'2 r4 g
	bes bes c' d'
	a c'2 bes8 a
	bes2 a
%10
	r4 f' e' d'
	e'2 f' ~
	f'4 bes d'2
	c' r4 c' ~
	c' f a2
%15
	c' d'
	r4 c'2 g4
	bes a g2
	r4 g'2 f'4
	f'4. e'8 d'4 c'
%20
	f f'4. e'8 d' c'
	d'4 e' f'2
	e' f'
	d'4 d'4. bes8 d'4
	c'4. bes8 a4 d' ~
%25
	d' \ss cis' d'2
	g r4 d' ~
	d' g' f'2
	e'4 f'4. e'8 c'4
	ees' d' bes2
%30
	r4 f'2 e'4
	f'8 e' d' c' bes a bes c'
	d'4 ees' c'2
	d'4 a d'2
	c'2. b8 a
%35
	b2 c'4 c'
	a d'4. bes8 c'4
	d'2 r4 a
	bes g2 fis4
	g8 a bes c' d' e' f'4 ~
%40
	f' e' c' d' ~
	d' c'8 bes c'2
	a1
	r4 c' d' f' ~
	\set Staff.autoBeaming = ##f
	f'8 e' c'4 d'2
	\set Staff.autoBeaming = ##t
%45
	c' r4 f'
	d' e'4. e'8 f'4
	d' bes4. a8 d'4
	c'2 r4 bes
	g a2 bes4 ~
%50
	bes8 g c'4 d' bes
	c' a r c' ~
	c'  bes8[ a bes c'] d'4 ~
	 d'8[ c']  c'[ bes16 a] bes2
	a r
%55
	\[f' d'4.\] e'8
	f'4 e' d' g
	r c'4. d'8 e' f'
	d'4 e' f'2
	d'1 ~
%60
	d'2 r4 d' ~
	\set Staff.autoBeaming = ##f
	d'8 d' d'4 f' e'
	\set Staff.autoBeaming = ##t
	e'2 r4 f' ~
	f' d' e' f'
	g'8 f' e' d' c' bes c'4
%65
	bes g r d' ~
	d' bes c' d'
	g c'4. \ss b8  b[ a16 b]
	c'2 f4 bes
	a c' c'2
%70
	a4  bes8[ c' d' e'] f'4
	e' d' d'2
	c' d' ~
	d' c' ~
	c'1
%75
	c'\breve*1/2
}

tenor={
	R1*4/4
	r2 f ~
	f e
	d f
%5
	c4 c g2
	g4 c e e
	f g a d8 e
	f g a4. g8 f4 ~
	f8 e16 d e4 f c' ~
%10
	c' c'2 b4
	c'2 c'4 c'
	d'4. c'8 bes4. a8
	g4 a g2
	f4 c'2 f4
%15
	g4. a8 bes4 a8 g
	a4 a g2
	r r4 c' ~
	c' g bes a
	d8 e f g a g a bes
%20
	c'4 d' c' d'
	bes2 c'4 d'
	d' cis' d'2
	bes4 g bes4. a8
	g2 r4 f
%25
	\[g2 a\]
	bes a
	r4 d'2 d'4
	c'8 bes a g f4 a
	g8 a bes c' d'4 g
%30
	r d'2 c'4
	a2 d'
	bes4 c'4. bes8 g4
	a f bes2
	a4. g8 a g f e
%35
	\[f2 g\]
	f4 bes g4. a8
	bes4 a4. g8 f4 ~
	f e8 d c2
	d4 d'2 a4
%40
	bes c' a bes ~
	bes8 a f4 g2
	f r4 f
	\[a2 bes\]
	c'4 a g2
%45
	a4 c'2 a4
	b c'2 a4
	bes d'4. c'8 bes4 ~
	bes a bes2
	r f4 d
%50
	e f4. d8 g4
	e f g2
	f1
	R1*4/4
	\[f2 g\]
%55
	a4 c' bes8 c' d' bes
	\[c'2 d'\]
	c' r
	r \[c'
	bes\] \[a
%60
	g\] f
	\[g a\]
	a1
	bes2 \[a
	g\] \[a
%65
	g\] f
	g \[f
	e\] \[d
	c\] d4. e8
	f2 \[g
%70
	f\] \[f
	g\] a ~
	a bes
	a1
	g
%75
	f\breve*1/2
}

bassus={
	R1*4/4
	R1*4/4
	R1*4/4
	R1*4/4
%5
	R1*4/4
	c1
	bes,2 a,4 bes,
	f,4. g,8 a,4 bes,
	g,2 f,
%10
	\[f g\]
	c4 c f2
	bes,2. bes,4
	c1
	f,2 f
%15
	e d4. e8
	f4 f c8 d e f
	g4 f e c
	f e d2
	r4 d4. e8 f g
%20
	a4 bes a bes
	g2 f4 d
	a2 d
	r \[bes,
	c\] \[d
%25
	e\] d
	r4 g2 fis4
	g2 d
	R1*4/4
	r4 g2 g4
%30
	f8 e d c bes,4 c
	d2 g,4 g ~
	g c ees2
	d r4 bes,
	f f4. e8 d c
%35
	d2 c
	r4 bes, \ss ees2
	d2. d4
	bes, c a,2
	g, r
%40
	R1*4/4
	r2 c
	d4 f4. e8 d4 ~
	d c bes,2
	a, r
%45
	r4 a2 f4
	g c c f
	g4. f16 e d4. e8
	f2 bes,
	R1*4/4
%50
	r2 bes,4 g,
	a,2 bes,4 c
	a, bes,4. a,8 bes, c
	d e f4. e16 d e4
	f2 r
%55
	\[f g\]
	\[a bes\]
	a r
	\[g f\]
	g d
%60
	r4 g, d4. c8
	\[bes,2 a,\]
	a, r4 d ~
	d bes, c d
	g, c2 a,4
%65
	bes, c f, bes, ~
	bes, g, a, bes,
	c2 g,
	r4 c bes, g,
	f,2 c
%70
	d4 bes,2 a,4
	g,2 d4. e8
	f2 bes,4. c8
	\[d2 a,4.\] bes,8
	c1
%75
	f,\breve*1/2
}

textocantus=\lyricmode{
A -- _ _ _ ve __ _ _ _ Re -- gi -- na cæ -- _ lo -- _ _ _ _ _ _ _ _ _ rum
a -- _ _ _ _ _ ve __ _ _ _ Do -- mi -- na an -- ge -- lo -- _ _ _ _ _ rum:
sal -- _ _ _ ve ra -- _ _ _ dix __ _
san -- cta, 
ex qua __ _ mun -- _ do lux est __ _ or -- _ _ _ _ _ ta:
gau -- de __ _ glo -- ri -- o -- _ _ _ _ _ sa
su -- per om -- nes spe -- ci -- o -- _ _ _ sa:
va -- _ le,
va -- _ _ _ _ _ le,
va -- _ _ _ _ le,
va -- _ _ _ _ _ _ le,
val -- de de -- co -- _ ra
et _ pro no -- bis sem -- _ _ _ _ _ _ _ _ per Chri -- stum
et _ pro no -- bis sem -- per Chri -- stum,
et pro no -- _ bis sem -- per _ Chri -- stum ex -- _ o -- _ _ _ _ _ _ ra.

}

textoaltus=\lyricmode{
A -- ve Re -- gi -- na __ _ _ _ _ _ cæ -- lo -- _ rum
a -- ve Re -- gi -- na cæ -- lo -- _ _ _ rum
a -- ve Re -- gi -- na _ cæ -- lo -- rum
a -- _ ve Do -- mi -- na
a -- ve Do -- mi -- na
a -- ve Do -- _ _ mi -- na an -- _ _ _ _ ge -- lo -- rum,
an -- ge -- lo -- _ _ rum, __ _ _ 
sal -- _ _ _ ve
sal -- _ ve ra -- dix
san -- _ _ _ _ cta
sal -- ve ra -- _ _ _ _ _ _ _ _ dix 
san -- cta, 
ex qua mun -- _ _ _ do lux est or -- _ _ ta
ex qua mun -- do lux __ _ _ _ _ _ _ _ _ est or -- _ _ _ _ ta:
gau -- de glo -- _ ri -- o -- _ sa
su -- per om -- nes spe -- ci -- o -- _ _ sa
su -- per om -- nes __ _ _ _ spe -- ci -- o -- sa:
va -- _ _ _ _ _ _ _ _ _ _ _ _ le
va -- _ _ _ le,
va -- le 
va -- _ _ _ _ _ _ le _
val -- _ de de -- co -- _ ra
et _ pro no -- bis sem -- _ _ _ _ _ _ _ per
et _ pro no -- bis sem -- per, __ _ _ _ _ _ 
et pro no -- bis sem -- per Chri -- _ _ _ _ stum ex -- o -- ra,
ex -- _ o -- _ ra.
}

textotenor=\lyricmode{
A -- _ ve Re -- gi -- na cæ -- lo -- rum,
a -- ve Re -- gi -- na cæ -- lo -- _ _ _ _ _ _ _ _ _ _ rum,
a -- _ ve Re -- gi -- na cæ -- lo -- _ _ _ _ _ _ rum,
a -- ve Do -- _ _ _ _ _ mi -- na
a -- _ ve Do -- mi -- na __ _ _ _ _ _ _ _ _ an -- ge -- lo -- rum,
a -- ve Do -- mi -- na an -- ge -- lo -- _ rum:
sal -- _ _ _ ve sal -- ve ra -- _ _ _ _ dix san -- _ _ _ _ cta
sal -- ve ra -- _ dix
san -- _ _ cta, 
ex qua mun -- _ _ _ _ _ _ _ do lux est __ _ _ or -- _ _ _ _ _ _ ta,
ex qua mun -- do lux est __ _ _ _ or -- ta:
gau -- de __ _ glo -- ri -- o -- sa su -- per om -- nes spe -- ci -- o -- _ _ _ _ sa
su -- per om -- nes __ _ _ spe -- ci -- o -- sa:
va -- _ le,
va -- _ _ _ _ _ _ le
val -- _ de __ _ de -- co -- _ ra,
et pro __ _ no -- _ bis sem -- per __ _
Chri -- _ _ _ _ stum __ _ ex -- _ o -- _ _ _ _ ra.
}

textobassus=\lyricmode{
A -- ve Re -- gi -- na __ _ _ cæ -- lo -- rum,
a -- _ ve Re -- gi -- na cæ -- lo -- rum,
a -- ve Do -- _ _ mi -- na __ _ _ _ _ an -- ge -- lo -- _ _ rum
a -- _ _ _ _ ve Do -- mi -- na an -- ge -- lo -- rum:
sal -- _ _ _ ve
sal -- _ _ ve
sal -- ve ra -- _ _ _ _ dix
san -- cta, 
ra -- _ dix san -- cta
ex qua mun -- _ _ _ _ do 
ex qua mun -- do lux est or -- ta:
gau -- de glo -- ri -- o -- _ _ _ sa
su -- per om -- nes spe -- ci -- o -- _ _ _ _ _ sa
su -- per om -- nes spe -- ci -- o -- _ _ _ _ _ _ _ _ _ sa:
va -- _ _ _ le
val -- _ _ de de -- co -- _ _ _ ra
et _ pro no -- _ bis,
et pro no -- _ bis,
et _ pro no -- bis sem -- per
et pro no -- bis sem -- per Chri -- _ stum ex -- _ _ o -- _ _ _ _ _ ra.
}


incipitcantus=\markup{
	\score{
		{ 
		\set Staff.instrumentName="Cantus "
		\override NoteHead.style = #'neomensural
		\override Staff.TimeSignature.style = #'neomensural
		\cadenzaOn 
		\clef "petrucci-c1"
		\key f \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 f \major
		\time 2/2
                c'\breve
		} 
	\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 f \major
		\time 2/2
                f\breve
		} 
	\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 f \major
		\time 2/2
                c\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
}