\version "2.18.0"

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

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

htitle="Ave Maria"
hcomposer="Iribarren"

\header {
	title=\markup{\fontsize #3 "Ave Maria"}
	subtitle="Motete a Nra. Sra."
	subsubtitle=\markup{\column{"para la 4ª Dominica de Adviento" " "}}
	composer="Juan Francés de Iribarren (1699-1767)"
        pdfauthor=\composer
	%opus="(-)"
	% s.a. Ref 60-6
	poet=\markup{"Catedral de Málaga"}
	copyright=\markup{
                \fill-line {\column{"Edited by Nancho Alvarez" "upon a transcription by Antonio del Pino"} \column{" " \typewriter "http://tomasluisdevictoria.org"}}
        }

%	tagline=""
}

global={\key f \major \time 4/4 \skip 1*33
	%\override Score.TimeSignature.break-visibility = #'#(#f #t #t)
	\bar "|."
}


cantus=\relative c''{
	r4 g2 fis8[ e]
        fis4 bes2 a4 ~
        a g2 fis4
        g4 bes4. a8 g4
        f1
        f2 r4 bes ~
        bes4 a8[ g] a4 d ~
        d c2 bes4 ~
        bes a bes d ~
        d8 c bes4 a2 ~
        a a4 r
        a4 a8 a g2 ~
        g g4 r
        g4 g8 g f2 ~
        f f4 bes ~
        bes8 bes a2 g4 ~
        g fis8[ e] fis2
        r4 bes8 bes c4 bes
        a4 a8 a bes4 aes
        g4 g8 g a!4 g
        fis4. fis8 g4. g8
        a4 f2 f4
        f2 r8 d' c bes
        a2 g ~
        g r8 c bes a g2
        f2 ~
        f2 r8 d \ss ees f
        g4. f8 ees8 ees f g
        a!4. g8 f8 f g a
        bes4. a8 g4 c8[ bes]
        a[ g] bes[ a] g[ fis] a[ g]
        fis[ e16 fis] g2 fis4
        g\breve*1/2
}

altus=\relative c'{
	d2 d ~
        d4 d ees2
        d2. d4 ~
        d8 c bes[ c] d4 ees ~
        ees d c2
        d2 f
        f2. f4
        g2 f ~
        f4 f4. e8 d[ e] % \ss ees?
        f4 g2 f4
        e2 f4 r
        r4 f4. f8 ees4
        d2 ees4 r
        r4 ees4. ees8 d4
        c2 d4 f ~
        f8 f f4 d2
        d1
        r4 g8 g f4 f
        f f8 f ees4 ees
        ees ees8 ees d4 d
        d4. d8 bes bes ees4 ~
        ees d c4. c8
        d2 r
        r r8 g f ees 
        d2 c
        r r8 f ees d c2 
        bes r8 bes c d ees4. d8
        c c d ees
        f4. ees8 d d ees f
        g2 f
        ees4. ees8 d4 d
        d4. c8 b\breve*1/2
}

tenor=\relative c'{
	r4 bes2 a8[ g]
        a4 d2 c4 ~
        c bes a2
        bes r4 c ~
        c8 c bes4 bes a
        bes2 r4 d ~
        d c8[ bes] c4 f ~
        f ees2 d4
        c2 d4 r
        r e!4. e8 d4
        d cis d r
        r4 d4. d8 c4
        c4 b c r
        r c4. c8 bes4
        bes a bes d ~
        d8 d c4 bes2
        a2. d4 ~
        d8 d ees2 d4
        c8 c d2 c4
        bes8 bes c2 bes4
        a8 a bes4. bes8 c4 ~
        c bes2 a4
        bes2 r
        r r8 ees d c
        c4 b c2
        r2 r8 d c bes
        bes4 a bes2
        r8 g a bes c4. bes8
        a8 a bes c d4. c8
        bes bes c d ees4. d8
        c4 d8[ c bes a] c[ bes]
        a4 bes a2
        g\breve*1/2
}

bassus=\relative c'{
	 \override Staff.VerticalAxisGroup.staff-staff-spacing =
                        #'((basic-distance . 13) (minimum-distance . 5) (padding
 . 1))
        g2 d ~
        d4 bes c2
        d1
        g,4 g'4. f8 ees4
        f1
        bes,2 bes'
        f2. d4
        ees2 f ~
        f bes,4 bes'4 ~
        bes8 a g4 a2 ~
        a d,4 a' ~
        a8 g f4 g2 ~
        g c,4 g' ~
        g8 f ees4 f2 ~
        f bes,4 bes' ~
        bes8 bes f4 g2
        d1
        g4. g8 a4 bes
        f4 f8 f g4 aes
        ees ees8 ees f4 g
        d4. d8 ees4. ees8
        f2. f4
        bes,2 r8 bes' a g
        g4 fis g2 ~
        g r8 a g f
        f4 e f2 ~
        f r8 bes, c d
        ees4. d8 c8 c d ees
        f4. ees8 d d ees f
        g4. f8 ees4 ees ~
        ees d2 c4 ~
        c bes8[ c] d2
        g,\breve*1/2
}

continuo=\relative c' {
        g4 g, d'2 ~
        d4 bes c c
        d g, d' d,
        g g'4. f8 ees4
        f4 bes, f2
        bes bes'
        f2. d4
        ees ees f bes,
        f2 bes4 bes' ~
        bes8[ a] g4 a d,
        a2 d4. e8
        f4 f g c, 
        g2 c4. d8
        ees4 ees f bes,
        f2 bes4 bes' ~
        bes4 f g2
        d2. d4 g4 g,
        a bes f f' g aes
        ees ees f g
        d4. d8 ees4. ees8
        f4 bes, f2
        bes2 bes4 c
        d d, g2
        g a4. bes8
        c4 c, f2
        f bes4 c8[ d]
        ees4. d8 c4 d8[ ees]
        f4. ees8 d4 ees8[ f]
        g4. f8 ees4 ees
        f d ees c
        d g, d'2
        g,\breve*1/2
}

textocantus=\lyricmode{
A -- _ ve Ma -- ri -- _ _ a,
gra -- ti -- a ple -- na
A -- _ ve Ma -- ri -- _ _ a,
gra -- ti -- a ple -- na
gra -- ti -- a ple -- na
gra -- ti -- a ple -- na,
Do -- mi -- nus te -- _ cum.
Be -- ne -- di -- cta tu, 
be -- ne -- di -- cta tu,
be -- ne -- di -- cta tu
in mu -- li -- e -- _ ri -- bus
et be -- ne -- di -- ctus
et be -- ne -- di -- ctus
et be -- ne -- di -- _ ctus,
et be -- ne -- di -- _ ctus,
et be -- ne -- di -- _ ctus 
fru -- _ ctus ven -- tris tu -- _ _ i.
}

textoaltus=\lyricmode{
A -- ve Ma -- ri -- a,
gra -- ti -- a __ ple -- _ _ _ na,
A -- ve Ma -- ri -- a,
gra -- ti -- a __ ple -- _ _ _ na
gra -- ti -- a ple -- na
gra -- ti -- a ple -- na,
Do -- mi -- nus te -- cum.
Be -- ne -- di -- cta tu,
be -- ne -- di -- cta tu,
be -- ne -- di -- cta tu
in mu -- li -- e -- _ _ ri -- bus
et be -- ne -- di -- ctus
et be -- ne -- di -- ctus 
et be -- ne -- di -- _ ctus,
et be -- ne -- di -- _ ctus,
et be -- ne -- di -- ctus
fru -- ctus ven -- tris tu -- _ i.
}

textotenor=\lyricmode{
A -- _ ve Ma -- ri -- _ _ a
gra -- ti -- a ple -- _ na
A -- _ ve Ma -- ri -- _ _ a
gra -- ti -- a ple -- _ na
gra -- ti -- a ple -- _ na
gra -- ti -- a ple -- _ na,
Do -- mi -- nus te -- cum.
Be -- ne -- di -- cta,
be -- ne -- di -- cta,
be -- ne -- di -- cta tu
in mu -- li -- e -- _ ri -- bus
et be -- ne -- di -- _ ctus
et be -- ne -- di -- _ ctus
et be -- ne -- di -- _ ctus,
et be -- ne -- di -- _ ctus,
et be -- ne -- di -- _ ctus
fru -- ctus
ven -- tris tu -- i.
}

textobassus=\lyricmode{
A -- ve Ma -- ri -- _ a,
gra -- ti -- a ple -- na,
A -- ve Ma -- ri -- _ a,
gra -- ti -- a ple -- na,
gra -- ti -- a ple -- na,
gra -- ti -- a ple -- na,
Do -- mi -- nus te -- cum.
Be -- ne -- di -- cta tu,
be -- ne -- di -- cta tu,
be -- ne -- di -- cta tu
in mu -- li -- e -- ri -- bus
et be -- ne -- di -- _ ctus
et be -- ne -- di -- _ ctus
et be -- ne -- di -- _ ctus,
et be -- ne -- di -- _ ctus,
et be -- ne -- di -- _ ctus
fru -- ctus ven -- tris tu -- i.
}

cifrado=\figuremode{
       <3->2 <6 4>4 <5 3>4
       s4 <6>4 <9 7 3->2
       <7> <4>
       s1
       <7>2 <4>
       s1
       <6 4>2. <6>4
       <9 7>2 <7>
       <4>2 s
       s4 <6\+> <7 3+>2
       <4>2 s
       s4 <6> <7> <3->
       <4>2 <3->
       s4 <6> s2
       <4>2 s
       s1
       <6 4>4 <5 3+> s2
       s4 <6-> <6 5-> s
       s <6> <6- 5> s
       s <6> <6!> s
       <6+>2 <6>2
       <7>1
       s1
       <4>4 <3+> <6->2
       <4>4 <3!> <6>2
       <4>2 <6>
       <4>2 s
       s <3->
       s1
       s2. <6>4
       <7> <6> s4 <6>
       <7>2 <4>
       s1
}

% Repasar los incipits, no he visto el original

incipitcantus=\markup{
	\score{
		{ 
		\set Staff.instrumentName="Soprano "
		\override NoteHead.style = #'neomensural
		\override Staff.TimeSignature.style = #'neomensural
		\cadenzaOn 
		\clef "petrucci-c1"
		\key f \major
		\time 2/2
                g'1
		} 

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

incipitaltus=\markup{
	\score{
		{ 
		\set Staff.instrumentName="Alto       "
		\override NoteHead.style = #'neomensural 
		\override Staff.TimeSignature.style = #'neomensural
		\cadenzaOn 
		\clef "petrucci-c3"
		\key f \major
		\time 2/2
                d'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 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
                g1
		} 
	\layout { line-width=\incipitwidth indent = 0 }
	}
}
incipitcont=\markup{
	\score{
		{ 
		\set Staff.instrumentName="Acomp. "
		\override NoteHead.style = #'neomensural
		\override Staff.TimeSignature.style = #'neomensural
		\cadenzaOn 
		\clef "petrucci-f4"
		\key f \major
		\time 2/2
                g2 s2
		} 
	\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 }
	>>
>>
        \new Staff \with {fontSize = #-2
                          \override StaffSymbol.staff-space = #(magstep -2)
                          \override StaffSymbol.thickness = #(magstep -2)
                          
        }<<\global
        \new Voice="v5" {
                \set Staff.instrumentName=\incipitcont
                \clef "bass"
                \continuo }
        \new FiguredBass {\cifrado}
        >>
>>

	} % 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
	}
        \context {\FiguredBass
                  \override BassFigure #'font-size = #-2
        }
}

%\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.5\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))

}