\version "2.18.0"

#(set-default-paper-size "a4")
#(set-global-staff-size 16.2)
#(ly:set-option 'point-and-click #f)
%mobile -s14.5 -i0 -m7

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}
mt=#(define-music-function (parser location offset) (number?) ; move lyric text
      #{ \once \override LyricText.X-offset = -$offset #})


htitle="There is no rose"
hcomposer="Anónimo"

\header {
	title=\markup{\fontsize #3 "There is no rose"}
	subtitle="Siglo XV"
	subsubtitle=\markup{\null \vspace #1 }
	composer="Anónimo inglés"
        pdfauthor=\composer
	%opus="(-)"
	%poet=\markup{}
	copyright=\markup{
		\fill-line {"Edited by Nancho Alvarez" \typewriter "http://tomasluisdevictoria.org"}
	}
	tagline=""
}


global={\key c \major \time 3/4  \partial 4 \skip 4 \skip 1*3/4*8 \skip 2 \bar "||" \break
		\skip 4 \skip 1*3/4*15 \skip 2 \bar "|."
}


altus={
	c'4 |
	e'2 f'4 |
	g' a'4. g'8 |
	g'4. fis'8 fis'[ e'] |
%5
	g'2. |
	r2 g'4 |
	g' f'2 |
	e'4. d'8 f'[ e'] |
	c'4. b8 b[ a] |
        c'2
%10
        \override Score.RehearsalMark.self-alignment-X= #right
        \override Score.RehearsalMark.break-visibility = #'#(#t #f #f)
        \mark \markup{"Fin"}
	g'4 |
	e'4. d'8 e'[ f'] |
	g'4 a'2 |
	g' e'4 |
%15
	f' e'4. d'8 |
	e'4 r d'8 e' | 
	c'4. b8 c'[ b] |
	g4. a8 b4 |
	c'2 b4 |
%20
	c'2 r4 | 
	c'4.  d'8[ e' f'] |
	g'4 f'8 e' d'4 |
	c'2 b4 |
	d' c' a |
%25
	b8 c' d' c' f' e' |
	c'4. b8 b a |
	c'2
        \mark \markup{"D.C."}
}

tenor={
	c'4 |
	b c'2 |
	d'4 e'2 |
	d' c'4 |
%5
	d'2. |
	r2 d'4 |
	d' c'2 |
	b a4 |
	g2 f4 |
%10
	g2 s4
	R1*3/4 |
	R1*3/4 |
	R1*3/4 |
	R1*3/4 |
%15
	R1*3/4 |
	R1*3/4 |
	R1*3/4 |
	R1*3/4 |
	R1*3/4 |
%20
	R1*3/4 |
	R1*3/4 |
	R1*3/4 |
	R1*3/4 |
	R1*3/4 |
%25
	R1*3/4 |
	s2
}

bassus={
	c4 |
	g a2 |
	g4 c'2 |
	b a4 |
%5
	g2. |
	r2 g4 |
	b a2 |
	g d4 |
	c e d |
%10
	c2 
	c'4 |
	c' b a |
	g d2 |
	g a4 |
%15
	a g f |
	e r g |
	a4. g8 a[ f] |
	g2 f4 |
	e2 d4 |
%20
	c2 r4 |
	c'4.  b8[ c' a] |
	g4 a b |
	c' a g ~ |
	g a2 |
%25
	g e4 |
	g f d |
	c2
}

textoaltus=\lyricmode{		                
Ther is no rose of __ _ swych __ _ vir -- _ tu
as is the rose __ _ that _ bar __ _ Jhe -- _ su.
Ther is __ _ no _ rose of swych __ _ vir -- _ _ tu
as _ is __ _ the _ rose __ _ that bar Jhe -- su.
Al -- _ _ _ le -- _ _ _ lu -- _ _ _ _ _ _ _ _ _ _ _ _ _ _ ia.
}
textoaltusb=\lyricmode{
_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ 
For in __ _ this _ rose con -- tey -- _ ned __ _ _ was
he -- _ ven __ _ and _ erthe __ _ in ly -- tyl space,
Res __ _ _ _ mi -- _ _ _ ran -- _ _ _ _ _ _ _ _ _ _ _ _ _ _ da.
}
textoaltusc=\lyricmode{
_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ 
Be that __ _ _ _ rose  we may __ _  weel __ _ _ see
that _ he __ _ is _ God __ _ in per -- sonys thre,
Pa -- _ _ _ ri _ _ _ for -- _ _ _ _ _ _ _ _ _ _ _ _ _ _ ma.
}
textoaltusd=\lyricmode{
_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ 
The aun -- _ gelys _ sun -- gyn the __ _ shep -- _ herds to:
«Glo -- _ ri -- _ a _ in __ _ ex -- \mt #1 celsis De -- o».
Gau -- _ _ _ de -- _ _ _ a -- _ _ _ _ _ _ _ _ _ _ _ _ _ _ mus.
}

textotenor=\lyricmode{
Ther is no rose of swych vir -- tu
as is the rose that bar Jhe -- su.
}

textobassus=\lyricmode{
Ther is no rose of swych vir -- tu
as is the rose that bar _ Jhe -- su.
Ther is __ _ no rose of swych __ _ vir -- _ _ tu
as is __ _ the _ rose that bar Jhe -- su.
Al -- _ _ _ le -- _ _ lu -- _ _ _ _ _ _ _ _ _ ia.
}
textobassusb=\lyricmode{
_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _
For in __ _ this rose con -- tey -- _ ned __ _ _ was
he -- ven __ _ and _ erthe in ly -- tyl space,
Res __ _ _ _ mi -- _ _ ran -- _ _ _ _ _ _ _ _ _ da.
}
textobassusc=\lyricmode{
_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _
Be that __ _ _ rose we may __ _ weel __ _ _ see
that he __ _ is _ God in per -- sonys thre,
Pa -- _ _ _ ri _ _ for -- _ _ _ _ _ _ _ _ _ ma.
}
textobassusd=\lyricmode{
_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _
The aun -- _ gelys sun -- gyn the __ _ shep -- _ herds to:
«Glo -- ri -- _ a _ in ex -- \mt #1 celsis De -- o».
Gau -- _ _ _ de -- _ _ a -- _ _ _ _ _ _ _ _ _ mus.
}



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

	\new Staff <<\global
	\new Voice="v2" {
		\set Staff.instrumentName="A "
                \set Staff.shortInstrumentName="A "
		\clef "treble"
		\altus }
	\new Lyrics \lyricsto "v2" {\textoaltus }
        \new Lyrics \lyricsto "v2" {\textoaltusb }
        \new Lyrics \lyricsto "v2" {\textoaltusc }
        \new Lyrics \lyricsto "v2" {\textoaltusd }
	>>
	
	\new Staff <<\global
	\new Voice="v3" {
		\set Staff.instrumentName="T "
		\clef "G_8"
		\tenor }
	\new Lyrics \lyricsto "v3" {\textotenor }
	>>

	\new Staff <<\global
	\new Voice="v4" {
		\set Staff.instrumentName="B "
                \set Staff.shortInstrumentName="B "
		\clef "bass"
		\bassus }
	\new Lyrics \lyricsto "v4" {\textobassus }
	\new Lyrics \lyricsto "v4" {\textobassusb }
	\new Lyrics \lyricsto "v4" {\textobassusc }
	\new Lyrics \lyricsto "v4" {\textobassusd }
	>>
	
>>

	} % 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
                \override VerticalAxisGroup.nonstaff-nonstaff-spacing =
			#'((basic-distance . 0) (minimum-distance . 0) (padding . 1.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 . 18) (minimum-distance . 10) (padding . 15))
		\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=0.5\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 . 16) (minimum-distance . 0) (padding . 0))
	markup-system-spacing.padding = #1.5
}