\version "2.12.3"

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

ss=\once \set suggestAccidentals = ##t
cresc=\markup{\italic "cresc."}
dim=\markup{\italic "dim."}
rit=\markup{\italic "rit."}
italicas=\override LyricText #'font-shape = #'italic
rectas=\override LyricText #'font-shape = #'upright


htitle="Ave verum"
hcomposer="Campos"

\header {
	title=\markup{\fontsize #3 "Ave verum" }
	subtitle=\markup{"Gregoriano"}
	%subsubtitle="  "
	composer="Luis Alberto Campos"
	%opus="(-)"
	poet=\markup{\fontsize #-2 "Festividad del Corpus Christi 2005"}
	copyright=\markup{
		\fill-line {"Edited by Nancho Alvarez" \typewriter "http://tomasluisdevictoria.org"}
	}
%	tagline=""
}

global={\key g \major \cadenzaOn 
		\skip 8*16 \bar "|"
		\skip 8*12 \bar "|"
		\skip 8*12 \bar "|"
		\skip 8*12 \bar "|"
		\mark \markup{\box "A"}
		\skip 8*13 \bar "|"
		\skip 8*16 \bar "|"
		\skip 8*13 \bar "|"
		\skip 8*16 \bar "|"
		\mark \markup{\box "B"}
		\skip 8*12 \bar "|"
		\skip 8*12 \bar "|"
		\mark \markup{\box "C"}
		\skip 8*10 \bar "|"
		\skip 8*12 \bar "|." }


cantus=\relative c'{
	%\once \override Score.MetronomeMark #'X-offset = #-4
	\once \override Score.MetronomeMark #'padding = #2
	\tempo 4=66
	s8*28
	e2^\pp fis2. g4 ~
	g ~ g4. a2. r8
	b8 d e d4 c8 b a[ g a] b4.
	c8 c[ b a] b b[ a] g[ fis] a[ b] a a4( g)
	b8 d e d4 c8 b a[ g a] b4.
	c8 c[ b a] b[ a] g[ fis] a[ b] a a4( g) r8
	g8[ a b] g c4 c8[ b a] b4.
	g8[ a b] g c4 c8[ b a] b4.
	b4 d8[ e d] c[ b a] b4
	\override Score.TextScript #'padding = #2
	g8^\markup{\italic "rit. molto"} a[ b] c b[ a] a4( g2)^\fermata
}

altus=\relative c''{
	s8*52
	g8 a a a4 a8 g fis[ e fis] g4.
	a8 a( g4) g8 fis4 e e e8 fis2
	g8 a a a4 a8 g fis[ e fis] g4.
	a8 a( g4) g8[ fis] e4 e e8 fis2 r8
	s8*12
	g8[ a g] fis g4 e8[ fis g] fis4.
	<b b,>4 <d d,>8[ <e e,> <d d,>] <c c,>[ <b b,> <a a,>] <b b,>4
	g8^\markup{\italic "rit. molto"} fis[ g] e e[ fis] e4 ~ e2^\fermata
}

tenor=\relative c'{
	r4 r g8[ a b] g8 a g4 c8 b a b4
	a8 g fis g a[ b] a8 a4( g) r8
	g8[ a b] g8 a g4 c8 b a b4
	a8 g fis g a[ b] a8 a4( g) r8
	d'8 e fis fis4 e8 e d4. dis
	fis8 fis4. e8 d4 d cis cis8 c[( d] b4)
	d8 e fis fis4 e8 e d4. dis
	fis8 fis4. e4 d cis cis8 c[( d] e4) r8
	g8[ fis e] d e[ d] c[( d] e4) d
	g8[ fis e] d e[ d] c[( d] e4) d4
	b4 d8[ e d] c[ b a] b4
	c8^\markup{\italic "rit. molto"} c[ b] a b[ c] <c a>4( <d a>2^\fermata)
}

bassus=\relative c{
	g1 g ~
	g1 ~ g4. r8
	c2 ~ c4. a8 ~ a2
	b2. ~ b8 g2 r8
	g'8 g fis fis4 g8 a b[ c b] a4.
	dis,8 dis4. e8 e4 e e e8 e4( d!)
	d8 g fis fis4 g8 a b[ c b] a4.
	dis,8 dis4. e4 e e e8 e4( d!) r8
	s8*24
	b4 d8[ e d] c[ b a] b4
	<e g,>8^\markup{\italic "rit. molto"} <e a,>[ <g b,>] <a c,> <gis b,>[ <a a,>] <d, a>4 ~ <d g,>2^\fermata
}


textocantus=\lyricmode{
A -- ve, a -- ve.
Cu -- ius la -- tus per -- fo -- ra -- tum
flu -- xit __ a -- qua __ et __ san -- gui -- ne. __ 
Es -- to no -- bis præ -- gus -- ta -- tum
mor -- tis __ in __ ex -- a -- mi -- ne. __
O __ Ie -- su dul -- cis!
O __ Ie -- su pi -- e!
O __ _ Ie -- su fi -- li __ Ma -- ri -- æ! __
}

textoaltus=\lyricmode{
Cu -- ius la -- tus per -- fo -- ra -- tum
flu -- xit __ a -- qua et san -- gui -- ne.
Es -- to no -- bis præ -- gus -- ta -- tum
mor -- tis __ in __ ex -- a -- mi -- ne.
O __ Ie -- su pi -- e!
O __ _ Ie -- su fi -- li __ Ma -- ri -- æ! __
}

textotenor=\lyricmode{
A -- ve ve -- rum cor -- pus na -- tum 
de Ma -- ri -- a Vir -- gi -- ne: __ 
Ve -- re pas -- sum, in -- mo -- la -- tum
in cru -- ce pro ho -- mi -- ne. __ 
Cu -- ius la -- tus per -- fo -- ra -- tum
flu -- xit a -- qua et san -- gui -- ne. __ 
Es -- to no -- bis præ -- gus -- ta -- tum
mor -- tis in ex -- a -- mi -- ne. __
O __ Ie -- su __ dul -- cis!
O __ Ie -- su __ pi -- e!
O __ _ Ie -- su fi -- li __ Ma -- ri -- æ! __
}

textobassus=\lyricmode{
A -- ve
ve -- rum __ cor -- pus.
Cu -- ius la -- tus per -- fo -- ra -- tum
flu -- xit a -- qua et san -- gui -- ne. __ 
Es -- to no -- bis præ -- gus -- ta -- tum
mor -- tis in ex -- a -- mi -- ne. __
O __ _ Ie -- su fi -- li __ Ma -- ri -- æ! __
}


\score {
\new ChoirStaff<<

	\new Staff <<\global
	\new Voice="v1" {
		\set Staff.instrumentName="Soprano " 
		\clef "treble"
		\cantus }
	\new Lyrics \lyricsto "v1" {\textocantus }
	%\new Lyrics \lyricsto "v1" {\textocantusb }
	>>

	
	\new Staff << \global
	\new Voice="v2" {
		\set Staff.instrumentName="Alto "
		\clef "treble" 
		\altus}
	\new Lyrics \lyricsto "v2" {\textoaltus }
	%\new Lyrics \lyricsto "v2" {\textoaltusb }
	>>

	
	\new Staff <<\global
	\new Voice="v3" {
		\set Staff.instrumentName="Tenor "
		\clef "G_8"
		\tenor }
	\new Lyrics \lyricsto "v3" {\textotenor }
	%\new Lyrics \lyricsto "v3" {\textotenorb }
	>>
	

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

\layout{ 
	\context {\Lyrics \override VerticalAxisGroup #'minimum-Y-extent = #'(-1 . 0) }
	\context {\Score \override BarNumber #'padding = #2 }
	\context {\Lyrics 
		%\override LyricText #'font-size = #2 
		\override LyricHyphen #'minimum-distance = #0.51
	}
	\context {\Voice 
		%melismaBusyProperties = #'()
		autoBeaming = ##f
	}
	%\context { \RemoveEmptyStaffContext }
	\context {\Staff 
		\remove Time_signature_engraver
		\consists Ambitus_engraver 
		\override VerticalAxisGroup #'minimum-Y-extent = #'(-4 . 5.3)
	}
}

%\midi {}

}


\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=6
	line-width=19.0\cm
	between-system-padding = 0
	ragged-last-bottom = ##f
	foot-separation = 5\mm
	%head-separation = 4\mm
}