\version "2.18.0"

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

italicas=\override LyricText.font-shape = #'italic
rectas=\override LyricText.font-shape = #'upright
ss=\once \set suggestAccidentals = ##t
incipitwidth = 20

htitle="A los maitines era"
hcomposer="Anónimo"

\header {
	title=\markup{\fontsize #3 "A los maitines era"}
	subtitle="Villancico de Navidad"
%	subsubtitle=\markup{\column{" " " "}}
	composer="Anónimo s. XV"
        pdfauthor=\composer
	%opus="(-)"
	%poet=\markup{}
	copyright=\markup{
		\fill-line {"Edited by Nancho Alvarez" \typewriter "http://tomasluisdevictoria.org"}
	}
	tagline=""
}

% no tengo acceso al original, seguro que está en claves altas
% (un bemol y final en fa)
 
global={\key f \major \time 4/4 \skip 1*12 \bar ".|:-||"
        \repeat volta 2 {\skip 1*6} 
}


cantus=\relative c'{
	f4 f a2
        g4 a bes2
        c1
        d4 e f2
        e4 c d2
        c1
        bes4 bes a2
        f4 a bes2
        c1
        bes4 bes a2
        g4 bes g2
        f1
        \override Score.RehearsalMark.self-alignment-X = #right
	\override Score.RehearsalMark.break-visibility = #begin-of-line-invisible
        \mark \markup{\smaller "Fin"}
        f4 f a2
        g4 a bes2
        c1
        bes4 bes a2
        g4 bes g2
        f1
        \mark \markup{\smaller "D.C."}
}

altus=\relative c'{
	\phrasingSlurDashed
        f4 f f2
        e4 c d2
        c2 f\(
        f4\) g a2
        g4 a bes2
        a1
        g4 g f2
        f2 d4 d
        c1
        d4 e f2
        e4 d e2
        f1
        f4 f f2
        e4 c d2
        c1
        d4 e f2
        e4 d e2
        f1
}

tenor=\relative c'{
        c4 c c2
        c4 e8 f g2 
        e4 f8. e16 c2
        r4 bes c c
        e4 e f2
        f1
        d4 ees8. d16 c2
        a4 f' g2
        e2 f4. e16 f
        g4 g c,2
        c4 bes c2
        c1
        c4 c c2
        c4 e8 f g2
        e4 f2 e8 f
        g4 g c,2
        c4 bes c2 
        f,2 bes
}

bassus=\relative c{
	f4 f f2
        c4 c g'2
        a f
        bes4 g f2
        c'4 c bes2
        f1
        g4 ees f2
        \parenthesize f4 d g2 % silencio en el original
        c,2 f4 a
        g4 g f2
        c4 g' c,2
        f1
        f4 f f2
        c4 c g'2
        a2 f4 a
        g4 g f2
        c4 g' e2
        d bes
}

%{
He modernizado la escritura, y he cambiado
libremente la aplicación del texto
  
A los maitines era,
antes era del alva,
que la virgen parida,
ella virgo fincara.
Nueve meses avya
que la Virgen sagrada,
al su fijo traya
en el seno ençerrada.
Des que fue allegada
la ora del esparança
parió sin dudança
al qu’el mundo fiçiera.
%}

textocantus=\lyricmode{
A los mai -- ti -- nes e -- ra,
an -- tes e -- ra del al -- ba,
que la vir -- gen pa -- ri -- da,
e -- lla vir -- go fin -- ca -- ra.
Nue -- ve me -- ses ha -- bí -- a 
que la Vir -- gen sa -- gra -- da
}
textocantusb=\lyricmode{
Des que fue a -- lle -- ga -- da 
la~ho -- ra del es -- pe -- ran -- ça
pa -- ri -- ó sin du -- dan -- ça
al que~el mun -- do hi -- cie -- ra.
al su hi -- jo tra -- í -- a 
en el se -- no~en -- ce -- rra -- da.
}

textoaltus=\lyricmode{
A los mai -- ti -- nes e -- ra,
an -- _ \italicas tes \rectas e -- ra del al -- ba, % tes __ _
que la vir -- gen pa -- ri -- da,
e -- lla vir -- go fin -- ca -- ra.
Nue -- ve me -- ses ha -- bí -- a 
que la Vir -- gen sa -- gra -- da
}
textoaltusb=\lyricmode{
Des que fue a -- lle -- ga -- da
la ho -- ra del es -- pe -- ran -- ça
pa -- ri -- ó sin du -- dan -- ça
al que~el mun -- do hi -- cie -- ra.
al su hi -- jo tra -- í -- a 
en el se -- no~en -- ce -- rra -- da.
}

textotenor=\lyricmode{
A los mai -- ti -- nes _ e -- _ _ _ ra
an -- tes e -- ra del al -- ba,
que la _ vir -- gen pa -- ri -- da,
e -- _ _ _ lla vir -- go fin -- ca -- ra.
Nue -- ve me -- ses ha -- _ bí -- a 
que __ _ _ _ la Vir -- gen sa -- gra -- da __ _
}
textotenorb=\lyricmode{
Des que fue a -- lle -- _ ga -- _ _ _ da
la~ho -- ra del es -- pe -- ran -- ça
pa -- ri -- _ ó sin du -- dan -- ça
al __ _ _ _ que~el mun -- do hi -- cie -- ra.
al su hi -- jo tra -- _ í -- a 
en __ _ _ _ el se -- no~en -- ce -- rra -- da. __ _
}

textobassus=\lyricmode{
A los mai -- ti -- nes e -- _ ra,
an -- tes e -- ra del al -- ba,
que la vir -- gen pa -- ri -- da,
e -- _ _ lla vir -- go fin -- ca -- ra.
Nue -- ve me -- ses ha -- bí -- a 
que __ _ _ la Vir -- gen sa -- gra -- da __ _
}
textobassusb=\lyricmode{
Des que fue a -- lle -- ga -- _ da
la~ho -- ra del es -- pe -- ran -- ça
pa -- ri -- ó sin du -- dan -- ça
al __ _ _ que~el mun -- do hi -- cie -- ra.
al su hi -- jo tra -- í -- a 
en __ _ _ el se -- no~en -- ce -- rra -- da. __ _ 
}



\score {\transpose c' a{
\new ChoirStaff<<

	\new Staff <<\global
	\new Voice="v1" {
		\set Staff.instrumentName="Soprano "
		\clef "treble"
		\cantus }
	\new Lyrics \lyricsto "v1" {\textocantus }
        \new Lyrics \lyricsto "v1" {\textocantusb }
	>>

	\new Staff <<\global
	\new Voice="v2" {
		\set Staff.instrumentName="Alto "
		\clef "treble"
		\altus }
	\new Lyrics \lyricsto "v2" {\textoaltus }
        \new Lyrics \lyricsto "v2" {\textoaltusb }
	>>
	
	\new Staff <<\global
	\new Voice="v3" {
		\set Staff.instrumentName="Tenor "
		\clef "G_8"
		\tenor }
	\new Lyrics \lyricsto "v3" {\textotenor }
        \new Lyrics \lyricsto "v3" {\textotenorb }
	>>

	\new Staff <<\global
	\new Voice="v4" {
		\set Staff.instrumentName="Bajo "
		\clef "bass"
		\bassus }
	\new Lyrics \lyricsto "v4" {\textobassus }
        \new Lyrics \lyricsto "v4" {\textobassusb }
	>>
	
>>

	} % 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=3
	%page-count = 8
	ragged-last-bottom = ##f
	indent=1.7\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 . 13) (minimum-distance . 0) (padding . 0))

}