\version "2.18.0"

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

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

htitle="Què farem del pobre Joan"
hcomposer="Flecha"

\header {
	title=\markup{\fontsize #3 "35. Què farem del pobre Joan"}
	subtitle="Cancionero de Uppsala"
	subsubtitle=\markup{\null \vspace #2 }
	composer="Mateo flecha «el viejo» (1481-1553)"
        pdfauthor=\composer
	%opus="(-)"
	poet=\markup{"Venecia 1556"}
	copyright=\markup{
		\fill-line {"Transcribed and edited by Nancho Alvarez" \typewriter "http://tomasluisdevictoria.org"}
	}
%	tagline=""
}

global={\key f \major \time 2/2 \skip 1*65
        \once \override Score.TimeSignature.stencil = ##f
	\bar ";" \time 2/4 \skip 2
        \once \override Score.TimeSignature.stencil = ##f
        \time 4/4 \skip 1*2
        \time 3/4
        \mtempoc
	\skip 1*3/4*4
        \mtempo
        \time 2/2 \skip 1*3
	\bar "|."
}


cantus=\relative c''{
	R1
        g4 g bes bes
        c c d d8 d
        c bes bes a bes2
        r4 a8 a a4. bes8
        a4. g8 f4 g8 g
        g4 \ss fis8 fis g2 ~
        g2 r
        R1*3
        r4 d'8 d d4. d8
        c4. bes8 a4 g8 g
        g4 \ss fis8 fis g4 r8 g
        g4 \ss fis8 fis g2
        r r4 a8 a
        bes4 bes c c
        d1
        R1 % añadido a mano?
        r2 r4 d8 d
        c bes bes a bes2
        r4 a8 a a4. a8
        bes4 c d d
        c bes2 a8 g
        f8 g4 \ss fis8 g4 d8 d
        f4. g8 a4 a
        g2 r2
        R1*3
        r2 r4 d8 e
        f g a bes c4 bes4 ~
        bes4 a4 bes2
        R1*2
        r4 bes2 bes4
        a8 g f e d4 e8 e
        g4 \ss fis8 fis g2
        r4 r8 bes bes4 a8 a
        bes2 r % octavas con el tenor!
        R1
        r4 f8 f g bes bes a
        bes4 r8 c d4 d
        r8 bes bes4 bes8 bes a g
        f4 g8 g g4 \ss fis8 fis
        g2 r4 d8 d
        f4 g2 g4
        a g f g8 f
        g8 a bes2 a4 
        g2 f8 g a bes
        c4 d4. c8 bes4 ~
        bes a bes4 bes ~
        bes4 bes bes bes
        a g f g
        r2 r4 r8 d
        f4 e8 e d2
        R1
        r2 r4 a'8 a
        bes2. a4 % el puntillo parece un silencio o un borrón
        g f g2
        f4 d8 e f g a bes
        c4 d4. c8 bes4 ~
        bes8 a8 a g16[ a]
        bes2  \break
        d1
        c4 bes2 a4
        bes2
        d1
        c4 bes2 a4
        %3
        s4*0^\markup{\hspace #-3.8 "3" \hspace #2 \raise #0.8 \musicglyph #"noteheads.s0petrucci"}
        bes2 bes4 % puntillos de separacion
        bes4 c2
        a2 a4
        bes4 g2
        s4*0^\markup{\hspace #-3.8 \musicglyph #"timesig.neomensural44"}
        f4 g8 g g4 \ss fis8 fis
        g4 r8 g g4 g8 g 
        g\breve*1/2
        
}

altus=\relative c'{
	g4 g bes bes
        c c d d8 d
        c bes bes a bes4 f'8 f
        \ss ees d c c bes2
        r4 f'8 f f4. f8
        f4. d8 d4 bes8 bes
        \ss ees4 d8 d d2 ~
        d r
        r4 g,8 g bes4 bes8 bes
        c4 \ss ees d f8 f
        \ss ees8 d c c bes2
        r4 bes8 bes bes4. bes8
        a4 g d'4 bes8 bes
        \ss ees4 d8 d d4 r8 bes
        c4 a8 a g2
        r r4 f'8 f
        g4 g f \ss ees
        d1
        R1
        r2 r4 f8 f f d f f
        d4 d8 d f4. e8
        d4 c d e
        d f
        e d2 c4
        d2 bes
        a1
        r4 d8 d f4 f
        g2. g4
        a g f2
        f4 f e d
        c c bes f'4 ~ 
        f f4 e4 d
        c c bes2
        R1*2
        r4 g'2 g4
        f8 e d c bes4 c8 a
        bes c a4 g2
        r4 r8 f'8 g4 e8 e
        d2 r4 g,8 g
        bes4 bes c c
        d4 d8 d c bes c c
        bes4 r8 f' f4 f
        r8 f f4 f8 f f d
        d4 d8 d ees4 d8 d
        d2 r2
        r4 g,8 g bes4 c ~
        c c d \ss ees
        d4 bes8 c d e f4 ~
        f e f2
        e4 d bes4. bes8 
        c4 c bes f' ~
        f f f f
        ees4. ees8 d4 d
        r2 r4 r8 d
        d4 c8 c d2
        R1
        r4 d8 d ees2 ~
        ees4 d c c
        bes4 a2 g4
        a4 f'2 f4
        e d f2
        f f
        f1
        f4 d f2
        d
        f1
        f4 d f2
        
        d2 g4
        g4 g2
        f2 f4
        g4 e2
        d4 d8 d ees4 d8 d
        d4 r8 d \ss ees4 ees8 ees
        d\breve*1/2
        
}

tenor=\relative c'{
	R1*4
        r4 c8 c c4. d8
        c4. bes8 a4 g8 g
        c4 a8 a g2
        r4 g8 g f4 d8 d
        e4 e f g8 f
        g8 bes bes a bes4 d8 d
        c bes bes a bes2
        r4 f8 f f4. f8
        e4 e f g8 g
        c4 a8 a g2
        r2 r4 r8 d'
        d4 c8 c d2
        R1
        r4 a8 a bes4 bes
        c c d d8 d 
        c8 bes bes a bes4 bes8 bes
        a8 bes c c bes2
        R1
        r4 a8 a bes4. a8
        g4 f g g8 g
        bes4 a8 a g2
        r2 r4 d8 d
        ees4 g d8 d a'4
        r4 g8 g bes4 bes
        c c d d,8 e
        f g a bes c4 bes ~
        bes a bes4 bes,8 c % parece bes,8 bes
        d e f g a4 bes
        f2 r4 bes ~
        bes bes a8 g f e
        d4 e8 e g4 \ss fis8 fis
        g2 r
        R1
        r4 r8 d' d4 c8 c
        d2 r4 a8 a
        bes4 a g2 ~ % octavas con el cantus!
        g4 f4 g a
        bes2 r4 f'8 f
        \ss ees d c c bes4 r8 d
        d4 d4. d8 c bes
        a4 bes8 bes c4 a8 a
        g1
        R1*2
        g4 g bes c
        c c d2
        c4 bes g4. g8
        f4 f g4 d'4 ~
        d d4 d4 d
        c4. bes8 a4 g8 g
        bes4 a8 a g2
        r4 a8 a bes2 ~
        bes4 a4 g f
        g2. \ss ees4
        f f'2 f4
        \ss ees8 d d2 c4
        d2 d4 d
        c bes d2
        c bes
        bes1
        a4 bes c2
        bes
        bes1
        a4 bes c2
        
        bes2 d4
        d4 \ss ees2
        c2 d4
        bes4 c2
        a4 bes8 bes c4 a8 a
        g4 r8 bes c4 c8 c
        b\breve*1/2
}

bassus=\relative c{
	R1*4
        r4 f8 f f4. bes,8
        f'4. g8 d4 \ss ees8 ees
        c4 d8 d g,2
        r4 g8 g bes4 bes8 bes
        c4 c d \ss ees8 d
        c bes c8 c bes4 bes8 bes
        c d \ss ees f bes,2
        r4 bes8 bes bes4. bes8
        c4 c d4 \ss ees8 ees
        c4 d8 d g,2
        r2 r4 r8 g'
        g4 \ss ees8 ees d2
        R1
        r4 d8 d g4 g
        f \ss ees d bes8 bes
        \ss ees d c c bes4 bes8 bes
        f' g f f bes,2
        r4 d8 d f4. e8 
        d4 c bes bes
        c d \ss ees2
        d g,
        r4 d'8 d f4 f
        g bes a d,8 d
        ees2. g4
        f \ss ees d bes8 c
        d e f g a4 bes
        f2 bes,
        R1
        r2 r4 g'4 ~
        g g4 f8 e d c
        bes4 c8 a bes c a4
        g2 r
        R1
        r4 r8 d' g4 \ss ees8 ees
        d2 r
        r4 d8 d ees2 ~ % el puntillo parece silencio
        ees4 d4 \ss ees4 c
        bes2 r4 f'8 f
        g bes bes a bes4 r8 bes
        bes4 bes4. bes8 f8 g
        d4 g8 g c,4 d8 d
        g,4 g8 g bes4. c8 
        d4 ees2.
        f4 \ss ees d c8 c
        bes8 a g2 f4
        c'2 r
        R1
        r2 r4 bes ~
        bes bes bes bes
        c4. c8 d4 g,8 g'
        g4 \ss fis8 fis g2
        r2 r4 d8 d
        ees2. d4
        c bes c2
        bes f'4. f8
        g4 d ees ees
        d bes8 c d e f g
        a4 bes bes,2
        f' bes,
        bes1
        f'4 g f2
        bes,
        bes1
        f'4 g f2
        
        bes,2 g'4
        g c,2
        f d4
        g c,2
        
        d4 g8 g c,4 d8 d
        g,4 r8 g' c,4 c8 c
        g'\breve*1/2
}

textocantus=\lyricmode{
Què fa -- rem del po -- bre Joan
de la fa ra ri run fan % fararirumfan
sa mu -- ller se n'es a -- na -- da,
llo -- at si -- a Deu!

a l'hos -- tal de sa ve -- hi -- na, % Al ostal de sa veyna
llo -- at si -- a Deu!
llo -- at si -- a Deu!

Y di -- gau lo meu ve -- hí
de la fa ra ri run fi
ma mu -- ller si l'ha -- veu vis -- ta? % si la veu
llo -- at si -- a Deu! __ _ _ _ 

Per ma fe lo meu ve -- hí
de la fa ra ri run fi \italicas ri run fan \rectas % editorial
tres jorns ha que no l'he vis -- ta,
llo -- at si -- a Deu!
llo -- at si -- a Deu!

de la fa ra ri run fan

y~en tant s'es y~en tant s'es trans -- fi -- gu -- ra -- da, % errata: transfiguarda
llo -- at si -- a Deu!

Ell se'n tor -- ná a son hos -- tal
de la fa ra ri run fan,
\italicas
de la fa ra ri fa ra ri run fan, % editorial
\rectas
tro -- bá sos in -- fants que plo -- ren % infans
llo -- at si -- a Deu!

No plo -- reu los me -- us in -- fants
de la fa ra ri run \italicas fi, de la fa ra ri run fan. \rectas % editorial
Oh ma -- la do -- na,
oh ma -- la do -- na, 
oh ma -- la do -- na re -- pro -- va -- da,
llo -- at si -- a Deu!
llo -- at si -- a Deu!

}

textoaltus=\lyricmode{
Què fa -- rem del po -- bre Joan
de la fa ra ri run fan,
de la fa ra ri run fan
sa mu -- ller se n'es a -- na -- da,
llo -- at si -- a Deu!

¿A hont la n'i -- rem a ser -- car?
de la fa ra ri run fan
a l'hos -- tal de sa ve -- hi -- na,
llo -- at si -- a Deu!
llo -- at si -- a Deu!

Y di -- gau lo meu ve -- hí
de la fa ra ri run fi,

ma mu -- ller si l'ha -- veu vis -- ta?
llo -- at si -- a __ _ Deu! __ _ _
Per ma fe lo meu ve -- hí __ _ _
de la fa ra ri run fi,
\italicas de la fa ra ri run fan \rectas
tres jorns ha que no l'he vis -- ta,
llo -- at si -- a Deu!
llo -- at si -- a Deu!

Es -- ta nit ab mi so -- pá,
de la fa ra ri run fan % fa

y~en tant s'es y~en tant s'es trans -- fi -- gu -- ra -- da,
llo -- at si -- a Deu!

Ell se'n tor -- ná a son hos -- tal
de la fa ra ri run fan, % fararirira
de la fa ra ri run fan,
tro -- bá sos in -- fants que plo -- ren
llo -- at si -- a Deu!

No plo -- reu __ _ _ los me -- us in -- fants
de la fa ra ri run fan.
Oh ma -- la do -- na,
oh ma -- la do -- na, 
oh ma -- la do -- na re -- pro -- va -- da,
llo -- at si -- a Deu!
llo -- at si -- a Deu!

}

textotenor=\lyricmode{
sa mu -- ller se n'es a -- na -- da,
llo -- at si -- a Deu!

¿A hont la n'i -- rem a ser -- car?
de la fa ra ri run fan,
\italicas de la fa ra ri run fan \rectas
a l'hos -- tal de sa ve -- hi -- na,
llo -- at si -- a Deu!
llo -- at si -- a Deu!

Y di -- gau lo meu ve -- hí
de la fa ra ri run fi,
\italicas de la fa ra ri run fi \rectas % en lugar de ij pone y

ma mu -- ller si l'ha -- veu vis -- ta?
llo -- at si -- a Deu!
Per ma fe lo meu ve -- hí
per ma fe lo meu ve -- hí
de la fa ra ri run fi
\italicas ri run fan, % editorial
de la fa ra ri run fi run fan \rectas % run fan editorial
tres jorns ha que no l'he vis -- ta,
llo -- at si -- a Deu!
llo -- at si -- a Deu!

Es -- ta nit ab mi so -- _ _ pá
de la fa ra ri run fan % fa

y~en tant s'es trans -- fi -- gu -- ra -- da,
llo -- at si -- a Deu!

Ell se'n tor -- ná~a son hos -- tal % El
de la fa ra ri run fan,
tro -- bá sos in -- fants que plo -- ren,
llo -- at si -- a Deu!

No plo -- reu los me -- us in -- _ fants,
\italicas no plo -- reu los meus in -- fants \rectas
de la fa ra ri run fan.
Oh ma -- la do -- na,
oh ma -- la do -- na, 
oh ma -- la do -- na re -- pro -- va -- da,
llo -- at si -- a Deu!
llo -- at si -- a Deu!

}

textobassus=\lyricmode{
sa mu -- ller se n'es a -- na -- da,
llo -- at si -- a Deu!

¿A hont la n'i -- rem a ser -- car?
de la fa ra ri run fan,
\italicas de la fa ra ri run fan \rectas
a l'hos -- tal de sa ve -- hi -- na,
llo -- at si -- a Deu!
llo -- at si -- a Deu!

Y di -- gau lo meu ve -- hí
de la fa ra ri run fi,
\italicas de la fa ra ri run fi \rectas

ma mu -- ller si l'ha -- veu vis -- ta?
llo -- at si -- a Deu!
Per ma fe lo meu ve -- hí,
\italicas per ma fe lo meu ve -- hí \rectas
de la fa ra ri run fi
\italicas ri run fan \rectas % editorial
tres jorns ha que no l'he vis -- ta,
llo -- at si -- a Deu!
llo -- at si -- a Deu!

Es -- ta nit ab mi so -- pá
de la fa ra ri run fan

y~en tant s'es trans -- fi -- gu -- ra -- da,
llo -- at si -- a Deu!

Ell se'n tor -- _ _ ná~a son hos -- tal
de la fa ra ri run fan
tro -- bá sos in -- fants que plo -- ren,
llo -- at si -- a Deu!

No plo -- reu los me -- us in -- fants,
\italicas no plo -- reu los meus in -- fants \rectas
de la fa ra ri run \italicas fa ra ri run fan. \rectas % editorial
Oh ma -- la do -- na,
oh ma -- la do -- na, 
oh ma -- la do -- na re -- pro -- va -- da,
llo -- at si -- a Deu!
llo -- at si -- a Deu!

}

%{
¡Qué será del pobre Juan!
Su esposa se ha marchado
¡Bendito sea Dios!

¿Dónde la buscaremos?
En la casa de su vecina
¡Bendito sea Dios!

Y decidle a mi vecino,
¿ha visto a mi mujer?
¡Bendito sea Dios!

Por mi fe, vecino mío,
tres días ha que no la he visto
¡Bendito sea Dios!

Esta noche cenó conmigo
Y en tanto se transfiguró
¡Bendito sea Dios!

El volvió a su casa
encontró a sus hijos que lloran.
¡Bendito sea Dios!

No lloreis, hijos míos
Oh, mala mujer reprobada
¡Bendito sea Dios!
%}

incipitcantus=\markup{
	\score{
		{ 
		\set Staff.instrumentName="Cantus "
		\override NoteHead.style = #'neomensural
		\override Staff.TimeSignature.style = #'neomensural
		\cadenzaOn 
		\clef "petrucci-g"
		\key f \major
		\time 4/4
                g'2
		} 

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

incipitaltus=\markup{
	\score{
		{ 
		\set Staff.instrumentName="Altus    "
		\override NoteHead.style = #'neomensural 
		\override Staff.TimeSignature.style = #'neomensural
		\cadenzaOn 
		\clef "petrucci-c3"
		\key f \major
		\time 4/4
                g2
		} 
	\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" % luego cambia a c4
		\key f \major
		\time 4/4
                c'4*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 f \major
		\time 4/4
                f4*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' 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 }
	>>
	
>>

	} % 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.6\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))
	markup-system-spacing.padding = #1.5
}