\version "2.18.0"

#(set-default-paper-size "a4")
#(set-global-staff-size 16.9)
#(ly:set-option 'point-and-click #f)
%mobile -s16.0 -i3.5

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

htitle="Como suele el blanco cisne" % zisne
hcomposer="Anónimo"

\header {
	title=\markup{\fontsize #3 "Como suele el blanco cisne"}
	subtitle="(letrilla a 3 voces)"
	subsubtitle=\markup{\column{" "}}
	composer="Anónimo (s. XVII)"
        pdfauthor=\composer
%	¿es de Mateo Romero (Maestro Capitán) (c.1575-1647)? creo que no
	%opus="(-)"
	poet=\markup{"Ms. 1370/1/2, BNE"}
	% Manuscritos 1370, 1371, 1372, Biblioteca Nacional, Madrid
	copyright=\markup{
		\fill-line {"Edited by Nancho Alvarez" \typewriter "http://tomasluisdevictoria.org"}
	}
%	tagline=""
}

global={\key c \major \time 2/2 \skip 1*16 \bar "||" \pageBreak 
	\skip 1*11 \bar "|."
}


altus=\relative c'{
	r4 e8 e e4 e
	e f g8 a4 \ss gis8
	a2 r4 a ~
	a g g g
	e g f2 ~
	f
	e
	r4 g g g
	e4 g8 g a8[ b c b] \break
	a[ g f e] d2
	r4 g2 e4
	\ss fis \ss gis a8 b c4 ~
	c8[ b] a4 g a ~ \break 
	a8[ g] \parenthesize f2 g4 % falta en el Ms.
	g4 \ss fis g g8[ e]
	f8[ g a b] \ss gis8 a4 gis8
	a\breve*1/2
	\once \override TextScript.padding = #1.5
	s4*0^\markup{"Vuelta"} % Buelta, tiene el significado de "estribillo"
	r2 r4 e
	a2. g4
	r8 e4 f16 f g4 f8 f ~
	f8 a4 \ss gis8 a4 e8[ a]
	c4 b8 g g d f4
	e8 a g4 g8[ e] g4 % este ultimo sol es disonante ¿errata?
	f4. e8[ d c] d4
	e r8 g4 g8 e8.[ f16] \break 
	g[ a b c] d8 a a[ g16 f] e8 e ~
	e16[ f g a] b8[ g] c4. b8
	a8[ g] a4 \ss gis\breve*1/4 % CSIC: blanca con calderón
}

tenor=\relative c'{
	r4 b8 b c4 b
	c4 d c8[ b16 a] b4
	c2 r4 c ~
	c4 d e d
	c b a8[ b] c4 ~
	c4 b c2
	r4 e d e
	c4 b8 b a8[ g a b]
	c2. b4
	r4 d2 c4
	d8[ c] b4 a4. g8
	a8[ b c d] e4 c
	f4. e8 d2 ~
	d4 c b b8[ g] 
	a8[ b16 c] d8[ c] b8 a b4
	a\breve*1/2
	r4 b c4. b8
	a8[ b c d] e2
	r8 c4 b16 a g[ a b c] d8 d ~
	d c b4 c2
	r4 r8 g8 b b d4c4 e d8 c4 b8
	a[ b] c4. b16[ a] b4
	c4 r8 e4 d8 c c
	b4 a8 a a16[ b c d] e8 c
	e8[ d16 c] b8 \parenthesize b a16[ b c d] e4 ~ % sol en el manuscrito
	e8 e d4 e\breve*1/4
}

bassus=\relative c{
	r4 e8 e a4 \ss gis
	a4 d, e2
	a,2 r4 a' ~
	a4 b c g
	a e f4. e8
	d2 c
	r4 c g' e
	a4 e8 e f2 ~
	f
	g r4 g2 a4
	d, e f4. e8
	f8[ g a b] c4 a
	bes2. bes4
	a2 g
	f4 d e2
	a,\breve*1/2
	r4 e' a4. g8
	f2 e
	r8 c4 d16 d e4 d8 d ~
	d a e'4 a,2
	r8 a e' e g4 d8 d
	a'8 a c4 g8 a4 e8
	f4 c g'2
	c,4 r8 c4 g8 a16[ b c d]
	e[ f g8] d8 f8. e16 d8 c c ~
	c16[ d e f] g8 e a4. g8
	f2 e\breve*1/4
}

textoaltus=\lyricmode{
Co -- mo sue -- le~el blan -- co cis -- _ _ ne
vién -- do -- se~al fin de sus dí -- as
can -- tan -- do~a -- le -- gres can -- cio -- _ _ _ _ _ _ _ nes
des -- pe -- dir -- se de la vi -- _ _ da,
des -- _ pe -- dir -- _ _ se de _ la __ _ _ _ vi -- _ _ da.
¡Ay dul -- ce 
ay dul -- ce vi -- da mí -- _ _ a!
Re -- _ ci -- be,
re -- ci -- be~el al -- ma que~a sa -- lir _ por -- fí -- _ _ _ _ a
que~a sa -- lir __ _ _ _ _ _ _ por -- fí -- _ _ a, 
\italicas que~a __ _ _ _ \rectas  % CSIC: no hay texto
sa -- _ lir __ _ por -- _ fí -- a.
}

textotenor=\lyricmode{
Co -- mo sue -- le~el blan -- co cis -- _ _ _ ne
vién -- do -- se~al fin de sus dí -- _ _ _ as
can -- tan -- do~a -- le -- gres can -- cio -- _ _ _ _ nes
des -- pe -- dir -- _ se de la vi -- _ _ _ _ _ _ _ _ da,
des -- pe -- _ dir -- _ _ se _ de la vi -- da.
¡Ay dul -- ce vi -- _ _ _ da
ay dul -- ce vi -- _ _ _ da, 
\italicas vi -- da \rectas mí -- a!
Re -- ci -- be~el al -- ma que~a sa -- lir por -- fí -- _ _ _ _ _ a
re -- ci -- be~el al -- ma 
que~a sa -- lir __ _ _ _ _ por -- fí -- _ _ a,
sa -- lir __ _ _ _ _ por -- fí -- a.
}

textobassus=\lyricmode{
Co -- mo sue -- le~el blan -- co cis -- ne
vién -- do -- se~al fin de sus dí -- _ _ as
can -- tan -- do~a -- le -- gres can -- cio -- nes
des -- pe -- dir -- se de la vi -- _ _ _ _ da,
des -- pe -- dir -- se de la vi -- da.
¡Ay dul -- ce vi -- da
ay dul -- ce vi -- da,
\italicas vi -- da \rectas
mí -- a!
Re -- ci -- be~el al -- ma,
re -- ci -- be~el al -- ma que~a sa -- lir por -- fí -- a
que~a sa -- lir __ _ _ _ _ _ _ por -- fí -- a,
que~a sa -- lir __ _ _ _ _ por -- fí -- _ _ a.
}


incipitaltus=\markup{
	\score{
		{ 
		\set Staff.instrumentName="Altus   "
		\override NoteHead.style = #'neomensural 
		\override Staff.TimeSignature.style = #'neomensural
		\cadenzaOn 
		\clef "petrucci-c1"
		\key c \major
		\time 2/2
		e'4*2
		} 
	\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 c \major
		\time 2/2
		b4*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-f3"
		\key c \major
		\time 2/2
		e4*2
		} 
	\layout { line-width=\incipitwidth indent = 0 }
	}
}


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

	\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 = #'(tieMelismaBusy)
		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 }

}


\markup{
%tablet \null \vspace #6
%tablet \fontsize #-1.5
\line{
\column{ 
"Como suele el blanco zisne,"
"viéndose al fin de sus días,"
"cantando alegres canciones,"
"despedirse de la vida,"
"assí estando ya a la muerte,"
"quando más su amor ardía,"
"Ignacio alegre cantava"
"y a Jesús assí decía:"
\italic "¡Ay dulce vida mía!"
\italic \smaller "Recive el alma que a salir porfía."
}
\hspace #3
\column{
"Arde mi encendido pecho,"
"fuego del amor respira,"
"las memorias de mi gratia"
"son las alas que le animan."
"En llamas se vuelve el alma;"
"como las llamas, arriva"
"suba el fuego y a su esphera"
"salga de entre sus cenizas."
\italic "¡Ay dulce vida mía!"
\italic \smaller "Recive el alma que a salir porfía."
}
\hspace #3
\column{
"Ayre respirava un tiempo,"
"quando los vientos bebía,"
"que si se sustenta de ayre,"
"ayre el corazón respira."
"Convirtiósse el ayre en fuego,"
"metamorphosi divina;"
"ya queda el cuerpo abrasado,"
"no esté el alma detenida."
\italic "¡Ay dulce vida mía!"
\italic \smaller "Recive el alma que a salir porfía."
}
\hspace #3
\column{
"Ya comuniqué mis rasgos,"
"ya mi nueva compañía,"
"hechura de otras manos,"
"por todo al mundo estendida."
"Vos soys el capitán della,"
"no se pierda la conquista,"
"que el valor de los soldados"
"es del capitán la estima."
\italic "¡Ay dulce vida mía!"
\italic \smaller "Recive el alma que a salir porfía."
% en el último estribillo en CSIC no hay "mía"
}
        }
}
\markup{"  "}



\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.0\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))

}