\version "2.18.0"

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

% typeset in Heathrow Airport

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="Benedicamus I"
hcomposer="Morales"

\header {
	title=\markup{\fontsize #3 "Benedicamus I"}
	%subtitle="Salmo ???  –  1º tono"
        subtitle="1º 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 c \major \time 2/2 \skip 1*18 \bar "|."

}


cantus=\relative c''{
	a1
        a2 a
        g1
        a4 c2 \ss bes4 ~
        bes8 a a2 g4
        a2 r4 a ~
        a \mnon g4. f8 d4
        f4 e r2 \mnoff 
        e2 g
        a1
        \ss bes2 a
        r2 d,
        e g
        f4 e4. d8 \mnon d4 ~
        d4 \ss cis d2 ~
        d1 ~
        d ~
        d\breve*1/2 \mnoff 
}

altus=\relative c'{
        \once \override TextScript.X-offset = #-1
	s4*0^"Canon in diapason" % in diapason
        e2 f4 f
        \once \override TextScript.X-offset = #.5
        s4*0^\markup{\smaller \musicglyph #"scripts.usignumcongruentiae"}
        e2 d
        r4 c d4. e8
        f4 e \mnon d2 ~
        d4 \ss cis \mnoff d2
        r2 d
        c4 e d4. c8
        a4 c b d ~
        d c d2
        r2 f
        g \mnon f
        e8 \noBeam \mnoff d c4 d4. c8
        a4 c \ss bes g
        a2 r
        r2 a 
        \ss bes s4*0^\markup{\smaller \musicglyph #"scripts.usignumcongruentiae"} 
         a4 f
        g2 \mnon a ~
        a\breve*1/2 \mnoff 
}

altusdos=\relative c'{
        s4*0^"Resolutio" 
        R1
	e2 f4 f
        e2 d
        r4 c d4. e8
        f4 e \mnon d2 ~
        d4 \ss cis \mnoff d2
        r2 d
        c4 e d4. c8
        a4 c b d ~
        d c d2
        r2 f
        g \mnon f
        e8 \noBeam \mnoff d c4 d4. c8
        a4 c \ss bes g
        a2 r
        r2 a 
        \ss bes a2 ~
        a\breve*1/2
}

tenor=\relative c'{
	a4. b8[ c a] d4 ~
        d \ss cis d a
        c2 \ss bes
        a2 r
        r2 r4 d
        e e f f,8 g
        a b c4 a f
        c'2 d
        r2 r4 d
        e4 f4. e8 d c
        \ss bes a d4. d8 d4
        b4 g a2 ~
        a4 a g d' ~
        d c d g,
        r4 a2 f4
        g2 f4 d ~
        d g2 \ss fis8 e
        fis\breve*1/2
}

bassus=\relative c'{
	a2 f4 d
        a'2 d,
        R1
        r4 a' g g
        a2 \ss bes
        a d,4. e8
        f4 c d2
        r2 g
        a g4 \ss bes
        a2 d,
        g4. f8 d2
        e d
        R1
        r4 a' g \ss bes
        a4 a, d2
        g,8 a \ss bes c d2
        g,2 d' ~
        d\breve*1/2
}

textocantus=\lyricmode{
De -- o di -- ca -- _ _ _ _ _ _ \italicas mus % mus __ _ _ _ _ _  
\rectas gra -- ti -- _ _ as __ _ % ti -- _ as __ _ _  
\italicas % no hay nada  
gra -- ti -- as __ _ _
\rectas 
gra -- ti -- as. __ _ _ _ _ _ _ 
}

textoaltus=\lyricmode{
De -- o di -- ca -- mus 
\italicas De -- o __ _ _ di -- ca -- _ mus
\rectas 
gra -- ti -- as __ _ _ _ _ _ _ _ _ 
gra -- ti -- as __ _ _ _ _ _ _ _ _ _ _ 
gra -- ti -- as. __ _ _ _ 
}

textoaltusdos=\lyricmode{
De -- o di -- ca -- mus 
\italicas De -- o __ _ _ di -- ca -- _ mus
\rectas 
gra -- ti -- as __ _ _ _ _ _ _ _ _ 
gra -- ti -- as __ _ _ _ _ _ _ _ _ _ _ 
gra -- ti -- as.
}

textotenor=\lyricmode{
De -- _ _ _ _ _ \italicas o di -- ca -- _ mus
% De -- o __ _ _ di -- ca -- mus __ _ _ _ _ 
\italicas % no hay nada
De -- o di -- ca -- _ _ _ _ _ _ _ _ mus
\rectas 
gra -- ti -- as, __ _ _ _ _ _ 
\italicas 
gra -- ti -- as, __ _ _ _ gra -- ti -- as __ _ _ _  
\rectas gra -- ti -- as. __ _ _ _ _ _ _  
}

textobassus=\lyricmode{
De -- o di -- ca -- mus
\italicas % no hay nada
De -- o di -- ca -- _ _ _ _ _ _ mus
\rectas
gra -- ti -- as, __ _ _ _ \italicas gra -- _ _ ti -- as \rectas 
gra -- ti -- as, __ _ _ _ 
\italicas gra -- _ _ _ _ ti -- as. % no hay nada
}


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
		a'\breve
		} 
	\layout { line-width=\incipitwidth indent = 0 }
	}
}

incipitaltus=\markup{
	\score{
		{ 
		\set Staff.instrumentName="Altus I  "
		\override NoteHead.style = #'neomensural 
		\override Staff.TimeSignature.style = #'neomensural
		\cadenzaOn 
		\clef "petrucci-c3"
		\key c \major
		\time 2/2
		e'1*2
		} 
	\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
		a2.*4/3
		} 
	\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 2/2
		a1*2
		} 
	\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="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 . 9) (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=1
	ragged-last-bottom = ##f
	indent=3.4\cm
	system-system-spacing =
	#'((basic-distance . 15) (minimum-distance . 0) (padding . 5))
	top-system-spacing = % header
	#'((basic-distance . 8) (minimum-distance . 0) (padding . 0))
	last-bottom-spacing = % footer
	#'((basic-distance . 10) (minimum-distance . 0) (padding . 0))
	%top-markup-spacing #'basic-distance = 0
	markup-system-spacing #'basic-distance = 20

}