\version "2.18.0"

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

italicas=\override LyricText.font-shape = #'italic
rectas=\override LyricText.font-shape = #'upright
ss=\once \set suggestAccidentals = ##t
incipitwidth = 16

htitle="Vasilissa, ergo gaude"
hcomposer="Dufay"

% Siguiendo la versión de Huelgas Ensemble

\header {
	title=\markup{\fontsize #4 "Vasilissa, ergo gaude"}
	subtitle="motete isorrítmico"
	subsubtitle=" "
	composer="Guillaume Dufay (c.1400-1474)"
        pdfauthor=\composer
	%opus="(-)"
	poet="1420"
	copyright=\markup{
		\fill-line {"Edited by Nancho Alvarez" \typewriter "http://tomasluisdevictoria.org"}
	}
%	tagline=""
}

\score{\transpose a d'{
	
	\new Voice="canon" \relative c''<<
		{
		\set Staff.instrumentName=\markup{\column{"Triplum" "Motetus"}}
		\override LigatureBracket.padding = #1
		\time 3/4
		\key c \major
		\once \override TextScript.padding = #2
		\once \override TextScript.X-offset = #-4
		a2.^"Canon a dos voces"
		g2 f4
		e2. 
		d4.^\markup{\smaller \musicglyph #"scripts.segno"} e8 f g
		\[e4 c\] d
		a4 r r 
		a'2 a4
		\[g4 c\] b
		%tablet \break
		a8 g \[f4 e\]
		d4 r4 c
		b a8 a b8 c
		d4. \ss cis8 \ss cis![ b8]
		d4 a'2
		\[g4 a\] d,
		r4 \[f e\]
		d r8 d4 c8
		b4 a r8 a'
		b8 c a a \ss gis \ss fis
		a2^\markup{\smaller \musicglyph #"scripts.segno"} a4
		\[d,4 e\] c
		d c b 
		a\breve*3/8
		\bar "||"
	}
	\new Lyrics \lyricsto "canon" {
	\set stanza = "1."
	Va -- si -- lis -- sa,
	er -- _ _ _ go __ _ gau -- de
	gau -- _ _ _ _ _ _ _ _ de
	qui -- a es __ _ _ _ di -- _ _ _ gna o -- _ _ mni lau --
	_ _ _ _ _ _ _ _ _ _ _ _ _ "(de)" "  " -- _ _ _ _ _ _ de.
	}
	>>
	}%transpose
	\layout {indent=1.9\cm
	system-count = 3
	}
	%\midi{}
}

%tablet \pageBreak

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

global={\key c \major \time 3/4 \skip 1*3/4*80 \bar "|." }


cantus=\relative c''{
	\set Score.currentBarNumber = #23 \bar ""
	a2 a4
	d,2 a'4
	\[a g\] f
	e2.
	R1*3/4
	a2 a4
	c b a
	g2 f4
	g2.
	a4 g8 f4 e8
	d4 \ss cis8 d4 b8
	a4 d8 c d b
	cis4 r r
	d d8 d4 e8
	f4. f8 \noBeam f \noBeam f
	e4 r8 a4 a8
	g8 \noBeam f \noBeam e d4 \ss cis8
	d2 r4
	e2 e4
	g2 g4
	a a a
	g8 f4 e8 d4
	c8 a b c a4
	r8 e'4 f8 e4
	d4 g8 f e4
	d4. \ss cis8 \ss cis![ b8]
	d4 r d
	g4. f8 g e
	f4 g8 f g a
	bes a \ss fis[ g \ss fis! e]
	g2 r4
	d2 e4
	f e d
	r8 a b4 c
	d4 r8 e \[c4
	b\] a r8 c
	d4 e f
	e8 d4 c8 a4
	r8 c d[ \ss cis] \ss cis![ b]
	d2 d4
	a2 a4
	d c b
	a2.
	R1*3/4
	f'2 f4
	e4 a g
	a2 \ss bes4
	a2.
	d,4 e8 f4 e8 
	c4 a8 b4 c8
	d4 f8 e f d
	e4 r r
	g4 a8 g4 f8
	e4. g8 \noBeam f \noBeam e
	d4 r8 d4 d8
	e8 \noBeam f \noBeam g a4 g8
	a2 r4
	d,2 d4
	g2 a4
	\[b c\] b
	a8 g4 f8 e4
	a8 g f e d4
	r8 g4 g8 g4
	e4 a8 g fis4
	e4. \ss dis8 \ss dis![ \ss cis8]
	e4 r e
	d4. c8 d e
	f4 g8 f e d
	c8[ e d \ss cis] cis[ b]
	d2 r4
	g2 g4
	a g e
	r8 c d4 d
	c r8 d a4
	\ss bes4 a r8 d
	d4 c d
	a8 c4 d8 e4
	r8 a g e f d
	\[cis2. d\breve*3/8\]
}

altus=\relative c'{
	\[d2. 
	a'2\] a4
	d,2 a'4
	g4 b8 a g f
	e2.
	d2 d4
	e2 f4
	e d c4
	d r r
	f8 e4 d8 c4
	d8 e4 f8 g4
	a8 g f[ e f d]
	e4 e8 e4 f8
	g4. g8 \noBeam a \noBeam b
	c4 r4 b8 a ~
	a8[ g] f8[ d] e[ f]
	d4 g f
	\[g2.
	c,2.\]
	R1*3/4
	e2 e4
	d4 a'8 g4 f8
	e4 d8[ e] f[ g]
	a4 r g
	\[f bes\] a
	\[g4 f2\]
	g2.
	d2.
	c2 d4
	d4 \ss cis2
	d2.
	a'2 g4
	a2 b4
	\[c b\] a
	r8 b a4 f
	e r8 d e4
	\[a,4 b\] r8 c
	\[b4 a\] a'
	g r8 a4 \ss gis8
	\[a2.
	d,2\] d4
	a2 d4
	e4 e8[ d] c[ b]
	a2.
	d2 d4
	c2 d4
	e f g
	e r r
	a8 g4 a8 b4
	c8 a4 g8 e4
	a8[ \ss bes] a8[ g a f]
	g4 a8 g4 f8
	e4. d8 \noBeam e \noBeam f
	g4 r a8 \noBeam g ~
	g8 \noBeam a \ss bes[ a] g[ f]
	e4 e d
	\[e2.
	f\]
	R1*3/4
	g2 g4
	f4 e8 d4 c8
	d4 a'8[ g f e]
	d4 r4 d
	\[a' c\] b
	\[a4 g2\]
	a2.
	bes2.
	a2 a4
	\[g4 f2\]
	g2.
	c,2 c4
	e2 g4
	\[a \ss bes\] g
	r8 a \ss bes4 a
	d, r8 a' a4
	f4 e r8 g
	f4 g \[c,
	d\] r8 e4 f8 %? Huelgas Ensemble hace: d\] r4 d4 
	\[gis2.
	a\breve*3/8\]
}

tenor=\relative c'{
	a2. ~
	a
	R1*3/4
	e2 e4
	c'2 a4
	d,2.
	R1*3/4
	c4 d8 e f4
	g4 d'8 \ss cis d b
	a2 a4
	\[bes4 a\] g
	d2.
	r4 a'2
	b2.
	r4 c2
	c2 c4
	g2 f4
	\[g4 bes2
	a2\] c4
	\[d2. 
	c2\] c4
	\[d4 c\] d
	a2 d,4
	R1*3/4
	d2 e4
	g f2
	r4 bes2
	g2 g4
	r4 f g
	\[d4 \ss fis2
	g2\] g4
	f2 e4
	d r4 d'
	\[c d\] r8 a
	\[b4 c\] a
	r8 e \[d4 c\]
	d4 r8 g \[d4
	e\] f r8 f
	g4 a \ss gis %? g
	a2. ~
	a 
	R1*3/4
	c2 e4 %? c2 c4 hace Huelgas Ensemble
	d2 a4
	d,2.
	R1*3/4
	a'4 b8 c d4
	c4 d8[ \ss cis] \ss cis![ b]
	d2 d4
	\[a4 d,\] e
	d2. 
	r4 c2
	c2.
	r4 c2
	g'2 g4
	a2 g4
	\[a4 c2
	b2\] d4
	\[e2.
	d2\] d4
	\[d4 g,\] a4
	d,2 d4
	R1*3/4
	c'2 d4
	a4 g2
	r4 c2
	d d4
	r4 a d,
	\[e4 f2
	g\] d'4
	e2 c4
	c, r e
	\[f g\] r8 g
	\[a4 \ss bes\] c %? huelgas ensemble hace b contra bes de las voces superiores
	r8 \ss bes \[c4 d\] %? huelgas ensemble hace b contra bes de las voces superiores
	a4 r8 c \[ b4
	a4\] b r8 g
	\[a4 e\] d
	\[\ss gis2.
	a\breve*3/8\]
}

bassus=\relative c{
	\once \override TextScript.padding = #2
	s4*0^\markup{\large "Concupivit rex decorem tuum"}
	d2. ~ 
	d ~ 
	d
	R1*3/4
	a'2.
	R1*3/4
	a2 a4 
	c2 a4
	g2. 
	R1*3/4*3
	\[a2.
	g 
	f\]
	r4 a2
	bes2 a4
	g2.
	r4 a2
	\[bes2.
	a2.\]
	R1*3/4*2
	a2 c4
	d2 c4
	\[\ss b!4 a2
	g2.\]
	r4 bes2
	a2 g4
	r4 a2
	g2. 
	R1*3/4
	f2 g4
	a4 r8 g \[a4
	g\] a r8 a
	\[g4 f\] e
	r8 f \[g4 f\]
	g4 r8 a d,4
	\[e4 f\] e
	\once \override TextScript.padding = #2
	s4*0^\markup{\large "quoniam ipse est dominus tuus."}
	d2. ~
	d ~
	d
	R1*3/4
	d2. 
	R1*3/4
	a'2 b4
	a2 g4
	a2.
	R1*3/4*3
	c2. 
	c2. 
	c2.
	r4 \ss bes2 %? Huelgas Ensemble hace b chocando con otras voces
	c2 b4
	a2.
	r4 b2
	\[c2.
	g\]
	R1*3/4*2
	g2 g4
	a2 b4
	\[c4 b2
	a2.\]
	r4 g2
	f2 f4
	r4 a2
	g2.
	R1*3/4
	c2 c4
	a4 r8 g \[bes4
	a\] g r8 f
	\[g4 f\] d4
	r8 f \[a4 g\]
	a4 r8 g8 e4
	\[f4 g\] f
	\[e2.
	d\breve*3/8\]
}


textocantus=\lyricmode{
Cle -- o -- phe, cla -- ra __ _ ge -- stis
a tu -- is __ _ de Ma -- la -- te -- _ _ _ _ _ _ _ _ _ _ _ _ _ stis
in I -- ta -- li -- a prin -- ci -- pi -- bus ma -- gnis et no -- bi -- _  li -- bus!
\set stanza = "2."
Ex tu -- o vi -- ro cla -- ri -- _ _ _ _ _ _ _ _ or
qui -- a cun -- ctis est __ _ no -- bi -- _ _ _
_ _ _ _ _ _ _ _ _ _ _ _ _ li -- _ _ _ or:
Ro -- mæ -- o -- _ rum est de -- spo -- tus
quem co -- _ lit mun -- dus __ _ _ to -- _ _ _ _ tus: __ _ _ _ 
in por -- phy -- ro est ge -- ni -- tus
a de -- o __ _ _ mis -- _ sus cœ -- _ _ _ _ _ _ _ li -- _ _ _ _ tus.
\set stanza = "3."
Iu -- ve -- ni -- li
æ -- ta -- te pol -- lens
et for -- mo -- si -- ta -- te vo -- lens
mul -- tum ge -- ni -- o __ _ fe -- cun -- _ _ _ _ _ _ _ da 
et u -- tra -- que __ _ _ _ lin -- _ _ _ gua
fa -- cun -- _ _ _ _ _ _ _ _ _ _ _ _ _ _ da 
ac cla -- ri -- or es vir -- tu -- ti -- bus 
præ a -- li -- is his o -- _ _ _ _ _ _ mni -- _ _ _ _ bus. __ _ 
}

textoaltus=\lyricmode{
Cle -- _ o -- phe, cla -- ra -- ge -- _ _ _ stis
a tu -- is de Ma -- la -- te -- _ stis __ _ _ _ _ _ _ _ _ _ _ _ _ _ 
in I -- ta -- li -- a prin -- ci -- pi -- bus ma -- _ _ gnis __ _ 
et __ _ no -- bi -- li -- bus! __ _ 
\set stanza = "2."
Ex tu -- o vi -- _ _ ro cla -- _ ri -- _ or
qui -- a __ _ cun -- ctis __ _ _ est
no -- bi -- li -- _ or:
Ro -- mæ -- o -- _ rum __ _ _ 
est de -- spo -- tus,
quem co -- lit __ _ mun -- dus __ _ to -- tus: __ _ _ 
in __ _ por -- phy -- ro est ge -- _ ni -- _ tus,
a de -- o __ _ mis -- _ _ sus cœ -- _ _ _ _ _ _ li -- tus. __ _ _ _ _ _ 
\set stanza = "3."
Ju -- ve -- ni -- li æ -- ta -- te pol -- lens
et for -- mo -- si -- _ ta -- _ _ te vo -- lens __ _ 
mul -- tum ge -- ni -- o fe -- cun -- _ _ _ _ da
et u -- _ tra -- que __ _ 
lin -- gua fa -- _ cun -- _ da,
ac cla -- ri -- or es __ _ _ 
vir -- tu -- ti -- bus
præ a -- li -- is his __ _ _ o -- _ mni -- _ bus. __ _ 
_ _ _ _ _ 
}

textotenor=\lyricmode{

}

textobassus=\lyricmode{

}



incipitcantus=\markup{
	\score{
		{ 
		\set Staff.instrumentName="Triplum   "
		\override NoteHead.style = #'neomensural
		\override Rest.style = #'neomensural
		\override Staff.TimeSignature.stencil = ##f
		\cadenzaOn 
		\clef "petrucci-c2"
		a'\breve
		} 
	\layout {
		\context {\Voice
			\remove Ligature_bracket_engraver
			\consists Mensural_ligature_engraver
		}
		line-width=\incipitwidth
		indent = 0
	}
	}
}


incipitaltus=\markup{
	\score{
		{ 
		\set Staff.instrumentName="Motetus    "
		\override NoteHead.style = #'neomensural 
		\override Rest.style = #'neomensural
		\override Staff.TimeSignature.stencil = ##f
		\cadenzaOn 
		\clef "petrucci-c2"
		\[d'\breve*1/2 a'\]
		} 
	\layout {
		\context {\Voice
			\remove Ligature_bracket_engraver
			\consists Mensural_ligature_engraver
		}
		line-width=\incipitwidth
		indent = 0
	}
	}
}


incipittenor=\markup{
	\score{
		{ 
		\set Staff.instrumentName=\markup{\smaller "Contratenor"}
		\override NoteHead.style = #'neomensural 
		\override Rest.style = #'neomensural
		\override Staff.TimeSignature.stencil = ##f
		\cadenzaOn 
		\clef "petrucci-c4"
		a\breve
		} 
	\layout {
		\context {\Voice
			\remove Ligature_bracket_engraver
			\consists Mensural_ligature_engraver
		}
		line-width=\incipitwidth
		indent=0
	}
	}
}


incipitbassus=\markup{
	\score{
		{ 
		\set Staff.instrumentName="Tenor        "
		\override NoteHead.style = #'neomensural 
		\override Rest.style = #'neomensural
		\override Staff.TimeSignature.stencil = ##f
		\cadenzaOn 
		\clef "petrucci-c4"
		d\longa*1/2
		} 
	\layout {
		\context {\Voice
			\remove Ligature_bracket_engraver
			\consists Mensural_ligature_engraver
		}
		line-width=\incipitwidth
		indent = 0
	}
	}
}





\score {\transpose a d'{
\new ChoirStaff<<

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

	
	\new Staff << \global
	\new Voice="v2" {
		\set Staff.instrumentName=\incipitaltus
		\clef "treble" 
		\altus}
	\new Lyrics \lyricsto "v2" {\textoaltus }
	>>

	
	\new Staff <<\global
	\new Voice="v3" {
		\set Staff.instrumentName=\incipittenor
		\clef "G_8"
		\tenor }
	%\new Lyrics \lyricsto "v3" {\textotenor }
	>>
	

	\new Staff <<\global
	\new Voice="v4" {
		\set Staff.instrumentName=\incipitbassus
		\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.2
		\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=20
	%page-count = 8
	ragged-last-bottom = ##f
	indent=3.5\cm
	system-system-spacing =
	#'((basic-distance . 19) (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))

}