\version "2.18.0"

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

italicas=\override LyricText.font-shape = #'italic
rectas=\override LyricText.font-shape = #'upright
ss=\once \set suggestAccidentals = ##t
incipitwidth = 20
mtempo={\tempo 4 = 80}
mtempob={\tempo 4 = 40}

htitle="Stabat Mater a5"
hcomposer="Iribarren"

\header {
	title=\markup{\fontsize #3 "Stabat Mater"}
	subtitle=""
	subsubtitle=\markup{\null \vspace #1 }
	composer="Juan Francés de Iribarren (1699-1767)"
        pdfauthor=\composer
	%opus="(-)"
	poet=\markup{"Catedral de Málaga"}
	copyright=\markup{
                \fill-line {\column{"Edited by Nancho Alvarez" "upon a transcription by Antonio del Pino"} \column{" " \typewriter "http://tomasluisdevictoria.org"}}
        }

%	tagline=""
}


global={\key f \major \time 3/4  \skip 1*3/4*117 \bar "|."
}

cantus={
	R1*3/4 |
	R1*3/4 |
	R1*3/4 |
	R1*3/4 |
%5
	R1*3/4 |
	R1*3/4 |
	R1*3/4 |
	R1*3/4 |
	R1*3/4 |
%10
	R1*3/4 |
	R1*3/4 |
	R1*3/4 |
	R1*3/4 |
	r4 g' g' |
%15
	g'2 g'4 |
	g'2 g'4 |
	g'2 fis'4 |
	r fis' fis' |
	g' a' bes' |
%20
	bes'2 a'4 |
	bes'2 f'4 |
	r f' f' |
	g'2 a'4 |
	fis' g'2 ~ |
%25
	g'4 fis'2 |
	g' r4 |
	R1*3/4 |
	R1*3/4 |
	R1*3/4 |
%30
	R1*3/4 |
	R1*3/4 |
	R1*3/4 |
	R1*3/4 |
	R1*3/4 |
%35
	R1*3/4 |
	R1*3/4 |
	R1*3/4 |
	r4 fis' fis' |
	g'2 g'4 |
%40
	r fis' fis' |
	g'2 g'4 |
	r a' a' |
	bes'2 bes'4 |
	a'2 g'4 |
%45
	g'2 fis'4 |
	r fis' fis' |
	g'2 g'4 |
	g' fis'2 |
	g'4 r r4 | % LN 2 r4 en todas las voces
%50
	R1*3/4 |
	R1*3/4 |
	R1*3/4 |
	R1*3/4 |
	R1*3/4 |
%55
	R1*3/4 |
	R1*3/4 |
	R1*3/4 |
	R1*3/4 |
	R1*3/4 | 
%60
	R1*3/4 |
	r4 r f'4 |
	a' a' bes'8 c'' |
	d''4 c'' bes' |
	a'2 a'4 |
%65
	r fis' fis' |
	g'8 fis' g' a' bes'4 |
	bes'2 a'4 |
	bes'2 f'4 |
	r4 r f'4 |
%70
	g'8 a' bes'4 c'' ~ |
	c'' bes'2 |
	a' a'4 |
	g'2. | % LN 2 r4 en todas las voces
	R1*3/4 |
%75
	R1*3/4 |
	R1*3/4 |
	R1*3/4 |
	R1*3/4 |
	R1*3/4 |
%80
	R1*3/4 |
	R1*3/4 |
	R1*3/4 |
	R1*3/4 | 
	r4 g' g' |
%85
	g'2 a'4 |
	g'2 g'4 |
	g'2 fis'4 |
	r fis' fis' |
	g'8 fis' g' a' bes'4 |
%90
	bes'2 a'4 |
	bes'2 bes'4 |
	r bes' bes' |
	a'2 fis'4 |
	g'2 g'4 |
%95
	fis'4 r4 r | % LN 2 r4 en todas las voces
	R1*3/4 |
	R1*3/4 |
	R1*3/4 |
	R1*3/4 |
%100
	R1*3/4 |
	R1*3/4 |
	R1*3/4 |
	R1*3/4 |
	R1*3/4 |
%105
	R1*3/4 | 
	r4 fis' fis' |
	g'2 g'4 |
	g'4 d' g' % LN g'2  g'4 |
	fis'2 fis'4 |
%110
	R1*3/4 |
	R1*3/4 |
	R1*3/4 |
	r4 r bes'4 |
	a' a' g'8 fis' |
%115
	g'2 g'4 |
	g' fis'2 |
	g'2.^\fermata
}

altus={
	R1*3/4 |
	R1*3/4 |
	R1*3/4 |
	R1*3/4 |
%5
	R1*3/4 |
	R1*3/4 |
	R1*3/4 |
	R1*3/4 |
	R1*3/4 |
%10
	R1*3/4 |
	R1*3/4 |
	R1*3/4 |
	R1*3/4 |
	r4 d' d' |
%15
	ees'2 ees'4 |
	\ss ees'2 ees'4 |
	d'2 d'4 |
	r d' d' |
	d'2 g'4 |
%20
	f'2 f'4 |
	f'2 d'4 |
	r d' d' |
	ees'2 ees'4 |
	d'2. ~ |
%25
	d'4 d'2 |
	d' r4 |
	R1*3/4 |
	R1*3/4 |
	R1*3/4 |
%30
	R1*3/4 |
	R1*3/4 |
	R1*3/4 |
	R1*3/4 |
	R1*3/4 |
%35
	R1*3/4 |
	R1*3/4 |
	R1*3/4 |
	r4 d' d' |
	d'2 d'4 |
%40
	r d' d' |
	d'2 d'4 |
	r f' f' |
	f'2 f'4 |
	f'2 d'4 |
%45
	d'2 d'4 |
	r d' d' |
	d' bes ees' |
	ees' d' c' |
	bes4 r r4 |
%50
	R1*3/4 |
	R1*3/4 |
	R1*3/4 |
	R1*3/4 |
	R1*3/4 |
%55
	R1*3/4 |
	R1*3/4 |
	R1*3/4 |
	R1*3/4 |
	R1*3/4 |
%60
	R1*3/4 |
	r4 r d'4 |
	fis' fis' g' |
	a'2 d'4 |
	d'2 d'4 |
%65
	r d' d' |
	d'4. c'8 d'[ e'] |
	f'2 f'4 |
	f'2 d'4 |
	r4 r d'4 |
%70
	g' f' ees' |
	d'2. ~ |
	d'4 d'2 |
	d'2. % LN bes2.|
	R1*3/4 |
%75
	R1*3/4 |
	R1*3/4 |
	R1*3/4 |
	R1*3/4 |
	R1*3/4 |
%80
	R1*3/4 |
	R1*3/4 |
	R1*3/4 |
	R1*3/4 |
	r4 d' d' |
%85
	d'2 d'4 |
	d'2 c'4 |
	d'2 d'4 |
	r d' d' |
	d'4. c'8 d'[ e'] |
%90
	f'2 f'4 |
	f'2 f'4 |
	r f' f' |
	ees'2 d'4 |
	d' c'2 |
%95
	d'4 r r4 |
	R1*3/4 |
	R1*3/4 |
	R1*3/4 |
	R1*3/4 |
%100
	R1*3/4 |
	R1*3/4 |
	R1*3/4 |
	R1*3/4 |
	R1*3/4 |
%105
	R1*3/4 |
	r4 d' d' |
	d'2 d'4 |
	d'2 c'4 |
	d'2 d'4 |
%110
	R1*3/4 |
	R1*3/4 |
	R1*3/4 |
	r4 r f'4 |
	ees' ees' d'8 c' |
%115
	bes2 ees'4 |
	\ss ees' d'2 |
	d'2.^\fermata
}

tenor={
	R1*3/4 |
	R1*3/4 |
	R1*3/4 |
	R1*3/4 |
%5
	R1*3/4 |
	R1*3/4 |
	R1*3/4 |
	R1*3/4 |
	R1*3/4 |
%10
	R1*3/4 |
	R1*3/4 |
	R1*3/4 |
	R1*3/4 |
	r4 bes bes |
%15
	g2 bes4 |
	c'2 c'4 |
	bes2 a4 |
	r a a |
	bes a g |
%20
	d' c' ees' |
	d'2 bes4 |
	r bes bes |
	bes2 c'4 |
	c' bes2 |
%25
	a c'4 |
	bes2 r4 |
	R1*3/4 |
	R1*3/4 |
	R1*3/4 |
%30
	R1*3/4 |
	R1*3/4 |
	R1*3/4 |
	R1*3/4 |
	R1*3/4 |
%35
	R1*3/4 |
	R1*3/4 |
	R1*3/4 |
	r4 a a |
	bes2 bes4 |
%40
	r a a |
	bes2 bes4 |
	r c' ees' |
	d'2 bes4 | % LN d'2 d'4
	c'2 bes4 |
%45
	bes2 a4 |
	r a a |
	bes4. a8 g[ bes] |
	a4 a2 |
	g4 r r4 |
%50
	R1*3/4 |
	R1*3/4 |
	R1*3/4 |
	R1*3/4 |
	R1*3/4 |
%55
	R1*3/4 |
	R1*3/4 |
	R1*3/4 |
	R1*3/4 |
	R1*3/4 |
%60
	R1*3/4 |
	r4 r d'4 |
	c' c' bes |
	a2 g4 |
	g2 fis4 |
%65
	r a a |
	bes2 bes4 |
	c'2 ees'4 |
	d'2 bes4 |
	r4 r bes4 |
%70
	bes8 c' d'4 ees'8 g |
	fis4 g2 ~ |
	g4 fis2 |
	g2. |
	R1*3/4 |
%75
	R1*3/4 |
	R1*3/4 |
	R1*3/4 |
	R1*3/4 |
	R1*3/4 |
%80
	R1*3/4 |
	R1*3/4 |
	R1*3/4 |
	R1*3/4 |
	r4 bes bes |
%85
	bes2 a4 |
	bes a g |
	a2 a4 |
	r a a |
	bes2 bes8 c' |
%90
	d'2 c'4 |
	d'2 d'4 |
	r d' d' |
	c'2 a4 |
	g2 g4 |
%95
	a4 r r4 |
	R1*3/4 |
	R1*3/4 |
	R1*3/4 |
	R1*3/4 |
%100
	R1*3/4 |
	R1*3/4 |
	R1*3/4 |
	R1*3/4 |
	R1*3/4 |
%105
	R1*3/4 |
	r4 a a |
	bes2 bes4 |
	bes a g |
	a2 a4 |
%110
	R1*3/4 |
	R1*3/4 |
	R1*3/4 |
	r4 r d'4 |
	c' c' bes8 a |
%115
	g2 bes4 |
	c' a2 |
	g2.^\fermata
}

bassus={
	 \override Staff.VerticalAxisGroup.staff-staff-spacing =
                        #'((basic-distance . 13) (minimum-distance . 5) (padding
 . 1))
	R1*3/4 |
	R1*3/4 |
	R1*3/4 |
	R1*3/4 |
%5
	R1*3/4 |
	R1*3/4 |
	R1*3/4 |
	R1*3/4 |
	R1*3/4 |
%10
	R1*3/4 |
	R1*3/4 |
	R1*3/4 |
	R1*3/4 |
	r4 g g |
%15
	ees2 ees4 |
	c2 c4 |
	d2 d4 |
	r d d |
	g f ees |
%20
	f2 f,4 |
	bes,2 bes,4 |
	r bes, bes, |
	ees d c |
	d2. ~ |
%25
	d4 d2 |
	g, r4 |
	R1*3/4 |
	R1*3/4 |
	R1*3/4 |
%30
	R1*3/4 |
	R1*3/4 |
	R1*3/4 |
	R1*3/4 |
	R1*3/4 |
%35
	R1*3/4 |
	R1*3/4 |
	R1*3/4 |
	r4 d d |
	g2 g4 |
%40
	r d d |
	g2 g4 |
	r f f |
	bes2 bes4 |
	f2 g4 |
%45
	d2 d4 |
	r d d |
	g4. f8 ees[ d] |
	c4 d2 |
	g,4 r r4 |
%50
	R1*3/4 |
	R1*3/4 |
	R1*3/4 |
	R1*3/4 |
	R1*3/4 |
%55
	R1*3/4 |
	R1*3/4 |
	R1*3/4 |
	R1*3/4 |
	R1*3/4 |
%60
	R1*3/4 |
	r4 r bes4 |
	a a g |
	fis2 g4 |
	d2 d4 |
%65
	r d d |
	g2 g4 |
	f2 f4 |
	bes2 bes,4 |
	r4 r bes,4 |
%70
	ees d c |
	d2. ~ |
	d4 d2 |
	g,2. |
	R1*3/4 |
%75
	R1*3/4 |
	R1*3/4 |
	R1*3/4 |
	R1*3/4 |
	R1*3/4 |
%80
	R1*3/4 |
	R1*3/4 |
	R1*3/4 |
	R1*3/4 |
	r4 g g |
%85
	g2 fis4 |
	g f ees |
	d2 d4 |
	r d d |
	g2 g4 |
%90
	f2 f4 |
	bes2 bes4 |
	r bes, bes, |
	c2 d4 |
	ees2 ees4 |
%95
	d4 r r4 |
	R1*3/4 |
	R1*3/4 |
	R1*3/4 |
	R1*3/4 |
%100
	R1*3/4 |
	R1*3/4 |
	R1*3/4 |
	R1*3/4 |
	R1*3/4 |
%105
	R1*3/4 |
	r4 d d |
	g2 g4 |
	g f ees |
	d2 d4 |
%110
	R1*3/4 |
	R1*3/4 |
	R1*3/4 |
	r4 r bes,4 |
	c c d |
%115
	ees2 ees4 |
	c d2 |
	g,2.^\fermata
}

solista={
         \override Staff.VerticalAxisGroup.staff-staff-spacing =
                        #'((basic-distance . 11) (minimum-distance . 5) (padding
 . 1))
	g2 g4 |
	g fis d |
	fis2 fis4 |
	g2 g4 |
%5
	r bes bes |
	bes a f |
	a2 a4 |
	bes2 bes4 |
	r d' d' |
%10
	d' c' bes |
	a8 bes16 c' bes4 a |
	g2 r4 |
	R1*3/4 %\break
	R1*3/4
%15
	R1*3/4 |
	R1*3/4 |
	R1*3/4 |
	R1*3/4 |
	R1*3/4 |
%20
	R1*3/4 |
	R1*3/4 |
	R1*3/4 |
	R1*3/4 |
	R1*3/4 |
%25
	R1*3/4 |
	R1*3/4 | %\break 
	r4 d'4 d'4 | % Luis Naranjo d'2 d'4
	bes a g |
	ees' d' c' |
%30
	d'2 d4 |
	r d' c' |
	bes c' d' |
	g4. bes8 a[ c'] |
	bes a bes4 r |
%35
	r d' c' |
	bes a g |
	fis2 g4 | %\break
	a2 r4 | % LN a4 r r
	R1*3/4 |
%40
	R1*3/4 |
	R1*3/4 |
	R1*3/4 |
	R1*3/4 |
	R1*3/4 |
%45
	R1*3/4 |
	R1*3/4 |
	R1*3/4 |
	R1*3/4 | 
	r4 d' d' | %\break 
%50
	bes2 bes4 |
	c'2 c'4 |
	d'8 c' d'4 r |
	r d' d' |
	bes c' d' |
%55
	c'2 bes4 |
	a8 g f4 r |
	r4 r bes4 |
	c' d' ees' |
	d'2. ~ |
%60
	d'4 c'2 | %\break 
	bes r4 |
	R1*3/4 |
	R1*3/4 |
	R1*3/4 |
%65
	R1*3/4 |
	R1*3/4 |
	R1*3/4 |
	R1*3/4 |
	R1*3/4 |
%70
	R1*3/4 |
	R1*3/4 |
	R1*3/4 |
	r4 g g | %\break
	fis e d |
%75
	bes4. a8 bes[ c'] |
	d'4 d2 |
	r4 d' c' |
	bes2 a4 |
	bes2 c'4 |
%80
	d' d' r |
	r d' c' |
	bes a g |
	a fis2 | %\break 
	g4 r r |
%85
	R1*3/4 |
	R1*3/4 |
	R1*3/4 |
	R1*3/4 |
	R1*3/4 |
%90
	R1*3/4 |
	R1*3/4 |
	R1*3/4 |
	R1*3/4 |
	R1*3/4 |
%95
	r4 d d | %\break
	bes a g |
	a g fis |
	g2 g4 |
	r g g |
%100
	bes2 bes4 |
	a2 a4 |
	bes8 a bes4 r |
	r g g |
	bes2 a4 |
%105
	g4. bes8 a[ g] | %\break 
	fis4 r r4 | % LN fis2 r4
	R1*3/4 |
	R1*3/4 |
	R1*3/4 |
%110
	r4 a a |
	bes c' d' |
	c'2 c'4 |
	d'8 c' d'4 r |
	r4 r d4 |
%115
	g g g |
	\set Staff.autoBeaming = ##f
	a8 a a4. c'8 |
	bes2.^\fermata
}

tenorysolista={
        g2^\markup{"[Solo]"} g4 |
	g fis d |
	fis2 fis4 |
	g2 g4 |
%5
	r bes bes |
	bes a f |
	a2 a4 |
	bes2 bes4 |
	r d' d' |
%10
	d' c' bes |
	a8 bes16 c' bes4 a |
	g2 r4 |
        R1*3/4
        r4 bes^\markup{"[Tutti]"} bes |
%15
	g2 bes4 |
	c'2 c'4 |
	bes2 a4 |
	r a a |
	bes a g |
%20
	d' c' ees' |
	d'2 bes4 |
	r bes bes |
	bes2 c'4 |
	c' bes2 |
%25
	a c'4 |
	bes2 r4 |
	r4 d'4^\markup{"[Solo]"} d'4 | % Luis Naranjo d'2 d'4
	bes a g |
	ees' d' c' |
%30
	d'2 d4 |
	r d' c' |
	bes c' d' |
	g4. bes8 a[ c'] |
	bes a bes4 r |
%35
	r d' c' |
	bes a g |
	fis2 g4 | 
	<<a2*1/2 \new Voice{c4\rest}>> \stemDown a4^\markup{"[Tutti]"} <<a \new Voice{f'\rest}>>
       \stemNeutral
       bes2 bes4 |
%40
	r a a |
	bes2 bes4 |
	r c' ees' |
	d'2 bes4 | % LN d'2 d'4
	c'2 bes4 |
%45
	bes2 a4 |
	r a a |
	bes4. a8 g[ bes] |
	a4 a2 |
	g4 d'^\markup{"[Solo]"} d' | 
%50
	bes2 bes4 |
	c'2 c'4 |
	d'8 c' d'4 r |
	r d' d' |
	bes c' d' |
%55
	c'2 bes4 |
	a8 g f4 r |
	r4 r bes4 |
	c' d' ees' |
	d'2. ~ |
%60
	d'4 c'2 |
	bes2 d'4^\markup{"[Tutti]"} |
	c' c' bes |
	a2 g4 |
	g2 fis4 |
%65
	r a a |
	bes2 bes4 |
	c'2 ees'4 |
	d'2 bes4 |
	r4 r bes4 |
%70
	bes8 c' d'4 ees'8 g |
	fis4 g2 ~ |
	g4 fis2 |
	<<\stemDown g2.*1/3 \new Voice{f'4\rest}>> \stemUp g4^\markup{"[Solo]"} g | %\break
	\stemNeutral fis e d |
%75
	bes4. a8 bes[ c'] |
	d'4 d2 |
	r4 d' c' |
	bes2 a4 |
	bes2 c'4 |
%80
	d' d' r |
	r d' c' |
	bes a g |
	a fis2 | %\break 
	g4 bes^\markup{"[Tutti]"} bes |
%85
	bes2 a4 |
	bes a g |
	a2 a4 |
	r a a |
	bes2 bes8 c' |
%90
	d'2 c'4 |
	d'2 d'4 |
	r d' d' |
	c'2 a4 |
	g2 g4 |
%95
	a4 d^\markup{"[Solo]"} d | %\break
	bes a g |
	a g fis |
	g2 g4 |
	r g g |
%100
	bes2 bes4 |
	a2 a4 |
	bes8 a bes4 r |
	r g g |
	bes2 a4 |
%105
	g4. bes8 a[ g] | %\break 
	fis4 a^\markup{"[Tutti]"} a |
	bes2 bes4 |
	bes a g |
	a2 a4 |
%110
	r4 a^\markup{"[Solo]"} a |
	bes c' d' |
	c'2 c'4 |
	d'8 c' d'4 d'^\markup{"[Tutti]"}
        c' c'
        <<
        {\voiceTwo bes8 a |
%115
	g2 bes4 |
	c' a2 |
	g2._\fermata}
        \new Voice="notassueltas" {\voiceOne
           % d4^\markup{"[Solo]"} |
           d4
%115
	g g g |
	\set Staff.autoBeaming = ##f
	a8 a a4. c'8 |
	bes2. }
        >>
}

continuo={
        \set autoBeaming = ##t
	g,4 bes, c |
	d2 d4 |
	d2 c4 |
	bes,8 c bes, a, g,4 |
%5
	g d e |
	f2 f4|
	f, f ees |
	d8 ees d c bes,4 |
	bes4. a8 g4 |
%10
	fis2 g4 |
	c d2 |
	g,4 g ees |
	\voiceTwo
	c d2 |
	g,4 \oneVoice g g |
%15
	ees2 ees4 |
	c2 c4 |
	d2 d4 |
	d d d |
	g f ees |
%20
	f2 f,4 |
	bes,2 bes,4 |
	bes, bes, bes, |
	ees d c |
	d g,2 |
%25
	d d,4 |
	g, g g |
	fis d fis |
	g2 g4 |
	c d ees |
%30
	d e fis |
	g fis2  |
	g4 g f |
	ees2 f4 |
	bes, bes a |
%35
	g fis d |
	g f ees |
	d2 ees4 |
	d d d |
	g, bes, g, |
%40
	d d d |
	g, bes, g, |
	f, f f |
	bes2 bes4 |
	f2 g4 |
%45
	d2 d4 |
	d d d |
	g4. f8 ees d |
	c4 d2 |
	g,4 g fis |
%50
	g2 g4 |
	ees2 ees4 |
	d2  \voiceTwo fis4 |
	g \oneVoice fis d |
	g2 g4 |
%55
	ees2 e4 |
	f f ees |
	d c bes, |
	a, g, f, |
	bes,4. c8 d ees |
%60
	f4 f,2 |
	bes, bes4 |
	a a g |
	fis2 g4 |
	d2 d4 |
%65
	d d d |
	g2 g4 |
	f2 f,4 |
	bes,2 bes,4 |
	bes, d bes, |
%70
	ees d c |
	d g,2 |
	d d,4 |
	g, bes,8 a, bes, c |
	d2 d4 |
%75
	g2 ees4 |
	d4 d c |
	bes,2 a,4 |
	g2 f4 |
	g f ees |
%80
	d d c |
	bes,2 a,4 |
	g f ees |
	c d2 |
	g,4 g, g, |
%85
	g, bes, d |
	g f ees |
	d2 d4 |
	d d d |
	g2 g4 |
%90
	f2 f4 |
	bes2 bes4 |
	bes bes, bes, |
	c2 d4 |
	ees ees ees |
%95
	d2 d4 |
	g f ees8 d |
	c2 d4 |
	g g, g, |
	ees2 ees4 |
%100
	d4. c8 d ees |
	f2 f4 |
	bes, d d |
	ees2 ees4 |
	d4. bes,8 c d |
%105
	ees2 c4 |
	d d d |
	g2 g4 |
	g f ees |
	d2 d4 |
%110
	d d d |
	g a bes |
	f2 f4 |
	bes2 bes,4 |
	c c d |
%115
	ees2 ees4 |
	c d2 |
	g,2.^\fermata 
}

% esta voz aparece en la transcripción de Luis Naranjo
organo= {\voiceOne
	\skip 1*3/4*12
	a8 c' \grace c'8 bes4.-\prall a8
	g4 s4 s
	\skip 1*3/4*37
	s4 s4 d'8 c'
	bes4 s s
}

cifrado=\figuremode{
       s4 s <_->
       <6 4>2 <5 3+>4
       s2 <4+>4
       s2.
       s4 <6> s
       <6 4> <5 3>2
       <3>2.
       <6>
       s
       <6>4 <5> s
       <3-> <6 4> <5 3+>
       s2.
       <_->4 s2
       s2.
       s
       s
       <6 4>2 <5 3+>4
       s2.
       s
       s
       s
       s
       s2 <6>4
       <7>4 s2
       <4>2.
       s2.
       s
       s
       <_->
       <_+>
       s4 <6> <5>
       <_->4 s2
       s2.
       s
       s
       s
       <_+>
       <_+>
       s
       s
       s
       s
       s
       s
       <6 4>2 <5 3+>4
       s2.
       s
       <_->4 <_+>2
       s2.
       <_->
       <6>
       <_+>
       s2.
       s
       <6>
       s2.
       <6>
       <6>
       s2.
       <6 4>
       s
       <6>
       <6>4 <5> s
       <4>2.
       s
       s
       <4>
       s
       s
       s
       <7>
       <4>
       s4 <6>2
       <_+>2.
       s2 <5>8 <6>
       <_+>2.
       s2.
       s
       s2 <6>4
       <_+>2.
       s2.
       s
       <6 _->4 <_+>2
       s2.
       s2 <_+>4
       s2 <6>4
       <4>2 <_+>4
       s2.
       s
       <6 4>2 <3>4
       s2.
       s
       <6>2 <_+>4
       <7> <6>2
       <_+>2.
       s2.
       <6>4 <5> <_+>
       s2.
       <5>
       s2.
       s
       s4 <6> s
       s2.
       <6>2 <6>4
       s2 <6>4
       <_+>2.
       s
       s2 <6>4
       <_+>2.
       s
       s
       <4>
       s
       s
       s
       <6 5>4 <_+>4
       s2.
}


textocantus=\lyricmode{
Cu -- ius a -- ni -- mam ge -- men -- tem % cujus
con -- tri -- sta -- _ tam et do -- len -- tem
per -- tran -- si -- vit gla -- _ _ di -- us.

Quæ mœ -- re -- bat et do -- le -- bat, % mae?
et tre -- me -- bat cum vi -- de -- bat
na -- ti pœ -- nas in -- cli -- ti.

Quis pos -- set non _ con -- _ tris -- ta -- ri % Quis non posset
pi -- am Ma -- _ _ _ trem con -- tem -- pla -- ri
do -- len -- _ tem cum _ Fi -- _ li -- o?

Vi -- dit su -- um dul -- cem na -- tum
mo -- ri -- en -- _ _ _ tem de -- so -- la -- tum % LN moriendo
dum e -- mi -- sit spi -- ri -- tum. % Spi

Fac ut ar -- de -- at __ _ cor me -- um % Fac,
ut si -- bi com -- _ pla -- ce -- am.
A -- men.
}

textoaltus=\lyricmode{
Cu -- ius a -- ni -- mam ge -- men -- tem
con -- tri -- sta -- tam et do -- len -- tem
per -- tran -- si -- vit gla -- _ di -- us.

Quæ mœ -- re -- bat et do -- le -- bat,
et tre -- me -- bat cum vi -- de -- bat
na -- ti pœ -- _ nas in -- _ cli -- ti.

Quis pos -- set non con -- tris -- ta -- ri
pi -- am Ma -- _ trem _ con -- tem -- pla -- ri
do -- len -- tem cum Fi -- _ li -- o?

Vi -- dit su -- um dul -- cem na -- tum
mo -- ri -- en -- _ tem _ de -- so -- la -- tum
dum e -- mi -- sit spi -- ri -- tum.

Fac ut ar -- de -- at cor me -- um
ut si -- bi com -- _ pla -- ce -- am.
A -- men.


}

textotenor=\lyricmode{
Cu -- ius a -- ni -- mam ge -- men -- tem
con -- tri -- sta -- _ tam et __ _ do -- len -- tem
per -- tran -- si -- vit gla -- _ _ di -- us.

Quæ mœ -- re -- bat et do -- le -- bat,
et tre -- me -- bat cum vi -- de -- bat
na -- ti pœ -- _ nas _ in -- cli -- ti.

Quis pos -- set non con -- tris -- ta -- ri
pi -- am Ma -- trem con -- tem -- pla -- ri
do -- len -- _ tem cum _ Fi -- _ _ li -- o?

Vi -- dit su -- um dul -- _ cem na -- tum
mo -- ri -- en -- tem _ de -- so -- la -- tum
dum e -- mi -- sit spi -- ri -- tum.

Fac ut ar -- de -- at __ _ cor me -- um
ut si -- bi com -- _ pla -- ce -- am.
A -- men.


}

textobassus=\lyricmode{
Cu -- ius a -- ni -- mam ge -- men -- tem
con -- tri -- sta -- _ tam et do -- len -- tem
per -- tran -- si -- _ vit gla -- _ di -- us.

Quæ mœ -- re -- bat et do -- le -- bat,
et tre -- me -- bat cum vi -- de -- bat
na -- ti pœ -- _ nas _ in -- cli -- ti.

Quis pos -- set non con -- tris -- ta -- ri
pi -- am Ma -- trem con -- tem -- pla -- ri
do -- len -- tem cum Fi -- _ li -- o?

Vi -- dit su -- um dul -- _ cem na -- tum
mo -- ri -- en -- tem de -- so -- la -- tum
dum e -- mi -- sit spi -- ri -- tum.

Fac ut ar -- de -- at __ _ cor me -- um
ut si -- bi com -- pla -- ce -- am.
A -- men.

}

textotenorysolista=\lyricmode{
%solo
Sta -- bat Ma -- _ ter do -- lo -- ro -- sa
iux -- ta cru -- _ cem la -- cri -- mo -- sa % cry
dum pen -- de -- _ bat Fi -- _ _ _ li -- us. 

%tutti
Cu -- ius a -- ni -- mam ge -- men -- tem
con -- tri -- sta -- _ tam et __ _ do -- len -- tem
per -- tran -- si -- vit gla -- _ _ di -- us.

%solo
O quam tri -- _ stis et __ _ af -- fli -- cta % stis,
fu -- it il -- _ la be -- _ ne -- _ di -- _ cta
Ma -- ter u -- _ ni -- ge -- ni -- ti!

%tutti
Quæ mœ -- re -- bat et do -- le -- bat,
et tre -- me -- bat cum vi -- de -- bat
na -- ti pœ -- _ nas _ in -- cli -- ti.

%solo
Quis est ho -- mo qui non fle -- _ ret,
Chri -- sti Ma -- _ trem si vi -- de -- _ ret
in tan -- to sup -- pli -- _ ci -- o?

%tutti
Quis pos -- set non con -- tris -- ta -- ri
pi -- am Ma -- trem con -- tem -- pla -- ri
do -- len -- _ tem cum _ Fi -- _ _ li -- o?

%solo
Pro pec -- ca -- _ tis su -- _ æ _ gen -- tis
vi -- dit Ie -- sum in tor -- men -- tis, % Jesum
et fla -- gel -- _ lis sub -- di -- tum.

%tutti
Vi -- dit su -- um dul -- _ cem na -- tum
mo -- ri -- en -- tem _ de -- so -- la -- tum
dum e -- mi -- sit spi -- ri -- tum.

%solo
E -- ia Ma -- _ ter, fons _ a -- mo -- ris
me sen -- ti -- re vim do -- lo -- _ ris
fac ut te -- cum lu -- _ ge -- _ am. % fac,

%tutti
Fac ut ar -- de -- at __ _ cor me -- um

%solo
in a -- man -- _ do Chri -- stum De -- _ um,

%tutti
ut si -- bi com -- _ pla -- ce -- am.
A -- men.
}

textosolista=\lyricmode{
Sta -- bat Ma -- _ ter do -- lo -- ro -- sa
iux -- ta cru -- _ cem la -- cri -- mo -- sa % cry
dum pen -- de -- _ bat Fi -- _ _ _ li -- us. 

O quam tri -- _ stis et __ _ af -- fli -- cta % stis,
fu -- it il -- _ la be -- _ ne -- _ di -- _ cta
Ma -- ter u -- _ ni -- ge -- ni -- ti!

Quis est ho -- mo qui non fle -- _ ret,
Chri -- sti Ma -- _ trem si vi -- de -- _ ret
in tan -- to sup -- pli -- _ ci -- o?

Pro pec -- ca -- _ tis su -- _ æ _ gen -- tis
vi -- dit Ie -- sum in tor -- men -- tis, % Jesum
et fla -- gel -- _ lis sub -- di -- tum.

E -- ia Ma -- _ ter, fons _ a -- mo -- ris
me sen -- ti -- re vim do -- lo -- _ ris
fac ut te -- cum lu -- _ ge -- _ am. % fac,

in a -- man -- _ do Chri -- stum De -- _ um
ut si -- bi com -- pla -- ce -- am.
A -- men.
}
textonotassueltas=\lyricmode{		
\markup{\hspace #4 \raise #1.5 \column{"[Solo]" "ut"}} si -- bi com -- pla -- ce -- am. A -- men. 
}


% Repasar los incipits, no he visto el original

incipitsolista=\markup{
	\score{
		{ 
		\set Staff.instrumentName=\markup{\column{"Tenor" "1º Coro   "}}
		\override NoteHead.style = #'neomensural
		%\override Staff.TimeSignature.style = #'neomensural
		\cadenzaOn 
		\clef "petrucci-c4"
		\key f \major
		\time 3/2
               g\breve*1/2
		} 

	\layout { line-width=\incipitwidth indent = 0 }
	}
}

incipitcantus=\markup{
	\score{
		{ 
		\set Staff.instrumentName="Soprano "
		\override NoteHead.style = #'neomensural
		%\override Staff.TimeSignature.style = #'neomensural
		\cadenzaOn 
		\clef "petrucci-c1"
		\key f \major
		\time 3/2
               g'1
		} 

	\layout { line-width=\incipitwidth indent = 0 }
	}
}

incipitaltus=\markup{
	\score{
		{ 
		\set Staff.instrumentName="Alto        "
		\override NoteHead.style = #'neomensural 
		%\override Staff.TimeSignature.style = #'neomensural
		\cadenzaOn 
		\clef "petrucci-c3"
		\key f \major
		\time 3/2
                d'1
		} 
	\layout { line-width=\incipitwidth indent = 0 }
	}
}


incipittenor=\markup{
	\score{
		{ 
		\set Staff.instrumentName=\markup{"Tenor     "}
		\override NoteHead.style = #'neomensural 
		%\override Staff.TimeSignature.style = #'neomensural
		\cadenzaOn 
		\clef "petrucci-c4"
		\key f \major
		\time 3/2
               bes1
		} 
	\layout { line-width=\incipitwidth indent=0 }
	}
}

incipitbassus=\markup{
	\score{
		{ 
		\set Staff.instrumentName="Bajo        " % Bassus?
		\override NoteHead.style = #'neomensural
		%\override Staff.TimeSignature.style = #'neomensural
		\cadenzaOn 
		\clef "petrucci-f4"
		\key f \major
		\time 3/2
                g1
		} 
	\layout { line-width=\incipitwidth indent = 0 }
	}
}
incipitcont=\markup{
	\score{
		{ 
		\set Staff.instrumentName="Acomp.  "
		\override NoteHead.style = #'neomensural
		%\override Staff.TimeSignature.style = #'neomensural
		\cadenzaOn 
		\clef "petrucci-f4"
		\key f \major
		\time 3/2
                g,1
		} 
	\layout { line-width=\incipitwidth indent = 0 }
	}
}

%\layout {
%       \context {\Voice
%               \remove Ligature_bracket_engraver
%               \consists Mensural_ligature_engraver
%       }
%       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 "treble"
		\altus }
	\new Lyrics \lyricsto "v2" {\textoaltus }
	>>
	
        \new Lyrics = "textoup"\with {\override VerticalAxisGroup.staff-affinity = #DOWN }
	\new Staff <<\global
        \new Voice="v3" {
		%\set Staff.instrumentName=\incipittenor
                \set Staff.instrumentName=\incipitsolista
		\clef "G_8"
		\tenorysolista }
	\new Lyrics \lyricsto "v3" {\textotenorysolista }
        \context Lyrics="textoup" \lyricsto "notassueltas" {\textonotassueltas }
	>>

	\new Staff <<\global
	\new Voice="v4" {
		\set Staff.instrumentName=\incipitbassus
		\clef "bass"
		\bassus }
	\new Lyrics \lyricsto "v4" {\textobassus }
	>>
>>
        %\new Staff <<\global
        %\new Voice="solista" {
        %        \set Staff.instrumentName=\incipitsolista
        %        \clef "G_8"
        %        \solista }
        %\new Lyrics \lyricsto "solista" {\textosolista }
        %>>
        
        \new Staff \with {fontSize = #-2
                          \override StaffSymbol.staff-space = #(magstep -2)
                          \override StaffSymbol.thickness = #(magstep -2)
                          
        }<<\global
        \new Voice="organo" {\organo }
        \new Voice="v5" {
                \set Staff.instrumentName=\incipitcont
                \clef "bass"
                \continuo }
        \new FiguredBass {\cifrado}
        >>
>>

	} % 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
	}
        \context {\FiguredBass
                  \override BassFigure #'font-size = #-2
        }
}

%\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=12
	%page-count = 8
	ragged-last-bottom = ##f
	indent=3.7\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))

}