\version "2.18.0"

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

italicas=\override LyricText.font-shape = #'italic
rectas=\override LyricText.font-shape = #'upright
ss=\once \set suggestAccidentals = ##t
incipitwidth = 20
mtempo={\tempo 4 = 100}
mtempob={\tempo 4 = 50}
eco=\markup{\italic "eco"} 

htitle="Domine, quando veneris"
hcomposer="Iribarren"

\header {
	title=\markup{\fontsize #3 "Domine, quando veneris"}
	subtitle="Motete de difuntos a 3 con flautas dulces"
	subsubtitle=\markup{\null \vspace #2 }
	composer="Juan Francés de Iribarren (1699-1767)"
        pdfauthor=\composer
	%opus="(-)"
	poet=\markup{"Málaga 1755"}
	copyright=\markup{
		\fill-line {"Edited by Nancho Alvarez upon a transcription by Luis Naranjo" \typewriter "http://tomasluisdevictoria.org"}
	}
%	tagline=""
}

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

flautauno=\relative c'''{
        \once \override Score.MetronomeMark.X-offset = #7
        \once \override Score.MetronomeMark.padding = #2
        \tempo \markup{"Andante"}
        \voiceOne
         R1*3/4
         r4 g f
         ees e f
         fis2.
         g8. a16 bes4 r4
         R1*3/4
         r4 d, e
         f4 fis2
         g8. a16 bes4 r
         R1*3/4
         r4 d, e
         f fis2
         g8. a16 bes4 r
         R1*3/4*4
         r4 g f
         ees4 e2
         fis4 g8 bes a g
         fis2 r4
         R1*3/4*2
         r4 c' a
         r4 bes c
         f,2 r4
         r2 c4
         d4. f8 ees g
         f4 ees d
         \appoggiatura {ees8} d8 c16 bes c4. bes16 c
         bes2 r4
         R1*3/4
         bes'4 bes bes
         a2 a4
         g4. fis8 g a
         fis2 r4
         R1*3/4*3
         r4 d g
         ees4. d8 ees c
         fis4 g g
         g4 fis2
         g2 r4
         R1*3/4
         r4 c a
         bes f d
         bes2 r4
         R1*3/4*2
         r4 g' c
         r4 f, bes
         r4 g d
         g g2
         fis4 fis fis
         c2 r4
         R1*3/4
         r4 d, d'
         bes4. a8 bes g
         c4 a' bes
         bes2 a4
         bes2 r4
         R1*3/4
         bes4 bes bes
         a2 a4
         g4. fis8 g a
         fis2 r4
         R1*3/4*3
         r4 d g
         ees4. d8 ees c
         fis4 g g
         g fis2
         g2 r4
         R1*3/4
         r4 g8 f g ees
         c4 r2
         s1*3/4 % no hay nada 
         ees2 r4
         ees2 r4
         r4 d d
         d2 r4
         r d d
         d2 r4
         r d g
         fis a bes
         bes8 c \appoggiatura{bes8} a4. bes8
         bes2 r4
         R1*3/4
         bes4 bes bes
         a2 a4
         g4. fis8 g a
         fis4 r fis^\eco
         g ees c
         fis g g
         g fis2
         g2^\fermata r4
}

flautados=\relative c''{
         \voiceTwo 
         r4 g a
         bes4 b2
         c4 c bes!
         a d c
         bes8. a16 g4 r
         R1*3/4*2
         r4 d' c
         bes8. a16 g4 r
         R1*3/4*2
         r4 d' c
         bes8. a16 g4 r
         R1*3/4*3
         r4 d' c
         bes b2
         c4 c bes
         a4 g c
         d2 r4
         R1*3/4*2
         r4 a' f
         r4 d ees
         d2 r4
         r2 a4
         bes4. d8 c ees
         d4 c bes
         f' f,2
         bes2 r4
         R1*3/4
         g4 g8 a bes c
         d2 d4
         ees4. d8 ees c
         d2 r4
         R1*3/4*3
         r4 bes g
         c4. bes8 c bes
         a4 g ees'
         c d2
         g,2 r4
         R1*3/4
         r4 ees' c
         d bes' f
         d2 r4
         R1*3/4*2
         r4 c ees
         r4 bes d
         r4 bes a
         g g2
         d'4 d d 
         d2 r4
         R1*3/4*2
         r4 g, f'
         \appoggiatura{f8} ees2 d4
         ees! f f,
         bes2 r4
         R1*3/4
         g4 g8 a bes c
         d2 d4
         ees4. d8 ees c
         d2 r4
         R1*3/4*3
         r4 bes g
         c4. bes8 c bes
         a4 g ees'
         c4 d2
         g,2 r4
         R1*3/4
         r4 ees'8 d ees c
         a4 r2
         f'2 r4
         f2 r4
         ees2 r4
         r4 d d
         d2 r4
         r d d
         d2 r4
         r d8 c bes c
         d4. c8 d bes
         ees!4 f f,
         bes2 r4
         R1*3/4
         g4 g8 a bes c
         d2 d4
         ees4. d8 ees c
         d4 r d_\eco
         bes c c
         c bes bes
         a2.
         g2-\fermata r4
}

cantus=\relative c''{
	R1*3/4*4
	r4 bes a
	g g2
	fis2 r4
	R1*3/4
	r4 bes4 a
	g g2
	fis2 r4
	R1*3/4
	r4 bes c
	d4 d2 ~
	d4 c2 ~
	c4 bes2
	a2 r4
	R1*3/4*3
	r4 d d 
	d c bes
	a4 bes8 a bes c
	a4 r a
	bes4. bes8 \noBeam c \noBeam c
	\phrasingSlurDashed
	c4 bes2\(
	bes4\) a2
	bes2 r4
	R1*3/4*2
	bes4 bes bes
	fis2 fis4
	g2.
	fis2 r4
	R1*3/4
	fis2.
	g4 a g
	fis4 g2 ~
	g4 fis2
	g2 r4
	R1*3/4*3
	bes4 a g 
	f f r8 bes
	bes4 a2
	bes2 r4
	f4 g aes
	g g4. g8
	c4 b2
	c4 r ees
	ees8. \noBeam ees16 d4 r
	a bes a
	g2. 
	fis2 r4
	fis4 fis g
	\phrasingSlurSolid
	g4\( fis\)  g
	g fis2
	g2 r4
	R1*3/4*2
	bes4 bes bes
	fis2 fis4
	g2.
	fis2 r4
	R1*3/4
	fis2.
	g4 a g
	fis4 g2 ~
	g4 fis2
	g2 r4
	R1*3/4*3
	r4 bes bes
	b c d
	b c r
	r4 a4^\eco a
	a bes c
	a bes8 a bes a
	g2 a4
	fis2 r4
	fis^\p fis g
	a8. \noBeam a16 g4 r
	fis4 fis g
	a4 g2
	fis2 r4
	R1*3/4
	bes4 bes bes
	fis2 fis4
	g2.
	fis2 r4
	R1*3/4
	fis2.^\eco
	g4 a g
        \tieDashed
	fis4 g2 ~ % sin Tie
	g4 fis2
	g2^\fermata r4
}

altus=\relative c'{
	\once \override TextScript.padding = #1.5
	s4*0^\markup{\italic "Siempre a media voz y suave"}
	R1*3/4*4
	r4 d2 ~
	d4 c2
	d2 r4
	R1*3/4
	r4 d d
	d c2
	d2 r4
	R1*3/4*2
	r4 g f
	ees d c
	fis4 g2
	fis2 r4
	R1*3/4*3
	r4 fis fis
	g ees ees ~
	ees d8 c d ees
	c4 r c
	d4. d8 \noBeam ees \noBeam ees
	d8. ees16 f4 g
	d8 ees c2
	bes2 r4
	R1*3/4*2
	d4 d d
	c2 c4
	bes2.
	a2 r4
	R1*3/4
	r4 d2 ~
	d4 c2 ~
	c4 bes2
	a4 bes c
	bes2 r4
	R1*3/4*3
	g4 ees' ees
	ees d r8 d
	ees4. d8 ees f
	d2 r4
	d4 ees f
	f ees4. ees8
	d4 ees f
	ees4 r g
	f8. \noBeam f16 f4 r
	d4 d d ~
	d c2
	d2 r4
	a4 a bes
	bes\( a\) bes
	bes4 a2
	g2 r4
	R1*3/4*2
	d'4 d d
	c2 c4
	bes2.
	a2 r4
	R1*3/4
	r4 d2 ~
	d4 c2 ~
	c4 bes2
	a4 bes c
	bes2 r4
	R1*3/4*3
	r4 d d
	d ees f
	f ees r4
	r4 c^\eco c
	c d ees
	ees d8 c d c
	bes2 c4
	a2 r4
	a^\p a c
	c8. \noBeam c16 bes4 r
	a4 a c
	c4 bes2
	a2 r4
	R1*3/4
	d4 d d
	c2 c4
	bes2.
	a2 r4
	R1*3/4
	r4 d2^\eco ~
	d4 c2 ~
	c4 bes2
	a4 bes c
	b2^\fermata r4
}

tenor=\relative c'{
	\once \override TextScript.padding = #1.5
	s4*0^\markup{\italic "No hay acompañamiento, mas que las voces y las flautas"}
	R1*3/4*4
	r4 g f 
	ees4 ees2
	d2 r4
	R1*3/4
	r4 g f
	ees4 ees2
	d2 r4
	R1*3/4
	r4 g4 a
	bes4 bes2
	c2.
	d2. ~
	d2 r4
	R1*3/4*3
	r4 d,4 d
	ees2 ees4
	f2.
	f4 r f
	bes4. bes8 \noBeam a \noBeam a
	bes4 d, ees
	f2.
	bes,2 r4
	R1*3/4*2
	bes'4 bes bes
	a2 a4
	g2.
	d2 r4
	R1*3/4
	d2.
	ees4 c2
	d2. ~
	d
	g2 r4
	R1*3/4*3
	g4 g g
	a4 bes r8 bes
	c2.
	bes2 r4
	bes4 bes bes
	b4 c4. c8
	g2.
	c4 r4 c
	a8. \noBeam a16 bes4 r
	fis4 g \ss f
	ees2.
	d2 r4
	d4 d cis
	d2 cis4
	d2.
	g2 r4
	R1*3/4*2
	bes4 bes bes
	a2 a4
	g2.
	d2 r4
	R1*3/4
	d2. 
	ees4 c2
	d2. ~
	d
	g2 r4
	R1*3/4*3
	r4 g g
	g2 g4
	g c, r
	r4 f^\eco f
	f2 ees4
	f bes, d
	ees d c
	d2 r4
	d^\p d e
	fis8. \noBeam fis16 g4 r
	d4 d e
	fis4 g2
	d2 r4
	R1*3/4
	bes'4 bes bes
	a2 a4
	g2.
	d2 r4
	R1*3/4
	d2.^\eco
	ees4 c2
	d2. ~
	d
	g2^\fermata r4
}

textocantus=\lyricmode{
Do -- _ _ mi -- ne
quan -- do ve -- ne -- ris
iu -- di -- ca -- re ter -- _ ram
u -- bi me ab -- _ scon -- _ _ _ _ dam
a vul -- tu i -- ræ tu -- _ _ _ æ?
Qui -- a pec -- ca -- vi  ni -- mis
in vi -- ta __ _ me -- _ _ a.
Com -- mis -- sa me -- a pa -- ve -- _ sco
et an -- te te e -- ru -- be -- _ sco:
dum ve -- ne -- ris
iu -- di -- _ ca -- re
no -- li me con -- _ dem -- na -- _ re.
Qui -- a pec -- ca -- vi ni -- mis
in vi -- ta __ _ me -- _ _ a.
Re -- qui -- em __ _ æ -- ter -- nam
do -- na e -- _ is Do -- _ _ _ _ _ mi -- ne:
et lux per -- pe -- tu -- a
lu -- ce -- at e -- _ is.
Qui -- a pec -- ca -- vi ni -- mis
in vi -- ta __ _ me -- _ _ a.
}

textoaltus=\lyricmode{
Do -- mi -- ne
quan -- do ve -- ne -- ris
iu -- di -- ca -- re __ _ ter -- _ ram
u -- bi me ab -- scon -- _ _ _ _ dam
a vul -- tu i -- ræ tu -- _ _ _ _ _ _ æ?
Qui -- a pec -- ca -- vi  ni -- mis
in vi -- ta me -- _ _ a.
Com -- mis -- sa me -- a pa -- ve -- _ _ _ sco
et an -- te te e -- ru -- be -- _ _ sco:
dum ve -- ne -- ris
iu -- di -- ca -- _ re
no -- li me con -- _ dem -- na -- _ re.
Qui -- a pec -- ca -- vi ni -- mis
in vi -- ta me -- _ _ a.
Re -- qui -- em __ _ æ -- ter -- nam
do -- na e -- _ is Do -- _ _ _ _ _ mi -- ne:
et lux per -- pe -- tu -- a
lu -- ce -- at e -- _ is.
Qui -- a pec -- ca -- vi ni -- mis
in vi -- ta me -- _ _ a.
}

textotenor=\lyricmode{
Do -- _ _ mi -- ne
quan -- do ve -- ne -- ris
iu -- di -- ca -- re ter -- ram
u -- bi me ab -- scon -- dam
a vul -- tu i -- ræ tu -- _ _ _ æ?
Qui -- a pec -- ca -- vi  ni -- mis
in vi -- ta me -- a.
Com -- mis -- sa me -- a pa -- ve -- sco
et an -- te te e -- ru -- be -- sco:
dum ve -- ne -- ris
iu -- di -- _ ca -- re
no -- li me con -- dem -- na -- re.
Qui -- a pec -- ca -- vi ni -- mis
in vi -- ta me -- a.
Re -- qui -- em æ -- ter -- nam
do -- na e -- is Do -- _ _ _ _ mi -- ne:
et lux per -- pe -- tu -- a
lu -- ce -- at e -- _ is.
Qui -- a pec -- ca -- vi ni -- mis
in vi -- ta me -- a.
}


incipitflautas=\markup{
	\score{
		\new Staff \with {
		 fontSize = #-3
		 \override StaffSymbol #'staff-space = #(magstep -4)
		}{ 
		\set Staff.instrumentName=\markup{\larger \center-column{"Flautas" \raise #1 "dulces"} \hspace #3 }
		\override Staff.NoteHead.style = #'neomensural
		%\override Staff.TimeSignature.style = #'neomensural
		\override Staff.TimeSignature.stencil = ##f
		\cadenzaOn 
		\clef "petrucci-g"
		\key bes \major
		\time 3/4
                <<\voiceOne g''4 \new Voice{ \voiceTwo g'4 } >>
		} 

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


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

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

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


incipittenor=\markup{
	\score{
		{ 
		\set Staff.instrumentName="Tenor   "
		\override NoteHead.style = #'neomensural 
		%\override Staff.TimeSignature.style = #'neomensural
		\override Staff.TimeSignature.stencil = ##f
		\cadenzaOn 
		\clef "petrucci-c4"
		\key bes \major
		\time 3/4
                g4
		} 
	\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 \with {
        \remove Ambitus_engraver
        fontSize = #-4
        \override StaffSymbol #'staff-space = #(magstep -4)
      }
      <<\global 
		\set Staff.instrumentName=\incipitflautas
		\clef "treble"
		\new Voice{\flautauno }
		\new Voice{\flautados }
	>>

\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 }
	>>

>>
>>
	} % 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 = #1 
	}
	\context {\Voice 
		%melismaBusyProperties = #'()
		%autoBeaming = ##f
	}
	\context {\ChoirStaff 
                  \override StaffGrouper.staffgroup-staff-spacing =
                        #'((basic-distance . 15) (minimum-distance . 0) (padding . 20))
                  \override StaffGrouper.staff-staff-spacing =
                        #'((basic-distance . 11) (minimum-distance . 0) (padding . 1))
        }
        \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
	}
}

%\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
	%systems-per-page = 4
	ragged-last-bottom = ##f
	indent=3.1\cm
	system-system-spacing =
	#'((basic-distance . 20) (minimum-distance . 0) (padding . 5))
	top-system-spacing = % header
	#'((basic-distance . 10) (minimum-distance . 0) (padding . 0))
	last-bottom-spacing = % footer
	#'((basic-distance . 14) (minimum-distance . 0) (padding . 0))
	markup-system-spacing.padding = #1.5
}