\version "2.18.0"

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

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


htitle="Cruel unkind"
hcomposer="Bennet"

\header {
	title=\markup{\fontsize #4 "11. Cruel unkind"}
	subtitle="Madrigals to four voices"
	subsubtitle=\markup{\null \vspace #2 }
	composer="John Bennet (c.1575-c.1614)"
        pdfauthor=\composer
	%opus="(-)"
	poet=\markup{"London 1599"} % Madrigalls to foure voyces newly published by Iohn Bennet his first works (1599)
	copyright=\markup{
		\fill-line {"Transcribed and edited by Nancho Alvarez" \typewriter "http://tomasluisdevictoria.org"}
	}
%	tagline=""
}

global={\key d \major \time 2/2
        \skip 1*33 \bar "|."
}


cantus=\relative c''{
	R1
	r2 b
	e,4 g fis4. fis8
	g8 a b4. b8 ais4
	b1
	r4 cis d4. d8
	cis4 b a2
	gis r4 e
	g4. a8 b2
	r4 cis d4. d8
	cis4 b b2
	e,4 e' b d
	cis2 r4 b
	cis8 d e4. e8 dis4
	e2 r4 e,
	e8 fis g a b4 c
	b1
	b2 e4 d8 cis
	b2 d4 cis8 b
	a4 b cis4. d8
	e2 r4 b
	d1
	d4 d2 b4 ~
	b4 e2 cis4 ~
	cis a2 fis4 ~
	fis d d'4. d8
	cis4 b b2
	b r4 e ~
	e cis2 a4 ~
	a fis2 d'4 ~
	d b2 d4
	cis b b2
	b\breve*1/2
}

altus=\relative c'{
	e2 b4 d
	cis2 r4 b
	cis8 d e4. e8 dis4
	e4. b8 d e fis4
	g4 g2 fis4
	fis2 fis4. d8
	e8 fis g e fis2
	b,4 e g4. a8
	b2 r
	r b
	e,4 g fis2
	r4 e g8 a b4 ~
	b8 b ais4 b4. b8
	a4 g fis2
	e4 r e e8 fis
	g a b2 a8 g
	fis4 e2 dis4
	e1
	g4 fis8 e d2
	fis4 e8 d cis4 e
	g4. a8 b4 g
	fis4 b a2
	b r
	g e
	a fis
	d b4. b8
	cis4 e2 dis4
	e4 b'2 gis4 ~
	gis e2 cis4 ~
	cis a'2 fis4 ~
	fis d fis b
	a g fis2
	gis\breve*1/2
}

tenor=\relative c'{
	R1*4
	e2 b4 d
	cis2 r4 b
	cis8 d e4. e8 dis4
	e1
	r4 e, g8 a b4 ~
	b8 b ais4 b g
	a e b'2
	cis4. d8 e4 b
	fis'2 b,
	R1
	r4 e4 e8 fis g a
	b4 g2 fis8 e
	dis4 e fis2
	gis1
	r2 b4 a8 g
	fis4 g a2
	e b4 e
	d g2 fis4
	g2 r4 g ~
	g e2 a4 ~
	a fis2 d4
	fis2 r4 b
	a g fis2
	gis2 r
	e cis
	a' fis
	d b4. b8
	cis4 e2 dis4
	e\breve*1/2
}

bassus=\relative c'{
	R1*2
	r2 b
	e,4 g fis2
	r4 e g8 a b4 ~
	b8 b ais4 b4. b8
	a4 g fis2
	e1
	e'2 b4 d
	cis2 r4 b
	cis8 d e4. e8 dis4
	e2 r
	r4 fis,4 g4. g8
	fis4 e b'2
	cis4 a8[ b cis d] e4
	e,4 e8 fis g4 a
	b1
	e,
	e'4 d8 cis b2
	d4 cis8 b a2
	r4 e g4. a8
	b4 g d'2
	g, g
	e a
	fis d'
	b r4 g
	a e b'2
	e, e'
	cis a
	fis d'
	b r4 g
	a e b'2
	e,\breve*1/2
}

textocantus=\lyricmode{
Cru -- el un -- kind, % cruell
my heart thou hast be -- reft me
my heart thou hast be -- reft me % hart
cru -- el un -- kind
my heart thou hast be -- reft me,
\italicas cru -- el un -- kind
my heart thou hast be -- reft me \rectas
my heart, my heart thou hast be -- reft me.
And will not leave,
\italicas and will not leave \rectas
while a -- ny life is left me,
and yet, \italicas and yet, \rectas and yet, \italicas and yet \rectas
still will I love thee
and yet, \italicas and yet, \rectas and yet
still will I love thee.
}

textoaltus=\lyricmode{
Cru -- el un -- kind
my heart thou hast be -- reft me,
my heart thou hast,
thou hast be -- reft me,
\italicas my heart thou hast be -- reft me, \rectas
cru -- el un -- kind
cru -- el un -- kind
my heart thou hast be -- reft me,
thou hast be -- reft me
my heart thou hast be -- reft me,
thou hast be -- reft me. % thou=ý
And will not leave,
\italicas and will not leave \rectas
while a -- ny life is left,
is left me
and yet, and yet, and yet
still will I love thee,
and yet, \italicas and yet, \rectas
and yet, \italicas and yet \rectas
still will I love thee.
}

textotenor=\lyricmode{
Cru -- el un -- kind
my heart thou hast be -- reft me
my heart thou hast be -- reft me,
thou hast be -- reft me,
thou hast be -- reft me
my \mt #3.5 heart \mt #0.5 thou hast be -- reft,
my heart thou hast be -- reft me.
And will not leave while a -- ny life is left,
is left me
and yet, \italicas and yet, \rectas and yet
still will I love thee
and yet, \italicas and yet, \rectas and yet
still will I love thee.
}

textobassus=\lyricmode{
Cru -- el un -- kind
my heart thou hast be -- reft me,
thou hast be -- reft me,
\italicas cru -- el un -- kind
my heart thou hast be -- reft me \rectas
my heart thou hast be -- reft me,
my __ heart,
my heart thou hast be -- reft me.
And will not leave,
\italicas and will not leave \rectas
while a -- ny life is left me,
and yet, and yet, and yet
still will I love thee,
and yet, \italicas and yet, \rectas and yet
still will I love thee.
}


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

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

incipitaltus=\markup{
	\score{
		{ 
		\set Staff.instrumentName="Cantus 2 "
		\override NoteHead.style = #'neomensural 
		\override Staff.TimeSignature.style = #'neomensural
		\cadenzaOn 
		\clef "petrucci-c1"
		\key f \major
		\time 2/2
                g'2
		} 
	\layout { line-width=\incipitwidth indent = 0 }
	}
}


incipittenor=\markup{
	\score{
		{ 
		\set Staff.instrumentName="Altus     "
		\override NoteHead.style = #'neomensural 
		\override Staff.TimeSignature.style = #'neomensural
		\cadenzaOn 
		\clef "petrucci-c2"
		\key f \major
		\time 2/2
                g'2
		} 
	\layout { line-width=\incipitwidth indent=0 }
	}
}

incipitbassus=\markup{
	\score{
		{ 
		\set Staff.instrumentName="Tenor     "
		\override NoteHead.style = #'neomensural
		\override Staff.TimeSignature.style = #'neomensural
		\cadenzaOn 
		\clef "petrucci-c3"
		\key f \major
		\time 2/2
                d'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' bes{
\new ChoirStaff<<

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

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

	\new Staff <<\global
	\new Voice="v4" {
		\set Staff.instrumentName=\incipitbassus
		%\set Staff.instrumentName="Tenor     "
		\clef "G_8"
		\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.1
		\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=6
	%page-count = 2
	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
}