\version "2.18.0"

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

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

htitle="Ríu, ríu, chíu"
hcomposer="Anónimo"

\header {
	title=\markup{\fontsize #3 "46. Ríu, ríu, chíu"}
	subtitle="Cancionero de Uppsala"
	subsubtitle=\markup{\null \vspace #1 }
	composer="Anónimo"
        pdfauthor=\composer
	%opus="(-)"
	poet=\markup{"Venencia 1556"}
	copyright=\markup{
		\fill-line {"Edited by Nancho Alvarez" \typewriter "http://tomasluisdevictoria.org"}
	}
	tagline=""
}


global={\key c \major \time 2/2  \skip 1*13 \bar "||" \break
					\skip 1*15 \bar "||" \break
					\skip 1*16 \bar "|."
}

cantus={
	R1*4/4 |
	R1*4/4 |
	R1*4/4 |
	R1*4/4 |
%5
	R1*4/4 |
	R1*4/4 |
	R1*4/4 |
	R1*4/4 |
	R1*4/4 |
%10
	R1*4/4 |
	R1*4/4 |
	R1*4/4 |
	R1*4/4 |
	a'4^\segno a' g' a' |
%15
	f'2 e'4 d' ~ |
	d' e' f' g' |
	a'2 a' |
	R1*4/4 |
	r2 a'4 a' |
%20
	g' a' f'2 |
	e'4 f'2 f'4 |
	e' e' d'2 |
	d' r |
	R1*4/4 |
%25
	a'4 a' g' a' |
	f'2 e'4 d' ~ |
	d' d' cis' cis' |
	d'2 d'
        \once \override Score.RehearsalMark.break-visibility = #'#(#t #t #f)
        \override Score.RehearsalMark.self-alignment-X=#right
        \mark \markup{"Fin"}
	R1*4/4 |
%30
	R1*4/4 |
	R1*4/4 |
	R1*4/4 |
	R1*4/4 |
	R1*4/4 |
%35
	R1*4/4 |
	R1*4/4 |
	R1*4/4 |
	R1*4/4 |
	R1*4/4 |
%40
	R1*4/4 |
	R1*4/4 |
	R1*4/4 |
	R1*4/4 |
	R1*4/4 
}

altus={
	R1*4/4 |
	R1*4/4 |
	R1*4/4 |
	R1*4/4 |
%5
	R1*4/4 |
	R1*4/4 |
	R1*4/4 |
	R1*4/4 |
	R1*4/4 |
%10
	R1*4/4 |
	R1*4/4 |
	R1*4/4 |
	R1*4/4 |
	f'4 f' e' c' |
%15
	d'2 e'4 f' ~ |
	f' e' d' d' |
	c'2 c' |
	R1*4/4 |
	e'4 e' d' c' |
%20
	e' c' d'2 |
	cis'4 d'2 d'4 |
	cis' cis' d'2 |
	d' r |
	r e'4 e' |
%25
	d' c' e' c' |
	d'2 c'4 a ~ |
	a a a a |
	a2 a |
	R1*4/4 |
%30
	R1*4/4 |
	R1*4/4 |
	R1*4/4 |
	R1*4/4 |
	R1*4/4 |
%35
	R1*4/4 |
	R1*4/4 |
	R1*4/4 |
	R1*4/4 |
	R1*4/4 |
%40
	R1*4/4 |
	R1*4/4 |
	R1*4/4 |
	R1*4/4 |
	R1*4/4
}

tenor={
	R1*4/4 |
	R1*4/4 |
	R1*4/4 |
	R1*4/4 |
%5
	R1*4/4 |
	R1*4/4 |
	R1*4/4 |
	R1*4/4 |
	R1*4/4 |
%10
	R1*4/4 |
	R1*4/4 |
	R1*4/4 |
	R1*4/4 |
	c'4 c' c' a |
%15
	a2 a4 a ~ |
	a a d d |
	e2 e |
	r c'4 c' |
	b c' a2 |
%20
	b4 a a2 |
	a4 a2 a4 |
	a a a2 |
	a r |
	c'4 c' b c' |
%25
	a2 b4 a |
	a2 a4 f ~ |
	f f e e |
	d2 d |
	R1*4/4 |
%30
	R1*4/4 |
	R1*4/4 |
	R1*4/4 |
	R1*4/4 |
	R1*4/4 |
%35
	R1*4/4 |
	R1*4/4 |
	R1*4/4 |
	R1*4/4 |
	R1*4/4 |
%40
	R1*4/4 |
	R1*4/4 |
	R1*4/4 |
	R1*4/4 |
	R1*4/4
}

bassus={
	a4 a g a |
	f2 e4 d ~ |
	d e f g |
	a2 a |
%5
	r a4 a |
	g a f2 |
	e4 g2 g4 |
	e f d2 |
	d r |
%10
	a4 a g a |
	f2 e4 g ~ |
	g g e f |
	d2 d |
	f4 f c f |
%15
	d2 a,4 d ~ |
	d c bes, bes, |
	a,2 a, |
	r a4 a |
	g a f2 |
%20
	e4 f d2 |
	a,4 d2 d4 |
	a, a, d2 |
	d r |
	a4 a g a |
%25
	f2 e4 f |
	d2 a,4 d ~ |
	d d a, a, |
	d2 d |
        s4*0^\markup{\larger "Coplas"}
	a4 a g a |
%30
	f2 e4 g ~ |
	g g e f |
	d1 |
	a4 a g a |
	f2 f4 e |
%35
	g g e f |
	d1 |
	a4 a g a |
	f2 f4 e |
	d e f g |
%40
	a1 |
	a4 a g a |
	f2 f4 e |
	g g e f |
	d2 d
        \mark \markup{"D.S."}
}

textocantus=\lyricmode{
Ri -- u, ri -- u,
chi -- u,
la _ guar -- da ri -- be -- ra:
Dios guar -- dó del lo -- bo a nues -- tra cor -- de -- ra
Dios guar -- dó del lo -- bo
a _ nues -- tra cor -- de -- ra.
}

textoaltus=\lyricmode{
Ri -- u, ri -- u,
chi -- u,
la _ guar -- da ri -- be -- ra:
Dios guar -- dó del lo -- bo,
\italicas lo -- bo, \rectas a nues -- tra cor -- de -- ra
Dios guar -- dó del lo -- bo, \italicas lo -- bo \rectas a _ nues -- tra cor -- de -- ra.
}

textotenor=\lyricmode{
Ri -- u,
ri -- u,
chi -- u,
la _ guar -- da ri -- be -- ra:
Dios guar -- dó del lo -- bo,
del lo -- bo,
a nues -- tra cor -- de -- ra
Dios guar -- dó del lo -- bo,
del -- lo -- bo a _
nues -- tra cor -- de -- ra.
}

textobassus=\lyricmode{
Ri -- u, ri -- u,
chi -- u,
la _ guar -- da ri -- be -- ra:
Dios guar -- dó del lo -- bo a nues -- tra cor -- de -- ra
Dios guar -- dó del lo -- bo
a _ nues -- tra cor -- de -- ra.
Ri -- u, ri -- u,
chi -- u,
la _ guar -- da ri -- be -- ra:
Dios guar -- dó del lo -- bo,
del lo -- bo,
a nues -- tra cor -- de -- ra
Dios guar -- dó del lo -- bo, del lo -- bo
a _ nues -- tra cor -- de -- ra.
El lo -- bo ra -- bio -- so
la _ qui -- so mor -- der,
mas Dios po -- de -- ro -- so la su -- po de -- fen -- der;
qui -- so -- la ha -- cer que no pu -- die -- se pe -- car,
ni-aun o -- ri -- gi -- nal es -- ta Vir -- gen no tu -- vie -- ra.
}
textobassusb=\lyricmode{
_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ 
_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ 
_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ 
_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ 
Es -- te que~es na -- ci -- do
es _ el gran mo -- \mt #1 nar-ca,
Cris -- to pa -- tri -- ar -- ca
de car -- _ ne ves -- \mt #1 ti-do;
ha -- nos re -- di -- mi -- do
con se ha -- cer chi -- \mt #1 qui-to
aun -- que~e -- ra~in -- fi -- ni -- to,
fi -- ni -- to se hi -- cie -- ra.
}


%{
Ríu, ríu, chíu,
la guarda ribera:
Dios guardó del lobo
a nuestra cordera.

El lobo rabioso
la quiso morder,
mas Dios poderoso
la supo defender;
quisola hacer
que no pudiese pecar,
ni aun original
esta Virgen no tuviera.

Este que es nacido
es el gran monarca,
Cristo patriarca
de carne vestido;
hanos redimido
con se hacer chiquito
aunque era infinito,
finito se hiciera.

Muchas profecías
lo han profetizado,
y aun en nuestros días
lo hemos alcanzado.
A Dios humanado
vemos en el suelo,
y al hombre en el cielo
porque El le quisiera.

Yo vi mil garzones
que andaban cantando,
por aquí volando
haciendo mil sones,
diciendo a gascones:
"Gloria sea en el cielo
y paz en el suelo,
pues Jesús naciera".

Este viene a dar
a los muertos vida,
y viene a reparar
de todos la caída;
es la luz del día
aqueste mozuelo;
éste es el cordero
que San Juan dijera.

Mira bien que os cuadre
que ansina lo oyera
que Dios no pudiera
hacerla más madre.
El que era su padre
hoy de ella nació
y el que la crió
su hijo se dijera.

Pues que ya tenemos
lo que deseamos,
todos juntos vamos,
presentes llevamos;
todos le daremos
nuestra voluntad,
pues a se igualar
con el hombre viniera. 
%}

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

	\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 c \major
		\time 4/4
                f'4
		} 
	\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
                c'4
		} 
	\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
                a4
		} 
	\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 \with{\remove Ambitus_engraver} <<\global
	\new Voice="v1" {
		\set Staff.instrumentName=\incipitcantus
		\set Staff.shortInstrumentName="S "
		\clef "treble"
		\cantus }
	\new Lyrics \lyricsto "v1" {\textocantus }
	>>

	\new Staff \with{\remove Ambitus_engraver} <<\global
	\new Voice="v2" {
		\set Staff.instrumentName=\incipitaltus
		\set Staff.shortInstrumentName="A "
		\clef "treble"
		\altus }
	\new Lyrics \lyricsto "v2" {\textoaltus }
	>>
	
	\new Staff \with{\remove Ambitus_engraver} <<\global
	\new Voice="v3" {
		\set Staff.instrumentName=\incipittenor
		\set Staff.shortInstrumentName="T "
		\clef "G_8"
		\tenor }
	\new Lyrics \lyricsto "v3" {\textotenor }
	>>

	\new Staff <<\global
	\new Voice="v4" {
		\set Staff.instrumentName=\incipitbassus
		\set Staff.shortInstrumentName="B "
		\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.2\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 . 15) (minimum-distance . 0) (padding . 0))
	markup-system-spacing.padding = #2.5
}