\version "2.18.0"

% Typeset in Madrid, May 2004, during a choral seminar with Lluis Vilamajó

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

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

htitle="Doleo super te"
hcomposer="Iribarren"

\header {
	title=\markup{\fontsize #3 "Doleo super te"} % E:MA 60-22a (1734)
	subtitle="Motete a 5 a los Dolores de María Ssma."
	subsubtitle=\markup{\column{"" " "}}
	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 bes \major \time 4/4 \skip 1*96
	%\override Score.TimeSignature.break-visibility = #'#(#f #t #t)
	\bar "|."
}

solista=\relative c''{
               \override Staff.VerticalAxisGroup.staff-staff-spacing =
                        #'((basic-distance . 11) (minimum-distance . 4) (padding . 1))
       ees2 ees4 ees
       c2 c
       bes1
       r2 aes ~
       aes g
       f bes ~
       bes a!4 g
       a2 a
       bes bes
       bes4 bes g8[ f] g[ a]
       bes1
       r2 c4 c
       c2 ees
       ees4 bes4. bes8 bes4
       bes2 a
       bes bes ~
       bes g
       c2 f,4 f
       g2 aes4 g8 f
       g1
       r2 d'4 d
       ees2 c4 c
       d c bes a
       bes1
       bes2 bes4 bes
       g2 g
       f1 
       R1
       r2 aes ~
       aes g
       f f
       ees ees'4 d
       c2 bes
       c c
       d r4 d
       ees d c bes
       a2 bes
       R1
       r2 bes ~
       bes4 a8 g a4. a8
       bes1
       R1
       r4 d d d
       ees2 ees
       r4 c c c
       d2 d
       r4 b c2 ~
       c4 c b2
       R1
       r4 ees ees ees
       f2 f
       r4 d c4. c8
       d2 r
       c4 c ees2 ~
       ees d4 c
       b2 c
       a4. a8 bes!2
       g4 f8 \noBeam g aes2 ~
       aes4 aes g2
       bes4 c des2 ~
       des c
       c4 d! ees2 ~
       ees d
       d c4 c
       c2 b
       c r4 c
       aes4 aes aes aes
       aes2 aes
       r2 ees' ~
       ees des
       c1\prall
       bes2 r4 bes
       g4 g g g
       g2 g
       r2 bes ~
       bes c4 bes8 aes
       bes1
       aes4 aes aes aes
       aes1\prall 
       g2 r
       R1
       r4 bes r aes
       r4 ges2 f4
       ees2 r
       R1
       r4 f' r ees
       r4 des2 c4
       bes4 r r2
       R1
       r4 c r bes
       r4 aes2 g4
       f2 r
       r aes ~
       aes g
       f2. f4
       ees\breve*1/2
}

cantus=\relative c''{
	R1*8
        bes2 bes4 bes
        g2 g
        f bes ~
        bes aes
        g aes ~
        aes2 g4 f
        g2 f4 ees
        f1
        g4 a bes g
        a2 bes
        c1
        bes2 g
        a2 bes
        c1
        f, ~
        f
        R1*2
        bes2 bes4 bes
        bes2 bes
        a2 r
        R1*3
        f2 f 
        g c
        f, r
        R1
        r2 r4 bes
        bes g a bes
        c2 bes
        R1
        f2. g8[ aes]
        g2 f
        f r
        R1*5
        r4 g g g
        ees2 ees
        r4 f f f
        d2 ees4 ees
        d4. d8 d2
        R1*13
        r2 r4 aes'
        aes aes aes aes
        aes2 aes
        f f
        f1 
        f2 r
        r2 r4 g
        g g g g
        g2 g
        ees ees
        ees1
        ees2 r
        R1
        r4 g g g
        f1
        f2 r
        R1
        r4 bes r bes
        r4 aes2 ges4
        f4 r r2
        R1
        r4 bes r aes
        r4 ges2 f4
        e r r2
        R1
        r4 aes aes aes
        bes2 aes
        f g4 aes
        bes2. bes4
        bes\breve*1/2
}

altus=\relative c'{
	R1*6
        ees2 ees4 ees
        c2 c
        bes1
        r2 ees ~
        ees d
        c f4 f
        ees2 c
        bes2 r
        ees2 ees4 ees
        ees2 d
        ees1
        c2 d
        ees c
        d ees4 ees
        f1 
        ees ~
        ees2 d4 c
        d1
        R1*2
        f2 f4 f
        f2 e
        f2 r
        R1*3
        c2 d
        ees ees
        d2 r
        R1
        r2 r4 f
        g2 f4 ees
        ees2 d
        r2 ees ~
        ees4 d8 c d4. d8
        ees4 ees c4. c8
        d2 r
        R1*4
        r4 d d d 
        ees2 ees
        r4 c c c
        d2 d
        r4 b c2 ~
        c4 c b2
        R1*13
        r2 r4 f'
        ees ees f f
        f2 ees
        c2 des4 c8 bes
        c1
        d!2 r
        r2 r4 ees
        d d ees ees
        ees ees des2 ~
        des c
        bes1
        c2 r
        R1
        r4 ees4 ees ees
        ees1\prall 
        d2 r
        R1
        r4 g4 r g
        r ees r ees
        c r r2
        R1
        r4 f r f
        r4 ees2 des4
        c4 r r2
        R1
        r4 f f f
        ees2 ees
        d4 d ees2 ~
        ees d
        ees\breve*1/2
}

tenor=\relative c'{
	R1*15
        bes2 bes4 bes
        g2 g
        f bes ~
        bes aes
        g c ~
        c bes 
        bes a
        bes1 ~
        bes
        R1*2
        d2 d4 d
        d2 c4 bes
        c2 r
        R1*3
        a2 bes
        bes a
        bes r
        R1
        r2 r4 d
        ees4 d c bes
        a2 bes
        R1
        r2 bes ~
        bes4 a8 g a4. a8
        bes2 r
        R1*5
        r4 b b b
        c2 c
        r4 aes aes aes
        g2 c,4 g'
        aes4. aes8 g2
        R1*13
        r2 r4 des'
        c c des des
        des2 c
        c4 c bes2 ~
        bes a
        bes2 r
        r2 r4 c
        b b c c
        c2 bes!
        bes4 bes aes2 ~
        aes g
        aes r
        R1
        r4 bes bes bes
        c1
        bes2 r
        R1
        r4 ees r4 des
        r ces2 bes4
        a!4 r r2
        R1
        r4 d r d
        r bes r bes
        g r r2
        R1
        r4 des' des des
        des2 c
        bes2. c4
        des c bes aes
        g\breve*1/2
}

bassus=\relative c{
	 \override Staff.VerticalAxisGroup.staff-staff-spacing =
                        #'((basic-distance . 13) (minimum-distance . 5) (padding
 . 1))
       R1*13
       ees2 ees4 ees
       c2 c
       bes1
       r2 ees ~
       ees d
       c f ~
       f ees
       d1
       c
       bes ~
       bes
       R1*2
       bes'2 bes4 bes
       g2 g
       f2 r
       R1*2
       r2 ees ~
       ees2 d 
       c c
       bes r
       R1
       r2 r4 bes
       ees2 f4 g
       f2 bes,
       R1*2
       ees4 ees f4. f8
       bes,2 r
       R1*5
       r4 g' g g
       aes2 aes
       r4 f f f
       g2 ees4 ees
       f4. f8 g2
       R1*13
       r2 r4 des
       aes'4 aes aes aes
       aes2 aes
       a! bes
       f1
       bes,2 r
       r2 r4 c
       g' g g g
       g2 g
       g aes
       ees1
       aes,2 r
       R1
       r4 g' g g
       a!1 % a!1 ?
       bes2 r
       R1
       ees,4 r g r
       aes r ees r
       f r r2
       R1
       bes,4 r d r
       ees r bes r
       c r r2
       R1
       r4 f f f
       g2 aes
       bes ees,
       bes2. bes4
       ees\breve*1/2
}

continuo=\relative c {
       ees2 g
       aes2 c,4 d
       ees2 ees4 ees
       c2 c
       bes ees ~
       ees d
       c c
       f f4 ees
       d c d bes
       ees f g ees
       bes'2 bes,
       f'1
       c4 bes c d
       ees1
       c2 c
       bes1
       ees2 ees ~
       ees d
       c f ~
       f ees
       d1
       c
       bes ~
       bes
       bes4 c d bes
       ees f g ees
       bes'2 bes4 bes
       g2 g
       f2 f4 ees
       d2 ees
       bes' bes,
       ees ees ~
       ees d
       c1
       bes4 c d bes
       ees2 f4 g
       f2 bes,
       ees2 f4 g
       f2 bes,
       c1
       bes2 bes
       ees2 f
       bes,1
       r4 g' g g
       aes2 aes
       r4 f f f
       g2 r4 ees
       f2 g
       r4 g g g
       aes2 aes
       f2 f4 f
       g2 ees
       f g 
       c,2 c'4 c
       aes2 f
       g4 f ees2
       f4. ees8 d4 d
       ees2 c4 bes8 c
       d2 ees4 f
       g2. f4
       g2 aes
       a!2. g4
       a2 bes
       ees,4 d ees f
       g2 g,
       c1
       r4 c des des
       aes2 aes4 aes
       aes2. aes4
       a!2 bes
       f' f,
       bes1
       r4 b! c c
       g2 g
       g2. g4
       g2 aes
       ees' ees,
       aes4 c c c
       d d d d
       ees4 g,4 g g
       a a a a
       bes4 r d r
       ees4 r bes r
       ees r ees r
       aes4 r ees4 r
       f r a, r
       bes r f r
       bes r bes r
       ees r bes r
       c r e r
       f r c r
       des4 f f f
       g2 aes
       bes ees,2
       bes1
       ees\breve*1/2
}

textosolista=\lyricmode{
Do -- le -- o su -- per te
fi -- li mi,
fi -- li __ _ mi
Ie -- su,
do -- le -- o su -- _ per _ te
fi -- li mi Ie -- su,
do -- le -- o su -- per te
fi -- li mi,
fi -- li mi Ie -- _ _ su
fi -- li mi,
fi -- li mi __ _ Ie -- _ su,
do -- le -- o su -- per te
fi -- li mi Ie -- su,
fi -- _ _ li mi Ie -- su.
De -- co -- _ rus __ _ ni -- mis
et a -- _ ma -- bi -- lis
su -- per a -- mo -- rem
su -- per a -- mo -- rem
mu -- li -- e -- rum
su -- per a -- mo -- rem
mu -- li -- e -- rum.
Sic -- ut e -- nim __ _ ma -- ter u -- ni -- cum % sicut
di -- li -- git fi -- li -- um
i -- ta e -- go,
i -- ta e -- go 
te di -- li -- ge -- _ bam.
De -- fe -- cit in do -- lo -- re
vi -- ta me -- a
de -- fe -- cit in do -- lo -- re
vi -- ta __ _ _ me -- a,
et an -- ni me -- i
in ge -- mi -- ti -- bus
in ge -- mi -- ti -- bus
in ge -- mi -- ti -- bus
in ge -- mi -- ti -- bus.
}

textocantus=\lyricmode{
Do -- le -- o su -- per te,
fi -- li mi,
fi -- li __ _ mi Ie -- _ su,
fi -- _ li __ _ mi Ie -- su,
fi -- li mi __ _ Ie -- su
do -- le -- o su -- per te
fi -- li mi Ie -- su.
De -- co -- _ rus __ _ ni -- mis
et a -- _ ma -- bi -- lis
su -- per a -- mo -- rem
su -- per a -- mo -- rem mu -- li -- e -- rum.
De -- fe -- cit in do -- lo -- re % Dolore
vi -- ta me -- a
de -- fe -- cit in do -- lo -- re, vi -- ta me -- a
et an -- ni me -- i
in ge -- mi -- ti -- bus
in ge -- mi -- ti -- bus
et an -- ni me -- i,
in ge -- _ mi -- ti -- bus.
}

textoaltus=\lyricmode{
Do -- le -- o su -- per te
fi -- li mi, fi -- li mi Ie -- su
do -- le -- o su -- per te,
fi -- li mi Ie -- su,
fi -- li mi Ie -- _ _ su
do -- le -- o su -- per te
fi -- li mi Ie -- su.
De -- co -- rus __ _ ni -- mis
et a -- _ ma -- bi -- lis,
a -- ma -- bi -- lis
su -- per a -- mo -- rem
su -- per a -- mo -- rem 
mu -- li -- e -- rum.
De -- fe -- cit in do -- lo -- re vi -- ta __ _ _ me -- a
de -- fe -- cit in do -- lo -- re, vi -- ta me -- a
et an -- ni me -- i
in ge -- mi -- ti -- bus
in ge -- mi -- ti -- bus
et an -- ni me -- i,
in ge -- mi -- ti -- bus.
}

textotenor=\lyricmode{
Do -- le -- o su -- per -- te,
fi -- li mi,
fi -- li mi Ie -- su
do -- le -- o su -- per __ _ te 
fi -- li mi Ie -- su.
De -- co -- _ rus __ _ ni -- mis
et a -- _ ma -- bi -- lis
su -- per a -- mo -- rem
su -- per a -- mo -- rem mu -- li -- e -- rum.
De -- fe -- cit in do -- lo -- re vi -- ta me -- _ a
de -- fe -- cit in do -- lo -- re, vi -- ta me -- _ a
et an -- ni me -- i
in ge -- mi -- ti -- bus
in ge -- mi -- ti -- bus
et an -- ni me -- i,
in ge -- mi -- _ _ ti -- bus.
}

textobassus=\lyricmode{
Do -- le -- o su -- per te
fi -- li mi,
fi -- li mi Ie -- su
do -- le -- o su -- per te
fi -- li mi Ie -- su.
De -- co -- rus __ _ ni -- mis
et a -- ma -- bi -- lis
su -- per a -- mo -- rem
su -- per a -- mo -- rem mu -- li -- e -- rum.
De -- fe -- cit in do -- lo -- re vi -- ta me -- a
de -- fe -- cit in do -- lo -- re, vi -- ta me -- a
et an -- ni me -- i
in ge -- mi -- ti -- bus
in ge -- mi -- ti -- bus
et an -- ni me -- i,
in ge -- mi -- ti -- bus.
}

cifrado=\figuremode{
      s2 <6->
      <9> <6->
      <4>1
      <7>2 <6->
      <7>1
      <2>2 <6>
      <3->1
      <3!>1
      <6>1
      s
      <4>
      <4>2 <3->
      <3-> <6->
      <4>1
      <7>2 <6/>
      <4>1
      s
      <4! 2>2 <6>
      <7 3-> <3->
      <4 2> <6>
      <7> <6>
      <7> <6>
      <4>1
      s
      s
      s
      s
      <7>2 <6+>
      <3->1
      <6 5->
      <4>
      s2 <4! 2>
      s <6>
      <7> <6>
      s1
      s
      <7>1
      s
      <7>
      <7>2 <6/>
      <4>1
      s
      s
      s4 <6->2.
      s1
      s4 <6 3->2.
      <3+>1
      <6 5 3->2 <3+>
      s4 <6->2.
      s1
      <6 3->
      <3+>2 <6>
      <6 5>1
      s1
      s2 <6>
      <3+> <6>
      <3+> <6>
      s2 <6->
      <6 5->1
      <6->
      <5->
      <6>
      <5->
      <7>2 <6>
      <4> <3!>
      s1
      s4 <6->2.
      s2 <6 4->
      s1
      s2 <3->
      <4>1
      <3+>
      s4 <6>2.
      <3+>2 <6 4>
      <6 4>2. <5- 3->4
      <6 5->1
      <4>1
      s4 <6->2.
      <6 5->1
      s4 <6->2.
      <6 5->1
      s2 <5->
      <3-> <6- 4>
      <_!> <7->
      <3-> <6- 4>4 <3->
      <_!>2 <5->
      <3-> <6- 4>
      <3+> <7->
      <3-> <6- 4>4 <5 3->
      <3+>2 <6>
      <3-> <6 4>4 <5 3+>
      s4 <6->2.
      <6 5->1
      <7>
      <4>
      s
}

incipitsolista=\markup{
	\score{
		{ 
		\set Staff.instrumentName="Solista   " % Ti.
		\override NoteHead.style = #'neomensural
		\override Staff.TimeSignature.style = #'neomensural
		\cadenzaOn 
		\clef "petrucci-c1"
		\key bes \major
		\time 4/4
                ees''2
		} 

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

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

	\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 bes \major
		\time 4/4
                ees'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 bes \major
		\time 4/4
                bes2
		} 
	\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 bes \major
		\time 4/4
                ees2
		} 
	\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 bes \major
		\time 4/4
                ees2
		} 
	\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 Staff <<\global
	\new Voice="vs" {
		\set Staff.instrumentName=\incipitsolista
		\clef "treble"
		\solista }
	\new Lyrics \lyricsto "vs" {\textosolista }
	>>

\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 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 }
	>>
>>
        \new Staff \with {fontSize = #-2
                          \override StaffSymbol.staff-space = #(magstep -2)
                          \override StaffSymbol.thickness = #(magstep -2)
                          
        }<<\global
        \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=20
	%page-count = 8
	ragged-last-bottom = ##f
	indent=3.5\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))

}