\version "2.18.0"

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

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

piano=\markup{\smaller \italic "piano"}
eco=\markup{\smaller \italic "eco"}
voz=\markup{\smaller \italic "voz"}
quedo=\markup{\smaller \italic "quedo"}
fuerte=\markup{\smaller \italic "fuerte"}

htitle="Te invocamus"
hcomposer="Iribarren"

\header {
	title=\markup{\fontsize #4 \column{ " " "Te invocamus" " " " " " "}}
	%subtitle=" "
	%subsubtitle=\markup{\column{" " " "}}
	composer="Juan Francés de Iribarren (1699-1767)" % 1738. Ref. 64-16
        pdfauthor=\composer
	%opus="(-)"
	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 aes \major \time 4/4 \skip 1*38
	%\override Score.TimeSignature.break-visibility = #'#(#f #t #t)
	\bar "|."
}

% casi todos los re bemol vienen indicados

cantus=\relative c''{
	c2 aes8 bes c4 ~
        c bes c2
        r4 c^\piano aes8[ bes] c4 ~
        c bes c2
        r4 c4^\eco aes8 bes c4 ~
        c bes c2
        r4 aes4.^\voz aes8 bes4 ~
        bes aes aes g
        aes r r2 \pageBreak
        r4 c aes aes
        aes4 g aes r
        r4 aes2^\piano aes4
        aes g aes r
        r c^\eco aes aes
        aes g aes r
        aes4.^\voz aes8 ges4 ges
        f4. f8 ees4 r
        r2 r4 bes'
        c c f,2\prall 
        g4 r r bes^\piano 
        c2 f,\prall 
        g4 r r bes^\eco
        c c f,2\prall
        g4 r ees'4.^\voz ees8
        des4 des c4. c8
        des4 bes4. bes8 aes4 ~
        aes ges ges f
        ges r bes aes
        g aes f^\piano f
        f8 f f'2 ees4
        f4 r r2
        r8 c^\voz bes bes a4 bes
        r2 r4 aes8^\piano aes
        g4 aes r8 aes^\eco aes aes
        aes4 g r8 g^\voz g g
        g4 f f8^\quedo f g4^\prall ~
        g4 f f e
        f\breve*1/2
}

altus=\relative c'{
	r2 r4 f
        f f f e
        f r r f^\piano ~
        f f f e
        f r r f^\eco
        f f f e 
        f r f4.^\voz f8
        ees4 ees ees4. ees8
        ees4 r ees2
        c8 d ees2 d4
        ees2 r4 ees^\piano 
        c8[ d] ees2 d4
        ees2 r4 ees^\eco 
        c8 d ees2 d4
        ees2 r4 ees4^\voz ~
        ees8 ees f2 ees4
        ees d ees4 r
        r2 r4 g
        ees ees ees d
        ees r r g^\piano 
        ees ees2 d4
        ees4 r r g^\eco 
        ees ees ees d
        ees r g4.^\voz g8 
        f4 f f4. f8
        f4 r ees4. ees8
        des4 des des4. des8
        des4 r ees2
        r4 ees2^\piano des4
        c des des c8[ bes]
        c4 r r2
        r8 f8^\voz f ees16[ des] c4 bes
        r2 r4 c8^\piano c
        bes4 aes r8 f'^\eco ees ees
        des4 des r8 c^\voz des des
        c4 c des4.^\quedo des8
        c4 c c4. bes8
        a\breve*1/2
}

tenor=\relative c'{
	r2 r4 aes
        aes g8[ f] g2\prall 
        f4 r r aes4^\piano ~
        aes g8[ f] g2\prall 
        f4 r r aes^\eco 
        aes4 g8[ f] g2\prall 
        aes4 r des4.^\voz des8
        c4 c bes4. des8
        c4 r r2
        r4 c c bes8[ aes]
        bes2\prall c4 r
        r c2^\piano bes8[ aes]
        bes2\prall c4 r
        r c^\eco c bes8[ aes] 
        bes2\prall c4 r
        c4.^\voz c8 bes4 bes
        bes4. aes8 g4 r
        bes2 g8 aes bes4 ~
        bes a bes4 r
        r4 bes^\piano g8[ aes] bes4 ~
        bes a bes2
        r4 bes^\eco g8 aes bes4 ~
        bes4 a bes2
        r4 bes4.^\voz bes8 c4 ~
        c bes bes a
        bes des4. des8 ces4 ~
        ces bes aes4. ces8
        bes4 des2 ces4
        bes4 c!
        c^\piano bes a bes
        bes4. bes8 
        a4 r8 c8^\voz c[ des] ees[ des]
        c4 des r4 des^\piano
        bes8[ c des c] bes4 c
        r4 c^\eco aes8[ bes] c[ bes]
        aes4 bes8 bes^\voz  g8[ aes] bes[ aes]
        g4 aes bes4.^\quedo bes8
        aes4 aes g4. g8
        f\breve*1/2
}

bassus=\relative c{
	 \override Staff.VerticalAxisGroup.staff-staff-spacing =
                        #'((basic-distance . 13) (minimum-distance . 5) (padding
 . 1))
       r2 f
       des4 des c2
       f4 r r f^\piano 
       des2 c
       f4 r r f^\eco 
       des4 des c2
       f4 r des4.^\voz des8 % fuerte
       ees4 ees ees4. ees8
       aes,4 r r2
       aes'2 f4 f
       ees2 aes4 r
       r4 aes^\piano f2
       ees2 aes4 r
       r4 aes^\eco f4 f
       ees2 aes4 r
       aes4.^\voz aes8 bes4 bes % no hay matiz
       bes4. bes8 ees,4 r
       r2 ees2
       c4 c bes2
       ees4 r r ees^\piano
       c2 bes
       ees4 r r ees^\eco
       c4 c bes2
       ees4 r ees4.^\voz ees8 % fuerte
       f4 f f4. f8
       bes,4 r ces4. ces8
       des4 des des4. des8
       ges4 r g aes
       ees aes a^\piano bes
       f bes ges4. ges8
       f4 c'^\voz a8[ bes] c[ bes] % fuerte
       a4 bes r bes^\piano
       g8[ aes bes aes] g4 aes
       r4 aes^\eco f8[ g] aes[ g]
       f4 g8 g^\voz e[ f] g[ f]
       e4 f bes,4.^\quedo bes8
       c4 c c4.\prall c8
       f,\breve*1/2
}

continuo=\relative c {
       f4 e f4. ees8
       des4 des c2
       f,^\piano f'4. ees8
       des4 des c2
       f,2 f'4.^\eco ees8
       des4 des c2
       f,4 f'^\fuerte des8[ c des bes]
       ees4 ees ees ees,
       aes c8[ des] ees4 ees,
       aes aes' f f
       ees2 aes,
       aes'4.^\piano g8 f4 f
       ees2 aes,
       aes'4.^\eco g8 f4 f
       ees2 aes,4 aes^\fuerte
       aes8[ g aes f] bes4 bes
       bes2 ees,8[ ees' g aes]
       bes4 bes, ees ees
       c c bes2
       ees, ees'4.^\piano des8
       c4 c bes2
       ees,2 ees'4.^\eco des8
       c4 c bes2
       ees, ees'8[^\fuerte des ees c]
       % parece que faltan matices
       f4 f f f,
       bes4 bes ces4. ces8
       des4 ges, des' des,
       ges4 ges'8[ fes] ees4 aes
       ees aes8[ ges] f4 bes
       f bes8[ aes] ges2
       f2 f4 ees
       f4 bes, f bes
       ees^\piano des ees aes,
       ees aes des^\eco c
       des bes c^\fuerte bes % no hay fuerte
       c f, bes4.^\quedo bes8 % no hay quedo
       c4 c c2
       f,\breve*1/2
}

textocantus=\lyricmode{
Te in -- vo -- ca -- _ mus
Te lau -- da -- _ mus
Te a -- do -- ra -- _ mus
O be -- a -- ta Tri -- ni -- tas.
Te in -- vo -- ca -- _ mus
Te lau -- da -- _ mus
Te a -- do -- ra -- _ mus
O be -- a -- ta Tri -- ni -- tas.
Te in -- vo -- ca -- mus
Te lau -- da -- mus
Te a -- do -- ra -- mus
O be -- a -- ta Tri -- ni -- tas,
O be -- a -- ta Tri -- ni -- tas
O be -- a -- ta,
O be -- a -- ta Tri -- ni -- tas.
Te in -- vo -- ca -- mus
Te lau -- da -- mus
Te a -- do -- ra -- mus
Te a -- do -- ra -- mus,
O be -- a -- ta Tri -- ni -- tas.
}

textoaltus=\lyricmode{
Te in -- vo -- ca -- _ mus
Te lau -- da -- _ mus
Te a -- do -- ra -- _ mus
O be -- a -- ta Tri -- ni -- tas
Te in -- vo -- ca -- _ mus
Te lau -- da -- _ mus
Te a -- do -- ra -- _ mus
O be -- a -- ta Tri -- ni -- tas
Te in -- vo -- ca -- _ mus
Te lau -- da -- _ mus
Te a -- do -- ra -- _ mus
O be -- a -- ta Tri -- ni -- tas
O be -- a -- ta Tri -- ni -- tas
O
O be -- a -- ta Tri -- ni -- tas
Te in -- vo -- ca -- mus
Te lau -- da -- mus
Te a -- do -- ra -- mus
Te a -- do -- ra -- mus,
O be -- a -- ta Tri -- ni -- tas.
}

textotenor=\lyricmode{
Te in -- vo -- ca -- mus
Te lau -- da -- mus
Te a -- do -- ra -- mus
O be -- a -- ta Tri -- ni -- tas
Te in -- vo -- ca -- mus
Te lau -- da -- mus
Te a -- do -- ra -- mus
O be -- a -- ta Tri -- ni -- tas
Te in -- vo -- ca -- _ mus
Te lau -- da -- _ mus
Te a -- do -- ra -- _ mus
O be -- a -- ta Tri -- ni -- tas,
O be -- a -- ta Tri -- ni -- tas,
O be -- a -- ta,
O be -- a -- ta Tri -- ni -- tas
Te in -- vo -- ca -- mus
Te lau -- da -- mus
Te a -- do -- ra -- mus,
Te a -- do -- ra -- mus,
O be -- a -- ta Tri -- ni -- tas.
}

textobassus=\lyricmode{
Te in -- vo -- ca -- mus
Te lau -- da -- mus
Te a -- do -- ra -- mus
O be -- a -- ta Tri -- ni -- tas
Te in -- vo -- ca -- mus
Te lau -- da -- mus
Te a -- do -- ra -- mus
O be -- a -- ta Tri -- ni -- tas
Te in -- vo -- ca -- mus
Te lau -- da -- mus
Te a -- do -- ra -- mus
O be -- a -- ta Tri -- ni -- tas
O be -- a -- ta Tri -- ni -- tas
O be -- a -- ta,
O be -- a -- ta Tri -- ni -- tas,
Te in -- vo -- ca -- mus
Te lau -- da -- mus
Te a -- do -- ra -- mus,
Te a -- do -- ra -- mus,
O be -- a -- ta Tri -- ni -- tas.
}

cifrado=\figuremode{
       % OJO el cifrado no transporta.
       % Hay muchas alteraciones de cortesia, las he eliminado.
       s4 <6> s2
       <7>4 <6> <4>2
       s1
       <7>4 <6> <4>2
       s1
       <7>4 <6> <4>2
       s2 <5>4 <6>
       <6 5>4 <6 4> <4>2
       s2 <4>
       s2 <7>4 <6>
       <4>1
       s2 <7>4 <6>
       <4>1
       s2 <7>4 <6>
       <4>1
       <5>4 <6> <6! 5> <6! 4>
       <4>2 s
       <4>1
       <7>4 <6/> <4>2
       s1 % no se ve el cifrado
       s1
       s1
       s1
       s1
       <6 5>4 <6 4> s2
       s2 <9 7>
       <7> <4>
       s2 <7>4 <3->
       s2 <7 _+>4 s
       <_+>2 <7>4 <6>
       <_+>2 s4 <6>
       <7>1
       s4 <6> <7> s
       s2 s4 <6>
       s4 s <_+> s
       <_+>1
       <6 5>4 <6 4> <4>2
       <_+>1
}

% 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 aes \major
		\time 4/4
               c''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 aes \major
		\time 4/4
               f'2*2 
		} 
	\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 aes \major
		\time 4/4
               aes2*2
		} 
	\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 aes \major
		\time 4/4
               f1
		} 
	\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 aes \major
		\time 4/4
               f2*2
		} 
	\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' b{<<
\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=8
	page-count = 3
	ragged-last-bottom = ##f
	indent=3.8\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))

}