\version "2.18.0"

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

italicas=\override LyricText.font-shape = #'italic
rectas=\override LyricText.font-shape = #'upright
ss=\once \set suggestAccidentals = ##t
incipitwidth = 20
mtempo={\tempo 4 = 70}
mtempob={\tempo 4 = 35}
mt=#(define-music-function (parser location offset) (number?) ; move lyric text
      #{ \once \override LyricText.X-offset = -$offset #})


htitle="Falai meus olhos"
hcomposer="Anónimo"

\header {
	title=\markup{\fontsize #4 "54. Falai meus olhos"}
	subtitle="Cancionero de Uppsala"
	subsubtitle=\markup{\null \vspace #5 }
	composer="Anónimo"
        pdfauthor=\composer
	%opus="(-)"
	poet=\markup{"Venecia 1556"}
	copyright=\markup{
		\fill-line {"Transcribed and edited by Nancho Alvarez" \typewriter "http://tomasluisdevictoria.org"}
	}
%	tagline=""
}

global={\key bes \major \time 2/2 \skip 1*21 \bar "||" \break
                \skip 1*15 \bar "|."
}


cantus=\relative c''{
          R1
          bes2 d
          a c
          g4. a8[ bes c] d4 ~ 
          d4 c4. bes8 bes4 ~
          bes a bes2
          R1*2
          r4 bes8 bes c d ees4
          d4 c bes8[ c] d4 ~
          d c d2
          r2 r4 bes8 bes
          c d ees4 d c
          bes8[ c] d2 c4 ~
          c8 bes bes2 a4
          bes4 f'4. ees8 d c
          d4 c4. bes8 bes4 ~
          bes a bes f' ~
          f8 ees d c d4 c ~
          c8 bes bes2 a4
          bes\breve*1/2
          \override Score.RehearsalMark.self-alignment-X=#right
          \once \override Score.RehearsalMark.break-visibility = #'#(#t #t #f)
          \mark \markup{"Fin"}
          d2 f ~
          f f
          ees4 d2 c4
          d r8 bes8 c d ees4
          d c2 bes4
          r4 d f2
          f1
          ees4 d2 c4
          d1
          a2 c
          g bes4 d ~
          d c4. bes8 bes4 ~
          bes a bes c ~
          c8[ bes] bes2 a4
          bes\breve*1/2
          \mark \markup{"D.C."}
}

cantusdos=\relative c''{
          r2 r4 bes4 ~
          bes d2 a4 ~
          a c2 g4 ~
          g8[ a bes c] d4. c8
          bes4 a g2
          f d4 ees
          c2 d
          f8 f g a bes4 g
          aes8 f4 f8 c4 ees8 ees
          f g aes4 g4. f8 ~
          f8 d4 f g bes8 ~
          bes a16[ g] a4 bes r8 f ~
          f f8 g a bes4 f
          %bes a16[ g] a4 bes \parenthesize r4
          %\parenthesize f8 f8 g a bes4 f
          bes,4. bes'4. a4
          g2 r4 f4
          f4. g8 a4 d,4 ~
          d8[ ees8] f2 ees4
          f2 d4 d'
          c bes2 a4
          g2 r4 f4~
          f8[ ees8 d c] \mtempob d\breve*1/4
          \mtempo
          f4 bes2 a4
          bes1
          g4 bes g ees
          bes'2 r8 f g a
          bes4 f bes, r8 bes' ~
          bes8 a bes4 c2
          d bes4 d
          c f,8 bes4 a16[ g] a4
          bes2 r4 a ~
          a c2 g4 ~
          g bes d4. c8
          bes4 a g2
          f d4 c8[ d]
          ees f4 ees8 f2 ~
          f\breve*1/2
          
}

altus=\relative c'{
          ees2 g
          d f ~
          f4 c4. d8 ees4 ~
          ees bes2 f'4 ~
          f2 d2
          R1
          r4 f8 f g a bes g
          aes4 g4. f8[ d ees]
          f4 r8 f4 f8 g8 a
          bes4 f bes,4. bes'8 ~
          bes a16[ g] a4 bes8 g4 ees8
          f2. d4
          r4 ees8 ees f g aes4
          g2 f2
          bes,8[ c d ees] f2
          d4 d' c bes4 ~
          bes a4 g2
          r4 f f4. g8
          a4 d,4. ees8 f4 ~
          f4 ees f2 ~
          f\breve*1/2
          bes2 c
          d bes4 d
          c4 f,8 bes4 a16[ g] a4
          f2 r4 ees
          f8 g aes4 g2
          f4 r8 bes4 a16[ g] a4
          bes1
          g4 bes g ees
          g4 r8 d f2 ~
          f4 c2 ees4 ~
          ees bes2 f'4 ~
          f2 bes,
          r4 f'2 f4
          g2 r4 f4 ~
          f d \mtempob d\breve*1/4
}

tenor=\relative c'{
	R1
        r4 bes2 d4 ~
        d a2 c4 ~
        c g4. a8[ bes c]
        d[ bes] c4 bes g
        c2 bes
        r2 r4 bes8 bes
        c d ees4. d4 bes8
        c4 bes a r4
        bes8 bes c d ees4 d ~
        d8[ bes] f'4 d bes
        c2 bes
        r2 bes8 bes c d 
        ees4 d4. bes8[ c d]
        ees4 bes c2
        bes4 d f2
        bes,4 c d bes
        c2 bes4 d
        f2 bes,4 c 
        d bes c2
        bes\breve*1/2
        d4 f2 f4
        d2 f4 d
        ees8[ c] d4 ees2
        d r
        bes4 c8 d ees4 d
        c4 r8 f f2
        bes,8[ c d ees] f4 d
        ees8[ c] d4 ees2
        d1
        r4 a2 c4 ~
        c g2 bes4
        d8[ bes c d] ees4. d8
        c2 bes4 f
        bes2 c
        bes\breve*1/2
}

bassus=\relative c{
	r2 ees2
        g d
        f c4. d8
        ees2 bes
        bes'4 f g bes
        f2 bes,4 ees8 ees
        f g aes4 g2
        f4 ees4. f8 g4
        f bes, f' ees4
        r4 f8 f g8 a bes4 ~
        bes4 f4 bes4 g
        f2 bes,2
        r2 r4 f'8 f
        g8 a bes2 f4
        ees4 g f2
        bes,4 bes'8 \parenthesize bes f4 bes
        g4 a bes g
        f2 bes,4 bes'8 bes
        f4 bes g a
        bes g f2
        bes,\breve*1/2
        bes'2 f
        bes2. bes4
        c bes c2
        bes r
        r4 f4 g8 a bes4
        f bes f2
        r4 bes2 bes4
        c bes c2
        g d
        f c
        ees bes
        bes'4 f g ees
        f2 bes,4 bes'
        g2 f
        bes,\breve*1/2
}

% ortografía modernizada al portugués

% aplicación del texto editorial


textocantus=\lyricmode{
Fa -- lai \mt #1 meus o -- lhos, __ _ _ se me que -- reis bem
co -- mo fa -- la -- rá quem tem -- po __ _ não tem
\italicas
co -- mo fa -- la -- rá quem tem -- po __ _ não __ _ _ _ tem,
\rectas
co -- mo fa -- la -- rá quem tem -- po não tem,
\italicas
co -- mo fa -- la -- rá quem tem -- po não tem.
\rectas
De -- se -- jo fa -- lar -- _ vos
mi -- nh'al -- ma's -- cu -- tai -- _ me
não pos -- so ol -- vi -- dar -- vos,
meus o -- lhos fa -- lai -- _ _ _ _ me,
fa -- lai -- _ me.
}
textocantusb=\lyricmode{
Vi -- vo \mt #1 de-se -- jan -- do __ _ _ a __ _ vós meu bem
}

textocantusdos=\lyricmode{
Fa -- lai \mt #0 meus o -- lhos, __ _ _ _ se \mt #0 me que -- _ _ reis bem, % pois me quereis
co -- mo fa -- la -- rá quem tem -- po não tem,
\italicas
co -- mo fa -- la -- rá quem tem -- po não tem, não __ _ _ tem % editorial
\rectas
co -- mo fa -- la -- rá quem tem -- po não tem
\italicas
quem tem -- _ _ po __ _ não tem, __ _ 
\rectas
quem tem -- po não tem
non __ tem.
De -- se -- jo fa -- lar -- vos,
fa -- lar -- vos
mi -- nh'al -- ma's -- cu -- tai -- me
não pos -- so'l -- vi -- dar -- vos,
não pos -- so'l -- vi -- _ dar -- vos
meus o -- lhos fa -- lai -- _ _ _ _ me,
fa -- _ lai -- _ _ me. % editorial
}
textocantusdosb=\lyricmode{
Vi -- vo \mt #0 "de   -   se" -- jan -- do __ _ _ _ a vós __ _ _ _ meu bem,
}

textoaltus=\lyricmode{
Fa -- lai \mt #1 meus o -- lhos, se me que -- reis bem
co -- mo fa -- la -- rá quem tem -- po não __ tem
co -- mo fa -- la -- rá quem tem -- po __ _ _ não __ _ _ tem __ _
co -- mo fa -- la -- rá quem tem -- po __ não tem,
quem tem -- po não tem
\italicas quem tem -- _ _ po __ _ _ não tem. \rectas
De -- se -- jo fa -- lar -- vos,
fa -- lar -- _ _ vos
mi -- nh'al -- ma's -- cu -- tai -- me
não __ _ _ pos -- so ol -- vi -- dar -- vos
meus o -- lhos fa -- _ lai -- me
meus o -- lhos fa -- lai -- me. 
}
textoaltusb=\lyricmode{
Vi -- vo \mt #1 de-se -- jan -- do a vós __ _ meu bem
}

textotenor=\lyricmode{
Fa -- lai \mt #1 meus o -- lhos, __ _ _ se \mt #0 me que -- reis bem
co -- mo fa -- la -- rá quem tem -- po não tem
\italicas co -- mo fa -- la -- rá quem __ _ tem -- po não tem \rectas
co -- mo fa -- la -- rá quem __ _ tem -- po não tem,
\italicas
quem tem -- po, quem tem -- po não tem, % editorial
\rectas
quem tem -- po, \italicas quem tem -- po \rectas não tem. % editorial
De -- se -- jo fa -- lar -- _ _ _ _ vos
mi -- nh'al -- ma's -- cu -- tai -- me
não pos -- so __ _ ol -- vi -- _ dar -- vos
meus o -- lhos fa -- lai -- _ me,
meus o -- lhos fa -- lai -- me. 
}
textotenorb=\lyricmode{
Vi -- vo \mt #1 de-se -- jan -- do __ _ _ a vós __ _ meu bem
}

textobassus=\lyricmode{
Fa -- lai \mt #0 meus o -- lhos, __ _ _ _ se __ _ \mt #0 me que -- reis bem, % pois
co -- mo fa -- la -- rá quem tem -- po __ _ _ não __ _ tem __ _ 
co -- mo fa -- la -- rá quem tem -- po não tem
co -- mo fa -- la -- rá quem tem -- po não tem,
\italicas
co -- mo fa -- la -- rá \rectas quem tem -- po não tem,
co -- mo fa -- la -- rá quem tem -- po não tem.
De -- se -- jo fa -- lar -- _ _ vos
mi -- nh'al -- ma's -- cu -- tai -- _ me
não pos -- so'l -- vi -- dar -- vos,
meus o -- lhos fa -- _ lai -- _ me, __ _
meus o -- lhos fa -- lai -- me. 
}
textobassusb=\lyricmode{
Vi -- vo \mt #0 de-se -- jan -- do __ _ _ _ a __ _ vós __ _ meu bem,
}

%{
Habladme mis ojos, si me quereis bien,
como hablará quien tiempo no tiene.
   Deseo hablaros
   mi Alma, escuchadme.
   No puedo olvidaros,
   mi Alma, habladme.
Vivo deseándoos mi bien
como hablará quien tiempo no tiene.
%}

incipitcantus=\markup{
	\score{
		{ 
		\set Staff.instrumentName="[Cantus] " % no pone nada
		\override NoteHead.style = #'neomensural
		\override Staff.TimeSignature.style = #'neomensural
		\cadenzaOn 
		\clef "petrucci-g"
		\key bes \major
		\time 4/4
                bes'1
		} 

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

incipitcantusdos=\markup{
	\score{
		{ 
		\set Staff.instrumentName="[Altus 1] " % Cantus
		\override NoteHead.style = #'neomensural
		\override Staff.TimeSignature.style = #'neomensural
		\cadenzaOn 
		\clef "petrucci-c1"
		\key bes \major
		\time 4/4
                bes'1
		} 

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

incipitaltus=\markup{
	\score{
		{ 
		\set Staff.instrumentName="[Altus 2] " % Cantus
		\override NoteHead.style = #'neomensural 
		\override Staff.TimeSignature.style = #'neomensural
		\cadenzaOn 
		\clef "petrucci-c1"
		\key bes \major
		\time 4/4
                ees'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-c3"
		\key bes \major
		\time 4/4
                 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-f3"
		\key bes \major
		\time 4/4
                ees1
		} 
	\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' a{
\new ChoirStaff<<

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

	\new Staff <<\global
	\new Voice="v5" {
		\set Staff.instrumentName=\incipitcantusdos
		\clef "treble"
		\cantusdos }
	\new Lyrics \lyricsto "v5" {\textocantusdos }
	\new Lyrics \lyricsto "v5" {\textocantusdosb }
	>>

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

	\new Staff <<\global
	\new Voice="v4" {
		\set Staff.instrumentName=\incipitbassus
		\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=20
	%page-count = 8
	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 . 10) (minimum-distance . 0) (padding . 0))
	last-bottom-spacing = % footer
	#'((basic-distance . 12) (minimum-distance . 0) (padding . 0))
	markup-system-spacing.padding = #1.5
}