\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="Speciosa facta es"
hcomposer="Dunstable"

\header {
	title=\markup{\fontsize #3 "Speciosa facta es"}
	subtitle="Antífona"
	subsubtitle=\markup{\null \vspace #1 }
	composer="John Dunstable (c.1390-c.1453)"
        pdfauthor=\composer
	%opus="(-)"
	%poet=\markup{}
	copyright=\markup{
		\fill-line {"Edited by Nancho Alvarez" \typewriter "http://tomasluisdevictoria.org"}
	}
%	tagline=""
}



%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%5

global={ \time 3/4  \skip 1*3/4*55 \bar "|."
}

cantus={ \key c \major
	f'2. ~
	f'2 g'4
	a'4. g'8 e'4
	f'  d'8[ e' f' g']
%5
	e'4 a'4. g'8
	g'4 ~ \times 2/3 { g'8 \ss fis' g'} \times 2/3 { fis'4 e'8 }
	g'4 r b'8 c''
	d''4 c''8 a'4 b'8
	d'' c'' a'4 b' ~
%10
	\set Staff.autoBeaming = ##f
	b' b' g'8 g'
	g'4 a' a'8 a'
	\set Staff.autoBeaming = ##t
	g'4 e'8 c' d'4
	c'8 f'2 e'8
	f'4 r a'8 b'
%15
	c''2 a'4
	g' a'8 c''4 b'8
	a'4 c''8 b' d''4
	c''8 b'8. g'16 g'4 \ss fis'8
	g'4 r e'
%20
	g'4.  f'8[ e' d']
	c'4 r f'8 g'
	a'4 \ss bes'!4. a'8
	a'4 g'8 a' g'4
	a' r c''
%25
	c''4. c''8 c''4
	\set Staff.autoBeaming = ##f
	\ss bes'8 bes' d''2
	\set Staff.autoBeaming = ##t
	c''4  \ss bes'8[ a']  g'[ a']
	b' d''8. c''16 c''4 b'8
	c''4 r b'
%30
	\set Staff.autoBeaming = ##f
	c''8 c'' a'4 r
	\set Staff.autoBeaming = ##t
	r r a'
	a'2 g'4
	a' e' f'
	R1*3/4
%35
	a'4. \ss bes'8 c''4
	c''4. \ss bes'8[ a' g']
	g'2 \ss fis'4
	g' r g'
	a'4. g'8 e'4
%40
	f'8 e'16 f' g'8 f' d'4
	c' r8 b c'4
	\set Staff.autoBeaming = ##f
	r c''8 c'' c''4
	\set Staff.autoBeaming = ##t
	d'' \ss bes'4. g'8
	g'4 e' \ss fis'8 e'16 fis'
%45
	g'4 r b'
	c'' c'' a'
	g' a'8 c''4 b'8
	g'4 r r
	a' c''4. d''8
%50
	b' g' a' g'4 e'8
	d'4 c' g'
	r a'8 c'' d'' c'' ~
	c'' b' c''4 a'8 bes'
	a'8. f'16 f'8. d'16 e'8 d'16 e'
%55
	f'\breve*3/8
}

altus={\key f \major
	f'2. ~
	f'2 c'4
	e'2 r4
	d' bes d'
%5
	c' e' d'
	d'2 cis'4
	d' g'2
	d'4 f'2 
	f'4 f' g'4 ~
%10
	\set Staff.autoBeaming = ##f
	g' g' d'8 d'
	\set Staff.autoBeaming = ##t
	d'4 f'2
	e'4 g'8 e' f'4
	e' d'8 c' b4
	c'2 r4
%15
	e'2 f'4
	g'8. e'16 f'4 e'8 d'
	f'4 e'8 g'4 f'8
	e' d'4 c'8 a4
	d'2 r4
%20
	d'2 g'4
	e'2 d'4
	e' f'2
	e'4 d'2
	f' c'4
%25
	f4 f a4
	g4 g g4
	g' f'8 e' e'4
	f'8 a'4 g' fis'8
	g'2 r4
%30
	r r e'
	\set Staff.autoBeaming = ##f
	f'8 e' d'4 c'
	\set Staff.autoBeaming = ##t
	f2 g4
	f r r
	c'8 bes4 a8 g4
%35
	f2.
	f2 bes4
	d' c'2
	d' r4
	e'2 g'4
%40
	a' r f'
	r8  g'[ f' d'] e'4
	f'2 f'4
	g'2 d'4 ~
	d' c'2
%45
	d' e'4
	r8 f'2 c'8
	e'2 c'4 ~
	c' f2
	c'4 d'8 f'4 e'8
%50
	d' e' c' e'4 g'8 ~
	g' f' e'2
	f'4 d'8 r f' g' ~
	g' f' g'4 f'8 d'
	e'4 c'8 d' b4
%55
	c'\breve*3/8
}

tenor={\key f \major
	f'2. ~
	f'2 e'4
	c'2 c'4 
	d'2 bes4
%5
	c'2 bes4 ~
	bes a2
	g2. ~
	g4 d'4 d'
	d' d' g4 ~
%10
	\set Staff.autoBeaming = ##f
	g4 g4 bes8 bes
	\set Staff.autoBeaming = ##t
	bes4 f2
	c' bes4
	c'8 a bes a g4
	f2.
%15
	R1*3/4
	R1*3/4
	R1*3/4
	R1*3/4
	g2. ~
%20
	g4 bes2
	c' bes4
	a d'2
	c'4 bes2
	f2 f4 
%25
	f'4 f' f'
	g'4 g' g'
	e'4 d'8 e' c'4
	d'8 f'4 e'8 d'4
	c'2 d'4
%30
	c'2 g4
	f2.
	c'4 a bes
	c'2 d'4
	e'8 g'8. f'16 f'4 e'8
%35
	f'4. e'8 d' c'
	c'2 bes4 ~
	bes a2
	g2.
	c'
%40
	a4 bes2
	c'4 d' r8 c'
	f2 a4
	g2 bes4 ~
	bes c' a
%45
	g2.
	f4 f f 
	c'2 r4
	c' d'8 f'4 e'8
	c'4 f2
%50
	r4 c'2
	bes4 c'2
	d'4 f'4. e'8
	d'4 c' d'
	c'8 a4 bes8 g4
%55
	f\breve*3/8
}

textocantus=\lyricmode{
Spe -- _ ci -- o -- _ sa fa -- _ _ _ _ _ _ _ _ _ _ _ cta __ _ es
\italicas et __ _ \rectas
su -- _ _ _ a -- _ vis in _ de -- li -- ci -- is vir -- gi -- ni -- ta -- _ _ _ _ _ _ tis
san -- _ cta __ _ De -- _ i __ _
ge -- _ _ _ _ _ _ ni -- _ trix
quam vi -- den -- _ _ tes
fi -- _ li -- _ _ æ Si -- _ _ on
ver -- nan -- tem in flo -- ri -- bus
ro -- _ _ sa -- _ _ _ _ _ _ rum
et li -- li -- is
con -- val -- _ li -- _ _ _ _ _ _ _ _ _ _ _ um
be -- a -- _ _ tis -- _ _ _ _ si -- mam __ _ _ 
pre -- di -- ca -- ve -- _ _ _ _ _ _ _ runt
et re -- gi -- næ lau -- _ da -- _ ve -- _ _ _ _ _ _ _ _ _ runt __ _
e -- _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ am.
}

textoaltus=\lyricmode{
\italicas
Spe -- _ ci -- o- sa fa -- _ _ _ _ _ cta es,
et su -- _ a -- vis in _ de -- li -- ci -- is vir -- gi -- _ _ ni -- ta -- _ _ _ tis
san -- cta De -- _ i __ _ _ ge -- _ _ _ _ _ ni -- _ trix
quam vi -- den -- tes fi -- li -- æ Si -- on, 
ver -- nan -- tem in flo -- ri -- bus ro -- _ _ sa -- _ _ _ _ rum
et li -- li -- is con -- val -- _ li -- _ _ _ _ _ _ _ _ _ um
be -- a -- tis -- si -- _ _ _ _ mam, 
pre -- di -- ca -- _ ve -- runt,
et re -- _ gi -- _ _ næ
lau -- _ da -- _ ve -- _ _ _ _ _ _ runt,
e -- _ _ _ _ _ _ _ _ _ _ _ _ am.
}

textotenor=\lyricmode{
\italicas
Spe -- _ ci -- o -- sa fa -- _ _ _ _ cta es, _
et su -- a -- vis in _ de -- li -- ci -- is vir -- gi -- ni -- ta -- _ _ _ _ tis
quam _ vi -- den -- tes fi -- li -- æ Si -- on, 
ver -- nan -- tem in flo -- ri -- bus
ro -- _ _ sa -- _ _ _ _ rum,
et li -- li -- is
con -- _ val -- li -- _ _ _ _ _ _ _ _ _ _ _ _ _ _ um,
be -- a -- tis -- si -- mam 
pre -- di -- ca -- ve -- _ _ _ _ runt,
et re -- gi -- næ
lau -- _ da -- _ ve -- _ _ _ runt
e -- _ _ _ _ _ _ _ _ _ am.
}


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

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

	\new Staff <<\global
	\new Voice="v2" {
		\set Staff.instrumentName=\markup{\smaller \smaller "Contratenor "}
		\clef "G_8"
		\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 }
	>>
	
>>

	} % 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
	%systems-per-page = 4
	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
}