\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 -i1.8

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

htitle="Caldero y llave, madona"
hcomposer="Encina"

\header {
	title=\markup{\fontsize #3 "432. Caldero y llave, madona"} % 60, pag. 294-295
	subtitle="Cancionero de Palacio"
	subsubtitle="  "
	composer="Juan del Encina (1468-1529)"
        pdfauthor=\composer
	%opus="(-)"
	poet=\markup{}
	copyright=\markup{
		\fill-line {"Transcribed and edited by Nancho Alvarez" \typewriter "http://tomasluisdevictoria.org"}
	}
	tagline=""
}

global={\key c \major \time 3/4 \skip 1*3/4*13
	%\override Score.TimeSignature.break-visibility = #'#(#f #t #t)
	\bar "||"
	\override Score.RehearsalMark.self-alignment-X=#right
	\mark \markup{"Fin"}
	\mtempob
	\bar ".|:"
	\time 2/2 \skip 1*6
	\bar ":|."
	\mtempo
	\time 3/4 \skip 1*3/4*4
	\bar "|."
	\mark \markup{"D.C."}
}


cantus=\relative c''{
	R1*3/4
	r4 g4 a
	b4 c4. b8
	a2 \ss gis4
	\phrasingSlurDashed
	a2\( a4\)
	f2 f4
	g2 g4
	% punto de division
	f4 e2
	d2.
	\break
	a'2 b4
	c4 a4. g8
	g2 \ss fis4
	g\breve*3/8
	\once \override TextScript.padding = #1.5
	s4*0^\markup{\fontsize #-2 \note-by-number #1 #0 #1 }
	f4 f a a
	g4 c2 b4
	c2 c
	\break
	R1*3
	a2 b4
	c4 a4. g8
	g2 \ss fis4
	g2 \parenthesize g4
}

altus=\relative c'{
	R1*3/4
	d4 e f
	g4 e2
	e4. d8 e4
	\phrasingSlurDashed
	cis2\( cis4\)
	d2 d4
	e2 e4
	d2 \ss cis4
	d2.
	f2 g4
	% punto divisionis
	e4 f2
	d2 d4
	d\breve*3/8
	R1*3
	c4 c e e
	d4 g2 \ss fis4
	g2 g
	f2 g4
	% punto
	e4 f2
	d2 d4
	d2 \parenthesize d4
}

tenor=\relative c'{
	r4 g a
	b4 c4. b8
	\[g4 a4.\] b8
	c4 b2
	\phrasingSlurDashed
	a2\( a4\)
	a2 a4
	c2 c4
	a2 a4
	a2.
	d2 d4
	c2 c4
	% punto
	b4 a2
	g\breve*3/8
	R1*3
	a4 a c c
	b4 g a2
	g2 g
	d'2 d4
	c2 c4
	b4 a2
	g2 \parenthesize g4
}

bassus=\relative c{
	d4 e f
	g4 \[c, f\]
	e4 a,2
	a'4 e2
	\phrasingSlurDashed
	a,2\( a4\)
	d2 d4
	c2 c4
	d4 a2
	d2.
	d2 g4
	c,4 f2
	g4 d2
	g,\breve*3/8
	d'4 d f f 
	e c d2
	c2 c
	R1*3
	d2 g4
	c,4 f2
	g4 d2
	g,2 \parenthesize g4
}

textocantus=\lyricmode{
Cal -- de -- ro~y lla -- _ ve ma -- do -- na,
ju -- ra di per vos a -- mar,
je vo -- leu vol __ _ a -- do -- bar.
Je vos pon -- dre u -- na __ _ cla -- ve
per mo foy que __ _ don -- de tra -- ve,
}
textocantusb=\lyricmode{
se -- gun es mon __ _ fe -- rra -- mén, __ _
que vos que -- dar ben con -- tén,
que no me po -- sa ol -- vi -- dar.
que rom -- pe -- rá u -- na mu -- ra -- lla
}

textoaltus=\lyricmode{
Cal -- de -- ro~y lla -- ve ma -- _ _ do -- na,
ju -- ra di per vos a -- mar,
je vo -- leu vol a -- do -- bar.
den -- tro de vues -- tra se -- _ rra -- lla,
per mo foy que don -- de tra -- ve,
}
textoaltusb=\lyricmode{
se -- gun es mon fe -- rra -- _ _ mén, __ _
que vos que -- dar ben con -- tén,
que no me po -- sa~ol -- vi -- dar.
nin ja -- más no se des -- _ tra -- ve:
}
textotenor=\lyricmode{
Cal -- de -- ro~y lla -- _ ve __ _ _ _ ma -- do -- na,
ju -- ra di per vos a -- mar,
je vo -- leu vol a -- do -- bar.
den -- tro de vues -- tra se -- _ rra -- lla,
per mo foy que don -- de tra -- ve,
}
textotenorb=\lyricmode{
se -- gun es mon __ _ fe -- _ _ _ rra -- mén, __ _
que vos que -- dar ben con -- tén,
que no me po -- sa~ol -- vi -- dar.
nin ja -- más no se des -- _ tra -- ve:
}
textobassus=\lyricmode{
Cal -- de -- ro~y lla -- ve __ _ _ _ _ ma -- do -- na,
ju -- ra di per vos a -- mar,
je vo -- leu vol a -- do -- bar.
Je vos pon -- dre u -- na __ _ cla -- ve
per mo foy que don -- de tra -- ve,
}
textobassusb=\lyricmode{
se -- gun es mon fe -- _ _ _ _ rra -- mén, __ _
que vos que -- dar ben con -- tén,
que no me po -- sa~ol -- vi -- dar.
que rom -- pe -- rá u -- na mu -- ra -- lla
}

incipitcantus=\markup{
	\score{
		{ 
		\set Staff.instrumentName="C "
		\override NoteHead.style = #'neomensural
		\override Staff.TimeSignature.style = #'neomensural
		\cadenzaOn 
		\clef "petrucci-c1"
		\key c \major
		\time 2/2
                \override TextScript.extra-offset=#'(-2 . -3.25)
                s1^"3"
                g'1
		} 

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

incipitaltus=\markup{
	\score{
		{ 
		\set Staff.instrumentName="A " % Contr.
		\override NoteHead.style = #'neomensural 
		\override Staff.TimeSignature.style = #'neomensural
		\cadenzaOn 
		\clef "petrucci-c3"
		\key c \major
		\time 2/2
                \override TextScript.extra-offset=#'(-2 . -3.25)
                s1^"3"
                d'
		} 
	\layout { line-width=\incipitwidth indent = 0 }
	}
}


incipittenor=\markup{
	\score{
		{ 
		\set Staff.instrumentName="T "
		\override NoteHead.style = #'neomensural 
		\override Staff.TimeSignature.style = #'neomensural
		\cadenzaOn 
		\clef "petrucci-c4"
		\key c \major
		\time 2/2
                \override TextScript.extra-offset=#'(-2 . -3.25)
                s1^"3"
                g1
		} 
	\layout { line-width=\incipitwidth indent=0 }
	}
}

incipitbassus=\markup{
	\score{
		{ 
		\set Staff.instrumentName="B "
		\override NoteHead.style = #'neomensural
		\override Staff.TimeSignature.style = #'neomensural
		\cadenzaOn 
		\clef "petrucci-f4"
		\key c \major
		\time 2/2
                \override TextScript.extra-offset=#'(-2 . -3.25)
                s1^"3"
                d1
		} 
	\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' d'{
\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="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 }

}

\pageBreak

% lyrics taken from
% http://www.cancioneros.si/mediawiki/index.php?title=Caldero_y_llave,_madona

\markup{\null \vspace #5 } %notablet
\markup{
  \fontsize #2 %notablet
  %tablet \fontsize #-2
  \fill-line{\column{
"Caldero y llave, madona,"
"jura di, per vos amar"
"je voleu vol adobar."
"  " %notablet
"  " %notablet
}}}
\markup{
  \fontsize #2 %notablet
  %tablet \fontsize #-2
        \fill-line{ "  "
 \column{
\line{\hspace #-2.5 "1. Je vos pondre una clave"}
"dentro de vuestra serralla,"
"que romperá una muralla"
"nin jamas no se destrave:"
"Per mo foy, que donde trave"
"Segun es mon ferramen,"
"que vos quedar ben conten"
"que no me posa olvidar."
\vspace #2 %notablet
%tablet \vspace #1
\line{\hspace #-2.5 "2. Je a tapar los agujer"}
"de toda la casa vostra"
"con la ferramienta nostra"
"sin que me donar diner."
"No trovareis calderer"
"que vos sirva como a mi,"
"que juro a la cor de di"
"ge faroy lo que mardar."
\vspace #2 %notablet
%tablet \vspace #1
\line{\hspace #-2.5 "3. Juro a la san de di,"}
"si la mai pena conortas,"
"de serrar las vuestras portas"
"sin que des maravedi."
"per ma foy que ge me obli"
"de vos facer tal bisoña,"
"qu'en lo pais de Borgoña"
"n'os trobeis otro mi par."
 }
 "  "
\column{
\line{\hspace #-3.5 "4. Y pondras en la clavera"}
"un gros y gentil ponson,"
"qu'en lo pais d'Aviñon"
"non la aya tal fuslera"
"y para la delantera"
"porque bai ben solsada,"
"que aunque de gran martillada"
"que non se pose doblar."
\vspace #2 %notablet
%tablet \vspace #1 
\line{\hspace #-3.5 "5. Je faras con mis martillos,"}
"señora, si ben scoltas,"
"clave que de quatre voltas"
"bien cierre vuestros pestillos,"
"je l'abri sin sentillos"
"y que de la volta entera,"
"y en la vuestra espetera"
"je vos pondrá una cuchar."
\vspace #2 %notablet
%tablet \vspace #1
\line{\hspace #-3.5 "6. Moe clavar vostro molin"}
"y untar bien el batan,"
"sin que des pedas de pan"
"nin torresne de tosin;"
"y mon criate joanin"
"portarvos cosas tan bellas"
"que entre todas las doncellas"
"vos seres mas de mirar."
}
"  "
}}

\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 = 1
	systems-per-page = 3
	ragged-last-bottom = ##f
	indent=2.1\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 = #1.5
}