\version "2.12.2"

#(set-default-paper-size "a4")
#(set-global-staff-size 15.8)
#(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="Stabat Mater"
hcomposer="Campos"

\header {
	title=\markup{\column{ " " " " \larger \larger \larger "Planctus beatæ Mariæ virginis" }}
	subtitle=\markup{\column{"(Stabat Mater)" " " " " " " " "  }}
	composer=\markup{\column{"Luis Alberto Campos" " " }}
	%opus="(-)"
	poet="Málaga, Martes Santo 1997"
	copyright=\markup{
		\fill-line {"Edited by Nancho Alvarez" \typewriter "http://tomasluisdevictoria.org"}
	}
%	tagline=""
}


\score{<<
	\new Voice="greg" \relative c'{
		\override Stem #'transparent = ##t
		\override NoteHead #'style = #'neomensural
		\override Staff.TimeSignature #'stencil = ##f
		\cadenzaOn
		\clef "G_8"
		\tempo "Gregoriano"
		\key g \major
		g a b a b d c b \bar "|"
		b a g fis e fis e d \bar "|"
		a' g a b a g g \bar "||"
	}
	\new Lyrics \lyricsto "greg" \lyricmode{
		Sta -- bat Ma -- ter do -- lo -- ro -- sa
		iux -- ta cru -- cem la -- cri -- mo -- sa,
		dum -- pen -- de -- bat Fi -- li -- us.
	}
	>>
	\layout {
		indent = 0
		ragged-right = ##f
	}
	
}


global={\key g \major \time 3/4 \skip 1*3/4*32 \bar ":|" \break
				\skip 1*3/4*8 \bar "|." }


cantus=\relative c''{
	\override Score.MetronomeMark #'X-offset = #-6
	\override Score.MetronomeMark #'padding = #3
	\tempo "Andante " 4=88
	\dynamicUp
	\phrasingSlurDotted
	\once \override TextScript #'X-offset = #-2.1
	\once \override TextScript #'padding = #1
	r4_\markup{\column {\dynamic mp \dynamic mp \dynamic f}} g4 a
	b2 a4
	c2 b4
	a2 g4 ~
	g4 \breathe fis\( g\)
	a4( g8 r g4 ~
	g fis2)
	g2.
	r4 g a
	b2 a4
	c2 b4
	a2 g4 ~
	g \breathe fis\( g\)
	a4( g8 r g4 ~
	g fis2)
	g2.
	\mark \markup{\box A}
	r4 b\( c\)
	d2. 
	c2 \breathe a8\( b\)
	c2. 
	b2 \breathe g8\( a\)
	b2\( b4
	a2\) g4
	a2.
	\mark \markup{\box B}
	r4 b4\(^\p c
	d2.\)
	c2 \breathe a8\( b\)
	c2( d8[ c)]
	b2 \breathe g8\( a\)
	b2\( b4
	a2\) a4 
	g2.
	r4 g^\mf( a
	b2 a4 
	b2 d4
	c2) b4 ~
	b \breathe a\>( g
	a2\! b4
	a2^\rit g4)
	g2.^\fermata
}

altus=\relative c''{
	\phrasingSlurDotted
	\dynamicUp
	r4 g a
	g2 fis4
	g2 g4
	fis2 e4 ~
	e \breathe e\( e\)
	e2.( 
	d)
	d2.
	r4 g a
	g2 fis4
	g2 g4
	fis2 e4 ~
	e \breathe e\( e\)
	e2.( 
	d)
	d2.
	R1*3/4
	r4 fis\( a\)
	g g2
	r4 e\( fis\) 
	g g2
	g2.\( ~
	g4 fis4\) e
	fis2.
	R1*3/4
	r4 fis^\p\( a\)
	g4 g2
	r4 e\( fis\) 
	g g2 \breathe
	g2.\(
	g2\) fis4
	g2.
	r4 g(^\mf a
	b2 a4
	b2 d4
	c2) b4 ~
	b \breathe a4(\> g
	fis2.\! ~
	fis4^\rit e2)
	d2.^\fermata
}

tenor=\relative c'{
	\phrasingSlurDotted
	\dynamicUp
	r4 g a
	d2 d4
	e2 d4
	c2 b4 ~
	b \breathe b\( b\)
	c2( b4 
	a2.)
	b2.
	r4 g a 
	d2 d4
	e2 d4
	c2 b4 ~
	b4 \breathe b\( b\)
	c2( b4 
	a2.)
	b2.
	R1*3/4
	r4 d\( d\)
	e e2
	r4 c\( d\)
	d d2
	d2.\(
	c2\) c4
	c2.
	R1*3/4
	r4 d^\p\( d\)
	e e2
	r4 c\( d\)
	d d2 \breathe
	e2.\(
	c2\) c4
	b2.
	r4 g^\mf( a
	b2 a4
	b2 d4
	c2) b4 ~
	b \breathe a(\> g
	d'2.\!
	c2.)^\rit
	b2.^\fermata
}

bassus=\relative c'{
	\phrasingSlurDotted
	\dynamicUp
	r4 g a
	g2 a4
	g2 g4
	a2( e4)
	e4 \breathe e\( d\)
	c2.(
	d)
	g2.
	r4 g a
	g2 a4
	g2 g4
	a2( e4)
	e4 \breathe e\( d\)
	c2.(
	d)
	g2.
	R1*3/4
	r4 b\( b\)
	c c2
	r4 a\( a\) 
	g g2
	e2.\(
	e2\) e4
	d2.
	R1*3/4
	r4 b'^\p\( b\)
	c4 c2
	r4 a\( a\)
	g g2 \breathe
	g4(\( e c)
	d2\) d4 
	g2.
	r4 g(^\mf a
	b2 a4
	b2 d4
	c2) b4 ~
	b \breathe a(\> g
	d2.\! ~
	d2.)^\rit
	g,^\fermata
}

textocantus=\lyricmode{
Cu -- ius a -- ni -- mam ge -- men -- tem,
ge -- _ men -- tem,
con -- tri -- sta -- tam 
et do -- len -- tem,
do -- _ len -- tem,
per -- tran -- si -- vit,
per -- tran -- si -- vit,
per -- tran -- si -- vit 
gla -- di -- us,
per -- tran -- si -- vit,
per -- tran -- si -- vit,
per -- tran -- si -- vit 
gla -- di -- us.
A -- men,
a -- men.
}
textocantusb=\lyricmode{
Vi -- dit su -- um dul -- cem na -- tum,
dul -- cem na -- tum
mo -- ri -- en -- do 
de -- so -- la -- tum,
de -- so -- la -- tum,
dum e -- mi -- sit, 
dum e -- mi -- sit,
dum e -- mi -- sit spi -- ri -- tum,
dum e -- mi -- sit, 
dum e -- mi -- sit,
dum e -- mi -- sit spi -- ri -- tum.
}
textocantusc=\lyricmode{
Fac ut ar -- de -- at cor me -- um,
cor __ _ me -- um
in a -- man -- do Chri -- stum De -- um,
Chri -- stum De -- um,
ut __ _ si -- bi,
ut __ _ si -- bi
com -- _ pla -- _ _ ce -- am,
ut __ _ si -- bi,
ut __ _ si -- bi
com -- _ pla -- _ _ ce -- am.
}


textoaltus=\lyricmode{
Cu -- ius a -- ni -- mam ge -- men -- tem,
ge -- _ men -- tem,
con -- tri -- sta -- tam 
et do -- len -- tem,
do -- _ len -- tem,
per -- tran -- si -- vit,
per -- tran -- si -- vit,
gla -- _ di -- us,
per -- tran -- si -- vit,
per -- tran -- si -- vit,
gla -- _ di -- us.
A -- men,
a -- men.
}
textoaltusb=\lyricmode{
Vi -- dit su -- um dul -- cem na -- tum,
dul -- cem na -- tum
mo -- ri -- en -- do 
de -- so -- la -- tum,
de -- so -- la -- tum,
dum e -- mi -- sit, 
dum e -- mi -- sit,
spi -- _ ri -- tum,
dum e -- mi -- sit, 
dum e -- mi -- sit,
spi -- _ ri -- tum.
}
textoaltusc=\lyricmode{
Fac ut ar -- de -- at cor me -- um,
cor __ _ me -- um
in a -- man -- do Chri -- stum De -- um,
Chri -- stum De -- um,
ut __ _ si -- bi,
ut __ _ si -- bi
com -- pla -- ce -- am,
ut __ _ si -- bi,
ut __ _ si -- bi
com -- pla -- ce -- am.
}


\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 Lyrics \lyricsto "v1" {\textocantusc }
	>>

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

	
	\new Staff <<\global
	\new Voice="v3" {
		\set Staff.instrumentName="Tenor "
		\clef "G_8"
		\tenor }
	\new Lyrics \lyricsto "v3" {\textoaltus }
	\new Lyrics \lyricsto "v3" {\textoaltusb }
	\new Lyrics \lyricsto "v3" {\textoaltusc }
	>>
	

	\new Staff <<\global
	\new Voice="v4" {
		\set Staff.instrumentName="Bajo "
		\clef "bass" 
		\bassus }
	\new Lyrics \lyricsto "v4" {\textoaltus }
	\new Lyrics \lyricsto "v4" {\textoaltusb }
	\new Lyrics \lyricsto "v4" {\textoaltusc }
	>>
	
>>

\layout{ 
	system-count = 5
	\context {\Lyrics \override VerticalAxisGroup #'minimum-Y-extent = #'(-0 . 0) }
	\context {\Score \override BarNumber #'padding = #2 }
	\context {\Lyrics 
		\override LyricText #'font-size = #1.1
		\override LyricHyphen #'minimum-distance = #0.33
	}
	\context {\Voice 
		%melismaBusyProperties = #'()
		autoBeaming = ##f
		\override Hairpin #'to-barline = ##f
	}
	%\context { \RemoveEmptyStaffContext }
	\context {\Staff 
		\override PhrasingSlur #'style = #'dotted
		\consists Ambitus_engraver 
		\override VerticalAxisGroup #'minimum-Y-extent = #'(-3 . 3)
	}
}

%\midi {}

}


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