\version "2.18.0"

#(set-default-paper-size "a4")
#(set-global-staff-size 16.4)
#(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
}
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
}

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

htitle="Levavi oculos"
hcomposer="Morales"

\header {
	title=\markup{\fontsize #3 "Levavi oculos"}
	subtitle="Salmo 121 (120)  –  6º tono"
	subsubtitle=\markup{\column{" " " "}}
	composer=\markup{\right-column{"Cristóbal de Morales (c.1500-1553)" \smaller "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=""
}

global={\key f \major \time 2/2 \skip 1*11 \bar "||" \break
        % Noone: doble barra tras cada hemisticio y barra final tras cada verso.
	\override Score.TimeSignature.break-visibility = #'#(#f #t #t)
			\time 2/2 \skip 1*14 \bar "||" \break
			\time 2/2 \skip 1*12 \bar "|."

}


cantus=\relative c''{
        \mnon a2 a4 a ~
        a4 \mnoff a4 a a
        a2 a
        f g4 bes ~
        bes8 a a2 g4
        a1^\fermata \break
        a4 \mnon a \mnoff a2 ~
        a4 a a2
        f \[g 
        a\] g4 f ~
        f e 
        \mtempob
        f\breve*1/4
        \mtempo
	\mnon a1
        \mnoff 
        a2 a
        bes2. a4
        a2 g
        a1 ~
        a^\fermata 
        a2 a
        a1
        f
        \[g1
        a\]
        g
        f1 ~
        f\breve*1/2
        a2 a4 \mnon a
        a2 \mnoff f
        g4 bes4. a8 a4 ~
        a g8 f g2
        a1 ~
        a^\fermata 
        a2 a
        \[a g\]
        f g ~
        g2 a
        g4 f2 e4
        f\breve*1/2
        
}

altus=\relative c'{
	e2 e4 f ~
        f e f e
        d2 c4 f ~
        f8 e d c bes a g4
        d'4 e f e8 d
        e1^\fermata 
        f4 f f2 ~
        f4 e d c8 bes 
        c4 d2 c4 ~
        c4 a d c
        d c c\breve*1/4
        e1
        f2 f
        f2. f4
        f2 d
        \[e2 f\]
        e1^\fermata 
        f2 f \mnon
        f2 c 
        d1 \mnoff 
        bes2 c ~
        c a
        c bes4 g
        d'4. c8 a4 d
        c\breve*1/2
        e2 f4 f
        e2 d ~
        d4 bes d c
        bes1
        a1 ~
        a^\fermata 
        c2 d4 c
        d a bes g
        r4 c c c
        bes4 c a2
        bes4 c d c8 bes
        c\breve*1/2
}

altusdos=\relative c'{
	R1*11
        R1*14
        s4*0^\markup{"Altus II"}
        c2 d4 d
        c2 a
        bes4 d4. c8 a4
        d1 ~
        d2 d ~
        d4 \ss cis8 \ss b
        \mtempob 
        cis2^\fermata 
        \mtempo
        e2 f4 e
        f d2 c8 bes
        a2 r4 e'
        d4 e f4. e8
        d4 c bes g
        a\breve*1/2
}

tenor=\relative c'{
	a2 c4 d ~
        d \ss cis d e
        f2. f,4
        a bes4. c8 d4 ~
        d4 c bes2
        a1^\fermata 
        a4 d c a ~
        a8 bes c4 f, a4 ~
        a8 g f2 e4
        f4 c' bes a 
        g2 f\breve*1/4
        c'1
        d2 c
        d2. c4
        c2 bes
        a1 ~
        a^\fermata a2 d
        c a ~
        a d, ~
        d2 e
        f4. g8[ a bes] c4 ~
        c8 bes g4. a8 bes4 ~
        bes8 c d4. c8 bes4 ~
        bes4 a8 g 
        \mtempob a\breve*1/4
        \mtempo a2 f4 d
        e a2 d,4 ~
        d g f4. e8
        d4 g4. d8 g4 ~
        g4 f8 e f2
        e1^\fermata 
        a2 f4 a ~
        a8 g f2 e4
        f4 a g2
        r4 c c c 
        bes a g2
        f\breve*1/2
}

bassus=\relative c'{
	a2 a4 d, ~
        d4 a' d, \ss cis4
        d4. e8 f4 d ~
        d8 c bes a g4. a8
        bes4 c d e
        a,1^\fermata 
        d4 d f4. e8
        d4 c d f ~
        f8 e d c bes4 c
        f,2 g4 a
        bes c f,\breve*1/4
        a'1
        d,2 f
        bes,2. f'4
        f2 g
        \[c,2 d\]
        a1^\fermata 
        d2 d
        f f4. e8
        d4. c8 bes4. a8
        g2 c
        f, f'
        c ees
        bes4. c8 d4. e8
        f\breve*1/2
        a,2 d4 d
        a2 d
        g,4. a8 bes4 f
        g1
        d'1
        a^\fermata 
        a2 d4 a
        d4. c8 bes4c
        f, f' c8 d e f
        g4 c, f f,
        g a bes c
        f,\breve*1/2
}

textocantus=\lyricmode{
\set stanza = "3."
Non det in com -- mo -- ti -- o -- nem __ _ _ pe -- _ dem tu -- um:
ne -- \italicas que dor -- mi -- tet \rectas qui cus -- _ to -- dit __ _ te.
\set stanza = "6."
Per di -- em sol non u -- ret te:
ne -- que lu -- na per __ _ no -- ctem.
\set stanza = "9."
Glo -- ri -- a Pa -- tri et Fi -- _ _ _ _ li -- o:
et \italicas Spi -- ri -- _ tu -- i __ _ \rectas
San -- _ _ cto.
}

textoaltus=\lyricmode{
\set stanza = "3."
Non det in com -- mo -- ti -- o -- nem
\italicas pe -- _ _ _ _ _ dem tu -- _ _ _ _ \rectas um:
ne -- que dor -- mi -- tet __ _ _ _ qui cus -- to -- dit __ _ _ _ te.
\set stanza = "6."
Per di -- em sol non u -- ret __ _ _ te:
ne -- que \italicas lu -- na per __ _ \rectas no -- ctem, __ _ _ _ _ _ _ 
no -- ctem.
\set stanza = "9."
Glo -- ri -- a Pa -- tri
et Fi -- _ li -- o:
et Spi -- ri -- tu -- i San -- cto
\italicas et Spi -- ri -- tu -- i % mn no escribe nada
\rectas San -- cto. __ _ _ _ _ _ 
}

textoaltusdos=\lyricmode{
\set stanza = "9."
Glo -- ri -- a Pa -- tri et Fi -- li -- _ _ _ _ _ o:
et Spi -- ri -- tu -- i San -- _ cto
et Spi -- ri -- tu -- i San -- _ _ _ cto.
}

textotenor=\lyricmode{
\set stanza = "3."
Non det in com -- mo -- ti -- o -- nem __ _ pe -- dem __ _ _ tu -- um:
ne -- que dor -- mi -- _ tet __ _ _ _ _ _ _ qui cus -- to -- dit te.
\set stanza = "6."
Per di -- em sol non u -- ret te:
ne -- que lu -- na __ _ _ per no -- _ _ _ _ _ _ _ _ _ _ _ _ _  ctem.
\set stanza = "9."
Glo -- ri -- a Pa -- tri __ _ et __ _ _ _ _ _ Fi -- _ _ li -- o:
et Spi -- ri -- _ tu -- i __ _ San -- cto
et Spi -- ri -- tu -- i San -- cto.
}

textobassus=\lyricmode{
\set stanza = "3."
Non det in com -- mo -- ti -- o -- nem __ _ _ _ _ _ pe -- dem __ _ _ _ tu -- um:
ne -- que dor -- mi -- tet __ _ _ qui __ _ _ _ _ _ cus -- to -- dit __ _ _ te.
\set stanza = "6."
Per di -- em sol non u -- ret __ _ _ te:
ne -- que lu -- na __ _ _ _ _ _ _ _ _ per __ _ _ no -- _ _ _ ctem.
\set stanza = "9."
Glo -- ri -- a Pa -- tri et __ _ Fi -- _ li -- _ o: % patri et filio
et Spi -- ri -- tu -- i __ _ _ _ San -- _ _ _ _ cto, __ _ _ % spiritui sancto
San -- _ _ _ _ cto.
}


incipitcantus=\markup{
	\score{
		{ 
		\set Staff.instrumentName="Cantus " % Tiple
		\override NoteHead.style = #'neomensural
		\override Staff.TimeSignature.style = #'neomensural
		\cadenzaOn 
		\clef "petrucci-c1"
		\key f \major
		\time 2/2
		a'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 f \major
		\time 2/2
		e'1
		} 
	\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-c3"
		\key f \major
		\time 2/2
		a1
		} 
	\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 f \major
		\time 2/2
		a1
		} 
	\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 \with{\remove Ambitus_engraver }<<\global
	\new Voice="v5" {
		\set Staff.instrumentName="Altus II"
		\clef "G_8"
		\altusdos }
	\new Lyrics \lyricsto "v5" {\textoaltusdos }
	>>
	
	\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 . 11) (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
	ragged-last-bottom = ##f
	indent=3.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 . 12) (minimum-distance . 0) (padding . 0))
	%top-markup-spacing #'basic-distance = 0
	markup-system-spacing #'basic-distance = 20

}