\version "2.18.0"

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

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

htitle="Regina cæli II"
hcomposer="Iribarren"

\header {
	title=\markup{\fontsize #3 "Regina cæli II"}
	%subtitle=" "
	subsubtitle=\markup{\column{" " " "}}
	composer="Juan Francés de Iribarren (1699-1767)" % 1762. Ref.: 66-7
        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 f \major \time 2/2 \skip 1*39
	%\override Score.TimeSignature.break-visibility = #'#(#f #t #t)
	\bar "|."
}


cantus=\relative c'{
	r4 f a8[ c] bes[ a]
        g a g f e4 f8 g 
        a4 r r2
        R1
        r4 f a8 c bes a 
        g a g f e4 f8 g
        a4 r r2
        R1
        r4 a a8 c bes a
        g f g a bes4 a8 g
        f e f g a4 b
        c4 r r g
        g2 g
        g4 c, g' g
        a a g2
        f4 bes2 a4 ~
        a g2 fis4
        g4 r r2
        R1
        r4 g g8 bes a g
        fis e fis g a4 g8 fis % 3 sostenidos
        g4 r g g
        g2. g4
        g g g g
        r4 e e8 g f e
        d8 c d e f4 e8 d
        e4 r r g
        g2 g
        g4 r r2
        e4 f g a
        g f g a
        g8 f g a bes4 a8 g
        a4 r r2
        R1
        r4 a a8 c bes a
        g f g a bes4 a8 g
        f2 r4 f
        f2 e
        f1^\fermata
}

altus=\relative c'{
	R1*2
        f2 f8[ a] g[ f]
        e8 f e d c4 d8 e
        f4 r r2
        R1
        f2 f8 a g f
        e f e d c4 d8 e 
        f4 r r2
        R1*2
        r4 e e8 g f e
        d8 c d e f4 e8 d
        e4 r r2
        r4 f, c' c
        d d c2
        bes4 bes a2
        g4 r r2
        R1
        r4 bes bes8 d c bes
        a g a bes c4 bes8 a
        bes4 r4 d8[ c] d[ e]
        d2. e4
        d8[ c] d[ e] d4 e
        R1*2
        r4 e e8 g f e
        d c d e f4 e8 d
        e4 r r2
        c4 d e f
        e d e f
        f2 e
        f4 r r2
        R1
        r4 f f8 a g f
        e d e f g4 f8 e
        f2 r4 d
        c2 c4 bes
        a1^\fermata
}

tenor=\relative c{
	R1*2
        r4 f a8[ c] bes[ a]
        g a g f e4 f8 g
        a4 r r2
        R1
        r4 f a8 c bes a
        g a g f e4 f8 g
        a4 r r2
        R1*2
        r4 c c8 e d c
        b8 a b c d4 c8 b
        c4 r r2
        R1*3
        r4 bes bes8 d c bes
        a g a bes c4 bes8 a
        bes4 r r ees
        d2 d
        d4 r b8[ a] b[ c]
        b2. c4
        b8[ a] b[ c] b4 c
        r4 c c8 e d c
        b8 a b c d4 c8 b
        c4 r r c
        c2 b
        c4 r r2
        c2 c4 c
        c2 c 
        c1
        c4 a a8 c bes a
        g f g a bes4 a8 g
        a4 r r c
        c2 c
        a r4 bes
        a2 g
        f1^\fermata
}

bassus=\relative c{
	 \override Staff.VerticalAxisGroup.staff-staff-spacing =
                        #'((basic-distance . 13) (minimum-distance . 5) (padding
 . 1))
       f2 f8[ a] g[ f]
       e8 f e d c4 d8 e
       f4 r r2
       R1
       f2 f8 a g f 
       e f e d c4 d8 e
       f4 r r2
       R1
       r4 f f8 a g f
       e d e f g4 f8 e
       d c d e f4 e8 d 
       c4 r r c
       g'2 g,
       c4 r r2
       R1*3
       r4 g' g8 bes a g
       fis e fis g a4 g8 fis
       g4 r r c,
       d2 d
       g,4 r g' g
       g2. c,4
       g' g g c,
       R1*2
       r4 c c8 e d c
       g'2 g, 
       c4 r r2
       c2 c4 c
       c2 c
       c1
       f4 f f8 a g f
       e d e f g4 f8 e
       f4 r r f
       c2 c
       d2 r4 bes4
       c2 c
       f,1^\fermata
}

% Hay una parte de bajón que es exactamente igual
continuo=\relative c {
       f2. bes,4
       c4 c c2
       f,2. bes4
       c c c2
       f,4 f' f bes,
       c c c2
       f,2. bes4
       c c c2
       f,2 a4 bes
       c4 bes8 a g4 a
       bes a8 g f4 g
       c e8 d c4 c
       g'2 g,
       c2 r4 e
       f f e ees % serán bemoles los 2 mis?
       d c8 bes f'4 f,
       g bes8 c d4 d,
       g2 r4 c
       d2 d
       g,4 g' g c,
       d2 d
       g2 r4 g
       g g, g c
       g'2 r4 c,
       c'2. f,4
       g4 g g g
       c,4 e8 d c4 c
       g'2 g,
       c4 r r2
       c2 r4 f,
       c'2 r4 f,
       c'2 c,
       f4 f'2 bes,4
       c c c2
       f,2 r4 f
       c'4 c c2
       d2 r4 bes
       c2 c,
       f1^\fermata
}

textocantus=\lyricmode{
Re -- gi -- _ na _ cæ -- _ _ _ _ _ _ li
læ -- ta -- _ _ _ _ _ _ _ _ _ _ re
al -- le -- _ _ _ lu -- _ _ _ _ _ _ _ _ _ _ _ _ ia
al -- le -- lu -- ia.
Qui -- a quem me -- ru -- is -- ti por -- ta -- _ _ re
al -- le -- _ _ _ lu -- _ _ _ _ _ _ ia.
Re -- sur -- re -- xit sic -- ut di -- xit
al -- le -- _ _ _ lu -- _ _ _ _ _ _ ia
al -- le -- lu -- ia.
O __ _ ra pro no -- _ bis __ _ De -- _ _ _ _ _ _ um
al -- le -- _ _ _ lu -- _ _ _ _ _ _ ia
al -- le -- lu -- ia.
}

textoaltus=\lyricmode{
Re -- gi -- _ na _ cæ -- _ _ _ _ _ _ li
læ -- ta -- _ _ _ _ _ _ _ _ _ _ re
al -- le -- _ _ _ lu -- _ _ _ _ _ _ ia.
Qui -- a quem me -- ru -- is -- ti por -- ta -- re
al -- le -- _ _ _ lu -- _ _ _ _ _ _ ia.
Re -- _ sur -- _ re -- xit sic -- _ ut _ di -- xit
al -- le -- _ _ _ lu -- _ _ _ _ _ _ ia.
O -- _ ra pro no -- _ bis __ _ De -- _ um
al -- le -- _ _ _ lu -- _ _ _ _ _ _ ia
al -- le -- lu -- _ ia.
}

textotenor=\lyricmode{
Re -- gi -- _ na _ cæ -- _ _ _ _ _ _ li
læ -- ta -- _ _ _ _ _ _ _ _ _ _ re
al -- le -- _ _ _ lu -- _ _ _ _ _ _ ia
al -- le -- _ _ _ lu -- _ _ _ _ _ _ ia
al -- le -- lu -- ia.
Re -- _ sur -- _ re -- xit sic -- _ ut _ di -- xit
al -- le -- _ _ _ lu -- _ _ _ _ _ _ ia
al -- le -- lu -- ia.
O -- ra pro no -- bis De -- um,
al -- le -- _ _ _ lu -- _ _ _ _ _ _ ia
al -- le -- lu -- ia
al -- le -- lu -- ia.
}

textobassus=\lyricmode{
Re -- gi -- _ na _ cæ -- _ _ _ _ _ _ li
læ -- ta -- _ _ _ _ _ _ _ _ _ _ re
al -- le -- _ _ _ lu -- _ _ _ _ _ _ _ _ _ _ _ _ _ ia
al -- le -- lu -- ia
al -- le -- _ _ _ lu -- _ _ _ _ _ _ ia
al -- le -- lu -- ia.
Re -- sur -- re -- xit sic -- ut di -- xit
al -- le -- _ _ _ lu -- _ ia.
O -- ra pro no -- bis De -- um,
al -- le -- _ _ _ lu -- _ _ _ _ _ _ ia
al -- le -- lu -- ia
al -- le -- lu -- ia.
}

cifrado=\figuremode{
       s1*10
       s4 s s <3!>
       s1*7
       <3+>1
       s2 s4 <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 f \major
		\time 4/4
               f'4
		} 

	\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 4/4
                f'2*1/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 f \major
		\time 4/4
               f4
		} 
	\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 4/4
                f2*1/2
		} 
	\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 4/4
                f2.*1/4
		} 
	\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 . 10) (minimum-distance . 0) (padding . 0))
	last-bottom-spacing = % footer
	#'((basic-distance . 12) (minimum-distance . 0) (padding . 0))

}