\version "2.18.0"

#(set-default-paper-size "a4")
#(set-global-staff-size 16.9)
#(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
mt=#(define-music-function (parser location offset) (number?) ; move lyric text
      #{ \once \override LyricText.X-offset = -$offset #})


htitle="Oh grief"
hcomposer="Bennet"

\header {
	title=\markup{\fontsize #4 "15. Oh grief"}
	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 ees \major \time 2/2
        \skip 1*85 \bar "|."
}


cantus=\relative c''{
	R1*5
	r2 g ~
	g c ~
	c r4 bes
	c d ees2 ~
	ees4 d c bes
	aes2 g
	r4 c aes aes
	g g f g
	ees ees ees4. f8
	g8[ aes bes c] d4 d
	ees2 r
	r4 ees, bes' bes
	bes8[ c d ees] f[ ees d c]
	bes2 
	%\bar ";" \break %notablet
	g
	%\once \override Score.BarNumber.break-visibility=#all-visible %notablet
	g2. g4
	g g g2 ~
	g d
	r4 d'4. d8 g,4
	b4 c2 d4 ~
	d g,4. g8 d4
	e4. f8 g2
	r2 g
	ees'1 ~
	ees2 d
	c1
	c
	bes ~
	bes
	g
	r2 g ~
	g4 g b2
	c2. c4
	g2 ees' ~
	ees4 ees c2
	c2. bes4
	aes g aes2
	bes1
	ees,
	r2 ees'4. ees8
	c4 c ees2
	aes,2 c4. c8
	aes4 aes c2 ~
	c g ~
	g f
	g g
	e1
	\break
	r4 e2 fis4 ~
	fis g2 a4 ~
	a d,2 r4
	r2 g ~
	g b
	c d
	\[g,1^\markup{\smaller \smaller \musicglyph #"noteheads.sM3blackligmensural" } ~ 
	%\bar ";" \break %notablet
	g2 g^\markup{\musicglyph #"noteheads.s2petrucci" }\]
	%\once \override Score.BarNumber.break-visibility = #all-visible %notablet
	\[fis1^\markup{\smaller \smaller \musicglyph #"noteheads.sM3blackligmensural" } ~
	fis2 fis^\markup{\musicglyph #"noteheads.s2petrucci" }\]
	g2 ees
	aes1
	g2 ees'2 ~
	ees des
	c bes ~
	bes4 aes aes2 ~
	aes g
	aes1
	r2 aes2 ~
	aes4 aes f2
	aes2. g4 
	f ees f2
	e2 g
	g g
	c1
	b
	r2 d2 ~
	d4 d d2
	ees1
	c2 bes ~
	bes aes
	g1 ~
	g
	g\breve*1/2
}

altus=\relative c'{
	R1*5
	d1
	ees2 r4 c
	ees f g2
	f ees4. f8
	g4 f4. ees8 ees4 ~
	ees d ees2
	c4 c4. d8 ees4 ~
	ees ees r bes'
	g4 g c,8 d ees4 ~
	ees8[ f g aes] bes4. aes8
	g8[ f] ees4 r4 bes'
	bes4. aes8[ g f] g4
	f1
	r2 d
	ees2. d4
	g,4 g d'2
	b2 r4 d ~
	d8 d g,4 b4. c8
	d4 e g f ~
	f ees d2
	c4. d8 ees4 d ~
	d8[ c bes aes] g4 c
	bes2 r
	ees1
	aes ~
	aes2 g
	f ees ~
	ees d
	ees bes
	ees2. ees4
	d2 g ~
	g4 g g2
	r2 ees ~
	ees4 ees ees2
	aes2. g4
	f2. ees4
	des c bes2
	c1
	c'4. c8 bes4 bes
	aes2 g
	f4. f8 g4 g
	f2 e4 f
	g2 c,
	b c ~
	c4 c b2
	c1
	r2 c
	d c ~
	c4 bes a2
	b2. c4
	d2 d4 g ~
	g c, f2
	\[e1 ~
	e2 \ss ees\]
	\[d1 ~
	d2 d\]
	d c
	ees1
	ees2 g
	aes aes ~
	aes4 g f2
	ees1 ~
	ees
	c2 ees ~
	ees4 ees f2
	ees2 des
	c4 c c2 ~
	c2 bes
	c1
	r4 d ees2
	c2. d4
	ees2 d
	g2. g4
	g2 bes ~
	bes ees,
	f4 f g2 ~
	g f ~
	f ees
	d1
	e\breve*1/2
}

tenor=\relative c'{
	d1
	ees2 r4 c
	ees f g2
	f ees ~
	ees4 d c2 ~
	c b
	c c
	aes r4 g
	aes bes c2 ~
	c4 f, aes g
	f2 ees
	aes4 aes8 g f4 ees8[ f]
	g8[ aes bes c] d4 d
	c2 r
	r4 bes bes f
	g8 aes[ bes c] d[ ees] f4
	g4. f8[ ees d] ees4
	d8[ c bes c] d[ c bes aes]
	g2 b
	c2. d4
	ees4 d b2
	g4 d'4. d8 g,4
	b4. c8 d4 ees
	d c4. c8 a4
	b4 c b2
	r4 c4. c8 bes4
	ees4 d8[ c] bes4. aes8
	g2. f4
	g aes bes2
	ees,2 ees
	aes1 ~
	aes2 g
	f4 ees f2
	ees2 g ~
	g4 g c2
	b d
	c ees ~
	ees4 ees c2
	c2. bes4
	aes g aes bes
	c2 f,4 aes ~
	aes g8[ f] g2
	aes2 ees'4. ees8
	c4 c ees2
	ees r
	c4. c8 c4 c
	c2. d4
	ees2 ees
	d c
	d g,
	g1
	R1
	d2 e
	fis4 g2 fis4
	g2. \ss a4
	b4. c8 d2
	g,4 \ss a2 b4 % Hopkins aes
	\[c1 ~
	c2 c\]
	\[a1 ~
	a2 a\]
	g2 g
	c1
	bes
	r2 f'
	ees des ~
	des4 \ss des c2
	bes1
	aes2 c ~
	c4 c des2
	c bes
	aes ees
	f1
	g2 ees'
	d g, ~
	g f
	g g ~
	g4 g g2
	bes1
	bes2 c ~
	c d
	c1
	b2 c ~
	c b
	c\breve*1/2
}

bassus=\relative c'{
	r2 g ~
	g aes ~
	aes r4 ees
	aes4 bes c2 ~
	c4 bes aes g
	f2 g
	c,1
	R1*3
	r2 r4 c
	aes aes aes8 bes c8[ d]
	ees8[ f g aes] bes4 g
	c4 c, c8[ bes c d]
	ees4 ees bes bes
	ees8 f[ g aes] bes[ c] d4
	ees2 r4 ees,
	bes'2 bes,
	ees2 g
	c,2. b4
	c b g2 ~
	g g ~
	g2 r4 g' ~
	g8 g c,4 e4 f
	g1
	r2 g, ~
	g ees'2 ~
	ees d
	c2 bes
	aes1 ~
	aes
	bes ~
	bes
	r2 ees2 ~
	ees4 ees c2
	g'2. g4
	c,2 c' ~
	c4 c c2
	aes2. g4
	f e f2 ~
	f4 ees des c 
	bes aes bes2
	aes1
	aes'4. aes8 g4 g
	aes2 ees
	f4. f8 e4 e
	f2 c ~
	c4 d ees f
	g2 aes
	g1
	c,
	r2 a
	b c
	d1
	g,
	r2 g'
	e4 f d2
	\[c1 ~
	c2 c\]
	\[d1 ~
	d2 d\]
	b2 c
	aes1
	ees'1
	f2. g4
	aes2 des,4 des
	ees1 ~
	ees
	aes,2 aes' ~
	aes4 aes f2
	aes des,
	f2 c des1
	c2. c4
	b2 c
	aes1
	g ~
	g
	g'2. g4
	g2 aes ~
	aes g
	e f
	g1 ~
	g
	c,\breve*1/2
}

textocantus=\lyricmode{
Oh grief % O griefe
where shall poor grief find pa -- tient hear -- ing % poore
foot -- steps of men I fly, % flie
foot -- steps of men I fly, __ _ I fly
I fly, I fly, __ _ _ 
my paths each crea -- ture balk -- ing % pathes
wild and un -- haunt -- ed \mt #2 woods,
\italicas wild and un -- haunt -- ed woods \rectas
seem ti -- red with my walk -- ing.
Earth with my tears are drunk, % teares are drunke
air with my sighs tor -- _ _ _ ment -- ed % aire  sighes
hea -- vens with my cry -- ing,
\italicas hea -- vens with my cry -- ing \rectas
grown deaf, % growne deafe
grown deaf
and dis -- con -- tent -- ed
\italicas and dis -- con -- tent -- ed. \rectas
In -- fer -- nal cares af -- fright -- ed, % infernall
with my dole -- ful ac -- cent -- _ ing
on -- ly my love loves my la -- ment -- ing, % onely  lov's
loves my la -- ment -- ing
on -- ly my love loves my la -- ment -- ing.
}

textoaltus=\lyricmode{
Oh grief 
where shall poor grief
find pa -- tient hear -- _ _ _ _ ing,
find pa -- tient hear -- ing
foot -- steps of \mt #2.5 men I fly __ _ _ _ _ 
I fly, I __ _ fly
my paths each crea -- ture balk -- ing
wild and un -- haunt -- ed woods,
un -- haunt -- _ ed woods,
\italicas wild and un -- haunt -- _ ed \rectas woods
seem ti -- red with my __ _ walk -- ing.
Earth with my tears are drunk
air with my sighs tor -- ment -- _ _ _ _ ed,
hea -- vens with my cry -- ing,
\italicas hea -- vens with my cry -- ing \rectas
grown deaf,
with my cry -- ing grown deaf
and dis -- con -- _ _ \italicas \mt #1 tent -- _ \rectas ed, % con -- ten -- _ _ _ ed
\italicas and dis -- con -- tent -- ed. \rectas
In -- fer -- nal cares af -- fright -- ed,
with my dole -- ful ac -- cent -- ing, % full
on -- ly my love loves my la -- ment -- _ ing
loves my la -- _ ment -- ing,
on -- ly my love loves my la -- ment -- ing,
la -- ment -- ing.
}

textotenor=\lyricmode{
Oh grief
where shall poor grief find pa -- tient hear -- _ ing,
\italicas
oh grief where shall poor grief
find pa -- tient hear -- ing,
\rectas
foot -- steps of men I __ \italicas fly, __ _ \rectas % I fly _
I fly
foot -- steps of \mt #2.5 men I __ _ _ fly,
I __ _ fly, __ _ _ 
my paths each crea -- ture balk -- ing,
wild and un -- haunt -- _ _ ed woods,
\italicas wild and un -- haunt -- ed woods \rectas
wild and un -- haunt -- _ _ _ _ _ _ _ \italicas ed \rectas woods, % haunt -- ed __ _ _ _ _ _ ...
seem ti -- red
with my walk -- ing.
Earth with my tears are drunk,
air with my sighs tor -- ment -- _ _ _ _ _ _ _ _ ed,
hea -- vens with my cry -- ing
\italicas hea -- vens with my cry -- ing, \rectas
with my cry -- ing grown __ _ deaf
and dis -- con -- tent -- _ ed,
\italicas and \mt #1 dis -- _ _ con -- tent -- _ ed. \rectas
In -- fer -- nal cares af -- fright -- ed
with my dole -- ful ac -- cent -- ing,
on -- ly my love loves my la -- ment -- ing,
loves my la -- ment -- ing,
\italicas on -- ly my love loves my la -- ment -- ing, \rectas
la -- ment -- ing.
}

textobassus=\lyricmode{
Oh grief
where shall poor grief find pa -- tient hear -- _ ing
foot -- steps of men I fly, __ _ _ 
I fly,
I fly, __ _ 
foot -- steps of \mt #2.5 men I __ _ _ fly
I fly, \italicas I fly, \rectas
my paths each crea -- ture balk -- ing
wild and un -- haunt -- ed woods
seem ti -- red with my walk -- ing.
Earth with my tears are drunk,
air with my sighs tor -- ment -- _ _ _ _ _ _ _ _ ed,
hea -- vens with my cry -- ing,
\italicas hea -- vens with my cry -- ing, \rectas
\mt #1.5 with __ _ my cry -- ing grown deaf
and dis -- con -- tent -- ed
\italicas and dis -- con -- tent -- ed. \rectas
In -- fer -- nal cares af -- fright -- ed,
with my dole -- ful ac -- cent -- ing,
on -- ly my love loves my la -- ment -- ing,
loves my la -- ment -- ing,
on -- ly my love loves my la -- ment -- ing.
}


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

	\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-c2"
		\key f \major
		\time 2/2
                e'1
		} 
	\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 f \major
		\time 2/2
                e'1
		} 
	\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 f \major
		\time 2/2
                a1
		} 
	\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' b{
\new ChoirStaff<<

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

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

	\new Staff <<\global
	\new Voice="v4" {
		\set Staff.instrumentName=\incipitbassus
		%\set Staff.instrumentName="Bass "
		\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.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.5\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
}