\version "2.24.0"

#(set-default-paper-size "a4")
#(set-global-staff-size 16.4)
#(ly:set-option 'point-and-click #f)
%mobile -s14.7 -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 (offset) (number?) ; move lyric text
      #{ \once \override LyricText.X-offset = -$offset #})

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

\header {
	title=\markup{\fontsize #3 "Ave Regina cælorum"}
	subtitle=""
	subsubtitle=\markup{\null \vspace #1 }
	composer="Cristóbal de Morales (1500-1553)"
	pdfauthor = \composer
	%opus="(-)"
	poet=\markup{"Ms. Parroquia de Santiago, Valladolid"} % fols 66v-67
	copyright=\markup{
		\fill-line {"Edited by Nancho Alvarez upon a transcription by Higinio Anglés" \typewriter "http://tomasluisdevictoria.org"}
	}
%	tagline=""
}

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

cantus=\relative c'' {
	R1*4/4
	R1*4/4
	R1*4/4
	R1*4/4
%5
	R1*4/4
	r2 c ~
	c bes
	a4 c4. bes8 a4
	g e f4. e8
%10
	f g a4 g f ~
	f e f2 ~
	f r
	R1*4/4 
	f1
%15
	\[e2 d\]
	\[e c\]
	d1
	f
	\[f2 g
%20
	a1\]
	\[a2 g\]
	\[a bes ~ \]
	bes4 a g2 
	f1 %\break
%25
	r2 \[f
	g\] \[a
	bes\] a ~
	a g
	a r4 c ~
%30
	c bes a2
	g4 f g2
	f1
	r2 f ~
	f \[d
%35
	e\] d ~
	d4 c f2 ~
	f4 g a2
	bes4. a8 g2
	f1
%40
	r4 f e f ~
	f8 e d4 c d
	r2 \[f
	a4.\] g8 a bes c4
	d d2 c4
%45
	bes2. a4
	g4.  f8 g a bes4
	a1 %\break
	r4 d2 c4
	bes a bes4. a8
%50
	g f g2 d4
	\ss es2 d
	r f ~
	f \[g
	a\] bes4. a8
%55
	g2 f4 d
	g2. \ss fis4
	g2 a
	r4 c2 bes4
	c2 bes4 bes
%60
	a2 a
	r a ~
	a4 g \[a2
	bes4.\] a8 g2
	fis a4 bes
%65
	a2 f
	r a ~
	a4 g a8 bes c4 ~
	c \ss b c2
	a4 d4. c8 bes4
%70
	a8 g f e d4 d' ~
	d c4. bes8 c4
	a\breve*1/2 
}

altus=\relative c' {
	R1*4/4
	R1*4/4
	R1*4/4
	f1
%5
	e
	\[d2 e\]
	c d
	f \[f,
	g\] a ~
%10
	a bes4. a8
	g2 f
	r f' ~
	f e
	d2. d4
%15
	c2 bes4 a8 bes
	c g g'2 \ss fis4
	g1
	R1*4/4
	r2 d4 e
%20
	f2. f4
	f2 d4. e8
	f2 g
	f4. \ss es8 d4 es
	c2 d4 bes ~
%25
	bes bes a a
	c2. a4
	d4. e8 f4 e
	f c \[d2
	e4.\] d16 e f2
%30
	d r4 a
	bes2 g
	a r
	f' d4 d ~
	d8 c d e f4 d
%35
	c4. bes8 a4 f'
	e2 d
	r4 d f f ~
	f8 e d4 g, c
	a bes a4. bes8
%40
	c4 f, g f
	R1*4/4
	r4 \[d'2 f4 ~ \]
	\set Staff.autoBeaming = ##f
	f8 c  f[ e]  f[ g] a4 ~
	\set Staff.autoBeaming = ##t
	a g a a,
%45
	d4.  c8[ d e] f4
	d e8 d e f g4 ~
	g f e2
	d f4. \ss es8
	d4 c bes d ~
%50
	d c2 \ss b4
	c2 r4 d ~
	\set Staff.autoBeaming = ##f
	d8 bes es4 d2
	\set Staff.autoBeaming = ##t
	r \[bes
	c\] d
%55
	es d4. c8
	bes4 g r d' ~
	d d \[d2
	e\] f4 g
	a2 g4. f8
%60
	e2 r4 f ~
	f e d2
	c4 bes c d ~
	d8 c bes2 g4
	r d' e g8 f
%65
	e d e4 \[d2
	c\] r4 a
	bes8 c d e f4 c
	d f2 e4
	f8 e d c bes a g4
%70
	f2. f4
	f f'4. e8 e4
	f\breve*1/2
}

altusdos=\relative c' {
	R1*4/4
	R1*4/4
	R1*4/4
	R1*4/4
%5
	c1
	bes2 a4 c ~
	c8 bes a4 g g
	f8 g a bes c4 d ~
	d \ss cis d2
%10
	r4 d2 d4
	c c a4. g8
	a bes c4. bes8 a g
	f2 g4 a
	bes2 a
%15
	R1*4/4
	r2 r4 c ~
	c bes8 a bes2
	c4 d4. d8 c4
	d c bes2
%20
	a1
	r2 r4 bes
	c d4. d8 g,4
	d' c4. bes8 bes4 ~
	bes a bes d ~
%25
	d d d2
	g,4 g4. \ss fis16 e fis4
	g2 r
	r r4 d' ~
	d \ss cis d a
%30
	r d2 d4
	\[d2 c\]
	d r4 d
	c d d,8 e f g
	a4 d, r2
%35
	R1*4/4
	r4 a' a f8 g 
	a f bes4 c c 
	d f2 e4 
	f4 \[f,2 a4 ~ \]
	a8 g a bes c bes 
	a g a4 d, e 
	f g2 f ~ 
	f r4 a 
	d8[ c] d[ e] f4 e
%45
	r f2 d4
	bes c2 d4 ~
	d8 a d2 \ss cis4
	d2 r
	f4. \ss es8 d4 bes
%50
	r g2 g4
	g4. a8 bes4 a
	bes c f,2
	c'4. c8 d4 e
	f1
%55
	r4 c a bes ~
	bes8 a bes c d4 d,
	d g2 f4
	g2 r4 d'
	f4. e8 d c d4 ~
%60
	d \ss cis d2
	r f ~
	f4 d f2
	g4 g,4. a8 bes c
	d2 c4 d ~
%65
	d8 c16 bes c4 d f ~
	f8 e16 d e4 f4. e8
	d c bes4 c8 bes a g
	f2 g
	d'2. d4
%70
	\[d2 f\]
	bes,4 c c2
	c\breve*1/2
}

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

bassus=\relative c {
	R1*4/4
	r2 f ~
	f e
	d4 f4. e8 d4
%5
	c a c2
	g r
	R1*4/4
	f'1
	e2 d4 f ~
%10
	f8 e d4 g, bes
	c2 f,
	f'2. f4
	d2 c
	bes d
%15
	a bes4 d
	c2 r
	r r4 g'
	a bes4. bes8 f4
	bes a g2
%20
	f4 d d d ~
	d8 e f4 g g
	f d g2
	R1*4/4
	r2 bes, ~
%25
	bes4 bes d d
	c4. bes8 a2
	g r
	R1*4/4
	R1*4/4
%30
	r4 g'2 f4
	g d es2
	d1
	r2 r4 d
	d bes8 c d bes bes'4
%35
	a g2 f4
	g a d,2
	R1*4/4
	r2 \[c
	d4.\] c8[ d e] f4 ~
%40
	f8 e d4 c d ~
	d8 c bes4 a d
	\[g,2 bes\]
	f1
	r2 \[a
%45
	bes4.\] a8[ bes c] d4
	g, c2 g4
	d'2 a
	bes2. a4
	bes f bes bes
%50
	c2 g
	r4 c bes d
	g, c bes bes
	f2 r
	r \[bes
%55
	c\] d
	\ss es d
	g, d'
	c r
	R1*4/4
%60
	r2 d ~
	d4 c d4. e8
	f4 g f d
	g4. f8 es2
	d r
%65
	r bes
	c d
	g, r
	r r4 c
	d bes g2
%70
	d'4. c8 bes2
	bes4 f c'2
	f,\breve*1/2
}

textocantus=\lyricmode{
A -- _ ve Re -- gi -- na cæ -- lo -- rum,
\italicas
a -- ve Re -- _ gi -- na cæ -- _ lo -- rum _
\rectas
a -- ve __ _ Do -- _ mi -- na an -- _ _ ge -- _ lo -- _ _ _ _ rum
\italicas
an -- _ ge -- _ lo -- _ _ rum:
\rectas
Sal -- _ ve ra -- \mt #1 dix __ _ san -- cta
ex _ qua __ _ mun -- _ do lux __ _ _ est or -- _ _ ta
\italicas
lux est or -- _ _ _ _ ta:
\rectas
\mt #.5 Gau -- _ _ de _ glo -- ri -- o -- _ sa,
\italicas
glo -- ri -- _ o -- _ _ sa
\rectas
su -- per o -- mnes spe -- _ ci -- _ o -- _ _ sa:
Va -- _ le, __ _
\mt #.5 val -- _ _ de de -- co -- _ _ ra
\italicas
va -- le, val -- de de -- co -- ra
\rectas
et _ pro no -- _ _ _ bis sem -- per Chri -- stum
\italicas
et _ pro no -- _ _ _ bis sem -- per \mt #.6 Chri -- _ _ _ _ _ _ stum 
\rectas
ex -- _ o -- _ _ ra. 

}

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

textoaltusdos=\lyricmode{
A -- ve Re -- gi -- _ _ _ na cæ -- lo -- _ _ _ _ _ _ _ rum
a -- ve Do -- mi -- na __ _ _ _ an -- _ _ _ _ ge -- _ lo -- rum
\italicas
a -- _ _ _ _ ve Do -- mi -- na an -- ge -- lo -- rum
a -- ve Do -- mi -- na an -- ge -- _ lo -- _ _ rum:
\rectas
\mt #1 Sal -- _ ve ra -- dix san -- _ _ _ cta
sal -- _ ve ra -- dix
ra -- dix san -- _ cta
ex \mt #1 qua __ _ mun -- _ _ _ _ do
ex qua mun -- _ _ _ _ do lux est or -- _ ta:
Gau -- _ _ _ _ _ _ _ _ _ de glo -- ri -- _ o -- sa _
\italicas
glo -- ri -- _ o -- _ _ sa
gau -- de glo -- ri -- o -- _ _ _ _ sa
\rectas
su -- per o -- mnes
\italicas
su -- per o -- _ _ _ _ _ mnes 
\rectas
spe -- ci -- o -- _ sa:
Va -- le, val -- _ _ _ _ _ de de -- co -- _ ra
\italicas
va -- le,
val -- de _ de -- _ co -- ra
\rectas
et _ pro no -- bis \mt #.6 sem -- _ _ _ _ per \mt #.5 Chri -- _ _ _ _ stum
ex -- _ _ _ _ o -- _ _ _ _ _ _ _ _ _ ra,
sem -- per Chri -- _ stum ex -- o -- ra.
}

textotenor=\lyricmode{
A -- ve Re -- gi -- _ _ _ _ _ _ _ _ _ _ na cæ -- _ lo -- _ _ rum
\italicas
Re -- gi -- na cæ -- _ lo -- rum
\rectas
\mt #.5 cæ -- _ lo -- _ _ _ rum
a -- ve Do -- _ _ _ _ _ _ _ _ _ _ mi -- _ na __ _ _ _ _ 
an -- ge -- _ lo -- rum
\italicas
a -- ve Do -- mi -- na an -- ge -- lo -- rum,
Do -- mi -- na an -- ge -- lo -- rum:
\rectas
Sal -- ve ra -- _ dix san -- cta,
\italicas
sal -- ve ra -- dix san -- _ _ _ _ cta
\rectas
ex qua mun -- _ _ _ _ do lux est
or -- ta
\italicas
ex _ qua mun -- do lux est or -- ta:
\rectas
\mt #1 Gau -- _ de __ _ glo -- ri -- _ _ o -- _ sa
su -- per o -- _ mnes spe -- ci -- _ o -- _ _ _ sa:
Va -- _ le, __ _
val -- \mt #.2 de __ _ _ de -- co -- _ ra _
et pro no -- _ bis sem -- per \mt #.3 Chri -- _ stum ex -- o -- _ ra, __ _ _ 
ex -- o -- ra.
}

textobassus=\lyricmode{
A -- _ ve Re -- gi -- _ _ na cæ -- lo -- rum
\italicas
a -- ve Re -- gi -- _ _ _ na cæ -- lo -- rum, 
\rectas
a -- ve Do -- mi -- na an -- ge -- lo -- _ rum
\italicas
a -- ve Do -- mi -- na an -- ge -- lo -- rum,
a -- ve Do -- _ _ mi -- na an -- ge -- lo -- rum:
\rectas
Sal -- _ ve ra -- dix \mt #.6 san -- _ _ cta
\italicas
sal -- ve ra -- dix san -- cta
\rectas
ex qua \mt #.4 mun -- _ do _ lux est or -- _ _ _ ta:
\mt #1 Gau -- _ _ _ _ _ _ _ _ de glo -- _ _ _ _ ri -- o -- _ sa
\italicas
gau -- _ _ _ _ _ de glo -- ri -- o -- sa,
\rectas
su -- per o -- mnes spe -- ci -- o -- sa
\italicas
su -- per o -- mnes spe -- ci -- o -- sa:
\rectas
Va -- _ le,
val -- de de -- co -- ra
et _ pro no -- _ _ bis sem -- per \mt #.6 Chri -- _ _ stum
ex -- o -- _ ra
\italicas
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
                c''\breve
		} 

	\layout { line-width=\incipitwidth indent = 0 }
	}
}

incipitaltus=\markup{
	\score{
		{ 
		\set Staff.instrumentName="Altus I  "
		\override NoteHead.style = #'neomensural 
		\override Staff.TimeSignature.style = #'neomensural
		\cadenzaOn 
		\clef "petrucci-c3"
		\key f \major
		\time 2/2
                f'\breve
		} 
	\layout { line-width=\incipitwidth indent = 0 }
	}
}


incipitaltusdos=\markup{
	\score{
		{ 
		\set Staff.instrumentName="Altus II "
		\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
                c'\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
                f\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 "G_8"
		\altus }
	\new Lyrics \lyricsto "v2" {\textoaltus }
	>>
	
	\new Staff <<\global
	\new Voice="v5" {
		\set Staff.instrumentName=\incipitaltusdos
		\clef "G_8"
		\altusdos }
	\new Lyrics \lyricsto "v5" {\textoaltusdos }
	>>
	
	\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 { \unless \on-first-page \hcomposer \unless \on-first-page \htitle \unless \on-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
}