\version "2.18.0"

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

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

htitle="Petite et accipietis"
hcomposer="Iribarren"

\header {
	title=\markup{\fontsize #3 "Petite et accipietis"}
	%subtitle=" "
	subsubtitle=\markup{\column{" " " " " "}}
	composer="Juan Francés de Iribarren (1699-1767)" % 1753. Ref. 63-21
        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 c \major \time 2/2 \skip 1*68
	%\override Score.TimeSignature.break-visibility = #'#(#f #t #t)
	\bar "|."
}


cantus=\relative c''{
        a1 ~
        a2 gis4 fis
        gis1
        R1*2
        a2. a4
        g2 e
        f1
        e ~
        e ~
        e
        gis2. gis4
        a1
        a2. a4
        g2 g ~
        g f ~
        f e4 d 
        e2 d4 c
        d1
        r2 b'
        c1 
        a
        a4 a a a
        g2 fis
        g1
        g2 r
        e2. e4
        a1
        f4 f f'2 ~
        f e
        e d
        e1 ~
        e e2. e4
        c2 a ~
        a g ~
        g fis
        g1
        r2 b4 b
        c8 b c d c4 b
        a8 g a b a4 g
        f4 a g f
        g1 ~
        g
        g2 r
        a1
        a2 r 
        b4 b b2\prall 
        a2 r4 a
        b2 a
        a2. a4
        gis2 gis4 gis
        b2 a
        a2. a4
        gis1
        r2 gis4 gis
        a8 gis a b a4 \ss g
        f8 e f g f4 e
        d f g a
        gis4 fis8 gis a2 ~
        a gis
        a r4 c
        b8 a b c b4 c8 d
        e2 r4 c
        b8 a b c b4 c8 d
        e2 r4 e,
        f2 e
        e2.^\fermata r4
}

altus=\relative c'{
	e2. e4
        e1 ~
        e
        R1
        r2 e ~
        e4 e d2 ~
        d c ~
        c b ~
        b a ~
        a gis4 fis
        gis1
        e'2. e4
        e2 e ~
        e4 e f2 ~
        f4 f e2 ~
        e d4 c 
        b4 a8 b c2 ~
        c2 b4 a
        b1
        r2 g'
        g1
        f
        f4 f f f
        e2 d4 c
        d2. e8 f
        e2 r
        r c ~
        c4 c f2 ~
        f d ~
        d4 d c2 ~
        c4 b a b
        c2 b4 a
        b2 b ~
        b4 b c2 ~
        c d ~
        d e ~
        e d4 c
        d1
        r2 g4 g
        g1
        e
        c2 r4 f
        f2 e
        d2. e8 f
        e2 r
        e8 d e f g4 f8 e
        f2 r
        e4 e e2
        e r4 e
        e2 e
        e d
        e2 e4 e
        e2 e
        e d
        e1
        r2 e4 e 
        e1
        c
        a2 r4 a
        e'2 e
        e2. d4
        c2 r
        r2 r4 c
        b8 a b c b4 c8 d
        e4 d d c
        b2 r4 c
        d2 b
        c2.^\fermata r4
}

tenor=\relative c'{
	c1 ~
        c2 b4 a
        b1
        c2. c4
        b2 gis
        a1
        e'2 e ~
        e4 e d2 ~
        d c4 b
        c2 b4 a
        b1
        b2. b4
        c1
        c2. c4
        d2 c4 b
        a1
        g ~
        g ~
        g
        r2 d'
        e1
        c2 c4 c
        c c d2 ~
        d c
        c b
        c2 r
        c2. c4
        a2. b8 c
        d4 c b a
        gis2 gis
        a1 ~
        a2 gis4 fis
        gis1
        gis2. gis4
        a1
        b
        c2. c4
        b1
        r2 d4 d
        e8 d e f e4 d
        c8 b c d c4 b
        a a b c
        b a8 b c2 ~
        c2 b
        c2 r
        a e'
        d r
        b8[ a] b[ c] d4 c8 b
        c2 r4 c
        b2 c
        a2. a4
        b2 b4 d
        d2 c
        a2. a4
        b1
        r2 b4 b
        c8 b c d c4 b
        a8 g a b a4 g
        f2 r4 d'
        d2 c
        b1\prall 
        a2 r
        r2 r4 a
        gis8 fis gis a gis4 a
        e b' b a
        gis2 r4 a
        a2 gis
        a2.^\fermata r4
}

bassus=\relative c'{
	 \override Staff.VerticalAxisGroup.staff-staff-spacing =
                        #'((basic-distance . 13) (minimum-distance . 5) (padding
 . 1))
       a2. a4
       e1 ~
       e
       a2. a4
       g2 e
       f1
       e2 c
       d1
       e ~
       e ~
       e
       e2. e4
       a1
       a,2. a4
       b2 c
       f,1
       g ~
       g ~
       g
       r2 g'
       c1
       f,
       f4 f f f
       g2 a
       g1
       c,2 r
       c2. c4
       f1
       d2. d4
       e2 e
       f2. f4
       e1 ~
       e
       e2. e4
       f1
       g
       a2. a4
       g1
       r2 g4 g
       c2. g4
       a2. e4
       f f g a
       g1 ~
       g
       c,2 r2
       cis1
       d2 r
       gis4 gis gis2
       a r4 a
       gis2 a
       f2. f4
       e2 e4 e
       gis2 a
       f2. f4
       e1
       r2 e4 e
       a2. e4
       f2. c4
       d d e f
       e1 ~
       e
       a,2 r4 a'
       gis8 fis gis a gis4 a
       e2 r4 a
       gis8 fis gis a gis4 a
       e2 r4 a
       d,2 e
       a,2.^\fermata r4
}

% no tengo la parte del continuo

continuo=\relative c' {
       
}

textocantus=\lyricmode{
Pe -- ti -- _ te
et ac -- ci -- pi -- e -- tis,
quæ -- ri -- te,
et in -- ve -- ni -- e -- _ _ _ _ _ tis:
pul -- sa -- te,
et a -- pe -- ri -- e -- tur vo -- bis.
Om -- nis e -- nim qui pe -- tit ac -- ci -- pit,
et qui quæ -- rit in -- ve -- nit:
et pul -- san -- _ _ _ _ _ _ _ _ _ _ _ ti,
a -- pe -- ri -- e -- tur.
Om -- nis
om -- nis e -- nim
qui pe -- tit ac -- ci -- pit, et qui quæ -- rit 
in -- ve -- nit:
et pul -- san -- _ _ _ _ _ _ _ _ _ _ _ ti,
a -- pe -- ri -- e -- _ _ _ _ tur.
Al -- le -- _ _ _ _ _ lu -- ia
al -- le -- _ _ _ _ lu -- _ ia
al -- le -- lu -- ia.
}

textoaltus=\lyricmode{
Pe -- ti -- te
et ac -- ci -- pi -- e -- _ _ _ tis,
quæ -- ri -- te,
et in -- ve -- ni -- e -- _ _ _ _ _ _ _ _ tis:
pul -- sa -- te,
et a -- pe -- ri -- e -- tur __ _ vo -- _ _ bis.
Om -- nis e -- nim
qui pe -- _ tit __ _
ac -- ci -- _ pit,
et qui quæ -- rit
in ve -- _ nit:
et pul -- san -- _ ti
a -- pe -- ri -- e -- _ _ tur.
Om -- _ _ _ _ _ _ nis
om -- nis e -- nim
qui pe -- tit ac -- ci -- pit, 
et qui quæ -- rit in -- ve -- nit:
et pul -- san -- _ ti
a -- pe -- ri -- e -- _ tur.
Al -- le -- _ _ _ _ lu -- _ ia,
al -- le -- lu -- ia
al -- le -- lu -- ia.
}

textotenor=\lyricmode{
Pe -- ti -- _ te,
et ac -- ci -- pi -- e -- tis,
et ac -- ci -- pi -- _ e -- _ _ tis,
quæ -- ri -- te,
et in -- ve -- ni -- _ e -- tis:
pul -- sa -- te,
et a -- pe -- ri -- e -- tur vo -- _ bis.
Om -- nis e -- _ _ nim __ _ qui __ _ pe -- tit
ac -- ci -- _ pit,
et qui quæ -- rit in -- ve -- nit:
et pul -- san -- _ _ _ _ _ _ _ _ _ _ _ ti,
a -- pe -- ri -- e -- _ _ _ _ tur.
Om -- _ nis
om -- _ nis _ e -- _ _ nim
qui pe -- tit ac -- ci -- pit,
et qui quæ -- rit in -- ve -- nit:
et pul -- san -- _ _ _ _ _ _ _ _ _ _ _ ti
a -- pe -- ri -- e -- tur.
Al -- le -- _ _ _ _ lu -- ia,
al -- le -- lu -- ia
al -- le -- lu -- ia.
}

textobassus=\lyricmode{
Pe -- ti -- te,
et ac -- ci -- pi -- e -- _ _ _ tis,
quæ -- ri -- te,
et in -- ve -- ni -- e -- tis:
pul -- sa -- te,
et a -- pe -- ri -- e -- tur 
vo -- bis.
Om -- nis e -- nim 
qui pe -- tit ac -- ci -- pit,
et qui quæ -- rit in -- ve -- nit:
et pul -- san -- _ _ _ ti,
a -- pe -- ri -- e -- tur.
Om -- nis
om -- ni e -- nim
qui pe -- tit
ac -- ci -- pit,
et qui quæ -- rit in -- ve -- nit:
et pul -- san -- _ _ _ ti,
a -- pe -- ri -- e -- tur.
Al -- le -- _ _ _ _ lu -- ia
al -- le -- _ _ _ _ lu -- ia
al -- le -- lu -- ia.
}

cifrado=\figuremode{
       
}

% Repasar los incipits, no he visto el original

incipitcantus=\markup{
	\score{
		{ 
		\set Staff.instrumentName="Soprano "
		\override NoteHead.style = #'neomensural
		\override Staff.TimeSignature.style = #'neomensural
		\cadenzaOn 
		\clef "petrucci-c1"
		\key c \major
		\time 4/4
                a'1.*1/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 c \major
		\time 4/4
                e'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 c \major
		\time 4/4
                c'1.*1/2
		} 
	\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 c \major
		\time 4/4
                a2.
		} 
	\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 2/2
                
		} 
	\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 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 = 3
	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))

}