\version "2.11.45"

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

ss=\once \set suggestAccidentals = ##t


\header {
	title=\markup{\bigger \bigger \bigger "O sacrum convivium" }
	subtitle="motet au Saint-Sacrement"
	subsubtitle=\markup{\center-align{"pour chœur à quatre voix mixtes ou quatre solistes" \line{"( avec accompagnement d'orgue" \italic "ad libitum" ")" }}}
	composer="Olivier Messiaen (1908-1992)"
	poet="(versión modificada)"
	copyright=\markup{
		\fill-line {"Edited by Nancho Alvarez" \typewriter "http://tomasluisdevictoria.org"}
	}
	tagline=""
}

global={\key f \major 
	\cadenzaOn
	#(set-accidental-style 'forget 'Score)
	\set Staff.extraNatural = ##f
	s4.^\p s4 s s \bar "|"
	s4 s8 s2 \bar "|"
	s4. s4 s s \bar "|"
	s4 s8 s2 \bar "|"
	s4. s4 s s \bar "|"
	s8 s s s2 \bar "|"
	s4. s4 s s \bar "|"
	s8 s s s2 \bar "|" \mark \default
	\once \override DynamicText #'X-offset = #.1
	s4.^\mf s4 s s \bar "|" 
	s8 s s s2 \bar "|"
	s4. s4 s s \bar "|"
	s8 s s s2 s4^\markup{\italic "dim."} \bar "|"
	s8 s s s2 \bar "|"
	s4. s4 \bar "|"
	s4. s4 \bar "|"
	s2. s2. \bar "|" \mark \default
	s4.^\pp s4 s s \bar "|"
	s4 s8 s2 \bar "|"
	s4.^\p s4 s s \bar "|"
	s4 s8 s2 \bar "|"
	s4.^\markup{\italic "cresc."} s4 s s \bar "|"
	s4. s4 s s \bar "|"
	s4.^\f s4 s s \bar "|"
	s8 s s s2 \bar "|"
	s4. s4 s s \bar "|"
	s8 s s s2 \bar "|" \mark \default
	\once \override DynamicText #'X-offset = #1
	s4.^\p s4 \bar "|"
	s4 s8 s4 s \bar "|"
	s4 s8 s4 s \bar "|"
	s4 s8 s4 s \bar "|"
	s4 s^\markup{\italic "dim."} s \bar "|"
	s s s \bar "|"
	s4. ^\pp s4 \bar "|"
	s4. s4 s \bar "|"
	s2. s4 s1^\fermata
	
\bar "|." }


cantus=\relative c'{
	\dynamicUp
	\autoBeamOff
	\slurUp
	\override TextScript #'X-offset = #-5
	s4*0^\markup{\bigger \bold "Lent et expressif (battre les croches)"}
	e4.( cis4 d g 
	e4 cis8 d2) 
	e4.( cis4 d g
	c4 a8 g2) 
	a4.( d4 c g
	c8 d c g2)
	a4.( d4 c g
	c4 a8 g2)
	b4.( f'4 d gis,
	#(set-accidental-style 'no-reset 'Staff)
	b!8[ d] b f2)
	#(set-accidental-style 'forget 'Staff)
	gis4.( d'4 b f
	#(set-accidental-style 'no-reset 'Staff)
	gis!8[ b!] gis f2) f4(
	e8[ g e] cis!2)
	#(set-accidental-style 'forget 'Staff)
	e4.( cis4)
	e4.( cis4)
	e2.( cis)
				\break
	e4.( cis4 d g 
	e4 cis8 d2) 
	e4.( cis4 d g
	c4 a8 g2) 
	a4.( d4 c g
	c4. f4 d a)
	d4.( a'4 e cis
	e8[ g] e cis2)
	b4.( f'4 d g,
	a8[ c a] g2)
	g'4.( d4
	e4 d8 g,4 a
	c4 a8 d,4 f
	a4 f8 c4 d ~
	d c d) ~
	d c( d
	g4. d4)
	g4.( d4 d
	g2. d4 d1)
	
}

altus=\relative c'{
	\dynamicUp
	\autoBeamOff
	\slurUp
	#(set-accidental-style 'no-reset 'Staff)
	a4.( a4 bes bes
	a a8 bes2)
	a4.( a4 bes bes
	cis4 cis8 d2)
	e4.( e4 f f
	ges8 ges ges f2)
	#(set-accidental-style 'forget 'Staff)
	e4.( e4 f f
	ges4. f2)
	f4.( f4 f ees
	f4 f8 f2)
	d4.( d4 d c
	d4 d8 c2) c4(
	#(set-accidental-style 'no-reset 'Staff)
	b4. bes2)
	bes4.( a4)
	bes4.( a4)
	gis2.( gis2.)
	#(set-accidental-style 'forget 'Staff)
	a4.( a4 bes bes
	a a8 bes2)
	a4.( a4 bes bes
	#(set-accidental-style 'no-reset 'Staff)
	cis4 cis8 d2)
	#(set-accidental-style 'forget 'Staff)
	e4.( e4 f f
	ges4. ~ ges4 g! g)
	a4.( bes4 g f
	#(set-accidental-style 'no-reset 'Staff)
	aes4 aes8 aes2)
	f4.( a4 f d
	f4. f2)
	#(set-accidental-style 'forget 'Staff)
	f4.( ~ f4 ~
	f4. ~ f2
	d4. c2 
	bes4 bes8 bes2 ~
	bes4 bes2) ~
	bes4 g( bes
	a4. a4)
	a4.( a4 a
	a2. a4 a1)
}

tenor=\relative c{
	\dynamicUp
	\autoBeamOff
	\slurUp
	c4.( c4 c c
	c4 c8 c2)
	c4.( c4 c c
	e4 e8 f2)
	bes4.( bes4 bes bes
	bes8 bes bes bes2)
	bes4.( bes4 bes bes 
	bes4. bes2)
	a4.( a4 a b
	a4 a8 a2)
	#(set-accidental-style 'no-reset 'Staff)
	fis4.( fis4 fis gis
	fis!4 fis8 fis2) fis4(
	f!4. f2)
	cis4.( cis4)
	cis!4.( cis4)
	cis!2.( cis)
	c!4.( c4 c c
	c4 c8 c2)
	c4.( c4 c c
	#(set-accidental-style 'forget 'Staff)
	e4 e8 f2)
	bes4.( bes4 bes bes
	bes4. ~ bes4 bes bes
	bes4.( e4 d c
	#(set-accidental-style 'no-reset 'Staff)
	b4 b8 b2)
	#(set-accidental-style 'forget 'Staff)
	a4.( d4 c a
	bes!4. bes2)
	a4.( ~ a4 ~
	a4. ~ a2 
	f4. ~ f2 ~
	f4 f8 f2 ~
	f4 f2) ~
	f4 d( f
	c4. c4)
	c4.( c4 c
	c2. c4 c1)
}

bassus=\relative c,{
	\dynamicUp
	\autoBeamOff
	\slurUp
	f4.( f4 f f
	f4 f8 f2)
	f4.( f4 f f
	bes4 bes8 bes2)
	#(set-accidental-style 'no-reset 'Staff)
	c4.( c4 des des
	d8 d d des2)
	c4.( c4 des! des
	d4. des2)
	c4.( c4 c c 
	c4 c8 c2)
	a4.( a4 a a
	a a8 gis2) gis4(
	gis!4. g2)
	fis4.( fis4)
	fis!4.( fis4)
	f!2.( f)
	f4.( f4 f f
	f4 f8 f2)
	f4.( f4 f f
	#(set-accidental-style 'forget 'Staff)
	bes4 bes8 bes2)
	#(set-accidental-style 'no-reset 'Staff)
	c4.( c4 des! des
	d4. ~ d4 ees ees)
	e!4.( c'4 bes a
	f4 f8 f2)
	d4.( b'4 a f
	cis4. cis2)
	c!4.( ~ c4 ~
	c4. ~ c2
	#(set-accidental-style 'forget 'Staff)
	a4. ~ a2
	g4 g8 g2 ~
	g4 g2) ~
	g4 bes4( g
	f4. f4)
	f4.( f4 f
	f2. f4 f1)
	
}


textocantus=\lyricmode{
O sa -- crum con -- vi -- vi -- um!
in quo Chri -- stus su -- mi -- tur:
re -- co -- li -- tur
me -- mo -- ri -- a
pas -- si -- o -- nis e -- _ jus:
mens im -- ple -- tur gra -- _ ti -- a,
mens im -- ple -- tur gra -- _ ti -- a.
O sa -- _ _ crum,
sa -- crum,
sa -- crum,
sa -- crum,
O sa -- crum con -- vi -- vi -- um!
in quo Chri -- stus su -- mi -- tur:
mens im -- ple -- tur gra -- _ ti -- a:
et fu -- tu -- ræ glo -- _ ri -- æ
no -- bis pi -- gnus da -- _ _ tur,
al -- _ _ _ _ _ _ _ _ _ _ le -- lu -- _ _ ia. __ _ _  
O __ _ sa -- crum,
sa -- crum con -- vi -- vi -- um!
}

textoaltus=\lyricmode{
O sa -- crum con -- vi -- vi -- um!
in quo Chri -- stus su -- mi -- tur:
re -- co -- li -- tur
me -- mo -- ri -- a
pas -- si -- o -- nis e -- jus:
mens im -- ple -- tur gra -- ti -- a,
mens im -- ple -- tur gra -- ti -- a.
O sa -- crum,
sa -- crum,
sa -- crum,
sa -- crum,
O sa -- crum con -- vi -- vi -- um!
in quo Chri -- stus su -- mi -- tur:
mens im -- ple -- tur gra -- _ ti -- a:
et fu -- tu -- ræ glo -- ri -- æ
no -- bis pi -- gnus da -- tur,
al -- _ _ _ _ _ _ le -- lu -- _ ia. _  
O __ _ sa -- crum,
sa -- crum con -- vi -- vi -- um!
}

textotenor=\lyricmode{
O sa -- crum con -- vi -- vi -- um!
in quo Chri -- stus su -- mi -- tur:
re -- co -- li -- tur
me -- mo -- ri -- a
pas -- si -- o -- nis e -- jus:
mens im -- ple -- tur gra -- ti -- a,
mens im -- ple -- tur gra -- ti -- a.
O sa -- crum,
sa -- crum,
sa -- crum,
sa -- crum,
O sa -- crum con -- vi -- vi -- um!
in quo Chri -- stus su -- mi -- tur:
mens im -- ple -- tur gra -- _ ti -- a:
et fu -- tu -- ræ glo -- ri -- æ
no -- bis pi -- gnus da -- tur,
al -- _ _ _ _ _ _ le -- lu -- _ ia. _  
O __ _ sa -- crum,
sa -- crum con -- vi -- vi -- um!	
}

textobassus=\lyricmode{
O sa -- crum con -- vi -- vi -- um!
in quo Chri -- stus su -- mi -- tur:
re -- co -- li -- tur
me -- mo -- ri -- a
pas -- si -- o -- nis e -- jus:
mens im -- ple -- tur gra -- ti -- a,
mens im -- ple -- tur gra -- ti -- a.
O sa -- crum,
sa -- crum,
sa -- crum,
sa -- crum,
O sa -- crum con -- vi -- vi -- um!
in quo Chri -- stus su -- mi -- tur:
mens im -- ple -- tur gra -- _ ti -- a:
et fu -- tu -- ræ glo -- ri -- æ
no -- bis pi -- gnus da -- tur,
al -- _ _ _ _ _ _ le -- lu -- _ ia. _  
O __ _ sa -- crum,
sa -- crum con -- vi -- vi -- um!		
}



\score {
\new ChoirStaff<<

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

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

	
	\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="Basse "
		\clef "bass" 
		\bassus }
	\new Lyrics \lyricsto "v4" {\textobassus}
	>>
	
>>


\layout{ 
	%\context {\Lyrics \override VerticalAxisGroup #'minimum-Y-extent = #'(-0 . 0) }
	\context {\Score 
		\override BarNumber #'padding = #2 
		 markFormatter = #format-mark-box-letters
	}
	\context {\Lyrics 
		%\override LyricText #'font-size = #2 
		\override LyricHyphen #'minimum-distance = #0.33
	}\context {\Voice 
		melismaBusyProperties = #'()
		autoBeam= ##f
	}
	%\context { \RemoveEmptyStaffContext }
	\context {\Staff
		\consists Ambitus_engraver
		\remove Time_signature_engraver
	}
}

%\midi {}

}

\markup{\bold{Nota: } "Esta versión es un semitono más grave que el original y contiene enharmonías para facilitar su lectura."}

\paper{
	evenHeaderMarkup=\markup  \fill-line { \fromproperty #'page:page-number-string "O sacrum convivium" "Messiaen" }
	oddHeaderMarkup= \markup  \fill-line { \on-the-fly #not-first-page "Messiaen" \on-the-fly #not-first-page "O sacrum convivium" \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
}