\version "2.18.0"

#(set-default-paper-size "a4")
#(set-global-staff-size 16.8)
#(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="Weep silly soul disdained"
hcomposer="Bennet"

\header {
	title=\markup{\fontsize #4 "2. Weep silly soul disdained"}
	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 bes \major \time 2/2
        \skip 1*9 \bar ".|:" \break
        \skip 1*30 \bar ":|."
}


cantus=\relative c''{
	R1
	c1 ~
	c
	r4 f e4. e8
	f4 f, c'2
	a4 a g2
	f4 f' d4. d8 
	c4 c c2
	c r4 c
	c c f2
	r4 f, f f 
	bes2. g4 ~
	g c2 b4
	c4 ees d2
	e2 r4 c ~
	c f2 e4
	f4 f,8[ g a bes] g4
	f2 r4 c'
	a4. bes8 c2
	f,4 f'2 e4
	f2 r4 c ~
	c bes4. bes8 a a
	g2. f4 ~
	f f'2 ees4 ~
	ees8 ees d d c4 c
	c2 bes4. bes8
	a8 a g2 f4 ~
	f ees8 f g4 d
	r4 f'2 ees4 ~
	ees8 ees d d c2
	c4 c2 bes4 ~
	bes8 bes a a g2 ~
	g4 f r f' ~
	f4 ees4. ees8 d d
	c2 c
	r2 f,4 bes ~
	bes8 bes a a g4 f
	e f c'2
	\override Score.TextScript.X-offset = #0
	\textLengthOff
	c\breve*1/4 % c1
	s4*0^\markup{\smaller "sigue cantus 2"}
	
}

altus=\relative c''{
	a1
	R1
	r4 f' e4. e8
	f4 f, c'2
	a4 a g2
	f4 f' e4. e8
	f4 c bes4. a8
	g4 f g2
	a1
	r4 c c c
	d2 r4 f
	f f bes,2
	ees2 d
	e4 c2 b4
	c2 g
	r2 r4 c
	a4. bes8 c2
	f,4 f'2 e4
	f2 r4 c
	a4. bes8 c2
	f,4 f'2 e4
	f2 r4 f ~
	f ees4. ees8 d d
	c4 c r c ~
	c bes4. bes8 a a
	g4 g r f' ~
	f ees4. ees8 d d
	c4. d8 ees4 d4 ~ % segunda vez sin bemol
	d c bes2 ~
	bes4 f8[ g] a4 a
	g2 f
	r4 f'2 ees4 ~
	ees8 ees d d c2
	bes2 c4 bes ~
	bes8 bes a a g4 f
	f'4. ees8 d8[ c] d4
	c2 c4 bes ~
	bes8 bes a a g2
	\textLengthOff
	a\breve*1/4 % c2
	s4*0^\markup{\smaller "sigue cantus 1"}
	\parenthesize r4 \parenthesize c
}

tenor=\relative c'{
	f1
	r4 a g4. g8
	a4 a g2
	f r4 g
	c2 c,
	c' r4 g
	a4. a8 g4 f
	e4 f2 e4
	f1
	r4 a a a
	bes2 r4 d
	d d g,2
	r4 ees g2
	g4 c, g'2
	c,4 c e4. e8
	f4 a g2
	f r4 c'
	a4. bes8 c4 c, ~
	c f2 e4
	f2 r4 g
	a8^\markup{\fontsize #-3 \note-by-number #2 #1 #1 } \parenthesize g \parenthesize a bes c2 % la segunda vez es a4. bes8
	f,2 r
	r4 c'2 bes4 ~
	bes8 bes a a g2 ~
	g4 f f2
	c g'4 f
	c'2 bes4. bes8
	a8 a g4. a8 bes4
	f2 r4 g ~
	g d8 ees f c f4 ~ % segunda vez sin bemol
	f4 e f2
	r2 r4 c' ~
	c bes4. bes8 a a
	g2 c,4 f 
	e8 d e[ f] g4 a ~
	a8[ g] a4 bes4. a8
	g4 f e f
	g4 f2 e4
	f\breve*1/2
}

bassus=\relative c{
	f1
	r4 f' e4. e8 
	f4 f, c'2
	a4 d c2
	f,4 f' e4. e8
	f4 f, c'2
	a bes
	c1
	f,
	r4 f' f f 
	bes,2 r4 bes
	bes bes ees2
	c2 g
	c r
	r2 r4 c
	a4. bes8 c2
	f,4 f'2 e4
	f4 d c2
	f,4. g8[ a bes] c4
	d2 c
	r2 c
	d4. ees8 f4 f,
	c'2 g4 bes
	f8 g a f c'4. bes8
	g8[ a] bes4 f f' ~
	f ees4. ees8 d d
	c4. d8 ees4 bes
	r4 c2 bes4 ~
	bes8 bes a a g4. a8
	bes2 f
	r4 c' d8 c d ees % segunda vez sin bemol
	f2 c4. bes8
	g8[ a] bes4 f2
	g2 a4 bes
	c4. d8 e4 f ~
	f8[ ees d c] bes[ a g f]
	e4 f c' d
	c1
	f,\breve*1/2
}

textocantus=\lyricmode{
Weep __ % weepe
weep sil -- ly soul dis -- dain -- ed,
dis -- dain -- ed,
\italicas weep sil -- ly soul dis -- dain -- ed \rectas
thy hap -- less hap % les
\italicas thy hap -- less hap \rectas
la -- ment -- _ ing,
la -- ment -- ing
thy hap -- less hap 
la -- ment -- ing
that love \mt #4.3 whose \mt #0 pas -- sion pain -- _ ed
raught ne -- ver thy con -- tent -- ing,
\italicas raught ne -- ver thy con -- tent -- ing, \rectas
raught ne -- ver thy con -- tent -- ing,
thy con -- tent -- ing
\italicas raught ne -- ver thy con -- tent -- ing, \rectas
raught ne -- ver thy con -- tent -- ing
\italicas raught ne -- ver thy con -- tent -- ing \rectas
raught ne -- ver thy con -- tent -- ing,
thy con -- tent -- ing.
}
textocantusb=\lyricmode{
_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ 
since thou art
\italicas and since thou art \rectas
dis -- dain -- _ ed,
dis -- dain -- ed
and since thou art dis -- dain -- ed
by them \mt #3 thou \mt #0 most af -- fect -- _ ed
let them be now re -- ject -- ed,
\italicas let them be now re -- ject -- ed, \rectas
let them be now re -- ject -- ed,
now re -- ject -- ed
\italicas let them be now re -- ject -- ed, \rectas
let them be now re -- ject -- ed
\italicas let them be now re -- ject -- ed \rectas
let them be now re -- ject -- ed,
now re -- ject -- ed.
}

textoaltus=\lyricmode{
Weep
weep sil -- ly soul dis -- dain -- ed, % soule
dis -- dain -- ed,
\italicas weep sil -- ly soul,
weep sil -- ly soul \rectas
dis -- dain -- ed
thy hap -- less hap
\italicas thy hap -- less hap \rectas
la -- ment -- ing,
la -- _ ment -- ing
that love \mt #4 whose \mt #0 pas -- sion pain -- _ ed
\italicas that love whose pas -- sion pain -- _ ed \rectas
raught ne -- ver thy con -- tent -- ing
\italicas raught ne -- ver thy con -- tent -- ing \rectas
raught ne -- ver thy con -- tent -- _ _ _ _ ing,
thy __ _ con -- tent -- ing
\italicas raught ne -- ver thy con -- tent -- ing, \rectas
raught ne -- ver thy con -- tent -- ing,
thy con -- tent -- _ ing,
raught \italicas ne -- ver thy con -- tent -- ing. \rectas
And
}
textoaltusb=\lyricmode{
_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ 
And since thou art 
\italicas and since thou art \rectas
dis -- dain -- ed,
dis -- _ dain -- ed
by them \mt #3 thou \mt #0 most af -- fect -- _ ed
\italicas by them thou most af -- fect -- _ ed \rectas
let them be now re -- ject -- ed % iect
\italicas let them be now re -- ject -- ed \rectas
let them be now re -- ject -- _ _ _ _ ed,
now __ _ re -- ject -- ed
\italicas let them be now re -- ject -- ed, \rectas
let them be now re -- ject -- ed,
now re -- ject -- _ ed,
let them be now re -- ject -- ed.
}

textotenor=\lyricmode{
Weep
weep sil -- ly soul dis -- dain -- ed
dis -- dain -- ed,
weep
weep sil -- ly soul dis -- \italicas dain -- _ _ \rectas ed % _ dain
thy hap -- less hap
\italicas thy hap -- less hap \rectas
la -- ment -- ing,
\italicas la -- ment -- ing, \rectas
thy hap -- less hap la -- ment -- ing
that love whose pas -- sion pain -- _ ed
raught ne -- ver thy con -- tent -- ing
\italicas raught ne -- ver thy con -- tent -- ing, \rectas
thy con -- tent -- ing,
raught ne -- ver thy con -- tent -- _ _ ing
\italicas raught ne -- ver thy con -- tent -- _ ing \rectas
raught ne -- ver thy con -- tent -- ing,
raught ne -- ver thy __ _ con -- _ tent -- _ _ _ _ _ _ _ _ ing.
}
textotenorb=\lyricmode{
_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ 
And since thou art
\italicas and since thou art \rectas
dis -- dain -- ed,
\italicas dis -- dain -- ed, \rectas
and since thou art dis -- dain -- ed
by them thou most af -- fect -- _ ed
thou \italicas most __ _ _ af -- fect -- ed \rectas
let them be now re -- ject -- ed,
now re -- ject -- ed,
\italicas let them be now re -- ject -- _ _ ed \rectas
let them be now re -- ject -- _ ed
\italicas let them be now re -- ject -- ed, \rectas
let them be
\italicas now __ _ re -- _ % _ now re -- _
\rectas ject -- _ _ _ _ _ _ _ _ ed.
}

textobassus=\lyricmode{
Weep
weep sil -- ly soul dis -- dain -- ed,
dis -- dain -- ed,
\italicas weep sil -- ly soul dis -- dain -- ed,
dis -- dain -- ed \rectas % no hay ij
thy hap -- less hap
\italicas thy hap -- less hap \rectas
la -- ment -- ing
that love whose pas -- sion pain -- _ _ _ ed,
pain -- _ _ _ ed
\italicas that love whose pas -- sion pain -- ed, \rectas
raught ne -- ver thy con -- tent -- _ _ _ ing,
\italicas raught ne -- ver thy con -- tent -- _ _  ing \rectas
raught ne -- ver thy con -- tent -- _ _ ing
\italicas raught ne -- ver thy con -- tent -- ing, \rectas
con -- tent -- _ ing,
raught ne -- ver thy con -- tent -- _ _ _ ing,
thy con -- tent -- ing.
}
textobassusb=\lyricmode{
_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ 
And since thou art
\italicas and since thou art dis -- dain -- ed \rectas
by them thou most af -- fect -- _ _ _ ed,
af -- _ _ fect -- ed
\italicas by them thou most af -- fect -- ed,
let them be now re -- ject -- _ _ _ ed, \rectas % af -- fect -- ... ed
let them be now re -- ject -- _ _ ed
\italicas let them be now re -- ject -- _ _ ed \rectas
let them be now re -- ject -- ed,
re -- ject -- _ ed,
let them be now re -- ject -- _ _ _ ed,
now re -- ject -- ed.
}


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

	\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 c \major
		\time 2/2
                b'1
		} 
	\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 c \major
		\time 2/2
                g'1
		} 
	\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 c \major
		\time 2/2
                g1
		} 
	\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 Lyrics \lyricsto "v1" {\textocantusb }
	>>

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

	\new Staff <<\global
	\new Voice="v4" {
		\set Staff.instrumentName=\incipitbassus
		%\set Staff.instrumentName="Alto      "
		\clef "G_8"
		\bassus }
	\new Lyrics \lyricsto "v4" {\textobassus }
	\new Lyrics \lyricsto "v4" {\textobassusb }
	>>
	
>>

	} % 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 . 15) (minimum-distance . 0) (padding . 0))
	markup-system-spacing.padding = #1.5
}