\version "2.18.0"

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

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="Missus est angelus"
hcomposer="Iribarren"

\header {
	title=\markup{\fontsize #3 "Missus est angelus"}
	%subtitle=""
	subsubtitle=\markup{\column{" "}}
	composer="Juan Francés de Iribarren (1699-1767)"
        pdfauthor=\composer
	%opus="(-)"
        % 1738. Ref 61-6b
	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 c \major \time 4/4 \skip 1*43
	%\override Score.TimeSignature.break-visibility = #'#(#f #t #t)
	\bar "|."
}


cantus=\relative c''{
	R1*3
        a2 b
        c r
        r4 d4. d8 c4
        b4. b8 a2
        r4 a4. a8 g4
        f4. f8 e2 ~
        e r4 a
        b4 c r4 d ~
        d8 d c4 b4. b8
        a4 a a gis8[ fis]
        gis2 r8 b b b
        c4 a g8 g g4
        g4 r r2
        r2 r8 g a4
        b c a g8 g ~
        g fis16[ e] fis4 g4 r8 b8
        c8. c16 b8 b b4 a8 b
        gis4 a r2
        r2 r4 r8 a
        b b c2 b4
        a2 g4 r
        r2 r8 a b b
        c4 c2 b8[ a]
        b2 r4 r8 a
        a4 g8 g g c a4 ~
        a8 a gis4 a4 r8 \parenthesize d % en la fuente pone do
        d4 c8 c c4 r8 bes
        bes4 a8 a a4 r8 f
        a4 a2 gis8[ fis]
        gis2 r
        R1
        r8 b b b c4. b8
        a8 a d2 c4 ~
        c b c r
        r8 a a a b4. a8
        gis4 gis a4. g8
        f2 e
        r8 e' e e f4. e8
        d8[ c] b[ a] gis[ fis] a4 ~
        a4 gis \mtempob a\breve*1/4
}

altus=\relative c'{
	R1
        e2 fis
        gis4 a4. a8 gis4
        a4 a, e' e ~
        e8[ d] c[ b16 a] b4 e ~
        e4 d e2 ~
        e r
        a,2 b
        cis4 d4. d8 c4
        b4. b8 a4 a'
        gis a e2 ~
        e r4 e
        e4 d e2 ~
        e r8 gis gis gis
        a e f4. e8 d4 
        e4 r r2
        r8 c d4 e f
        d e8 e d4 d
        d4. d8 d4 r8 g
        g8. g16 g4 e8 e e f
        e4 e r2
        R1
        r4 r8 e fis fis g4 ~
        g8 g fis4 g r
        r8 d e e f2
        e2 e
        e r4 r8 e
        f4 d8 d e4 r8 f
        f4 e8 e e a f4 ~
        f8 f e4 f r8 f
        g4 e8 e f d f4 ~
        f8 e d4 e2 ~
        e r8 gis gis gis
        a4. g8 f4 f
        e2 e8 e e e
        f4. f8 f4 e
        d2 e8 e e e
        f4. e8 d4. d8
        e4. d8 c c c c
        d4. c8 b4 b
        c4. b8 a a a a
        f'4. f8 e4 e
        e4. d8 cis\breve*1/4
}

tenor=\relative c'{
	a2 b
        c r4 d ~
        d8 d c4 b4. b8
        a4 d8[ c] b4 e,
        a2 r
        a4. a8 gis4 a ~
        a g!2 f4
        e2 d4 d
        a'2 r4 a ~
        a8 a g4 f4. f8
        e4 a2 gis4
        a a a gis % a( gis)
        a4 a c b8[ a]
        b4 r8 b b b e4
        c4 d4. c8 c[ b]
        c4 r r r8 g
        a4 b c a
        g c2 b4
        a2 b4 r8 d
        e8. e16 d8 d4 d8 c d
        b4 c8 a b b c4 ~
        c b a2
        g4 g d'2 ~
        d r4 r8 a
        b b c2 b4 ~
        b a2 gis8[ fis]
        gis2 r8 e' c4 ~
        c8 c b4 c r8 c
        d4 b8 b c4 r8 a
        bes4 g8 g a f' d4 ~
        d8 d cis4 d4 r
        r4 r8 a c4 b8 a
        b b b b c4. b8
        a4 a b4. a8
        gis gis gis gis a4. g8
        f4 a g2 ~
        g g4 r
        R1
        r2 r8 a a a
        b4. a8 gis4 gis
        a4. g8[ f e] d4
        r8 a' d2 c4
        b2 a\breve*1/4
}

bassus=\relative c{
	 \override Staff.VerticalAxisGroup.staff-staff-spacing =
                        #'((basic-distance . 13) (minimum-distance . 5) (padding
 . 1))
         R1*2
         r2 e2
         fis gis
         r4 a4. a8 g4
         f4. f8 e2 ~
         e r4 d ~
         d8 d c4 b4. b8
         a2 a'
         b c4 d ~
         d8 d c4 b4. b8
         a4 a, e'2
         f e ~
         e r8 e e e
         a4 f g8 g g4
         c,4 r8 c d4 e
         f d c f ~
         f e fis g
         d2 g4 r8 g
         c8. c16 g4 gis8 gis a d,
         e4 a, r4 r8 e'
         fis fis g2 f4 ~
         f e d2
         r4 r8 d e e f4 ~
         f4 e d2
         c4 c8[ d] e2 ~
         e r4 r8 a
         f4 g8 g c,4 r8 f
         d4 e8 e a,4 r8 d
         bes4 c8 c f,4 r8 bes'
         g4 a8 a d,4 r8 d
         f4 f8 f e2 ~
         e r8 e e e
         f4. e8 d4 d
         e4. d8 c8 c c c % e4.( d8)
         d4. c8 b4 c
         g'2 c,4 r
         R1
         r8 e e e f4. e8
         d4 d e4. d8
         c8 c c c d2 ~
         d4 d e e
         e2 a,\breve*1/4
       
}

continuo=\relative c {
       \set autoBeaming = ##t
       a4 f'8 e d4 e
       a,8 b c a d4 d
       e a, e'2
       fis gis
       a4 a, e'2
       f2 e4 a,
       e'4. d8 cis4 d ~
       d c b2
       a a4 a' ~
       a g f2
       e4 a, e'2
       a, e'4 e
       f2 e ~
       e e4 e8 e
       a4 f g8 c, g4
       c4 c b4 c
       f d c f
       g c, d g
       d2 g8 a b g
       c4 g gis a8 d,
       e4 a,8 a' g f e c
       d4 g, c d
       g, c d g,
       d'4. d8 e4 f
       g c, d2
       c4. d8 e2
       e4. fis8 gis4 a
       f g! c, f
       d e a, d
       bes c f, bes
       g a d, d'
       f f e2 ~
       e r8 e e e
       f4. e8 d4 d
       e4. d8 c8 c c c
       d4. c8 b4 c
       g2 c8 c cis cis
       d f f f g4. f8
       e e e e f4. e8
       d8 d d d e4. d8
       c c c c d2
       d4 d e a, 
       e'2 a,\breve*1/4
}

% Lucas 1, 26-27
textocantus=\lyricmode{
Mis -- sus est
an -- ge -- lus Ga -- bri -- el % Angelus
an -- ge -- lus Ga -- bri -- el
mis -- sus est an -- ge -- lus Ga -- bri -- el,
a De -- _ o
in ci -- vi -- ta -- tem Ga -- li -- le -- æ % Galilee
cui no -- men Na -- za -- ret, Na -- za -- _ ret % cui 
ad vir -- gi -- nem des -- pon -- sa -- tam vi -- ro
cui no -- men e -- rat Io -- seph % cui nomen erat Joseph
cui no -- men e -- rat Io -- seph
de do -- mo Da -- vid, % Davit
de do -- mo Da -- vid
de do -- mo Da -- vid
de do -- mo Da -- vid
de do -- mo Da -- vid
et no -- men vir -- gi -- nis Ma -- ri -- _ _ a
et no -- men vir -- gi -- nis Ma -- ri -- _ _ a
et no -- men vir -- gi -- nis Ma -- ri -- _ _ a.
}

textoaltus=\lyricmode{
Mis -- sus est an -- ge -- lus Ga -- bri -- el,
Ga -- _ _ _ bri -- el
mis -- sus est an -- ge -- lus Ga -- bri -- el,
Ga -- _ bri -- el
a De -- _ o
in ci -- vi -- ta -- tem Ga -- li -- le -- æ
cui no -- men Na -- za -- ret,
cui no -- men Na -- za -- ret
ad vir -- gi -- nem des -- pon -- sa -- tam vi -- ro
cui no -- men e -- rat Io -- seph
cui no -- men e -- rat Io -- seph
de do -- mo Da -- vid
de do -- mo Da -- vid,
de do -- mo Da -- vid
de do -- mo Da -- vid,
de do -- mo Da -- vid
et no -- men vir -- gi -- nis Ma -- ri -- a, % virginem (errata)
et no -- men vir -- gi -- nis Ma -- ri -- a,
et no -- men vir -- gi -- nis Ma -- ri -- _ a,
et no -- men vir -- gi -- nis Ma -- ri -- _ a,
et no -- men vir -- gi -- nis Ma -- ri -- _ a.
}

textotenor=\lyricmode{
Mis -- sus est
an -- ge -- lus Ga -- bri -- el,
Ga -- _ bri -- el
an -- ge -- lus Ga -- _ bri -- el,
Ga -- bri -- el
an -- ge -- lus Ga -- bri -- el,
Ga -- bri -- el,
a De -- _ o,
a De -- _ o
in ci -- vi -- ta -- tem Ga -- li -- le -- æ
cui no -- men Na -- za -- ret,
Na -- _ za -- ret
ad vir -- gi -- nem des -- pon -- sa -- tam vi -- ro,
cui no -- men e -- rat Io -- seph,
Io -- seph
cui no -- men e -- rat Io -- _ seph
de do -- mo Da -- vid
de do -- mo Da -- vid
de do -- mo Da -- vid,
de do -- mo Da -- vid
de do -- mo Da -- vid,
et no -- men vir -- gi -- nis Ma -- ri -- _ a,
et no -- men vir -- gi -- nis Ma -- ri -- a
et no -- men vir -- gi -- nis Ma -- ri -- _ a
Ma -- ri -- _ _ a.
}

textobassus=\lyricmode{
Mis -- sus est an -- ge -- lus Ga -- bri -- el
an -- ge -- lus Ga -- bri -- el,
mis -- sus est an -- ge -- lus Ga -- bri -- el,
a De -- _ o
in ci -- vi -- ta -- tem Ga -- li -- le -- æ
cui no -- men Na -- za -- ret,
Na -- _ _ _ za -- ret
ad vir -- gi -- nem des -- pon -- sa -- tam vi -- ro
cui no -- men e -- rat Io -- seph
cui no -- men e -- rat Io -- seph,
Io -- seph
de do -- mo Da -- vid
de do -- mo Da -- vid
de do -- mo Da -- vid
de do -- mo Da -- vid
de do -- mo Da -- vid
et no -- men vir -- gi -- nis Ma -- ri -- _ a,
et no -- men vir -- gi -- nis Ma -- ri -- a
et no -- men vir -- gi -- nis Ma -- ri -- _ a,
et no -- men vir -- gi -- nis Ma -- ri -- a.
}

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

% 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 c \major
		\time 4/4
               a'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 c \major
		\time 4/4
                e'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 c \major
		\time 4/4
               a1
		} 
	\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 c \major
		\time 4/4
                e1
		} 
	\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 c \major
		\time 4/4
                a,2 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))

}