\version "2.18.0"

#(set-default-paper-size "a4")
#(set-global-staff-size 17)
#(ly:set-option 'point-and-click #f)
%mobile -s17 -i2

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

htitle="Stella splendens"
hcomposer="Llibre Vermell"

\header {
	title=\markup{\fontsize #4 "Stella splendens"}
	subtitle="Llibre Vermell de Montserrat"
        subtitle=\markup{\vspace #1.5 }
	composer="Anónimo (S. XIV)"
        pdfauthor=\composer
	%opus="(-)"
	poet="Llibre Vermell de Montserrat"
	copyright=\markup{
		\fill-line {"Edited by Nancho Alvarez" \typewriter "http://tomasluisdevictoria.org"}
	}
	tagline=""
}


global={\key c \major \time 2/4  \skip 1*2/4*19 \bar ".|:-||" \break
					\skip 1*1/2*8 \bar ":|."
}

cantus={
	a'4. g'8 |
	a'4 f' |
	d' f' |
	g'2 |
%5
	\ss bes'8[ a' f' g'] |
	e'4 d' |
	f' g' |
	g'8 f' d'4 |
	c'2 |
	r2 \break
%10
	a'4. g'8 |
	a'4 f' |
	d' f' |
	g'2 |
	\ss bes'8[ a' f' g'] |
%15
	e'4 d' |
	f' g' |
	g'8 f' d' e'16 c' |
	d'2^\fermata
	r4 d' |
%20
	d' a' |
	b' d'' |
	b' c''8 a' |
	g'4 b' |
	c'' a' |
%25
	g'8 f' f' e' |
	d'2^\fermata
}

altus={\transpose c c,{
	d'2 |
	d'4 f' |
	a' d' |
	c'2 |
%5
	f' |
	g'4 a' |
	d' c' |
	g' a' |
	c''2 ~ |
	\parenthesize c''
%10
	d' |
	d'4 f' |
	a' d' |
	c'2 |
	f' |
%15
	g'4 a' |
	d' c' |
	f' g' |
	a'2^\fermata 
	r4 a' |
%20
	a' d' |
	d' d' |
	g' f' |
	e' e' |
	c' d' |
%25
	f' g' |
	a'2^\fermata 
}
}

textocantus=\lyricmode{
Stel -- _ la splen -- dens in mon -- _ _ _ _ te,
ut so -- lis ra -- _ di -- um,
mi -- _ ra -- cu -- lis ser -- ra -- _ _ _ _ to,
ex -- au -- di po -- _ pu -- _ _ lum.
\set stanza = #"1. "
Con -- cur -- runt u -- ni -- ver -- _ _ si,
gau -- den -- tes po -- _ pu -- _ li,
}
textocantusb=\lyricmode {
I -- _ psum in -- gre -- di -- un -- _ _ _ _ tur,
ut cer -- nunt o -- _ cu -- li,
et __ _ in -- de re -- ver -- tun -- _ _ _ _ tur,
gra -- ci -- is re -- _ ple -- _ _ ti.
di -- vi -- tes et e -- ge -- _ _ ni,
gran -- des et par -- _ vu -- _ li.
}
textocantusc=\lyricmode {
Pec -- _ ca -- mi -- num pro -- cla -- _ _ _ _ mant,
tun -- den -- tes pe -- _ cto -- ra,
pop -- _ li -- te fle -- xo cla -- _ _ _ _ mant,
hic: A -- ve Ma -- _ ri -- _ _ a.
\set stanza = #"2. "
Prin -- ci -- pes et ma -- gna -- _ _ tes,
ex -- tir -- pe re -- _ gi -- _ a,
}
textocantusd=\lyricmode{
_ _ _ _ _ _ _ _ _ _ _ _ 
_ _ _ _ _ _ _ _ 
_ _ _ _ _ _ _ _ _ _ _ _ 
_ _ _ _ _ _ _ _ 
sæ -- cu -- li po -- te -- sta -- _ _ tes,
ob -- ten -- ta ve -- _ ni -- _ a.
}

textoaltus=\lyricmode{
Stel -- la splen -- dens in mon -- _ te,
ut so -- lis ra -- di -- um, _
mi -- ra -- cu -- lis ser -- ra -- _ to,
ex -- au -- di po -- pu -- lum.
\set stanza = #"1. "
Con -- cur -- runt u -- ni -- ver -- _ si,
gau -- den -- tes po -- pu -- li,
}
textoaltusb=\lyricmode {
I -- psum in -- gre -- di -- un -- _ tur,
ut cer -- nunt o -- cu -- li, _
et in -- de re -- ver -- tun -- _ tur,
gra -- ci -- is re -- ple -- ti.
di -- vi -- tes et e -- ge -- _ ni,
gran -- des et par -- vu -- li.
}
textoaltusc=\lyricmode {
Pec -- ca -- mi -- num pro -- cla -- _ mant,
tun -- den -- tes pe -- cto -- ra, _
pop -- li -- te fle -- xo cla -- _ mant,
hic: A -- ve Ma -- ri -- a.
\set stanza = #"2. "
Prin -- ci -- pes et ma -- gna -- _ tes,
ex -- tir -- pe re -- gi -- a,
}
textoaltusd=\lyricmode{
_ _ _ _ _ _ _ _ _ _ _ _ 
_ _ _ _ _ _ _ _ 
_ _ _ _ _ _ _ _ _ 
sæ -- cu -- li po -- te -- sta -- _ tes,
ob -- ten -- ta ve -- ni -- a.
}

incipitcantus=\markup{
	\score{
		{ 
		\set Staff.instrumentName="I  "
		\set Staff.clefGlyph = #"clefs.mensural.f"
		\set Staff.clefPosition = #-1
		\set Staff.middleCPosition = #3
		\override NoteHead.style = #'neomensural
		\cadenzaOn 
		\key c \major
		a2.*2/3
		} 
	\layout {
		\context {\Voice
			\remove Ligature_bracket_engraver
			\consists Mensural_ligature_engraver
		}
		\context{\Staff
			\remove Time_signature_engraver
			\override StaffSymbol.line-count = #4
		}
		line-width=\incipitwidth
		indent = 0
	}
	}
}


incipitaltus=\markup{
	\score{
		{
		\set Staff.instrumentName="II "
		\set Staff.clefGlyph = #"clefs.mensural.f"
		\set Staff.clefPosition = #-1
		\set Staff.middleCPosition = #3
		\override NoteHead.style = #'neomensural 
		\cadenzaOn 
		\key c \major
		d1*1/2
	} 
	\layout {
		\context {\Voice
			\remove Ligature_bracket_engraver
			\consists Mensural_ligature_engraver
		}
		\context{\Staff
			\remove Time_signature_engraver
			\override StaffSymbol.line-count = #4
		}
		line-width=\incipitwidth
		indent = 0
	}
	}
}



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

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

	
	\new Staff << \global
	\new Voice="v2" {
		\set Staff.instrumentName=\incipitaltus
		\clef "G_8" 
		\altus}
	\new Lyrics \lyricsto "v2" {\textoaltus }
	\new Lyrics \lyricsto "v2" {\textoaltusb }
	\new Lyrics \lyricsto "v2" {\textoaltusc }
	\new Lyrics \lyricsto "v2" {\textoaltusd }

	>>
>>

	}%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 }

}

%tablet \pageBreak
%tablet \markup{\vspace #4 }

\markup {\vspace #2 }

\markup{\fontsize #-1
\fill-line{
\column{
"Prelati et barones comites incliti"
"religiosi omnes atque presbyteri"
"milites mercatores cives marinari"
"burgenses piscatores præmiantur ibi."
}
\column{
"Rustici aratores nec non notarii"
"advocati scultores cuncti ligni"
"fabri sartores et sutores nec non lanifici"
"artifices et omnes gratulantur ibi."
}
\column{
"Reginæ comitissæ illustres dominæ"
"potentes et ancillæ juvenes parvulæ"
"virgines et antiquæ pariter viduæ"
"conscendunt et hunc montem et religiosæ."
}
}
}

\markup{\vspace #1 }

\markup{\fontsize #-1
\fill-line{
" "
\column{
"Cœtus hic aggregantur hic ut exhibeant"
"vota regratiantur ut ipsa et reddant"
"aulam istam ditantes hoc cuncti videant"
"jocalibus ornantes soluti redeant."
}
\column{
"Cuncti ergo precantes sexus utriusque"
"mentes nostras mundantes oremus devote"
"virginem gloriosam matrem clementiæ"
"in cœlis gratiosam sentiamus vere."
}
" "
}
}
\markup{\vspace #2 }
\markup{
\italic "\"Sequitur alia cantilena ad trepudium rotundum\""
}

\markup{\line{
"En el original después de cada estrofa se repite el ritornello "
\italic "Stella splendens ..."
}}


\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=2.1\cm
	system-system-spacing =
	#'((basic-distance . 24) (minimum-distance . 0) (padding . 5))
	top-system-spacing = % header
	#'((basic-distance . 8) (minimum-distance . 0) (padding . 0))
	last-bottom-spacing = % footer
	#'((basic-distance . 8) (minimum-distance . 0) (padding . 0))

}