\version "2.18.0"

#(set-default-paper-size "a4")
#(set-global-staff-size 16.6)
#(ly:set-option 'point-and-click #f)
%mobile -s15.5 -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


htitle="When as I glance"
hcomposer="Bennet"

\header {
	title=\markup{\fontsize #4 "10. When as I glance"}
	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
        \bar ".|:"
        \skip 1*13
        \bar ":|."
        %tablet \break
        \skip 1*17 \bar ".|:"
        %tablet \break
        \skip 1*8 \bar ":|."
}


cantus=\relative c''{
	R1*4
	b4 b8 cis d4 b
	a8[ g] fis[ e] dis4 e
	fis4 g8 a b2
	b b
	d2. e4
	d d d2
	d c
	\once \override Score.TextScript.X-offset = #6
	s4*0^\markup{\smaller "repite cantus 2"}
        b1
	b1
        s4*0^\markup{"Cantus 1"}
        r2 b ~
	b a
	g2 fis
	e1
	r2 e' ~
	e d ~
	d c 
	b1 ~
	b2 r4 b
	b4. b8 a4 g
	fis1
	fis
	r2 r4 b
	e4. e8 e4 d
	c4. c8 b4 b
	a1
	gis2 r4 b
	e,8 d e fis g2
	e r4 fis
	g8 fis g a b2
	b4 d d2
	d2. b4
	a4. g8 fis4 e
	dis e fis2
	\override Score.TextScript.X-offset = #1
	s4*0^\markup{\smaller "repite cantus 2"}
	gis\breve*1/4 % gis2
	\parenthesize r4 \parenthesize e
}

altus=\relative c''{
	r2 b4 b8 cis
	d4 b a b
	g4 a8 g fis4 e
	fis2 g4 e
	d g fis d'
	c8[ b] a[ g] fis4 e
	dis4 e e dis
	e2 g
	a2. a4
	a b a2
	b a ~
	s4*0^\markup{\smaller "repite cantus 1"}
        a4 g fis2
	gis1
        s4*0^\markup{"Cantus 2"}
	R1
	r2 e' ~
	e d ~
	d c
	b1
	r2 b ~
	b a ~
	a g
	fis r4 fis
	g4. g8 fis4 e ~
	e d cis2
	dis r
	r4 e b'4. b8
	b4 a g4. g8
	g4 fis g e ~
	e dis8[ cis] dis2
	e2 r4 e
	g8 fis g a b2
	b r4 b
	b8 a b cis d2
	d4 b a2
	b2. d4
	c4. \parenthesize c8 b4 a % primera vez b8, segunda vez c8
	b1
        s4*0^\markup{\smaller "repite cantus 1"}
        b\breve*1/4 \parenthesize r4 \parenthesize b
}

tenor=\relative c'{
	e4 e8 fis g4 e
	b' g fis b,
	e cis dis e
	e dis e4. \ss d16[ cis]
	b4 e d g
	e c' b a ~
	a g fis2
	gis2 e
	fis2. e4
	fis4 g2 fis4
	g2 e4 fis
	dis4 e2 dis4
	e1
        g1
        fis2 e
        b'2 b ~
        b a ~
        a g
        fis1
        e2 fis
        dis2 e % no claro
        dis2 r4 \ss d
        d4. d8 d4 b
        ais4 b2 ais4
        b2 r4 d
        g4. g8 g4 fis
        e4. e8 e4 g
        a2 d,4 b
        cis2 a
        b1
        r2 r4 e
        b8 a b cis dis2
        e2 r4 b % segunda vez errata en Hopkins fis2
        d8 cis d e fis2
        g2. g4
        e4. e8 dis4 e
        fis4 e2 dis4
        e\breve*1/2
}

bassus=\relative c{
	s4*0^\markup{\smaller "2ª vez"}
	\parenthesize e1\repeatTie
	R1*2
	r2 e4 e8 fis
	g4 e b' g
	a4 a8 a b4 c
	b1
	e,2 e'
	d2. cis4
	d b d2
	g,2 a
	b1
	e,\laissezVibrer
	e'1
	d2 c
	b2. b4 % H: b2. a4
	gis2 a
	e4. fis8 g4 a
	b2. a4
	gis2 a
	b1 ~
	b2 r4 b
	g4. g8 d4 e
	fis1
	b,2 r4 b'
	e4. e8 e4 d
	c4. c8 c4 b
	a2 g4 g
	fis1
	e
	r2 r4 e
	g8 fis g a b2
	e, r4 g
	b8 a b cis d2
	g,2. g4
	a4. a8 b4 c
	b1
	e,\breve*1/2
}

textocantus=\lyricmode{
When as I glance,
\italicas when as __ I __ glance \rectas
on my love -- ly Phil -- lis,
whose cheeks are deck'd with ro -- ses % deckt with Roses
and lil -- lies; % Lillies
I me com -- _ plain'd % d'
\italicas I me com -- plain'd \rectas
that she me nought re -- gard -- ed % shee
and that my love with en -- vy was re -- ward -- ed. % envie
Then wan -- ton -- ly she smi -- leth
\italicas then wan -- ton -- ly she smi -- leth, \rectas
she smi -- leth,
and grief from me, from me ex -- i -- leth. % griefe
Then
}

textoaltus=\lyricmode{
When as I glance,
\italicas when as I glance \rectas
on my love -- ly Phil -- lis,
when as I glance,
\italicas when as __ I __ glance \rectas
on my love -- ly Phil -- lis,
whose cheeks are deck'd with ro -- ses
and with lil -- lies;
I me com -- plain'd
\italicas I me com -- plain'd \rectas
that she me nought re -- _ gard -- ed
and that my love with en -- vy was re -- ward -- ed,
re -- ward -- ed.
Then wan -- ton -- ly she smi -- leth
\italicas then wan -- ton -- ly she smi -- leth, \rectas
she smi -- leth,
and grief from me ex -- i -- leth.
Then
}

textotenor=\lyricmode{
When as I glance,
\italicas when as I glance \rectas
on my (sweet) love -- ly Phil -- _ _ _ lis, % (swee)t
when as I glance on my love -- ly Phil -- lis, % glance,
whose cheeks are deck'd with ro -- ses,
with ro -- ses and lil -- lies;
I me com -- plain'd,
\italicas I me com -- plain'd, \rectas
I me com -- _ plain'd
that she me nought re -- \italicas gard -- _ _ \rectas ed % _ _ gard
and that my love with en -- vy was re -- ward -- ed,
re -- ward -- _ ed.
Then wan -- ton -- ly she smi -- leth
\italicas then wan -- ton -- ly she smi -- leth, \rectas
and grief from me ex -- i -- _ _ leth.
}

textobassus=\lyricmode{
_
When as I glance,
\italicas when as I glance \rectas
on my love -- ly Phil -- lis,
whose cheeks are deck'd with ro -- ses and lil -- lies;
I me com -- plain'd,
\italicas I me com -- plain'd,
I me com -- plain'd, \rectas
I me com -- plain'd
that she me nought re -- gard -- ed
and that my love with en -- vy was re -- ward -- ed,
re -- ward -- ed.
Then wan -- ton -- ly she smi -- leth
\italicas then wan -- ton -- ly she smi -- leth, \rectas
and grief from me ex -- i -- leth.
}


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''4
		} 

	\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-g"
		\key f \major
		\time 2/2
                d''4
		} 
	\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-c1"
		\key f \major
		\time 2/2
                g'4
		} 
	\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
                g4
		} 
	\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
		%\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 "treble"
		\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
}