\version "2.12.2"

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

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

htitle=""
hcomposer=""

\header {
	title=\markup{\fontsize #4 "Stella splendens"}
	subtitle="Llibre Vermell de Montserrat"
	composer="Anónimo (S. XIV)"
	%opus="(-)"
	%poet="Edición de "
	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 #'minimum-Y-extent = #'(-0.75 . 2.0) 
		%\override LyricText #'font-size = #1.2
		\override LyricHyphen #'minimum-distance = #0.33
	}
	\context {\Score 
		\override BarNumber #'padding = #2 
	}
	\context {\Voice 
		melismaBusyProperties = #'() 
	}
	%\context { \RemoveEmptyStaffContext }
	\context {\Staff 
		%\override VerticalAxisGroup #'minimum-Y-extent = #'(-4 . 4)
		\consists Ambitus_engraver 
		\override LigatureBracket #'padding = #1
	}
}

%\midi {}

}

\markup{\fontsize #-1
\fill-line{
\wordwrap-string #"
Prelati et barones comites incliti

religiosi omnes atque presbyteri

milites mercatores cives marinari

burgenses piscatores præmiantur ibi.
"
\wordwrap-string #"
Rustici aratores nec non notarii

advocati scultores cuncti ligni

fabri sartores et sutores nec non lanifici

artifices et omnes gratulantur ibi.
"
\wordwrap-string #"
Reginæ comitissæ illustres dominæ

potentes et ancillæ juvenes parvulæ

virgines et antiquæ pariter viduæ

conscendunt et hunc montem et religiosæ.
"
}
}

\markup{}
\markup{}

\markup{\fontsize #-1
\fill-line{
" "
\wordwrap-string #"
Cœtus hic aggregantur hic ut exhibeant

vota regratiantur ut ipsa et reddant

aulam istam ditantes hoc cuncti videant

jocalibus ornantes soluti redeant.
"
\wordwrap-string #"
Cuncti ergo precantes sexus utriusque

mentes nostras mundantes oremus devote

virginem gloriosam matrem clementiæ

in cœlis gratiosam sentiamus vere.
"
" "
}
}
\markup{}
\markup{}
\markup{}

\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 ..."
}}
\markup{}

\paper{
	%page-limit-inter-system-space = ##t        %cuando hay 6 voces
	%page-limit-inter-system-space-factor = 1.3 %cuando hay 6 voces
	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=8
	%line-width=19.0\cm
	ragged-last-bottom = ##f
	indent=2.1\cm
	between-system-padding = 0
	%foot-separation=2\mm
	%head-separation=1\mm
}