\version "2.18.0"

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


htitle="Come shepherds follow me"
hcomposer="Bennet"

\header {
	title=\markup{\fontsize #4 "5. Come shepherds follow me"}
	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 a \major \time 2/2
        \skip 1*38
        \mtempoc
        \time 3/4 \skip 1*3/4*3
        \mtempo
        \time 2/2 \skip 1*16 \bar "|."
}


cantus=\relative c''{
	b2 e,4. fis8
	gis a b gis a b cis d
	e4 e, fis8[ gis a b]
	cis4. b8 a4 gis
	fis4 e fis2
	gis8[ fis gis a] b2
	cis2 r
	r4 a a8 b cis d
	e4 e, fis gis8 a
	b4 gis fis2
	gis r4 e
	b'2 r4 b
	b2 r4 b
	e4. d8 cis4 b
	a e r e
	a4. gis8 fis4 e 
	e b' cis4. b8
	a4 gis fis2
	gis b ~
	b a ~
	a gis
	fis b ~
	b b ~
	b4 a a2 ~
	a4 gis fis fis
	gis2 r
	r4 e a4. gis8
	a4 gis fis e
	dis e2 dis4
	e4. fis8 gis4 gis
	fis e e e'
	d4 cis2 b4 ~
	b8 a a2 gis4
	a2 a4 a8 b
	cis d e8[ d] cis[ b a b]
	cis8[ b a gis] fis[ gis a fis] 
	gis4 a2 gis4
	a1 \pageBreak
	\once \override TextScript.X-offset = #-3.2
	s4*0^\markup{"3"\hspace #1.2 \smaller \note-by-number #1 #0 #UP }
	cis4 e d
	cis2.
	b4 a fis
	\once \override TextScript.X-offset = #-3.4
	s4*0^\markup{\musicglyph #"timesig.mensural22"}
	gis4 e e'2
	cis4 a b2
	gis4 e a2
	fis4 b e2
	cis4 a d2
	cis4 b a2
	gis e
	e1 ~
	e
	e
	b'2. d4
	cis2 b ~
	b a ~
	a gis
	fis1
	gis\breve*1/2
}

altus=\relative c'{
	R1
	e2 a,4. b8
	cis8 d e cis d e fis gis
	a4 a,8 b cis d e cis
	dis4 e2 dis4
	e2 r4 e ~
	e a2 gis4
	fis4 fis e4. d8
	cis2 b4 b8 cis
	dis4 e2 dis4
	e1
	r4 gis fis2
	r4 fis gis4. fis8
	e8[ fis] gis4 a e
	a4. gis8 fis4 cis
	fis4. e8 d4 cis
	b2 e
	R1
	r2 b
	dis e
	fis e
	dis r4 fis
	gis4. fis8 gis2
	fis4 fis2 e4
	dis e e dis
	e2 e4 e ~
	e b cis2
	r2 r4 b
	b gis fis4. fis8
	gis8[ fis gis a] b4 b
	a2 r4 e'
	fis4 a2 gis4
	fis e e b
	cis8 d e d cis4 fis4
	e2 r4 e
	e4 cis d4 cis8[ d]
	e2 e
	e1
	e4 gis fis
	a2.
	gis4 fis dis
	e2 b4 b
	cis2 b4 e ~
	e cis a d ~
	d b2 e4
	a2 fis4 d
	e4 e2 dis4
	e4 b cis b
	a gis a b
	cis b a gis
	cis2 b
	e d4 fis ~
	fis e e2
	dis2 e
	fis e ~
	e dis
	e\breve*1/2
	
}

tenor=\relative c'{
	R1*4
	r2 b2
	e,4. fis8 gis a b gis
	a b cis d e4 e,
	fis8[ gis a b] cis4. b8
	a4 gis fis e
	fis4 gis8[ a] b2
	b1
	r4 e dis2
	r4 dis e4. \ss d8
	cis4 b a b
	cis2 a4 a
	d,4. e8 fis gis a4 ~
	a gis a4. gis8
	e8[ fis] gis[ a] b2
	b gis ~
	gis fis4 e
	dis2 e
	b'2 r4 b
	e4. dis8 e4 b
	d2. cis4
	b1
	e,4 b' cis4. b8
	cis4 b a4. b8
	cis4 b b gis
	fis e b'2
	b2 e,4 e'
	d4 cis2 b4
	a2 e'
	d4 cis b e
	e8 d cis b a8[ gis fis gis]
	a2 a
	r4 a b a
	b cis b2
	cis1
	cis4 b d
	e2.
	e4 cis b
	b2 gis
	a2 gis4 e
	e'2 cis4 a
	b4 gis2 a4 ~
	a fis b4. a8
	gis8[ a] b4 cis a
	b2 r4 gis
	cis4 b a gis
	a4 b cis b
	a a gis e
	gis2. fis4
	a2 gis
	fis e
	dis e
	b'1
	b\breve*1/2
}

bassus=\relative c{
	R1*5
	r2 e
	a,4. b8 cis d e cis
	d e fis gis a4 a,8 b
	cis d e cis dis4 e
	b1
	e
	r4 e b'2
	r4 b, e2
	r4 e a4. gis8
	fis4 cis d a
	R1
	r4 e' a,4. b8
	cis8 d e2 dis4
	e2 e
	b cis
	b1 ~
	b
	R1*3
	r4 e a4. gis8
	a4 gis fis4. e8
	cis8[ d] e4 dis e
	b2 b
	e2 r4 e
	fis4 a2 gis4
	fis fis e2
	fis4 a e2
	a r4 a
	a8 b cis d e8[ d cis b]
	a8[ gis fis e] d[ e] fis4
	e1
	a,
	a'4 e b'
	a2.
	e4 fis b,
	e1
	R1
	e4 a2 fis4
	d4 e2 cis4
	a4 d2 b4
	e4 gis fis2
	e r4 e
	a4 b cis b
	a gis a e
	cis a e'2 ~
	e b
	cis2 e
	b cis
	b1 ~
	b
	e\breve*1/2
}

textocantus=\lyricmode{
Come shep -- herds fol -- low me,
run up a -- pace the moun -- tain,
run __ up a -- pace the moun -- _ _ _ _ tain % mountaine
run \italicas up a -- pace the moun -- tain, \rectas
run up a -- pace the moun -- tain
see lo % loe
\italicas see lo \rectas
see lo be -- sides the foun -- tain % fountaine H: beside
\italicas see lo be -- sides, \rectas
be -- sides,
see lo be -- sides the foun -- tain,
love laid to rest:
How sweet -- ly,
sweet -- ly sleep -- eth he
\italicas how sweet -- ly, sweet -- ly sleep -- eth he,
sleep -- eth he, \rectas
how sweet -- ly sleep -- eth he.
Oh take heed come not nigh __ _ him, % heede come not nie
but \mt #3 haste \mt #0 % hast
we hence and fly __ _ _ _ _ _ _ him.
And lo -- vers dance,
\italicas and lo -- vers dance \rectas
with glad -- ness,
\italicas with glad -- ness, \rectas
with glad -- ness,
\italicas with glad -- ness, \rectas
with glad -- ness,
\italicas with glad -- ness, \rectas
for while love sleeps,
is truce with care and sad -- ness. % H: it's
}

textoaltus=\lyricmode{
Come shep -- herds fol -- low me,
run \mt #0 up a -- pace \mt #0.5 the moun -- tain,
run up a -- pace the \italicas moun -- \rectas _ _ tain
come shep -- herds,
shep -- herds fol -- low \italicas me,
run up a -- pace the moun -- tain \rectas
see lo be -- sides the foun -- _ tain,
see lo be -- sides,
see \italicas lo be -- sides the foun -- tain \rectas
love laid to rest,
to rest:
how sweet -- ly,
sweet -- ly sleep -- eth he,
\italicas how sweet -- ly, sweet -- ly sleep -- eth he \rectas
how sweet -- ly, sweet -- ly
sleep -- _ eth he.
Oh take heed come not nigh him,
but haste we hence and fly __ _ him
but haste we hence and __ _ fly him.
And lo -- vers dance,
\italicas and lo -- vers dance, \rectas
lo -- vers dance with glad -- ness,
\italicas with glad -- ness, \rectas
with glad -- ness,
\italicas with glad -- ness, \rectas
glad -- ness,
for while love sleeps,
\italicas for while love sleeps,
for while love sleeps, \rectas
is truce with care and sad -- _ _ _ _ _ ness.
}

textotenor=\lyricmode{
Come shep -- herds fol -- low me,
run up a -- pace the moun -- tain,
run __ up a -- pace the __ _ _ _ _ moun -- tain
see lo
see lo
be -- sides, be -- sides the foun -- tain,
\italicas see lo be -- sides the foun -- _ tain, \rectas
be -- sides the foun -- tain,
love laid to rest,
to rest:
how sweet -- ly, sweet -- ly sleep -- _ \italicas eth \rectas he, % eth _
\italicas how sweet -- ly, sweet -- ly, sleep -- _ _ eth he, \rectas 
how sweet -- ly sleep -- eth he.
Oh take heed, take heed
come not nigh him,
but haste we hence and fly __ _ him
\italicas but haste we hence and fly him. \rectas
And lo -- vers dance,
\italicas and lo -- vers dance \rectas
with glad -- ness,
\italicas with glad -- ness, \rectas
with glad -- _ ness,
with glad -- _ _ _ _ _ ness
for while love sleeps,
\italicas for while love sleeps,
for while love sleeps, \rectas
is truce with care,
is truce with care and sad -- ness.
}

textobassus=\lyricmode{
Come shep -- herds fol -- low me,
run up a -- pace \mt #0.5 the moun -- tain,
run up a -- pace the __ _ _
moun -- tain
see lo
\italicas see lo \rectas
see lo be -- sides the foun -- tain
\italicas see lo be -- sides \mt #0 the foun -- _ tain, \rectas
love laid to rest:
how sweet -- ly, sweet -- ly
sleep -- _ _ _ _ _ _ eth he.
Oh take heed come not nigh him,
come not nigh him % com
but haste we \mt #3 hence \mt #0 and fly __ _ _ _ _ him.
And lo -- vers dance,
\italicas and lo -- vers dance \rectas
with glad -- ness,
\italicas with glad -- ness, \rectas
with glad -- ness,
\italicas with glad -- _ ness \rectas
for while love sleeps, % sleepes
\italicas for while love sleeps, \rectas
for while love sleeps,
is truce with care and sad -- ness.
}


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

	\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 c \major
		\time 2/2
                g'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
                d'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-c4"
		\key c \major
		\time 2/2
                g2
		} 
	\layout { line-width=\incipitwidth indent = 0 }
	}
}

%\layout {
%       \context {\Voice
%               \remove Ligature_bracket_engraver
%               \consists Mensural_ligature_engraver
%       }
%       line-width=\incipitwidth
%       indent = 0
%}



\score {\transpose e d{
\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 "G_8"
		\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 . .5))
		\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.5) (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=11
	%page-count = 2
	ragged-last-bottom = ##f
	indent=3.2\cm
	system-system-spacing =
	#'((basic-distance . 18) (minimum-distance . 0) (padding . 5))
	top-system-spacing = % header
	#'((basic-distance . 9) (minimum-distance . 0) (padding . 0))
	last-bottom-spacing = % footer
	#'((basic-distance . 9) (minimum-distance . 0) (padding . 0))
	markup-system-spacing.padding = #1.5
}