\version "2.18.0"

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

mtempo={\tempo 4 = 100}
mtempob={\tempo 4 = 50}

colorclaro=#(rgb-color .8 .8 .8)
coloroscuro=#(rgb-color 0 0 0)

mnon={
\override NoteHead.color = \colorclaro
\override Stem.color = \colorclaro
\override Beam.color = \colorclaro
\override Flag.color = \colorclaro
\override Dots.color = \colorclaro
\override Tie.color = \colorclaro
\override Rest.color = \colorclaro
\override AccidentalSuggestion.color = \colorclaro
\override MultiMeasureRest.color = \colorclaro
}
mnoff={
\override NoteHead.color = \coloroscuro
\override Stem.color = \coloroscuro
\override Beam.color = \coloroscuro
\override Flag.color = \coloroscuro
\override Dots.color = \coloroscuro
\override Tie.color = \coloroscuro
\override Rest.color = \coloroscuro
\override AccidentalSuggestion.color = \coloroscuro
\override MultiMeasureRest.color = \coloroscuro
}

italicas=\override LyricText.font-shape = #'italic
rectas=\override LyricText.font-shape = #'upright
ss=\once \set suggestAccidentals = ##t
incipitwidth = 20
letrapequena=\override LyricText.font-size = #-1
mt=#(define-music-function (parser location offset) (number?) ; move lyric text
      #{ \once \override LyricText.X-offset = -$offset #})


htitle="Felix per omnes"
hcomposer="Morales"

\header {
	title=\markup{\fontsize #3 "Felix per omnes"}
	subtitle="[In festo SS. Apostolrum Petri en Pauli]"
	subsubtitle=\markup{"(ad primas vesperas, 29 de junio)" }
	composer=\markup{\right-column{"Cristóbal de Morales (c.1500-1553)" \smaller \raise #1 "Reconstrucción: Michael Noone"}}
        pdfauthor=\composer
	%opus="(-)"
	poet=\markup{\smaller "Toledo, Códice 25"} 
	copyright=\markup{
		\fill-line {"Edited by Nancho Alvarez" \typewriter "http://tomasluisdevictoria.org"}
	}
%	tagline=""
}

%1 Felix per omnes festum mundi cardines Apostolorum praepollet alacriter Petri beati , Pauli sacratissimi , Quos Christus almo consecravit sanguine , Ecclesiarum deputavit principes .
%2 Hi sunt olivae duae coram Domino , Et candelabra luce radiantia , Praeclara coeli duo luminaria , Fortia solvunt peccatorum vincula , Portas Olympi reserunt fidelibus .
%3 Habent supernas potestatem claudere Sermone sedes , pandere splendentia Limina poli super alta sidera , Linguae eorum claves coeli factae sunt , Larvas repellunt ultra mundi limitem .
%4 Petrus beatus catenarum laqueos Christo jubente rupit mirabiliter Custos ovilis , et doctor Ecclesiae , Pastorque gregis , conservator ovium , Arcet luporum truculentam rabiem .
%5 Quodcumque vinclis super terram strinxerit Erit in astris religatum fortiter ; Et quod resolvit in terris arbitrio Erit solutum super coeli radium ; In fine mundi judex erit saeculi .
%6 Non impar Paulus huic , doctor gentium , Electionis templum sacratissimum , In morte compar , in corona particeps , Ambo lucernae et decus ecclesiae In orbe claro coruscant vibramine .
%7 O Roma felix , quae duorum principum Es purpurata pretioso sanguine , Excellis omnem mundi pulchritudinem , Non laude tua sed sanctorum meritis , Quos cruentatis jugulasti gladiis .
%8 Vos ergo modo gloriosi martyres , Petre beate , Paule mundi lilium , Coelestis aulae triumphales milites , Precibus almis vestris nos ab omnibus Munite malis , ferte super aethera .
%9 Gloria Deo per immensa saecula ; Sit tibi Nate decus et imperium , Honor , potestas , sanctoque Spiritui ; Sit Trinitati salus individuae Per infinita saeculorum saecula .

global={\key c \major \time 2/2 \skip 1*47 \bar "||" \pageBreak
				\skip 1*46 \bar "|."

}

% Este canto llano está tomado del Intonarium 1564. Catedral primada.
\score {\transpose c c {
<<
         \new Voice = "canto" {
                 \override Staff.TimeSignature.stencil = #'()
                 \override Stem.transparent = ##t
                 \set Score.timing = ##f
                 \override NoteHead.style = #'neomensural         
                 \clef "G_8" 
                 \key a \minor
                 \override LigatureBracket.padding = #1
                 c4 c d \[d e\] d e f \bar ";"
                 \[g f\] \[f g a\] \[a g\] f \[e d\] \bar "|" \break
                 \[d a\] a g \[a b\] g \bar ";"
                 g f e c d e e \bar "|"
                 g g f e d \bar ";" \break
                 e f d c d e e \bar "|"
                 \[e f\] g f g a \bar ";"
                 a c' \[b c'\] a g
                 f \[f g a\] \bar "|" \break
                 \[a g\] e f e d \bar ";"
                 f \[f a g\] \[e d\] e \[f d\] % la ultima nota es e?
                 \[c d\] d 
                 \bar "||"
         }
         \new Lyrics \lyricsto "canto" {
         	 \set stanza = "1."
         	 Fe -- lix per om -- _ nes fes -- tum mun -- _ di __ _ _ 
         	 car -- _ di -- nes __ _
         	 A -- _ pos -- to -- lo -- _ rum
         	 præ -- pol -- let a -- la -- cri -- ter:
         	 Pe -- tri be -- a -- ti
         	 Pau -- li sa -- cra -- tis -- si -- mi
         	 quos __ _ Chri -- stus al -- mo con -- se -- cra -- _ vit san -- gui -- ne __ _ _
         	 ec -- _ cle -- si -- a -- rum de -- pu -- _ _ ta -- _ vit
         	 prin -- _ ci -- _ pes. 
         }
         \new Lyrics \lyricsto "canto" {
         	 \set stanza = "3."
         	 Ha -- bent su -- per -- _ nas po -- te -- sta -- _ tem __ _ _
         	 clau -- _ de -- re __ _ ser -- _ mo -- ne se -- _ des
         	 pan -- de -- re splen -- den -- ti -- a:
         	 li -- mi -- na po -- li su -- per al -- ta si -- de -- ra
         	 lin -- _ guæ e -- o -- rum cla -- ves cæ -- _ li
         	 fa -- ctæ sunt __ _ _ 
         	 lar -- _ vas re -- pel -- lunt ul -- tra __ _ _ mun -- _ di li -- _ mi -- _ tem.
         }
         \new Lyrics \lyricsto "canto" {
         	 %\letrapequena
         	 \set stanza = "4."
         	 Pe -- trus be -- a -- _ tus ca -- te -- na -- _ rum __ _ _ 
         	 la -- _ que -- os __ _
         	 Chri -- _ sto iu -- ben -- _ te
         	 ru -- pit mi -- ra -- bi -- li -- ter:
         	 cus -- tos o -- vi -- lis
         	 et do -- ctor ec -- cle -- si -- æ
         	 pas -- _ tor -- que gre -- gis
         	 con -- ser -- va -- _ tor o -- vi -- um __ _ _ 
         	 ar -- _ cet lu -- po -- rum
         	 tru -- cu -- _ _ len -- _ tam ra -- _ bi -- _ em.
         }
         \new Lyrics \lyricsto "canto" {
         	 \set stanza = "5."
         	 %\letrapequena
         	 Quod -- cum -- que vin -- _ clis
         	 su -- per ter -- _ ram __ _ _ strin -- _ xe -- rit __ _
         	 e -- _ rit in as -- _ tris re -- li -- ga -- tum
         	 for -- ti -- ter:
         	 et quod re -- sol -- vit
         	 in ter -- ris ar -- bi -- tri -- o
         	 e -- _ rit so -- lu -- tum su -- per
         	 cæ -- _ li ra -- di -- um __ _ _
         	 in __ _ fi -- ne mun -- di iu -- dex __ _ _ e -- _ rit
         	 sæ -- _ cu -- _ li.

         }
         \new Lyrics \lyricsto "canto" {
         	 \set stanza = "6."
         	 %\letrapequena
         	 Non im -- par Pau -- _ lus hu -- ic
         	 do -- _ ctor __ _ _ gen -- _ ti -- um __ _
         	 e -- _ le -- cti -- o -- _ nis
         	 tem -- plum sa -- cra -- tis -- si -- mum:
         	 in mor -- te com -- par
         	 in co -- ro -- na par -- ti -- ceps
         	 am -- _ bo lu -- cer -- næ
         	 et de -- cus __ _ ec -- cle -- si -- æ __ _ _ 
         	 in __ _ or -- be cla -- ro
         	 co -- rus -- _ _ cant __ _ vi -- bra -- _ mi -- _ ne.
         }
   

         
>>
        }%transpose

\layout {
        
        %line-width=16\cm 
        indent=0.5\cm
        %ragged-right = ##f
        \context {\Lyrics 
        \override VerticalAxisGroup #'nonstaff-nonstaff-spacing =
			#'((basic-distance . 0) (minimum-distance . 0) (padding . 1.4))
         }
}
}

%tablet \pageBreak



cantus=\relative c'{
	c2 c
	d \[d
	e\] d
	e2 f ~
	f \[g
	f\] \[f
	g\] a
	\[a g\]
	f e
	d1
	R1*2
	\[d2 a'\]
	a2 g
	\[a b!\]
	g2 g ~
	g4 f e d8 c
	d4 d e2 ~
	e r
	g2 g
	f e
	d e
	f d
	c d
	e2 r2
	R1
	r2 \[e
	f\] g
	f g
	a1
	R1
	r2 a
	c \[b
	c\] a
	g2. f8 e
	f g a2 g4
	a2 r
	\[a2 g\]
	e2 f
	e d2 ~
	d f  % mn lo reconstruye diferente
	\[f2 a
	g1\] 
	\[e2 d\]
	e2 f4. e8
	c4 d2 \ss cis4
	d\breve*1/2
	R1
	c2 c
	d \[d
	e\] d
	e f
	\[g f\]
	\[f g\]
	a \mnon a
	\[g f\]
	e2 d ~
	d r
	r \mnoff \[d
	a'\] a
	g \[a
	\ss b\] g
	g f
	e c
	d4 \mnon e2 d4
	e1 \mnoff
	g2 g
	f e
	d e
	f d
	c d
	e e
	r2 \[e
	f\] g4. f8
	g4 a2 \mnon \ss gis4
	a1 \mnoff
	r2 a
	c1
	\[b2 c4.\] \ss bes8
	a4 g f2
	g a
	\[a g\]
	e f
	e d ~
	d r 
	\mnon f \mnoff \[f
	a2 g ~ \]
	g \[e
	d\] e ~
	e f ~
	f d ~
	d \ss cis
	d\breve*1/2
}

cantusdos=\relative c'{
       R1*47
       s4*0^\markup{\hspace #-1 "Cantus II"}
       R1*2
       f2 f4 g
       a4. g8 f4 g
       a4 c2 b4
       c4. \ss bes8 a g f e % mn b
       d4 f2 e4
       f4. g8[ a b] c4 ~
       c8 d e4. d8 d4 ~
       d \ss cis d4 d,8 e
       f g a4. b8 c d
       e4 a, \ss bes d
       c4. d8 e4 a, 
       r4 d, e f
       g4. a8 b c d4
       c b4. a8 a4 ~
       a g a2
       r2 r4 a
       a c a g8 f
       e8 f g a b2
       a4. b8 c4 a4 ~
       a g a c
       c a \ss bes a4 ~
       a8 g e4 f a
       g8 f e d c2
       R1*2
       r2 \[b'2
       c\] d4. c8
       d4 e2 d4
       e2 r4 a,
       d4 g,2 a4
       a \ss bes a2
       r2 r4 c
       c c b2
       a4 c2 a4
       b c d4. c8
       b4 g a2
       a4 d,8[ e f g] a4 ~
       a8 b c2 b4
       c4. b8 g4 a4 ~
       a g a2
       r4 g c4. b8 
       a8 g f2 d8 e
       f8 g a4. g8 e4
       \ss fis\breve*1/2
}

altus=\relative c'{
       g2 a ~
       a4 f a b
       c8 d e f g2
       a2 r4 a ~
       a8 g f e d c b4
       a4. g8 a4 f
       c'2 r4 c
       d c4. d8 e4
       a, d2 \ss cis4
       d2 r
       \[a2 e'\]
       e4. d8 e4 f ~
       f d f2 ~
       f4 e8[ d e f] g4 ~
       g4 \ss fis g d
       e2 d
       d4. c8 b4 a8 g
       \mnon a4 \mnoff a4 b2
       r4 b c d
       e2 e4 d8 e
       f g a2 g8 f
       g2 a4 a,
       a d4. c8 b a
       g4 a2 b4
       c2 r
       r4 c b g
       a2 g4 g'
       a8 g f e d c d4
       c f2 e4
       f2 r4 e ~
       e g4. f8 d4
       e1
       a2 \mnon g4. f8
       e2. \mnoff f4
       d e4. d8 c b
       c4 f2 e8 d
       c4 d d e
       f e2 d4
       c e4. d8 d4 ~
       d \ss cis d a 
       bes a d2 ~
       d4 f f4. e8
       d4 d e4. d8
       c b c2 b4
       c2 f,4. g8
       a1
       a\breve*1/2
       R1*4
       c2 c4 d
       e4. d8 c4 d ~
       d8 c c2 \ss bes4
       c2 r4 f ~
       f e f a
       a4. g8[ f e] f4
       d4 f2 e4 ~
       e d8 c d4 d
       c e e f
       d g2 f4
       e4 d8 c d4 b
       c4 g a2
       r2 a
       a4 c a4. b8 
       c1
       e2. d8 c
       d4 c c2
       d4 g, c2 ~
       c r
       r2 r4 a
       b c4. b8 a4 ~
       a4 g8 f g2
       a4 d2 e4 ~
       e4 c d2
       e f ~
       f4 e f2
       e a
       g e4 f ~
       f8 e d4 c d ~
       d e f f
       f f d e ~
       e8 d c b a4 a'
       g e f2
       d e
       d4. c8 a4 f' ~
       f4 f e d
       e2. c4
       d2 r4 a ~
       a4 b c2 ~
       c4 a bes2
       a1
       a\breve*1/2
}

tenor=\relative c'{
	R1*2
	r2 g
	c2. a4
	c4 d b d ~
	d4 c8 b c4 d
	e4 c4. b8 a g
	f2 r
	\[d2 a'\]
	a4. g8 a4 b
	c d b c ~
	c b8 a b4 a8 g
	a4 b c d
	c2 r4 c ~
	c4 c d b
	c2. b4
	a2 g4 f8 e
	f2 e ~
	e r4 a 
	b c \mnon g8 \noBeam \mnoff a b c
	d4 a c2
	b4 d2 \ss cis4
	d4 a b g ~
	g f8 e f4 f
	g4 c b g
	a2 g4 d' ~
	d4 c2 b4
	c d g, \ss bes
	c d \ss bes2
	c1
	R1
	a2 c4. d8
	e4 f d e ~
	e8 d c b c4 d
	b4 c4. b8 a g
	a2 b
	r4 a a b
	c2. b4
	c8 b a g a2
	r4 a2 f4
	g a2 bes4
	a d4. c8 c4 ~
	c4 b \mnon c g ~
	g4 \mnoff a2 f4
	g4 a4. g8 f4 ~
	f4 e8 d e2
	d\breve*1/2
	R1
	f2 f4 g
	a2 bes
	a2 r
	R1
	r4 c f, \ss bes ~
	bes4 a g g
	f8[ g] a[ b] c4 a
	c4. b8 a2
	R1
	\[d,2 a'\]
	a2 g
	a4. b8 c2
	b4 d4. c8 c4
	b2 r4 d
	e d4. c8 d4
	b c4. b8 a g
	f4 e f2
	r4 a a c4 ~
	c4 b8 a g2
	a1
	r2 r4 a
	a f g f4 ~
	f8 \noBeam g a4 d,2
	R1
	\[b'2 c\]
	d2 b4 c ~
	c4 a b e,
	a1 ~
	a
	a8 b c d e4 f
	d e4. d8 c4 ~
	c4 \ss bes c a
	\ss bes2 c ~
	c r
	r4 a2 f4
	g a d, a'
	b d2 \ss cis4
	d1
	c2 r4 g ~
	g c2 a4
	bes2 a4 c ~
	c b a4. g8
	f e f4. d8 f4 ~
	f8 d f4 e2
	d\breve*1/2
}

bassus=\relative c{
	c2 f ~
	f4 d f g
	c,4 c'2 b4
	a4. g8[ f e] f4 ~
	f4 d g4. f8
	d4 f4. e8 d4
	c2 f
	d4 f c2
	r2 a
	d4. e8 f4 g
	f d e a,8 b
	c d e f g4 f8 e
	d4 g f d8 e
	f g a b c4. b8
	a2 g
	c,8 d e f g2
	d2 r
	r g
	g f
	e4 c8 d e f g4
	d8 e f g a b c4
	g \ss bes a2
	d,4 d g4. f8 
	e4 f d2
	c2 \[e
	f\] g
	f g
	f4 \ss bes2 g4
	a4 \ss bes g2
	f2 a
	c \[ b!
	c4.\] b8[ a g] a4 ~
	a f g g
	c,2 r
	R1
	r4 d d e
	f d f g
	f8 g a b c4 g 
	a2. f4
	g4 a d,2
	r4 d2 \ss bes4
	d4. e8 f2
	g2 c, ~
	c4 a d2
	c2 d
	a1
	d\breve*1/2
	f2 f4 g
	a4. g8 f4 e
	d2 r4 g
	c a bes2
	a4. g8[ f e] d4
	c2 r
	R1
	r4 f2 f4
	c c d8 e f g
	a4 a d,2
	r4 d2 c8 b
	c4 d \ss bes2
	a4 a'2 f4
	g \ss bes a a
	g1
	r2 d
	e f4. e8 d4 c d2
	a1
	r4 e' e g
	d8 e f g a b c a
	\ss bes2 a
	R1
	r4 a4 a f
	g a a,8 b c d
	e1
	d2 r
	R1
	a2 d ~
	d4 \ss cis d2
	a4 a'2 f4
	g2 c,4 f ~
	f g a d,
	g2 f4 f
	f2 g
	a2 r
	r4 a2 f4
	g \ss bes a a
	d,1
	f2 g
	c,2 r
	r4 g' c4. b8
	a4 g f2 ~
	f bes,4. c8
	d2 a
	d\breve*1/2
}



textocantus=\lyricmode{
\set stanza = "2."
Hi sunt o -- li -- _ væ du -- æ co -- _ ram __ _ _ Do -- _ mi -- no __ _
et __ _ can -- de -- la -- _ bra lu -- ce ra -- di -- _ an -- ti -- a:
præ -- cla -- ra cæ -- li du -- o lu -- mi -- na -- ria % coeli en latin medieval
for -- _ ti -- a sol -- vunt % solunt
pec -- ca -- to -- _ rum vin -- cu -- _ la __ _ _ _ _ 
por -- _ tas o -- lim -- pi
re -- fe -- _ _ rant __ _ fi -- de -- _ li -- _ _ bus.
\set stanza = "7." % en otras fuentes esta es la estrofa 9
Glo -- ri -- a De -- _ o
per im -- men -- _ sa __ _ _ sæ -- cu -- _ _ la
sit __ _ ti -- bi na -- _ te de -- cus 
et im -- pe -- _ ri -- um:
ho -- nor po -- tes -- tas
san -- cto -- que spi -- ri -- tu -- \italicas i \rectas % spiritu
sit __ _ Tri -- ni -- ta -- _ _ ti
sa -- lus in -- _ di -- vi -- du -- æ
per in -- fi -- _ ni -- _ ta __ _ 
sæ -- cu -- lo -- rum % ligatura articulada, esto no puede ser
sæ -- _ cu -- la.
A -- _ men.
}

% texto libremente aplicado

textocantusdos=\lyricmode{
\set stanza = "7."
Glo -- ri -- a de -- o per im -- \mt #1.2 men -- _ _ _ _ _ _ _ _ \italicas sa \rectas
sæ -- _ _ _ _ _ _ _ _ _ _ cu -- \italicas la \rectas
sit __ _ _ _ ti -- bi __ _ _ _ _ _ _ 
na -- _ _ te
de -- cus __ _ _ et im -- _ pe -- _ _ _ _ ri -- um
ho -- nor po -- tes -- _ _ _ _ _ _ tas,
po -- _ _ \italicas tes -- _ tas \rectas
san -- cto -- que spi -- ri -- _ _ \italicas _ tu -- i __ _ _ _ _ \rectas
sit __ _ tri -- ni -- \italicas ta -- _ _ ti \rectas
sa -- lus in -- di -- vi -- du -- a
in -- fi -- ni -- ta __ _ sæ -- cu -- lo -- rum
sæ -- cu -- la,
\italicas
in -- fi -- ni -- ta __ _ _ _ _ _ 
sæ -- cu -- lo -- _ rum sæ -- cu -- la.
A -- men, __ _ _ _ _ 
a -- _ _ _ _ _ _ \rectas men.
}

textoaltus=\lyricmode{
\set stanza = "2."
Hi sunt o -- li -- væ du -- _ _ _ _ e
\italicas du -- _ _ _ _ _ _ _ _ _ _ e \rectas
co -- ram Do -- _ _ _ _ \italicas mi -- no \rectas
et __ _ can -- de -- la -- _ _ _ _ _ _ _ _ _ _ _ _ \italicas bra \rectas
lu -- ce -- ra -- di -- _ an -- ti -- a
pre -- cla -- _ \italicas ra
cæ -- li __ _ _ _ _ _ _ du -- o \rectas % el original pone "celi duo"
lu -- mi -- na -- _ _ _ _ _ ri -- a
for -- ti -- a sol -- vunt, % solunt
\italicas for -- ti -- _ _ _ _ _ _ a sol -- _ vunt \rectas
pec -- ca -- _ to -- rum
vin -- cu -- _ _ _ la,
\italicas
vin -- cu -- _ _ _ _ _ _ la, \rectas
por -- tas o -- lim -- pi, \italicas o -- lim -- _ _ _ _ pi \rectas
re -- fe -- _ rant fi -- de -- \italicas li bus,
fi -- de -- _ _ _ _ _ _ li -- _ _ \rectas bus.
\set stanza = "7."
Glo -- ri -- a De -- o per im -- _ men -- _ \italicas sa \rectas
per im -- men -- _ sa __ _ _ _ sæ -- cu -- la, __ _ _ _ _
sit ti -- bi na -- _ te de -- cus __ _ et _ im -- pe -- _ ri -- um
ho -- nor po -- tes -- _ tas,
ho -- nor _ po -- tes -- tas,
\italicas po -- tes -- tas \rectas
san -- cto -- que __ _ spi -- ri -- _ tu -- i,
sit tri -- ni -- ta -- ti,
\italicas
tri -- ni -- ta -- ti,
\rectas
sa -- lus in -- _ _ _ \italicas di -- vi -- du -- a
\rectas
per in -- fi -- ni -- ta, __ _ _ _ _ 
sæ -- cu -- lo -- rum,
\italicas
sæ -- cu -- lo -- _ rum
\rectas
sæ -- cu -- la __ _ 
\italicas sæ -- cu -- la.
\rectas
A -- _ \italicas men, a -- men, a -- men.
}

textotenor=\lyricmode{
\set stanza = "2."
Hi sunt o -- li -- væ du -- æ co -- _ ram __ _ _ Do -- mi -- _ _ no
et __ _ can -- de -- la -- bra __ _ _ _ _ _ _ _ _ _ _ _ _ _ _
lu -- ce ra -- di -- an -- _ _ _ _ _ ti -- a
pre -- cla -- ra __ _ _ _ _ cæ -- _ li __ _ _ _ _ 
du -- o lu -- mi -- _ na -- ri -- a,
for -- ti -- a sol -- vunt,
\italicas
for -- ti -- a sol -- _ _ _ _ _ _ vunt \rectas
pec -- ca -- _ \italicas to -- _ _ _ _ _ _ _ _ rum \rectas
vin -- cu -- _ _ _ la
por -- tas o -- lim -- _ _ _ _ _ pi
re -- fe -- _ rant fi -- de -- _ _ li -- _ _ _ _ _ _ _ _ _ _ _ _ bus.
\set stanza = "7."
Glo -- ri -- a \italicas De -- _ \rectas o
per im -- men -- _ _ \italicas sa \rectas
sæ -- _ cu -- _ la __ _ _ _ _ 
sit __ _ ti -- bi na -- _ _ _ _ _ _ \italicas te \rectas
de -- cus et __ _ \italicas im -- \rectas pe -- ri -- _ _ _ _ _ um
ho -- nor po -- _ _ tes -- tas
san -- cto -- \mt #.5 que __ _ spi -- ri -- tu -- i
sit __ _ tri -- ni -- ta -- _ _ _ \italicas ti, \rectas
sa -- _ _ _ \italicas lus \rectas in -- di -- vi -- du -- _ _ _ _ _ 
\italicas a \rectas
sæ cu -- lo -- _ rum sæ -- cu -- la __ _ _ _
sæ -- cu -- lo -- _ rum sæ -- cu -- la. __ _ _ _ 
A -- _ _ _ _ _ men.
}

textobassus=\lyricmode{
\set stanza = "2."
Hi sunt o -- li -- _ væ du -- æ __ _ _ _ _ _ _ co -- _ _ \italicas ram __ _ _ _ \rectas 
Do -- mi -- _ no
et can -- de -- la -- bra __ _ _ _ _ _ _ _ _ _ _ _ _ _
lu -- ce ra -- _ di -- _ _ _ an -- ti -- a __ _ _ _ _ _ _ _ 
pre -- cla -- _ ra cæ -- _ li __ _ _ _ _ _ _ _ _ _ _ _ _ 
du -- o lu -- mi -- na -- ri -- a, __ _
for -- _ ti -- a sol -- vunt,
\italicas
for -- ti -- a sol -- _ vunt
\rectas
pec -- ca -- to -- _ rum __ _ _ _ 
vin -- _ cu -- la
por -- tas o -- lim -- pi,
\italicas
por -- _ tas __ _ _ _ _ _ _ 
o -- lim -- _ pi
re -- fe -- rant fi -- de li -- bus,
\italicas fi -- de -- li -- _ _ \rectas bus. 
\set stanza = "7."
Glo -- ri -- a \italicas De -- _ _ _ \rectas o
glo -- ri -- a \italicas De -- _ _ _ _ _ \rectas o
per im -- men -- sa \italicas sæ -- _ _ _ _ \rectas cu -- la
sit \italicas ti -- _ _ bi na -- te de -- cus et im -- pe -- ri -- um
% sit trinitati decus et imperium
\rectas
de -- cus et im -- pe -- ri -- um __ _
ho -- nor \italicas po -- tes -- _ _ _ _ _ _ _ _ \rectas tas
san -- cto -- que __ _ spi -- ri -- _ _ _ tu -- i
sit tri -- ni -- ta -- ti,
sa -- _ _ \italicas lus in -- di -- vi -- du -- a
per in -- fi -- ni -- ta
sæ -- \italicas cu -- lo -- _ \mt #1.5 rum sæ -- \rectas cu -- _ _ la.
A -- men, __ _ _ \italicas a -- men, a -- _ _ _ men.
}


incipitcantus=\markup{
	\score{
		{ 
		\set Staff.instrumentName="Cantus " % Tiple
		\override NoteHead.style = #'neomensural
		\override Staff.TimeSignature.style = #'neomensural
		\cadenzaOn 
		\clef "petrucci-c1"
		\key c \major
		\time 2/2
		c'1
		} 
	\layout { line-width=\incipitwidth indent = 0 }
	}
}

incipitcantusdos=\markup{
	\score{
		{ 
		\set Staff.instrumentName="Cantus II "  % Tiple 2
		\override NoteHead.style = #'neomensural
		\override Staff.TimeSignature.style = #'neomensural
		\cadenzaOn 
		\clef "petrucci-c1"
		\key c \major
		\time 2/2
		f'1
		} 
	\layout { line-width=\incipitwidth indent = 0 }
	}
}

incipitaltus=\markup{
	\score{
		{ 
		\set Staff.instrumentName="Altus    "
		\override NoteHead.style = #'neomensural 
		\override Staff.TimeSignature.style = #'neomensural
		\cadenzaOn 
		\clef "petrucci-c3"
		\key c \major
		\time 2/2
		g1
		} 
	\layout { line-width=\incipitwidth indent = 0 }
	}
}


incipittenor=\markup{
	\score{
		{ 
		\set Staff.instrumentName="Tenor   "
		\override NoteHead.style = #'neomensural 
		\override Staff.TimeSignature.style = #'neomensural
		\cadenzaOn 
		\clef "petrucci-c4"
		\key c \major
		\time 2/2
		g1
		} 
	\layout { line-width=\incipitwidth indent=0 }
	}
}

incipitbassus=\markup{
	\score{
		{ 
		\set Staff.instrumentName="Bassus "
		\override NoteHead.style = #'neomensural
		\override Staff.TimeSignature.style = #'neomensural
		\cadenzaOn 
		\clef "petrucci-f3"
		\key c \major
		\time 2/2
		c1
		} 
	\layout { line-width=\incipitwidth indent = 0 }
	}
}


\score {\transpose c' c'{
\new ChoirStaff<<
 
        %\new ChoirStaff \with {systemStartDelimiter = #'SystemStartBrace } <<
	\set StaffGroup.systemStartDelimiter = #'SystemStartBrace
	\new Staff <<\global
	\new Voice="v1" {
		\set Staff.instrumentName=\incipitcantus
		\clef "treble"
		\cantus }
	\new Lyrics \lyricsto "v1" {\textocantus }
	>>

       \new Staff \with{\remove Ambitus_engraver } <<\global
       \new Voice="v5" {
		\set Staff.instrumentName=\incipitcantusdos
		\clef "treble"
		\cantusdos }
	\new Lyrics \lyricsto "v5" {\textocantusdos }
        >>
       %>>
        
	\new Staff <<\global
	\new Voice="v2" {
		\set Staff.instrumentName=\incipitaltus
		\clef "G_8"
		\altus }
	\new Lyrics \lyricsto "v2" {\textoaltus }
	>>
	
	\new Staff <<\global
	\new Voice="v3" {
		\set Staff.instrumentName=\incipittenor
		\clef "G_8"
		\tenor }
	\new Lyrics \lyricsto "v3" {\textotenor }
	>>

	\new Staff <<\global
	\new Voice="v4" {
		\set Staff.instrumentName=\incipitbassus
		\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 . 10) (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=8
	page-count = 5
	ragged-last-bottom = ##f
	indent=3.4\cm
	system-system-spacing =
	#'((basic-distance . 20) (minimum-distance . 0) (padding . 2))
	top-system-spacing = % header
	#'((basic-distance . 10) (minimum-distance . 0) (padding . 0))
	last-bottom-spacing = % footer
	#'((basic-distance . 12) (minimum-distance . 0) (padding . 0))
	%top-markup-spacing #'basic-distance = 0
	markup-system-spacing #'basic-distance = 18
	score-system-spacing #'basic-distance = 0

}