\version "2.22.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 (offset) (number?) ; move lyric text
      #{ \once \override LyricText.X-offset = -$offset #})

htitle="Ave Maria gratia plena"
hcomposer="Morales"

\header {
	title=\markup{\fontsize #3 "Ave Maria gratia plena"}
	subtitle=" "
	%subsubtitle=\markup{\null \vspace #1 }
	composer="Cristóbal de Morales (1500-1553)"
        pdfauthor=\composer
	%opus="(-)"
	poet=\markup{"Capp. Sistina nº 38"} % Catedral de Sevilla ms. I
	copyright=\markup{
		\fill-line {"Transcribed and edited by Nancho Alvarez" \typewriter "http://tomasluisdevictoria.org"} % transcrito a partir de unas fotocopias de un concierto de La Danserye; no sé la fuente y no las conservo.
	}
%	tagline=""
}




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

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

cantus=\relative c'' {
        s4*0^\markup{"Fuga subdiapason"}
	R1*4/4
	R1*4/4
	R1*4/4
	R1*4/4
%5
	bes2. g4
	bes2 a
	g2^\markup{\hspace #1 \smaller \musicglyph "scripts.usignumcongruentiae"} r2
	r2 a
	bes4 g bes a ~
%10
	a8 g g2 \ss fis4
	g2 r
	R1*4/4
	r4 bes c a
	bes8 a g f e d a'4 ~
%15
	a8 g g2 \ss fis4
	g2 r
	r r4 d'
	d d4. c8 bes4 ~
	bes a bes2
%20
	r r4 bes
	c c d bes ~
	bes a8 g a4 g ~
	g8 f f2 e4
	f2 r
%25
	R1*4/4
	r4 d' c a
	bes2 a4 f
	g f4. g8 a4 ~
	a8 g g4 a2
%30
	R1*4/4
	r2 c4. bes8
	a4 bes a g ~
	g8 f f2 e4
	f2 r
%35
	R1*4/4
	r2 a
	g4 a f4. g8
	a2 r
	r4 a a a
%40
	f4. g8 a4 a
	g a f4. g8 |
	a2 r
	R1*4/4
	a2 g4 a
%45
	f4. g8 a2 ~
	a r
	R1*4/4
	r4 a a a
	bes2. a4
%50
	g a f f
	g2 r
	R1*4/4
	r4 d' d d
	d2 c4 a
%55
	bes4. a8 f g a4 ~
	a8 g g2 \ss fis4
	g2 r
	R1*4/4
	r4 d' d d
%60
	d2 c4 a
	c bes a2
	g4^\markup{\hspace #1 \smaller \musicglyph #"scripts.usignumcongruentiae"} bes4. a8 a4 ~
	\set Staff.autoBeaming = ##f
	a8 g g2 \ss fis4
	g\breve*1/2
}

altus=\relative c' {
	bes2. g4
	bes2 a4. g8
	f4 d d'2 ~
	d c
%5
	bes4 d4. c8 bes4 ~
	bes g a2
	bes4 g2 g'4
	f g4. \ss fis8 fis4
	g2. f4 ~
%10
	f8 e d4 c a
	r bes4. a8  f[ g]
	a bes c2 bes8 a
	bes4 g2 \ss fis4
	g2 r4 c
%15
	d d c2
	d4 e2 f4
	f, g a2
	bes r4 d
	f f d2
%20
	d,4. e8 f4 g
	\ss ees2 f
	f f4 g
	a f bes2
	c1
%25
	bes2 r4 c
	d f4. e8 c4
	d bes c d
	g, a4. bes8 c a
	d2 r4 a
%30
	bes bes a f ~
	f d e e' ~
	\set Staff.autoBeaming = ##f
	e8 c d4 c d
	\set Staff.autoBeaming = ##t
	c2 r
	r4 d c bes
%35
	a g8 f g4. a8
	bes4 f' f f
	d f r d
	c d2 c8 bes
	c2. d4
%40
	d f f f
	d f r d
	c f e d ~
	d c8 bes a4 f'
	e f d f ~
%45
	f d e f
	f2 g4 f8 e
	d4 d, e2
	d4 d' c d
	bes2 c
%50
	bes4 c d d
	d1
	r2 r4 d
	d d bes2 ~
	bes4 bes a c
%55
	bes2 a
	f4 bes a2
	g4 d' d d
	d2 c4 a
	bes8 c d e f4 g ~
%60
	g8 d g4 e f ~
	f8 e d4. c8 a4
	bes2 c
	a4 d4. c8 a4
	\ss b\breve*1/2
}

altusdos=\relative c' {
	R1*4/4
	R1*4/4
	bes1
	f2 f
%5
	\[g1
	d'
	\ss ees\]
	d
	r2 d
%10
	c4 bes c2
	d1
	r2 d ~
	d c
	bes c
%15
	g r
	r c
	c d ~
	d1
	c2 bes ~
%20
	bes r
	r r4 bes
	c2. bes4
	a2 g
	f r
%25
	d' c4 a
	bes2 a
	R1*4/4
	R1*4/4
	r4 d2 d4
%30
	d d d2 ~
	d c ~
	c4 bes c bes
	a g8 f g2
	f r4 d'
%35
	c bes c2
	d4 d c d
	bes c d f
	f f f2
	e8 d c bes a2
%40
	r4 d c d
	bes c d2
	R1*4/4
	r2 d
	c4 d bes c
%45
	d2 r4 d
	c d bes8 c d e
	f4 d2 \ss cis4
	d f f f
	d4. e8 f2
%50
	d4 f4. e8 d4 ~
	d8 c bes a g4 d' ~
	d8 c c2 bes8 a
	bes2 f'
	f4 f f2
%55
	d4  bes8[ c d e] f4 ~
	f d \ss es d ~
	d g, a f ~
	f g a d
	d d bes2
%60
	bes4 bes c4. bes8
	a g g'2 \ss fis4
	g4. f8 e4 f ~
	 f8[ \ss ees]  d[ c] d2
	d\breve*1/2
}

tenor=\relative c' {
	s4*0^\markup{"Ad longum"}
	R1*4/4
	R1*4/4
	R1*4/4
	R1*4/4
%5
	R1*4/4
	R1*4/4
	bes2. g4
	bes2 a
	g r
%10
	r a
	bes4 g bes a ~
	a8 g g2 \ss fis4
	g2 r
	R1*4/4
%15
	r4 bes c a
	bes8 a g f e d a'4 ~
	a8 g g2 \ss fis4
	g2 r
	r r4 d'
%20
	d d4. c8 bes4 ~
	bes a bes2
	r r4 bes
	c c d bes ~
	bes a8 g a4 g ~
%25
	g8 f f2 e4
	f2 r
	R1*4/4
	r4 d' c a
	bes2 a4 f
%30
	g f4. g8 a4 ~
	a8 g g4 a2
	R1*4/4
	r2 c4. bes8
	a4 bes a g ~
%35
	g8 f f2 e4
	f2 r
	R1*4/4
	r2 a
	g4 a f4. g8
%40
	a2 r
	r4 a a a
	f4. g8 a4 a
	g a f4. g8
	a2 r
%45
	R1*4/4
	a2 g4 a
	f4. g8 a2 ~
	a r
	R1*4/4
%50
	r4 a a a
	bes2. a4
	g a f f
	g2 r
	R1*4/4
%55
	r4 d' d d
	d2 c4 a
	bes4. a8 f g a4 ~
	a8 g g2 \ss fis4
	g2 r
%60
	R1*4/4
	r4 d' d d
	d2 c4 a
	c bes a2
	g\breve*1/2
}

bassus=\relative c {
	R1*4/4
	R1*4/4
	bes2. g4
	bes2 a
%5
	g g' ~
	g f
	es1
	bes4. c8 d2
	g,4 g'2 d4
%10
	f g a2
	g2. d4
	f \ss es d2
	\[g, a\]
	g4 g' a a
%15
	bes g a2
	g4 c,2 f4 ~
	f e d2
	r4 g bes bes
	f2 g4 g, ~
%20
	g8 a bes c d4 es
	c2 bes
	R1*4/4
	R1*4/4
	r4 f' f \ss es
%25
	d bes c2
	bes r
	g' f4 d
	\ss es d f2
	g d
%30
	g,8 a bes c d4. c8
	bes2 a ~
	a4 g a bes
	c1
	d4. e8 f4 bes,
%35
	c d c2
	bes4 d f d
	g f8 e d4 bes
	f' d4. e8 f4
	c f2 d4
%40
	d4. e8 f4 d
	g f8 e d2
	r4 d c d
	bes c d2
	r4 d g f
%45
	bes2 a4 d,
	f d es d ~
	d8 c bes4 a2
	r4 d f d
	g2 f
%50
	g4 f8 e d2
	g,4 g'2 d4
	e f d2 % \ss ees
	g, r4 bes
	bes bes f'2
%55
	g4 g, d'2 ~
	d4 bes c d
	g, g d'2 ~
	d4 bes c d
	g,2 r4 g'
%60
	g g a f ~
	f g d2
	g a4 f ~
	f g d2
	g,\breve*1/2
}

textocantus=\lyricmode{
A -- ve Ma -- ri -- a
gra -- ti -- a ple -- _ _ _ _ na:
Do -- mi -- nus te -- _ _ _ _ _ _ _ _ _ cum:
be -- ne -- di -- _ _ cta tu
in mu -- li -- e -- _ _ _ _ _ _ _ ri -- bus
et be -- ne -- di -- _ ctus \mt #.5 fru -- _ _ _ _ _ ctus
ven -- tris tu -- i Ie -- _ _ _ _ sus.
San -- cta Ma -- ri -- _ a
re -- gi -- na cæ_ -- _ li, % li _
dul -- cis et pi -- _ a % a _
o Ma -- ter De -- _ i o -- ra pro no -- bis pec -- ca -- to -- ri -- bus
ut cum e -- le -- ctis te vi -- de -- a -- _ _ _ _ _ mus % de -- _ _ _ _ _ a -- mus
\italicas
ut cum e -- le -- ctis te vi -- de -- a -- mus,
\rectas
te __ _ vi -- de -- a -- _ mus.  
}

textoaltus=\lyricmode{
A -- ve Ma -- ri -- _ _ a,
\italicas
a -- ve Ma -- ri -- _ _ _ _ _ a, 
\rectas
gra -- ti -- a __ _ _ ple -- _ _ _ _ na % gra -- ti -- a ple -- na __
\italicas
gra -- ti -- a __ _ _ _ _ _ _ _ ple -- _ na: 
\rectas
Do -- mi -- nus te -- _ _ _ _ _ _ cum: % cum __
be -- ne -- di -- cta tu, __ _ _ 
\italicas
be -- ne -- di -- cta tu 
\rectas
in mu -- li -- e -- ri -- bus
et be -- ne -- _ _ di -- ctus fru -- _ _ _ _ _ _ ctus
\italicas
et be -- ne -- di -- ctus fru -- ctus 
\rectas
ven -- tris tu -- i Ie -- sus.
San -- cta Ma -- ri -- _ _ _ _ a,
\italicas
San -- cta Ma -- ri -- a 
\rectas
re -- gi -- na \mt #.2 cæ_ -- _ li,
\italicas
re -- gi -- na cæ -- li __ _ _
\rectas
dul -- cis et pi -- _ _ _ a,
o Ma -- ter De -- _ _ _ _ _ _ _ _ _ _ _ i,
o -- ra pro no -- bis pec -- ca -- to -- ri -- bus
ut cum e -- le -- ctis te __ _ vi -- de -- _ _ a -- mus,
\italicas
ut cum e -- le -- ctis te vi -- _ _ _ _ _ _ _ de -- _a -- _ _ _ mus, 
\rectas
te vi -- de -- a -- _ _ mus.
}

textoaltusdos=\lyricmode{
A -- ve Ma -- ri -- _ _ a
gra -- ti -- a ple -- na:
Do -- mi -- nus te -- cum:
be -- ne -- di -- cta tu in mu -- li -- e -- ri -- bus
et be -- ne -- di -- ctus
fru -- ctus ven -- tris tu -- i Ie -- _ _ _ _ _ _ sus.
San -- cta Ma -- ri -- a,
re -- gi -- na \mt #.3 cæ_ -- _ li,
\italicas % no hay ij
re -- gi -- na cæ  -- _ _ _ _ li 
\rectas
dul -- cis et pi -- _ a
o Ma -- ter De -- _ i
\italicas
o Ma -- ter De -- _ _ _ _ _ _ i, 
\rectas
o -- ra pro no -- _ _ bis pec -- _ ca -- _ _ _ _ to -- _ _ ri -- _ bus, % un poco diferente
ut cum e -- le -- ctis te __ _ _ _ _ vi -- de -- _ _ _ a -- _ mus,
\italicas
ut cum e -- le -- ctis te vi -- de -- a -- _ _ mus, % feo, no encuentro otra manera de aplicarlo
te __ _ _ vi -- _ de -- _ a -- mus. 
}

textotenor=\lyricmode{
A -- ve Ma -- ri -- a
gra -- ti -- a \mt #.4 ple -- _ _ _ _ na:
Do -- mi -- nus te -- _ _ _ _ _ _ _ _ _ cum:
be -- ne -- di -- _ _ cta tu
in mu -- li -- e -- _ _ _ _ _ _ _ ri -- bus
et be -- ne -- di -- _ ctus \mt #.5 fru -- _ _ _ _ _ ctus
ven -- tris tu -- i Ie -- _ _ _ _ sus.
San -- cta Ma -- ri -- _ a
re -- gi -- na cæ_ -- _ li,
dul -- cis et pi -- _ a
o Ma -- ter De -- _ i 
o -- ra pro no -- bis pec -- ca -- to -- ri -- bus
ut cum e -- le -- ctis te vi -- de -- a -- _ _ _ _ _ mus
\italicas
ut cum e -- le -- ctis te vi -- de -- a -- mus. 
}

textobassus=\lyricmode{
A -- ve Ma -- ri -- a,
\italicas
a -- ve Ma -- ri -- _ _ a, 
\rectas
gra -- _ ti -- a ple -- na,
\italicas % no hay ij
gra -- ti -- a ple -- _ _ na: 
\rectas
Do -- mi -- nus te -- _ _ _ _ _ _ cum:
be -- ne -- di -- cta \mt #.3 tu __ _ _ _ _ _ _ _ _ 
in mu -- li -- e -- ri -- _ bus
et be -- ne -- di -- ctus fru -- _ ctus ven -- _ _ _ _ _ tris tu -- i __ _ _ Ie -- sus, __ _ _ 
Ie -- _ _ _ sus.
San -- cta Ma -- ri -- _ _ _ a,
\italicas % no hay ij
San -- cta Ma -- ri -- a,
\rectas
re -- gi -- na __ _ _ cæ_ -- _ _ _ li % no sé cómo encajarlo
dul -- cis et pi -- _ a
o Ma -- ter De -- _ _ _ _ _ _ _ _ i
o -- ra pro no -- _ _ _ _ _ bis
pec -- ca -- to -- _ ri -- bus
ut cum e -- le -- ctis te vi -- de -- a -- _ mus,
\italicas % no hay ij
te vi -- de -- a -- _ mus
\rectas
ut cum e -- le -- ctis __ _ te vi -- de -- a -- _ _ mus.
}


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
                bes'1.
		} 

	\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
                bes1.
		} 
	\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
                bes\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
                bes1.
		} 
	\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
                bes,1.
		} 
	\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 { \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
	systems-per-page = 3
	ragged-last-bottom = ##f
	indent=3.6\cm
	system-system-spacing =
	#'((basic-distance . 19) (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
}