\version "2.22.0"

#(set-default-paper-size "a4")
#(set-global-staff-size 16.8)
#(ly:set-option 'point-and-click #f)
%mobile -s14.0 -i3.0

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
% he editado tanto la colocación del texto que no merece la pena 
% indicarlo con italicas
italicas=\override LyricText.font-shape = #'upright
rectas=\override LyricText.font-shape = #'upright
ss=\once \set suggestAccidentals = ##t
incipitwidth = 18
mt=#(define-music-function (offset) (number?) ; move lyric text
      #{ \once \override LyricText.X-offset = -$offset #})

htitle="Ave maris stella"
hcomposer="Morales"

\header {
	title=\markup{\fontsize #3 "Ave maris stella"}
	%subtitle=""
	subsubtitle=\markup{\null \vspace #2 }
	composer=\markup{\right-column{"Cristóbal de Morales (c.1500-1553)" \smaller \raise #.5 "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=""
}

% Este canto llano está tomado de un Psalterio de Vísperas sin catalogar. 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
                 d4 \[a a b\]
                 \[a g\] \[a b\] d'
                 \[c' b a g\] \bar ";"
                 a a
                 \[d e\] g \[f e d e\] d \bar ";" \break
                 f e g a a \[d e f e d c\] \bar ";"
                 e g e f e d \bar "||"
         }
         \new Lyrics \lyricsto "canto" {
         	 \set stanza = "1."
         	 A -- ve __ _ _ ma -- _ ris __ _ stel -- la __ _ _ _
         	 De -- i ma -- _ ter al -- _ _ _ ma:
         	 At -- que sem -- per vir -- go __ _ _ _ _ _ 
         	 Fe -- lix cæ -- li por -- ta.
         }
         \new Lyrics \lyricsto "canto" {
         	 \set stanza = "3."
         	Sol -- ve __ _ _ vin -- _ cla __ _ re -- is __ _ _ _
         	Pro -- fer lu -- _ men cæ -- _ _ _ cis:
         	Ma -- la no -- stra pel -- le __ _ _ _ _ _ 
         	Bo -- na cun -- cta po -- sce.
         }
         \new Lyrics \lyricsto "canto" {
         	 \set stanza = "5."
         	Vir -- go __ _ _ sin -- _ gu -- _ la -- ris __ _ _ _
         	In -- ter om -- _ nes mi -- _ _ _ tis:
         	Nos cul -- pis so -- lu -- tos __ _ _ _ _ _ 
         	Mi -- tes fac et cas -- tos.
         }
         
>>
        }%transpose

\layout {
        %line-width=16\cm 
        indent=0.5\cm
        %ragged-right = ##f
}
}

%tablet \pageBreak

\markup{\null \vspace #1 } %notablet


global={\key c \major \time 3/2 \skip 1*3/2*29 \bar "||" 
        \break
	\override Score.TimeSignature.break-visibility = #'#(#f #t #t)
	\time 2/2
	\skip 1*43 \bar "||"
	\break
	\time 2/2
	\skip 1*50 \bar "||"
        \pageBreak
}


cantus=\relative c'{
	R1*3/2*3
	d2 \[a'1
	b\] g2
	a2 b4 c d2
	c4 b4. a8 a2 \ss gis4
	a1.
	R1*3/2
	\mnon
	a2 a1
	d,2 \mnoff e1
	f1 g4 f
	e f4. e8 d2 \ss cis4
	d1.
	R1*3/2
	\mnon f1.
	e1 g2
	a1 \mnoff a2 ~
	a2 d,2 e
	f4. e8 d4 c2 b4
	c1 r2
	e2 g e
	\mnon f1.
	e1.
	d1 r2
	e1.
	g1 \mnoff e2
	f4 e4. d8 d2 \ss cis4
	d\breve*3/4
	\mnon
	\once \override Score.TextScript.X-offset = #-2
	s4*0^\markup{\smaller "(Cantus)"}
	R1
	d1
	\[a'
	b\]
	g \mnoff
	a1 ~
	a2 b
	c d ~
	d1
	c1
	b2 a ~
	a \ss gis
	a1 ~
	a
	r2 a
	a1
	d,2 \mnon e
	f g ~
	g f
	g e \mnoff
	a2 g8[ f] f[ e16 d]
	e2 d ~
	d r
	f1
	e
	g
	a
	a ~
	a
	d, ~
	d
	\mnon
	e
	f
	e2 e ~
	e4 \mnoff d8 c d2
	c1
	r2 e
	g1
	r4 e g2 ~
	g e
	f1
	e4 d e2
	d\breve*1/2
	\mnon
	d1
	\[a'1 ~
	a
	b2.\] g4 \mnoff
	a2 b4 c
	d4. c8[ b a] a4 ~
	a \ss gis8 \ss fis gis2
	a1
	d,2. e4
	\mnon
	f4. g8[ a b] c4 ~
	c8 b g a \mnoff b c d4 ~
	d8 c a4. b8 c4
	a4 b4. a8 a4
	g4 a2 \ss gis4 % mn sugiere tambien primer sol sostenido
	a2 r
	r2 \mnon a ~
	a a
	d, e
	f4 d8[ e f g] a4 ~
	a4 \mnoff g a f8 g
	a b c4. b8 g4 ~
	g8 a b4. c8 d4 ~
	d \mnon c8 b c4 a4 ~ 
	a8 \noBeam \mnoff g e4 f2
	e1 ~
	e
	R1
	r2 g ~
	g4 a b g
	c2 d ~
	d g, ~
	g c ~
	c4 a c2 ~
	c4 b8 a b2
	a4 g8 f g2
	f r4 a
	 b d4. c8 b a
	 g4 a g f8 e
	 d4 g g g
	 a f2 e4
	 f d e2
	 d8 e f g a \noBeam d, d'4 ~
	 d8 c b a g2
	 r4 a b d ~
	 d8 \noBeam c b4. a8 g4 ~
	 g a f g ~
	 g8 a b c d4 g,
	 a4 f2 e4
	 f4 d a'2
	 fis\breve*1/2
}

altus=\relative c'{
	d1 f2 ~
	f4 e8 d c4 e2 d8 c
	d2 g,4 g'2 f8 e
	\mnon f1 e4 \ss fis
	g4 g,8 a b c d b \mnoff e4 d4 ~
	d c e2 f4 d
	e1 r4 e 
	e4 a,8 b c d e4. c8 f4
	e f4. e8 d2 \ss cis4
	\mnon d4 a r \mnoff f'4 e f4 ~
	f8 e d2 c4 b c
	a4 d c d4. c8 a b
	c4 a2 b a8 g
	a2 r4 a2 b4
	c4 \mnon a8 b c \noBeam \mnoff d e4. b8 \ss cis4
	d4. c8 a4 bes4. a8 f4
	g4 a8 b c[ d] \mnon e[ c] d4 e
	f4. e8 c4 d4. c8 \mnoff a4
	r4 a g g4. e8 g4
	f4. g8[ a b] c4 d f4 ~
	f e8 d e4 g4. f8 \noBeam \mnon e8 d
	c4 e4. d8 \mnoff d2 \ss cis4
	d1 a4. b8
	c4 g a e c'2
	b a4 d2 c8 b
	c4 a c \mnon a c2
	b b \mnoff a4 c
	a4 c b g a2
	a\breve*3/4
	s4*0^\markup{\smaller "(Altus)"}
	d2 g,4 d' ~
	d8 c[ b a] g4 g'4 ~
	g4 \ss fis8 e fis2
	r4 \mnon g d g ~
	g8 f[ e d] e2
	d4 \mnoff f e d8 e
	f g a2 \ss gis4
	r4 a d, a'
	g4 f8 e f4 d
	r4 \mnon e4 a, e' ~
	e8 d b4 c d \mnoff
	c4 b8 a b2
	a1
	r4 a2 f4
	g \ss bes a2
	d,8 e f g a \mnon b[ c a]
	b c d2 \ss cis4
	d2 \mnoff g,2
	r2 r4 d' ~
	d4 b c e4 ~
	e8 c f4 e8 d d4 ~
	d \ss cis d2 ~
	d1
	r4 a2 d4
	c4 a c4. \mnon d8
	e4 d8 c d4 \mnoff e4
	f4. e8 c4 d ~
	d8 c a4 f'4. e8
	c4 d4. c8 a4
	bes4. a8 f4 g ~
	g8 f d4 r d' ~
	d4 c8 \noBeam \mnon b \mnoff c4 b
	c4 d d,8[ e] f[ g]
	a b c4 a c
	b4 c2 b4
	c2 r4 e ~
	e4 g2 c,4
	d4 e4. \mnon d8 \mnoff b4
	c a b e ~
	e8 \noBeam d d2 \ss cis4
	d4 d,8 e f g a b
	c b d2 \ss cis4
	d\breve*1/2
	R1*2
	a1
	\[e'1 ~
	e
	f\]
	d2 e ~
	e f 
	\mnon g1
	a
	g
	f
	e ~
	e ~
	e
	r4 e2 e4 \mnoff
	a,1
	b2. \ss cis4
	d1 ~
	d
	c
	b
	a ~
	a
	r2 c ~
	c b
	d1 ~
	d2 e ~
	e1
	\[a,1 
	b
	c2.\] b4
	a1
	g
	r2 b
	d1
	b
	c
	b
	a ~
	a
	R1
	b1
	d
	b
	c
	b
	a ~
	a ~
	a\breve*1/2
}

tenor=\relative c{
	d1 \[a'2 ~
	a1.
	b1\] g2
	a2. b4 c2
	d1 c4 b ~
	b8 a a2 g4 a2 ~
	a4 g8 f g4 c b2
	a2 r4 a a2 ~
	a2 d, e
	f4. g8 a d, d'4 c d ~
	d8 c[ b a] g4 a e a
	d,2 r4 a' g a ~
	a8 g[ f e] d2 e
	d1 \mnon r2 \mnoff
	f2 e g
	a4 d c d4. c8 a b
	c4 a4. b8 c2 b4
	c4 f e f4. e8 c4
	d4 c2 b4 c4. b8
	a8 g a2 g f4
	g2 r4 e g2
	a4 c4. b8 g4 a2
	r4 d, f d8 e f g a f
	g4 c4. b8 g4 a e
	g4 d8[ e f g] a2 \ss gis4
	a4 c a c4. b8 a4
	g d' e d c a ~
	a8 \noBeam \mnon f g4. f8 d4 e2 \mnoff
	d\breve*3/4
	s4*0^\markup{\smaller "(Tenor)"}
	r2 d' 
	g,4 d'4. c8 b4
	a d, d'2 
	g,1
	R1
	r4 d' a d ~
	d c d e
	a,2 r4 d
	g, d'4. c8 b4
	a2 r4 a
	e g f d
	e2 e
	r4 e'2 c4
	d f e a,
	b8 c d2 \ss cis4
	d4 a2 f4
	g \ss bes a2
	d,4 d'2 b4
	c e d2
	g,2 r4 a ~
	a f g \ss bes
	a2 d,
	r4 d2 g4
	f4 d f4. g8
	a8 b c4 a c ~
	c4 b8 a b4 c 
	f,2 r4 f' ~
	f8 e c4 d4. c8
	a4 d,4. e8 f4
	g4. f8 d4 bes' ~
	bes8 a f4 g \ss bes
	a2. g4
	f4 d8 e f g a b
	c4 a c a
	g1
	r2 a
	c2. a4
	b c4. b8 g4
	a4. g8 e4 c' ~
	c8 \noBeam b g4 a2
	d,8 e f g a4 d,
	e f g a
	d,\breve*1/2
	r2 d' ~
	d f ~
	f4 e8 d c4 d
	g,4. a8[ b c] b4 ~
	b8 \noBeam a a2 g4
	a2 d4. c8
	b1
	c4 \mnon a2 \mnoff d4 ~
	d8 c b a b2
	c4 d c4. d8
	e2 d4 b
	d4. c8 a4. b8
	c4 b c2 ~
	c4 b8 a b2
	a2 r4 b ~
	b4 a8 g a4 c ~
	c8 b e4. d8 d4 ~
	d8 c b a g4 a4 ~
	a bes a f
	\ss bes2 a ~
	a g
	g'4. f8 d2
	f4 e8 d \mnon e4 \mnoff f4 ~
	f8 e e4. d8 d4 ~
	d8 c c4. b8 a g
	a4 \ss gis8 \ss fis gis2
	a4 b2 a8 g
	a4 b c2
	b4 a g c ~
	c8 b a g f2
	g4 d'2 d4
	e1
	c
	e2 d4 e ~
	e8 d d4 g,2
	r4 a b d ~
	d8 c b a g4. f8
	e4 f e f
	g2 r4 e'
	c4 a8[ b c d] e4 ~
	e8 \noBeam d d2 \ss cis4
	d1 ~
	d2 r4 g,
	a4 f g8 a b c 
	d4 e d e ~
	e4 a,8 b c d e f
	g4. f8 \mnon d4 e
	c2 \mnoff d4 e ~
	e8 d d2 \ss cis4
	d\breve*1/2
}

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

% colocación del texto muy editada
% habría que hacer una revisión en profundidad
textocantus=\lyricmode{
\set stanza = "2."
Su -- mens __ _ il -- lud a -- _ _ _ _ _ _ _ ve
Ga -- bri -- e -- lis o -- _ _ _ _ _ _ _ re:
Fun -- da nos in pa -- _ _ _ _ _ _ _ ce
\rectas
Mu -- tans E -- væ no -- men
mu -- tans E -- væ __ _ _ no -- _ men.
\set stanza = "4."
Mon -- stra __ _ te es -- se ma -- _ trem __ _ _ _ _ 
Su -- mat per te pre -- _ _ _ _ _ _ _ _ _ _ _ ces:
Qui pro no -- bis na -- tus,
\italicas
qui pro no -- bis na -- _ _ tus
Tu -- lit tu -- lit es -- se tu -- _ _ us.
\set stanza = "6."
Vi -- tam __ _ _ præ -- sta __ _ pu -- _ _ _ _ _ _ _ ram,
\italicas
vi -- tam præ -- _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ sta pu -- _ _ ram
\rectas
I -- ter pa -- ra -- tu -- _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ tum:
Ut vi -- den -- _ tes Ie -- sum, 
\italicas
ut vi -- den -- _ _ _ tes Ie -- _ _ sum
\rectas
Sem -- per col -- _ _ _ _ læ -- te -- mur, __ _ _ 
sem -- per col -- _ læ -- _ te -- _ mur,
\italicas
col -- _ _ _ _ læ -- te -- _ _ _ mur
\rectas
sem -- per col -- læ -- te -- _ _ _ mur,
\italicas
sem -- _ _ _ _ per col -- læ -- _ _ _ te -- mur.
}

textoaltus=\lyricmode{
\set stanza = "2."
Su -- mens __ _ _ _ il -- _ _ _ lud a -- _ _ _ _ _ ve,
\italicas
su -- _ _ _ _ _ mens il -- lud a -- _ _ ve
\rectas
Ga -- bri -- e -- _ _ _ _ _ _ lis o -- _ _ _ _ re
\italicas
Ga -- bri -- e -- _ _ _ _ _ lis,
\rectas
Ga -- bri -- e -- lis __ _ _ _ o -- _ _ _ re:
Fun -- da nos in __ _ _ _ _ pa -- _ ce, __ _ _ 
fun -- \mt #1 da \mt #.5 nos in pa -- _ _ _ _ _ _ _ _ _ _ _ _ ce
\italicas
fun -- da nos in pa -- _ _ _ _ _ ce,
fun -- _ _ _ da __ _ _ _ _ nos in pa -- _ cem
Mu -- tans E -- _ _ væ no -- _ _ _ _ _ men,
\rectas
mu -- tans E -- væ no -- men,
\italicas
mu -- tans E -- væ no -- _ _ men.
\set stanza = "4."
Mons -- stra te es -- _ _ se ma -- _ _ trem
\italicas
mon -- stra te es -- _ _ _ _ se ma -- _ _ _ _ _ trem
\rectas
mon -- stra te es -- se _ ma -- trem
\italicas
mon -- stra te __ _ _ es -- se ma -- _ _ _ trem
\rectas
Su -- mat per te __ _ pre -- _ _ _ _ _ _ _ _ _ _ _ _ ces
su -- mat per te __ _ pre -- _ _ _ _ ces:
Qui pro no -- bis \italicas na -- _ _ _ _ _ tus,
qui pro no -- _ _ bis na -- _ _ _ _ _ _ _ _ _ _ tus
\rectas
qui pro _ no -- bis na -- \italicas tus,
pro __ _ _ _ _ _ no -- bis na -- _ _ _ tus
\italicas
Tu -- lit es -- se tu -- _ _ _ _ us,
tu -- lit es -- se tu -- _ _ _ _ _ _ _ _ _ _ us.
\rectas
\set stanza = "6."
Vi -- tam __ _ \italicas præ -- _ _ sta pu -- _ _ ram
\rectas
I -- ter pa -- ra -- _ _ _ tu -- tum:
Ut vi -- den -- tes Ie -- _ _ _ _ sum
Sem -- per col -- læ -- te -- mur
sem -- per col -- læ -- te -- mur.
}

textotenor=\lyricmode{
\set stanza = "2."
Su -- mens __ _ il -- lud __ _ _ a -- _ _ _ _ _ _ _ _ _ _ _ ve
Ga -- bri -- e -- lis o -- _ re, _
\italicas
Ga -- bri -- e -- lis __ _ _ _ o -- _ _ re
\rectas
Ga -- bri -- e -- lis __ _ _ _ o -- re:
Fun -- da nos in pa -- _ _ _ _ _ _ _ _ _ _ ce,
\italicas
fun -- da nos __ _ in pa -- _ _ _ _ _ _ _ _ _ ce
\rectas
Mu -- tans E -- væ __ _ no -- men
\italicas
mu -- tans E -- _ _ _ _ _ _ _ _ _ _ væ no -- _ _ _ _ _ _ men,
\rectas
mu -- tans E -- _ _ væ no -- _ _ _ _ _ _ _ _ _ men.
\set stanza = "4."
Mon -- stra te __ _ _ es -- se ma -- trem
\italicas
mon -- stra te es -- se ma -- trem
mon -- stra te~es -- se ma -- trem
mon -- stra \rectas te es -- se ma -- trem
Su -- mat per te __ _ pre -- _ _ _ _ _ _ _ _ _ _ ces,
\italicas
su -- mat per te pre -- ces
\rectas
su -- mat pre te pre -- ces:
Qui pro no -- bis __ _ _ na -- _ _ _ _ _ _ _ _ tus
qui __ _ pro no -- _ _ bis __ _ _ na -- _ tus,
\italicas
qui __ _ pro no -- bis na -- tus,
qui pro __ _ _ _ _ _ no -- bis na -- _ tus
\rectas
Tu -- lit es -- se __ _ _ _ tu -- _ us,
\italicas
tu -- lit es -- se tu -- _ _ _ _ _ _ _ _ _ us.
\rectas
\set stanza = "6."
Vi -- tam __ _ _ _ _ præ -- _ _ _ _ sta pu -- _ ram,
\italicas
vi -- _ tam præ -- sta pu -- _ _ _ _ _ _ _ _ ram,
vi -- ta præ -- _ _ _ _ sta pu -- _ _ _ ram
\rectas
I -- ter __ _ _ pa -- _ ra -- _ _ _ _ _ _ _ _ _ _ -- tu -- _ tum,
i -- ter pa -- ra -- _ _ _ tu --  _ _ _ _ _ _ _ _ _ _ _ _ tum:
Ut __ _ _ _ _ vi -- den -- tes __ _ _ Ie -- _ _ _ _ sum,
ut vi -- den -- tes Ie -- _ _ _ _ sum
Sem -- per col -- _ _ _ _ læ -- te -- _ _ _ mur
\italicas
sem -- per col -- _ _ _ _ læ -- te -- _ mur
\rectas
sem -- per col -- læ -- _ _ _ _ te -- _ mur,
\italicas
sem -- _ _ _ _ _ _ per col -- læ -- te -- _ _ _ _ _ mur.
}

textobassus=\lyricmode{
\set stanza = "2."
Su -- mens __ _ _ _ _ _ il -- _ _ _ _ lud a -- _ ve,
\italicas
su -- mens il -- lud __ _ _ a -- _ _ _ ve
\rectas
Ga -- bri -- e -- lis __ _ _ _ o -- re
\italicas
Ga -- bri -- e -- lis __ _ _ o -- re
\rectas
Ga -- bri -- e -- lis __ _ _ o -- re:
Fun -- da nos in pa -- ce, __ _ _ _ _ 
\italicas
fun -- da nos in __ _ _ _ pa -- _ _ ce,
fun -- da nos in __ _ _ pa -- _ _ ce,
in pa -- _ _ _ ce
\rectas
Mu -- tans E -- væ __ _ _ no -- men,
\italicas
mu -- tans E -- _ _ _ _ _ væ no -- men
\rectas
mu -- tans E -- væ no -- men,
\italicas
mu -- tans E -- væ no -- men.
\set stanza = "6."
Vi -- tam præ -- sta pu -- ram
vi -- tam præ -- sta pu -- _ _ _ _ _ _ _ ram,
\italicas
vi -- tam præ -- _ _ _ _ sta pu -- _ ram,
\rectas
I -- ter __ _ _ pa -- _ ra -- _ _ _ _ tu -- _ _ _ tum
i -- ter __ _ _ _ _ _ _ pa -- ra -- tu -- _ _ tum:
Ut vi -- den -- tes __ _ _ _ _ Ie -- sum, __ _ _ 
\italicas
ut vi -- den -- tes Ie -- _ sum
\rectas
Sem -- per col -- læ -- te -- _ _ mur
sem -- per col -- læ -- _ te -- mur
\italicas
sem -- per col -- læ -- _ te -- mur
\rectas
sem -- per col -- læ -- _ _ _ _ _ _ _ te -- _ _ _ _ _ mur.
}


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 3/2
		d'1*2 % ennegrecida
		
		} 
	\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 3/2
		d'\breve
		} 
	\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 3/2
		d\breve % ennegrecida
		} 
	\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-f4"
		\key c \major
		\time 3/2
		d\breve
		} 
	\layout { 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 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)) %notablet
			%tablet #'((basic-distance . 16) (minimum-distance . 0) (padding . 1))
		\consists Ambitus_engraver 
		\override LigatureBracket.padding = #1
	}
}

%\midi { \mtempo }

}




global={
 \set Score.currentBarNumber=#123 \bar ""
 \key c \major \time 2/2 \skip 1*51 \bar "|."

}


cantus=\relative c''{
	a1
	\[c
	d\]
	c2. f,4
	f4 c'2 b8 a
	d2. c4
	c4. b8 c4 a4 ~
	a \ss gis8 \ss fis gis2
	a1 ~
	a
	R1
	r4 a4. g8 f4
	e g4. f8 d4
	f4. g8[ a b] c4 ~
	c8 b g4 b a ~ % \ss bes ?
	a \ss gis a4. \ss g8
	e4 f e f ~
	f8 g a4 f g % mn sugiere fis
	a4 g8 f g2
	a1
	R1
	r4 a2 a4
	f d d'2
	c4. b8 a4 g
	f2. d4
	e f d e ~
	e8 d d2 \ss cis4
	d2 r4 a ~
	a8 \noBeam b8 c4. d8 e4 ~
	e8 f g a b c d b
	c4 a c2
	r4 c4. b8 a4
	g d g2
	f4 a b b 
	c4. b8 g4 c
	b a g c ~
	c8 b a4 g2
	r4 g a8 b c a
	b4 c2 b4
	c4 e4. d8 d4
	c d g,4. a8 
	b c d4. c8 b4
	a b4. a8 a4 ~
	a \ss gis a4 c ~
	c8 b g4. f8 d4
	a'2 r
	a2. a4
	f d d'2
	\[g, a\]
	\ss bes1
	a\breve*1/2
}

cantusdos=\relative c'{
        \once \override Score.TextScript.X-offset = #-2
	s4*0^\markup{"Canon in diatessaron"}
	R1*2
	d1
	\[a' ~
	a
	b2.\] g4
	\once \override TextScript.X-offset = #1
	a1^\markup{\musicglyph "scripts.usignumcongruentiae"}
	\[b1 
	c\]
	d1
	c2 b
	a1
	R1*4
	a2 a
	d,1 ~
	d2 e
	f1
	g
	f2 e
	d1
	R1*4
	f1
	e
	g
	a
	a
	\[d,2 e\]
	f4. e8 d2
	c1
	R1*2
	e1
	g
	e2 f ~
	f e
	d1
	R1
	r2 e ~
	e d ~
	d4 \ss cis8 b cis2
	d1 ~
	d ~
	d ~
	d ~
	d\breve*1/2
}

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

altusdos=\relative c'{
	s4*0^\markup{"Resolutio"}
	R1*6
	a1
	\[e' ~
	e
	f2.\] d4
	e1
	\[f1 
	g\]
	a1
	g2 f
	e1
	R1*4
	e2 e
	a,1 ~
	a2 b
	c1
	d
	c2 b
	a1
	R1*4
	c1
	b
	d
	e
	e
	\[a,2 b\]
	c4. b8 a2
	g1
	R1*2
	b1
	d
	b2 c ~
	c b
	a1
	R1
	r2 \ss bes ~
	bes a ~
	a4 g8 f g2
	a\breve*1/2
}

tenor=\relative c{
	d1
	\[a'
	b2.\] g4
	a4. b8 c4 d
	d,8 e f g a2
	g4. a8 b4 c
	f,4. g8 a4 r
	R1
	r4 a a a ~
	a8 g f e f2
	a2 e
	r4 a4. b8 c4 ~
	c8 b g4. a8 b4
	c d c4. d8
	e2 d4. c8
	b2 r4 a4 ~
	a4 d, a' d, ~
	d8 e f g a4 g
	f4 g2 c4 ~ % mn sugiere fis
	c8 b a g a2
	g2. e4
	f d e2
	\mnon f4 a4. \mnoff \ss gis8 gis4
	a4. g8 f4 e
	d1
	a'2 g
	f4 e8 d e2
	d4 d'2 d4
	c a c2 ~
	c2 b
	a r4 e' ~
	e8 d c b a2
	r4 g2 b4 ~
	b8 \noBeam a a2 \ss gis4
	a4. b8 c4 a
	b c b a
	c2 r
	R1
	r2 g ~
	g4 g f4. g8
	a4 f g e
	g1
	R1
	r4 e2 a4
	g e g4. f8
	e1
	d ~
	d ~
	d ~
	d ~
	d\breve*1/2
}

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

textocantus=\lyricmode{
\set stanza = "7."
Sit laus __ _ _ De -- o Pa -- _ _ _ _ _ _ _ _ _ _ _ tri
\italicas
sit __ _ _ _ laus __ _ _ De -- _ _ _ _ _ o Pa -- _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ tri
\rectas
Sum -- mo Chri -- sto de -- cus __ _ _ _ 
sum -- mo Chri -- _ sto de -- _ _ _ cus:
Spi -- ri -- tu -- _ i __ _ _ _ _ _ _ _ _ _ _ 
San -- _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ cto
San -- _ _ _ _ _ _ _ cto,
Tri -- _ _ bus ho -- nor __ _ _ _ _ _ _ u -- _ _ _ _ _ _ _ _ _ _ nus
\italicas
ho -- nor u -- \mt #1 nus. __ _
\rectas
A -- _ _ men.
}

textocantusdos=\lyricmode{
\set stanza = "7."
Sit laus __ _ _ _ De -- _ o Pa -- _ tri
Sum -- mo Chri -- sto __ _ _ de -- _ cus:
Spi -- ri -- tu -- i San -- cto __ _ _ _ _ _
Tri -- bus ho -- nor u -- nus.
A -- _ _ _ _ men.
}

textoaltus=\lyricmode{
\set stanza = "7."
Sit laus __ _ _ _ De -- _ _ _ _ _ o Pa -- _ _ _ _ _ _ _ _ _ _ _ tri
\italicas
sit laus __ _ _ _ De -- o Pa -- _ tri,
sit laus __ _ _ _ De -- o Pa -- tri:
\rectas
Sum -- _ _ mo Chri -- _ _ _ _ _ _ sto de -- _ _ _ _ _ _ _ _ _ _ cus
sum -- mo Chri -- sto __ _ de -- _ _ _ _ _ _ _ _ cus:
Spi -- ri -- tu -- i __ _ San -- cto, __ _ _ 
Spi -- ri -- tu -- i __ _ San -- cto
\italicas
San -- _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ cto,
\rectas
Tri -- _ _ _ _ bus ho -- nor __ _ _ _ _ _ u -- _ _ _ nus
tri -- bus ho -- nor u -- _ _ _ _ nus.
A -- _ _ men.
}

textoaltusdos=\lyricmode{
\set stanza = "7."
Sit laus __ _ _ _ De -- _ o Pa -- _ tri
Sum -- mo Chri -- sto __ _ _ de -- _ cus:
Spi -- ri -- tu -- i San -- cto __ _ _ _ _ _
Tri -- bus ho -- nor u -- nus.
A -- _ _ _ _ men.

}

textotenor=\lyricmode{
\set stanza = "7."
Sit laus __ _ _ De -- _ _ o Pa -- _ _ _ _ _ _ _ _ tri __ _ _ 
sit laus De -- _ _ _ o Pa -- tri
\italicas
sit __ _ _ _ laus __ _ _ De -- _ _ o Pa -- _ _ tri
\rectas
Sum -- mo Chri -- sto __ _ _ _ _ _ de -- _ cus, __ _ _ _ _
\italicas
sum -- mo Chri -- sto de -- _ _ _ _ _ _ _ _ cus,
sum -- mo Chri -- sto _ de -- cus:
\rectas
Spi -- ri -- tu -- i San -- _ cto
\italicas
San -- _ _ _ cto
Spi -- _ ri -- tu -- i San -- _ _ _ _ _ _ _ cto
\rectas
Tri -- bus ho -- _ _ nor u -- _ nus
tri -- bus ho -- nor u -- nus. 
A -- men.
}

textobassus=\lyricmode{
\set stanza = "7."
Sit laus De -- o Pa -- _ _ _ _ _ tri, __ _ _ _ _ 
\italicas
sit laus De -- o __ _ Pa -- tri
\rectas
Sum -- mo Chri -- sto de -- cus,
\italicas
sum -- mo Chri -- _ _ _ sto de -- cus,
Chri -- sto de -- cus
sum -- mo Chri -- sto de -- cus:
\rectas
Spi -- ri -- tu -- i __ _ _ _ _ San -- _ cto,
\italicas
Spi -- ri -- tu -- i San -- _ _ cto
\rectas
Spi -- ri -- tu -- i San -- _ _ _ cto
Tri -- bus ho -- _ _ nor u -- nus
tri -- bus ho -- _ nor u -- _ _ _ nus.
A -- _ _ _ men.
}


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

	\new Staff <<\global
	\new Voice="v1" {
		\set Staff.instrumentName="Cantus I"
		\clef "treble"
		\cantus }
	\new Lyrics \lyricsto "v1" {\textocantus }
	>>
	
        \new Staff <<\global
	\new Voice="v5" {
		\set Staff.instrumentName="Cantus II"
		\clef "treble"
		\cantusdos }
	\new Lyrics \lyricsto "v5" {\textocantusdos }
	>>

	\new Staff <<\global
	\new Voice="v2" {
		\set Staff.instrumentName="Altus I"
		\clef "G_8"
		\altus }
	\new Lyrics \lyricsto "v2" {\textoaltus }
	>>
	
	\new Staff <<\global
	\new Voice="v6" {
		\set Staff.instrumentName="Altus II"
		\clef "G_8"
		\altusdos }
	\new Lyrics \lyricsto "v6" {\textoaltusdos }
	>>
	
	\new Staff <<\global
	\new Voice="v3" {
		\set Staff.instrumentName="Tenor"
		\clef "G_8"
		\tenor }
	\new Lyrics \lyricsto "v3" {\textotenor }
	>>

	\new Staff <<\global
	\new Voice="v4" {
		\set Staff.instrumentName="Bassus"
		\clef "bass"
		\bassus }
	\new Lyrics \lyricsto "v4" {\textobassus }
	>>
	
>>

	} % transpose

\layout{ 
        indent = 1.5\cm
	\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)) %notablet
		        %tablet #'((basic-distance . 20) (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 = 10
	ragged-last-bottom = ##f
	indent=3.4\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))
	%top-markup-spacing #'basic-distance = 0
	markup-system-spacing.padding = #2
	
}