\version "2.18.0"

#(set-default-paper-size "a4")
#(set-global-staff-size 16.4)
#(ly:set-option 'point-and-click #f)
%mobile -s16.5 -i1.5

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}


htitle="Quam pulchra es"
hcomposer="Dunstable"

\header {
	title=\markup{\fontsize #3 "Quam pulchra es"}
	subtitle="Discantus inglés"
	subsubtitle=\markup{\null \vspace #3 }
	composer="John Dunstable (c.1390-c1453)"
        pdfauthor=\composer
	%opus="(-)"
%	poet=\markup{"Discantus inglés - siglo XV"}
	copyright=\markup{
		\fill-line {"Edited by Nancho Alvarez" \typewriter "http://tomasluisdevictoria.org"}
	}
%	tagline=""
}


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

altus={
	c'2 \melisma  e'4 \melismaEnd
	d' f'4. \melisma e'8 \melismaEnd
	g'2 g'4
	a'2 f'4
%5
	g' g' e'
	\set Staff.autoBeaming = ##f
	e'8 e' e'4  d'8[ \melisma c'] \melismaEnd 
	\set Staff.autoBeaming = ##t
	f' \melisma e' \melismaEnd  c'4 \melisma d'8 f' ~
	f' e' c'4 \melismaEnd b8 \melisma a16 b \melismaEnd
	c'4 r e'
%10
	e' e' r
	f' d' r
	\set Staff.autoBeaming = ##f
	f' f'8 f' g'4 
	\set Staff.autoBeaming = ##t
	f' g' a' ~ \melisma
	 a'8[ f']  f'[ g'] e'4 \melismaEnd
%15
	f' r d'
	e'4. e'8 c'4
	b c' b
	c'2 r4
	g' c' d'
%20
	c' r e'8 \melisma f' \melismaEnd
	g' \melisma a'4 g' \melismaEnd \ss fis'8
	g'2 r4
	\set Staff.autoBeaming = ##f
	a' a' f'8 f'
	\set Staff.autoBeaming = ##t
	g'4 c' r
%25
	e' \melisma  c'8[ d']  b[ a16 b] \melismaEnd
	c'4 r e'8 \melisma f'
	g' a' \melismaEnd f'4 \melisma g' ~
	 g'8[ f']  e'[ d'] \melismaEnd  \ss cis'[ \melisma b16 \ss cis'] \melismaEnd
	d'2.
%30
	R1*3/4 
	f'2.^\fermata
	f'2^\fermata \breathe a'4
	g'4. \melisma f'8  f'[ g'] \melismaEnd
	e'4 f' r
%35
	\set Staff.autoBeaming = ##f
	f' f'8 f' f'4
	\set Staff.autoBeaming = ##t
	g' g' \melisma f'8 d' \melismaEnd
	f'4 \melisma g'8 a'4 g'8 ~
	g'16 e' \ss fis'8 \melismaEnd g'4 r
	a'2 a'4
%40
	bes' \melisma a' g'8 f' \melismaEnd
	f'2 \melisma e'4 \melismaEnd 
	f' r f'
	\set Staff.autoBeaming = ##f
	g'8 g' e'4 c'
	\set Staff.autoBeaming = ##t
	e'4. \melisma d'8 \melismaEnd d'4
%45
	\set Staff.autoBeaming = ##f
	cis'8 cis' d'4 r
	c' f'8 f' a'4 ~
	a' g'4. \melisma e'8 \melismaEnd
	f'4 c' d'8 d'
	c'2 r4
%50
	c'8 c' c' a b4
	\time 3/2 c' r f'2 e'
	\time 3/4 d' \ss cis'4
	\set Staff.autoBeaming = ##t
	d' r f'8 \melisma e' \melismaEnd
	 c'[ \melisma e'] f' g'4 e'8
%55
	c' d' f'4 e'8 d' ~
	 d'[ c'] d' \melismaEnd b4 \melisma a8 \melismaEnd
	c'\breve*3/8
}

tenor={
	c'2.
	g4 d \melisma f \melismaEnd
	c2 c'4
	d' \melisma a \melismaEnd b
%5
	c' g c
	\set Staff.autoBeaming = ##f
	c8 c c4 r8 a
	\set Staff.autoBeaming = ##t
	b c'4 \melisma a8 f4
	 f8[ g]  e[ c] \melismaEnd f4
	g r c
%10
	e g a ~
	a f d \melisma
	\set Staff.autoBeaming = ##f
	f \melismaEnd c'8 c' d'4
	\set Staff.autoBeaming = ##t
	c' d' e' ~ \melisma
	e'8 c' d'4 b \melismaEnd
%15
	c' \melisma a \melismaEnd b
	c'4. c'8 g4
	f g8 \melisma e \melismaEnd f4
	g c c
	r g8 \melisma a bes4 \melismaEnd
%20
	g c2
	c c'4
	d' \melisma b c' \melismaEnd
	\set Staff.autoBeaming = ##f
	c' c' b8 b
	\set Staff.autoBeaming = ##t
	c'4 \melisma g \melismaEnd c
%25
	g \melisma c8 d f4 \melismaEnd|
	g \melisma c \melismaEnd c'8 \melisma a
	g f \melismaEnd d4 \melisma e8 c ~
	 c[ d]  g[ f] \melismaEnd g4
	a2.
%30
	R1*3/4
	d2.^\fermata
	d2^\fermata \breathe f4
	g4. \melisma a8 c' d' \melismaEnd
	b4 c'2
%35
	\set Staff.autoBeaming = ##f
	d'4 c'8 c' c'4
	\set Staff.autoBeaming = ##t
	d' r r
	 d'8[ \melisma c'] b \melismaEnd a4 \melisma d'8
	c'4 \melismaEnd d' \melisma b \melismaEnd
	a f2
%40
	d4 a \melisma c'
	d' b2 \melismaEnd
	c'4 \melisma a \melismaEnd a
	\set Staff.autoBeaming = ##f
	c'8 c' g4 g
	c2 d4
%45
	g8 g a2
	c'4 c'8 c' f4
	f r c' \melisma
	f \melismaEnd a g8 g
	a4 \melisma e f \melismaEnd
%50
	g8 g e e f4
	\set Staff.autoBeaming = ##t
	\time 3/2 g \melisma c' \melismaEnd a2 b
	\time 3/4 a g4
	a2 r4
	a4. b4 \melisma c'8
%55
	a4. b8 c' a ~
	 a[ f]  g[ a] \melismaEnd f4
	g\breve*3/8
}

bassus={
	c'2.
	b4 a2
	g e4
	d2 d4
%5
	c c c'
	\set Staff.autoBeaming = ##f
	c'8 c' g4 f
	\set Staff.autoBeaming = ##t
	d8 \melisma c \melismaEnd f2 \melisma
	d8 c e4 \melismaEnd d
	c r g
%10
	g c f
	d r f \melisma
	\set Staff.autoBeaming = ##f
	a \melismaEnd a8 a bes4
	\set Staff.autoBeaming = ##t
	a g c' ~ \melisma 
	c'8 a bes4 g \melismaEnd
%15
	f2 f4
	c4. c8 e4
	d c d
	c r g
	c2 bes,4
%20
	c g g8 \melisma a
	g c'4 g8 \melismaEnd a4
	g r c \melisma
	\set Staff.autoBeaming = ##f
	f \melismaEnd f d8 d
	\set Staff.autoBeaming = ##t
	c2 \melisma g4 \melismaEnd
%25
	c e8 \melisma f d4 \melismaEnd
	c \melisma e \melismaEnd c8 \melisma d
	e d \melismaEnd a4 \melisma g
	g c8 d \melismaEnd e4
	d2.
%30
	R1*3/4
	a2.^\fermata
	d'2^\fermata \breathe  c'4
	bes4. \melisma a8 a bes \melismaEnd
	g4 f2
%35
	\set Staff.autoBeaming = ##f
	d4 a8 a a4
	\set Staff.autoBeaming = ##t
	g b8 \melisma c' d'4 \melismaEnd
	 \ss bes8[ \melisma a] g c'4 bes8
	a4 \melismaEnd g r
	c'2 c'4
%40
	d' c' \melisma a
	bes g2 \melismaEnd
	f f4
	\set Staff.autoBeaming = ##f
	c8 c c4 e
	g4. \melisma f8 \melismaEnd f4
%45
	e8 e d2
	a4 a8 a c'4 ~
	c' b r
	a a b8 b
	c'4 r a \melisma
%50
	e8 \melismaEnd e c c d4
	\time 3/2 c2 d g
	\time 3/4 f4 e2
	d2.
	\set Staff.autoBeaming = ##t
	a4  f8[ \melisma e]  g[ a] ~
%55
	a f4 d8 c d
	f4 e8 f \melismaEnd d4
	c\breve*3/8
}

textoaltus=\lyricmode{
Quam pul -- chra __ es 
et quam de -- co -- ra,
ca -- ris -- si -- ma in __ de -- li -- ci -- is.
Sta -- tu -- ra tu -- a
as -- si -- mi -- la -- ta est pal -- me
et u -- be -- ra tu -- a bo -- tris.
Ca -- put tu -- um ut __ Car -- me -- lus
col -- lum tu -- um sic -- ut
tur -- ris e -- bur -- ne -- a.
Ve -- ni,
di -- le -- cte mi
e -- gre -- di -- a -- mur in __ a -- grum
et vi -- de -- a -- mus si flo -- res fru -- ctus par -- tu -- ri -- e -- runt
si -- flo -- ru -- e -- runt __
ma -- la Pu -- ni -- ca. 
I -- bi da -- bo ti -- bi u -- be -- ra me -- a.
Al -- le -- lu -- ia.
}

textotenor=\lyricmode{
Quam pul -- chra es 
et quam de -- co -- ra,
ca -- ris -- si -- ma in de -- li -- ci -- is.
Sta -- tu -- ra tu -- a
as -- si -- mi -- la -- ta est pal -- me, __
et u -- be -- ra tu -- a __ bo -- tris.
Ca -- put tu -- um ut Car -- me -- lus, __
col -- lum tu -- um sic -- ut
tur -- ris __ e -- bur -- ne -- a.
Ve -- ni,
di -- le -- cte mi,
e -- gre -- di -- a -- mur in __ a -- grum, __
et vi -- de -- a -- mus __ si flo -- res fru -- ctus par -- tu -- ri -- e -- runt,
si -- flo -- ru -- e -- runt
ma -- la Pu -- ni -- ca. __ 
I -- bi da -- bo ti -- bi __ u -- be -- ra me -- a.
Al -- le -- lu -- ia.
}

textobassus=\lyricmode{
Quam pul -- chra es 
et quam de -- co -- ra,
ca -- ris -- si -- ma in de -- li -- ci -- is.
Sta -- tu -- ra tu -- a
as -- si -- mi -- la -- ta est pal -- me,
et u -- be -- ra tu -- a bo -- tris.
Ca -- put tu -- um ut Car -- me -- lus
col -- lum tu -- um sic -- ut
tur -- ris __ e -- bur -- ne -- a.
Ve -- ni,
di -- le -- cte mi,
e -- gre -- di -- a -- mur in __ a -- grum
et vi -- de -- a -- mus si flo -- res fru -- ctus par -- tu -- ri -- e -- runt,
si -- flo -- ru -- e -- runt
ma -- la Pu -- ni -- ca. 
I -- bi da -- bo ti -- bi u -- be -- ra me -- a.
Al -- le -- lu -- ia.
}


\score {\transpose c' c'{
\new ChoirStaff<<

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

	\new Staff <<\global
	\new Voice="v4" {
		\set Staff.instrumentName="Bassus "
		\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.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=1.7\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
}