\version "2.12.2"

#(set-default-paper-size "a4")
#(set-global-staff-size 14.1)
%#(ly:set-option 'point-and-click #f)

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="O quam gloriosum: Kyrie"
hcomposer="Victoria"

\header {
	title=\markup{\larger \larger \larger "1. Kyrie" }
	subtitle="de la misa 'O quam gloriosum'"
	composer="Tomás Luis de Victoria (c.1548-1611)"
	poet="1583a"
	copyright=\markup{
		\fill-line {"Edited by Nancho Alvarez" \typewriter "http://tomasluisdevictoria.org"}
	}
	tagline=""
}

global=  { \time 2/2  \key  c \major  \skip 1*11  \bar "||" \skip 1*11  \bar "||" \skip 1*15 \bar "|."}

cantus= \relative c' 
{R1 r2 r4 c f g  a8[ g a b] c4. b8 a4  g8[ f] e4 c d2 e4. f8 g2 r4 g c c~c b c2 g r4 f a g2 fis4 g1
R1 r2 r4 g4 a2 b c4 a4. g8 g4~g fis g d e fis g e d d'b cis d2. c4 b a4. g8 g4~g fis g2~g4  fis8[ e]  fis2
R1 r2 d'~d c b a b4 c2 b4 a  g8[ f] e4 d e  d8[ c] d4. e8 f2 g2 r c~c b a g4. f8 e2 d4 d'c2 b a4 g2 fis4 g1
}
textocantus=\lyricmode {
Ky -- ri -- e e -- _ _ _ _ _ _ _ _ _ _ lei -- son, __ _ _   
\italicas
Ky -- ri -- e _ e -- lei -- son,   
Ky -- ri -- e-e -- lei  -- son.
\rectas
Chri -- ste __ _ e -- lei --  _ _ _ _ son,
Chri -- ste e --  lei --  _ son,
Chri -- ste e -- _ _ _ _ _ _ _ lei -- son. __ _ _ _ _ 
Ky -- _ ri -- e e -- _ lei -- _ _ _ _ _ _ _ _ _ _ _ _ son,   
\italicas
Ky -- _ ri -- e e -- _ lei -- son,   
\rectas
Ky -- ri -- e   e -- lei -- _ son.
}

altus =  \relative  c'{
R1 R1 c2 f4 f~f e f d ~ d8[ c] c2  b4 c4 g c d e4. d8 c4 a d2 e r4 c4 f f~f e d2 d1
d2.  b4 c  d8[ c b a ] b4 c a g2 r4 d'b2 c4 a d b a d2 c4 b a g g'~g fis g2~g4  f8[ e] d4 e~ e8[ d] d2 cis4 d1
r4 d2 c4~c b2 a4~ a8[ g] g2 fis4 g4 g'2 f4 d e f2~f4 e c d~ d8[ c] c2 b4 a2 g4 g'~g f e4. d8 c4 a d4. e8 f4  e8[ d] e4  d c2 r4 d4 e a, d2 e2 d2 d1
}

textoaltus=\lyricmode { Ky -- ri -- e  _ e -- lei -- _ _ _ _ _ son,   
\italicas
Ky -- ri -- e e -- _ _ _ lei -- son,   
Ky -- ri -- e  _ e -- lei  -- son.
\rectas
Chri -- ste   e -- lei -- _ _ _ _ _ _ son,  
\italicas
Chri -- ste e -- _ lei -- _ son,   
\rectas
Chri -- ste e -- lei -- son,  
\italicas
Chri -- _ ste e -- _ _ _ _ _ _ _ _ lei -- son. 
\rectas
Ky -- ri -- _ e e -- _ _ _ lei -- son,  
\italicas
Ky -- ri -- e e -- lei -- _ _ _ _ _ _ _ _ _ son,
\rectas
Ky -- _ ri -- e e -- _ _ lei -- _ _ _ _ _ _ son,   
\italicas
Ky -- ri -- e   e -- lei  -- _ son.
}

tenor =  \relative c'{
g2 c4 c~c b c4.  b8 a4 g f2 g4 c, f g a2 g g r4 d g g2 fis4 g2 r4 g c c2 b4 c4.  b8  a2 g1 
R1 r2 g2 e4 fis  g8[ \ss f e d] c4 d e g a2  b c4 a4.g8 g4~g fis g2 a4 d b c d2. c4 b a g2 a1 
R1 g2. f4 d2 e4 c d2 d'2~d4 c a b c2. b4 a2 g4 d'~d4 c2 b4~b a4. g8 g4~g fis  g8[ a b c] d4 c2 b4 g4 a4. g8 g4~g fis g d'c b a2 g1
}
textotenor=\lyricmode { 
Ky -- ri -- e _ e -- lei -- _ _ _ _ son,   
\italicas
Ky -- ri -- e e -- lei -- son, 
Ky -- ri -- e-e -- lei -- son,  
Ky -- ri -- e  e -- lei  -- _ _ son.
\rectas
Chri -- ste   e -- _ _ _ _ _ lei -- son,  
\italicas
Chri -- ste __ _ e -- lei -- _ _ _ _ _ son,  
\rectas
Chri -- ste e -- _ _ _ _ lei -- son. 
Ky -- ri -- e e -- lei -- son,  
\italicas
Ky -- _ ri -- e e -- lei -- _ _ son,   
Ky -- _ ri -- e _ e -- _ _ _ lei -- son, __ _ _ _ _
\rectas
Ky -- ri -- e   e -- _ _ _ lei  son,   
\italicas
Ky -- ri -- e-e -- lei -- son.
}


bassus=  \relative c{
r2 c2 f4 g a4. g8 f4 e d2 c r r r4 g c c2 b4 c4. b8 a2 g4 g c c~ c8[ d] e4 d2 c d2 g,1
r2 g'e4 fis  g8[ \ss f e d] c4 d g, g' e4 fis  g8[ \ss f e d] c4 d4 g,2 r4 d'b c d2 e2 d r r4 d b c d2 e d1
g2 f e d4.c8  b2 a g r R1 R1 r2 g'f e d c4.b8 a2 g R1 c2 b a g c  d g,1
}

textobassus=\lyricmode { 
Ky -- ri -- e e -- _ _ _ lei -- son,   
\italicas
Ky -- ri -- e e -- lei -- _ _ son,   
Ky -- ri -- e __ _ _ _ e -- _ lei  -- son.
\rectas
Chri -- ste   e -- _ _ _ _ _ lei -- son,  
\italicas
Chri -- ste e -- _ _ _ _ _ lei -- son,  
\rectas
Chri -- ste e -- _ lei -- son, 
\italicas
Chri -- ste e -- _ lei -- son. 
\rectas
Ky -- ri -- e e -- _ _ lei -- son,  
\italicas
Ky -- ri -- e e -- lei -- _ _ son,    
\rectas
Ky -- ri -- e   e -- lei  -- _ son.
}

\score {
\new ChoirStaff<<

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

	
	\new Staff << \global
	\new Voice="v2" {
		\set Staff.instrumentName="Altus "
		\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="Bassus "
		\clef "bass" 
		\bassus }
	\new Lyrics \lyricsto "v4" {\textobassus }
	>>
	
>>

\layout{ 
	\context {\Lyrics \override VerticalAxisGroup #'minimum-Y-extent = #'(-0 . 0) }
	\context {\Score \override BarNumber #'padding = #2 }
	\context {\Lyrics 
		\override LyricText #'font-size = #1.7
		\override LyricHyphen #'minimum-distance = #0.33
	}
	\context {\Voice 
		melismaBusyProperties = #'() 
	}
	%\context { \RemoveEmptyStaffContext }
	\context {\Staff \consists Ambitus_engraver }
}

\midi {}

}


\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=4
	line-width=19.0\cm
	between-system-padding = 0
	ragged-last-bottom = ##f
	foot-separation = 2\mm
}