\version "2.18.0"

#(set-default-paper-size "a4")
#(set-global-staff-size 16.7)
#(ly:set-option 'point-and-click #f)
%mobile -s15.7 -i1.1

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="Vexilla regis"
hcomposer="Iribarren"

\header {
	title=\markup{\fontsize #4 "Vexilla regis prodeunt" }
	subtitle="1751"
	subsubtitle = " "
        composer=\markup{\center-column{"Juan Francés de Iribarren" "(1699-1767)"}}
        pdfauthor=\composer
	%opus="(-)"
	copyright=\markup{
		\fill-line {"Edited by Nancho Alvarez" \typewriter "http://tomasluisdevictoria.org"}
	}
%	tagline=""
}

global={\key bes \major \time 2/2 \skip 1*61 \bar ":|." \pageBreak
				\skip 1*25 \bar "|." }


cantus=\relative c''{
	g1
	g2 ees ~
	ees d
	c2. d4
	ees2 f
	g4 f ees d8 c
	d2. d4
	c1
	g'
	g2 ees4 d
	c2 c'
	b4 a8 b c2 ~
	c b
	c1
	c
	c2 aes
	g1
	c,
	g'1 ~
	g2 g
	g1
	r2 g
	aes g ~
	g4 f ees2 ~
	ees d
	ees2. d4
	c2 c' ~
	c b4 aes
	g1 % g2 g2 "lau -- det" en la segunda letra
	aes2 aes
	g1 ~
	g2 g
	g1
	R1*2
	g1
	b^\prall
	c
	d
	R1
	r2
	g, ~
	g f ~
	f ees ~
	ees aes ~
	aes g
	f2. f4
	g1
	g
	g
	g2 ees'
	d1^\prall
	c
	bes ~
	bes2 aes ~
	aes g ~
	g f ~
	f4 ees8 d ees4 c
	aes'2. aes4
	g1
	\once \override TextScript.padding = #.7
	\once \override TextScript.X-offset = #14
	g2.^\markup{\column{" se repite con" "estrofas 2 y 3"}}
	 f4 % la ultima vez "A -- _ men."
	ees\breve*1/2 % redonda normal?
	 \override Score.TimeSignature.break-visibility = #end-of-line-invisible
        \override Score.RehearsalMark.self-alignment-X = #right
        \override Score.RehearsalMark.break-visibility =#begin-of-line-invisible
	\override Score.RehearsalMark.padding = #2
	\mark \markup "FIN"
	g1
	c
	r2 b ~
	b c
	r aes
	g1 ~
	g2 g
	g1
	r2 g
	\ss aes aes
	bes1 ~
	bes2 aes
	\ss aes g
	f2. f4
	g1
	r2 bes
	aes aes
	g g
	g4 f8 ees f2^\prall
	g1
	r2 b
	c aes
	g g
	g2. f4
	ees\breve*1/2 % redonda normal?
	\mark \markup{\smaller "D.C. (estrofa 5) al FIN"}
}

altus=\relative c''{
	R1*6
	g1
	g2 ees ~
	ees d
	c2. d4
	ees2 f
	g4 f ees d8 c
	d2. d4
	c1
	ees
	ees2 d4 c
	b2 c
	r f ~
	f ees
	d2. d4
	c1
	c2 ees
	c bes
	ees2. c4
	d c bes2
	bes1
	r2 c
	ees d ~
	d c ~
	c4 c f2 ~
	f2 ees4 d
	ees2 d4 c
	d1
	r2 g ~
	g f ~
	f ees
	d1
	r2 g
	f1
	ees
	d
	c
	bes
	c
	bes ~
	bes2 bes
	bes1
	r2 g4 a
	b1^\prall 
	c
	R1
	r2 c4 d
	e1^\prall
	f2 f ~
	f ees ~
	ees d ~
	d c ~
	c f ~
	f ees
	d2. d4
	c\breve*1/2
	ees1
	f
	r2 g ~
	g g
	r2 f
	f ees
	d2. d4
	ees1
	r2 ees
	ees ees
	ees1 ~
	ees2 f
	d4 c8 d ees2 ~
	ees d
	ees1
	r2 g
	g f
	f ees
	ees d4 c
	d1
	r2 g
	g f
	f ees
	d2.^\prall d4
	c\breve*1/2
}

tenor=\relative c'{
	R1
	g2 c ~
	c b
	c c ~
	c4 bes aes2
	g4 a8 b c2 ~
	c b
	c2 c,4 d
	ees f g2
	c,1
	R1*2
	g'1
	g2 ees ~
	ees4 d c d
	ees2 f
	g1 % g2 g2 "lu -- tis"  en la segunda letra
	aes2. g8 f
	b2 c ~
	c b
	c1
	R1*2
	g2 aes
	g f
	g ees
	f2. f4
	g1
	r2 ees' ~
	ees d ~
	d c ~
	c b4 a
	b1
	r2 g
	b1^\prall
	c
	g
	r2 g
	b1^\prall % b2 b^\prall "bus Cru" en la segunda letra
	c1
	r2
	bes ~
	bes aes ~
	aes g ~
	g f ~
	f ees ~
	ees d
	ees1
	R1*2
	r2 g4 a
	b1^\prall
	c1
	R1
	c1
	bes2. aes4
	g1 ~
	g2 ees' ~
	ees d ~
	d c ~
	c b
	c\breve*1/2
	c1
	c
	r2 d ~
	d ees
	r2 c
	d c ~
	c b
	c1
	r2 c
	c2 c
	bes4 c des2 ~
	des c
	bes1 ~
	bes2 bes
	bes1
	r2 ees
	ees d4 c
	b2 g
	c2. c4
	b1
	r2 d
	ees d4 c
	b a c2 ~
	c b
	c\breve*1/2
}

bassus=\relative c{
	R1*7
	c2 c' ~
	c b
	c c ~
	c4 bes aes2
	g1 ~
	g2 g
	c, c
	c aes ~
	aes4 g f2 ~
	f e
	f1
	g ~
	g2 g
	c1
	R1
	c2 ees
	c1
	bes
	ees2 g
	aes1
	g2. f4
	ees2 ees
	f2. f4
	g1 ~
	g ~
	g
	R1*3
	r2 g
	ees1
	d^\prall
	c2 c
	g'2. f4
	e2 f
	d ees
	aes,1
	bes ~
	bes2 bes
	ees,1
	R1*2
	c'1
	g'1
	aes
	g
	f2 f4 ees
	d2 ees
	b1
	c
	f,
	g ~
	g2 g
	c\breve*1/2
	c1
	aes'
	r2 g ~
	g es
	r2 f
	b, c
	g2. g4
	c1
	r2 c
	aes2 aes
	g1
	aes1
	bes1 ~
	bes2 bes
	ees1
	r2 ees
	f f
	g g
	aes2. aes4
	g1
	r2 g
	ees f
	g g
	g2. g4
	c,\breve*1/2
}


textocantus=\lyricmode{
\set stanza = "1."
Ve -- xil -- la __ _ re -- _ _ gis
pro -- _ _ _ _ _ de -- unt,
ve -- xil -- la __ _ re -- gis
pro -- _ _ _ de -- unt,
ve -- xil -- la re -- gis pro -- de -- unt
ful -- get cru -- _ cis mys -- te -- ri -- um,
ful -- get __ _ cru -- cis mys -- te -- ri -- um
qua vi -- _ ta
qua vi -- ta mor -- tem
per -- tu -- lit,
et mor -- te, et mor -- te
vi -- tam pro -- _ _ _ _ _ _ tu -- lit,
pro -- tu -- lit. % la segunda vez "A -- _ men."
\set stanza = "4."
O Crux
a -- ve spes u -- ni -- ca
hoc pas -- si -- o -- nis tem -- _ _ po -- re
pi -- is ad au -- ge gra -- _ _ ti -- am
re -- is -- que de -- le cri -- mi -- na.
}

textoaltus=\lyricmode{
\set stanza = "1."
Ve -- xil -- la __ _ re -- _ gis pro -- _ _ _ _ _ _ de -- unt,
ve -- xil -- la __ _ re -- gis pro -- _ _ de -- unt,
ful -- get cru -- _ cis mys -- te -- _ ri -- um
ful -- get cru -- cis mys -- te -- _ _ _ ri -- _ um
qua vi -- _ ta
qua vi -- ta mor -- tem per -- _ _ tu -- lit
et __ _ mor -- te
et __ _ mor -- te vi -- tam pro -- _ _ _ _ tu -- lit.
\set stanza = "4."
O Crux
a -- ve spes u -- _ _ ni -- ca
hoc pas -- si -- o -- nis
tem -- _ _ _ po -- re
pi -- is ad au -- ge gra -- ti -- _ am
re -- is -- que de -- le cri -- mi -- na.
}

textotenor=\lyricmode{
\set stanza = "1."
Ve -- xil -- la re -- gis __ _ _ pro -- _ _ _ de -- unt,
pro -- _ _ _ de -- unt
ve -- xil -- la __ _ re -- _ _ gis
pro -- _ _ _ _ _ de -- unt
ful -- get cru -- _ cis mys -- te -- ri -- um
mys -- te -- _ \italicas ri -- _ \rectas um % mys -- te -- _ _ ri -- um
qua vi -- _ ta
qua vi -- ta
mor -- tem per -- _ _ tu -- lit
et __ _ mor -- te
et mor -- _ te vi -- tam pro -- tu -- lit.
\set stanza = "4."
O Crux a -- ve spes u -- _ ni -- ca
hoc pas -- si -- o -- _ _ nis tem -- po -- re
pi -- is ad __ _ au -- ge gra -- ti -- am
re -- is -- que __ _ de -- le cri -- mi -- na.
}

textobassus=\lyricmode{
\set stanza = "1."
Ve -- xil -- la re -- gis __ _ _ pro -- de -- unt,
ve -- xil -- la __ _ re -- gis pro -- _ de -- unt
ful -- get cru -- _ cis,
ful -- get cru -- _ cis mys -- te -- ri -- um
qua vi -- _ ta,
qua vi -- _ _ ta mor -- tem per -- _ tu -- lit
et mor -- te vi -- tam pro -- _ _ _ _ _ _ _ tu -- lit.
\set stanza = "4."
O Crux
a -- ve spes u -- _ _ ni -- ca
hoc pas -- si -- o -- nis tem -- po -- re
pi -- is ad au -- ge gra -- ti -- am
re -- is -- que de -- le cri -- mi -- na.
}



\score {
\new ChoirStaff<<

	\new Staff <<\global
	\new Voice="v1" {
		\set Staff.instrumentName="Soprano " 
		\clef "treble"
		\cantus }
	\new Lyrics \lyricsto "v1" {\textocantus }
	>>

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

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

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

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

%\midi { \mtempo }

}

%tablet \pageBreak

%tablet \markup{\vspace #5 }

\markup{
        \fill-line{
                \column{
                        "2. Impleta sunt quæ concinit"
                        "David fideli carmine"
                        "dicendo nationibus:"
                        "regnavit a ligno Deu."
                }
                " " 
                \column{
                        "3. Beata cuius brachiis"
                        "proetium pependit sæculi"
                        "statera facta corporis"
                        "tulit que prædam tartari."
                }
                " " 
                \column{
                        "5. Te fons salutis trinitas"
                        "collaudet omnis spiritus"
                        "quibus crucis victoriam"
                        "largiris ad deproemium. Amen."
                }
        }
}
\markup{\vspace #1 }

\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=1.8\cm
	system-system-spacing =
	#'((basic-distance . 19) (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))

}