\version "1.4.12"
\include "paper16.ly"

italicas=\property Lyrics . LyricText \override #'font-shape = #'italic
rectas=\property Lyrics . LyricText \override #'font-shape = #'upright


\header{
	composer="Tomás Luis de Victoria \\\\ \\ "
	title="PETRUS BEATUS"
	subtitle="In festo Sancti Petri ad vincula \\\\ \\ "
	footer="Editado con LilyPond"
	tagline="Copia: Nancho Alvarez"
%	poet = "Felipe Pedrell"
}



\paper {
	linewidth=19.0 \cm
	interscoreline= 0.0 \cm
	interscorelinefill= 1.0
	textheight= 25.6 \cm
%	pagenumber=no
	\translator { \LyricsContext LyricText \override #'font-relative-size = #1 }
%	\translator { \HaraKiriStaffContext }
	\translator { \ScoreContext BarNumber \override #'padding = #2 }

}




\score{
	\addlyrics
	\context Staff  \notes {
	\property Staff.instrument= ""
	\property Staff.TimeSignature \override #'molecule-callback = #'()
	\property Voice.Stem \set #'transparent = ##t
	\property Score.timing = ##f
	\property Voice.NoteHead \set #'style = #'mensural
	\property Staff.VerticalExtent = #'(0 . 0)
	\key a \minor \clef "G_8" 
	f4 e d c d e e \bar "|"
	e f g f d c d d \bar "|" \break
	f g a a g a d c f g a g f d e f \bar "|" \break
	g a c' c' a a c' g g e f g g \bar "|"
	g a b a g a a \bar "|"
	a c' g g e f e d e \bar "|"
	c d e f d e f g a g f e d e e 
 \bar "||" }
	\context Lyrics \lyrics{ 
<
{
Pe -- trus be -- a -- _ _ tus
ca -- the -- na -- rum la -- que -- _ os
Chri -- sto _ ju -- ben -- _ te _
ru -- pit, _ mi -- ra -- bi -- li -- ter,
cu -- stos o -- vi -- lis et Do -- ctor Ec -- cle -- si -- _ ae
pa -- stor _ que gre -- _ gis
con -- ser -- va -- tur _ o -- vi -- um, _
ar -- cet lu -- po -- rem tri -- cu -- len -- _ tam ra -- _ bi -- _ en.
}

>
}
	
	
\header{ piece="estrofas impares" }

}


%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

global=\notes{\key c \major \time 2/2  \skip 1*56 \bar "|."

}

cantus=\notes{
	R1*4/4 |
	r2 f' |
	e'4 d' c'2 |
	d'4. e'8 f'2 |
%5
	g'4 c''2 b'4 |
	a' g'2 f'4 |
	e'1 |
	e' | \newpage
	R1*4/4 |
%10
	r4 e' f' g' ~ |
	g' e' a'4. g'8 |
	a' b' c''2 b'8 a' |
	b'4 g' a'8 g' f' e' |
	f'4 d'2 cis'4 |
%15
	d'2 f' |
	g' a' ~ | %\newpage
	a'4 a' g'2 |
	f'4. g'8 a'2 |
	R1*4/4 |
%20
	r4 f' g'2 |
	a' g' |
	f'4. e'8 d'4 d' |
	c' c''2 b'4 |
	a'2 g' |
%25
	a'4. g'8 a'4 f' | 
	e'2. e'4 |
	c'8 d' e' f' g'2 ~ |
	g' r |
	r4 g' a' c'' |
%30
	c''2. a'4 |
	g'2 r4 a' ~ |
	a' a' f' d' |
	e' [c'8 d' e' f'] g'4 ~ |
	g' e' d'2 |
%35
	r a'4. a'8 |
	g'4 e' g'2 ~ |
	g'4 fis'8 e' fis'4 fis' |
	g'1 |
	R1*4/4 |
%40
	r4 g' e' g' |
	f'8 e' a'2 g'4 |
	a'2 r |
	r4 a'2 e'4 |
	g' d' f'8 g' a' b' |
%45
	c''4 a' g' c'' ~ |
	c'' b'8 a' b'4 g' |
	a'2. a'4 |
	g' e' f' g' |
	f'2 e'4 e' |
%50
	c' f'4. g'8 a' b' |
	c''4. b'8 a' g' f'4 |
	d' e'2 d'4 |
	e'2 r4 a' ~ |
	a' gis' a'8 b' c''4 ~ |
%55
	c'' b' a'2 ~ |
	a'4 gis'8 fis' gis'2
}

altus=\notes{
	R1*4/4 |
	c'2 b4 a |
	g2 a4 c' ~ |
	\property Staff.noAutoBeaming=##t
	c'8 c' b4 a f |
	\property Staff.noAutoBeaming=##f
%5
	c'2 f4 f' ~ |
	f' e' d'2 |
	c' b |
	r4 b2 c'4 |
	d'2 b4 e' ~ |
%10
	e'8 d' c' b c'4 b8 a |
	b4 c'4. d'8 e'4 |
	c' a d'2 ~ |
	d'4 b c'8 b a g |
	a4 bes2 a4 |
%15
	a2 r4 d' |
	c' b a8 g a b |
	c' f f'2 e'4 |
	f'2 r4 f' |
	e' d' c'2 |
%20
	c' r4 c' ~ |
	c' d' e' c' |
	d'8 c' c'2 b4 |
	c'2 r |
	c'2. b4 |
%25
	d' a d'2 |
	c'4 b8 a b4 b |
	a c' d' e' |
	d'8 c' d' e' f'2 |
	e' r4 c' |
%30
	e' g' c'4. d'8 |
	e' f' g'2 f'4 |
	e' [d'8 c' d' e'] f'4 |
	e'2 r4 c' ~ |
	c' c' b g |
%35
	b c'4. a8 d'4 |
	b c'2 b4 |
	d'1 |
	r4 d' b d' |
	c' b c'2 ~ |
%40
	c'4 b8 a b4 c' |
	d'1 |
	e'2 r4 d' ~ |
	d' a c'4. b16 a |
	g4 g a8 b c' d' |
%45
	e' c' f'2 e'4 |
	d'4. c'8 d'4 e' ~ |
	e' d'8 c' d'4 d' |
	e'2 r4 c' |
	a b2 c'4 ~ |
%50
	c' a2 f4 |
	g a2 d4 |
	a2. a4 |
	a8 b c' d' e'4 a |
	b2 c' |
%55
	a4 b c' c' |
	b1
}

tenor=\notes{
	R1*4/4 |
	R1*4/4 |
	R1*4/4 |
	f1 |
%5
	e2 d |
	c d |
	e1 |
	e |
	R1*4/4 |
%10
	R1*4/4 |
	e1 |
	f2 g ~ |
	g f |
	d e |
%15
	d1 |
	R1*4/4 |
	R1*4/4 |
	f1 |
	g2 a ~ |
%20
	a4 a g2 |
	f r |
	r4 f g2 |
	a2. g4 |
	f2 e |
%25
	d2. d4 |
	e1 |
	r2 g ~ |
	g a |
	c' c' ~ |
%30
	c' a |
	r a ~ |
	a1 |
	c' |
	g2. g4 |
%35
	e2 f |
	g1 |
	a2. a4 |
	g1 |
	R1*4/4 |
%40
	g1 |
	a2 bes |
	a g |
	a a |
	r a ~ |
%45
	a c' |
	g2. e4 |
	f2. f4 |
	e2 r4 c |
	d2 e |
%50
	f d4 d |
	e2 f ~ |
	f4 e f f |
	e1 ~ |
	e ~ |
%55
	e ~ |
	e
}

bassus=\notes{
	f2 e4 d |
	c2 d |
	e f4. e8 |
	d1 |
%5
	c2 r |
	r4 c' b a |
	g a2 gis8 fis |
	gis2 r4 e |
	fis g2 e4 |
%10
	a2. g8 f |
	e d c b, a,2 ~ |
	a,4 a, g,2 ~ |
	g, r4 d ~ |
	d8 c bes, a, g,4 a, |
%15
	d2 r |
	R1*4/4 |
	R1*4/4 |
	r2 d |
	c4 b, a,8 g, a, b, |
%20
	c f, f2 e4 |
	f2 r |
	R1*4/4 |
	r4 f2 g4 |
	a f g2 ~ |
%25
	g4 [f8 e f g] a4 ~ |
	a gis8 fis gis4 gis |
	a2 r |
	r r4 f |
	a c' f8 g a b |
%30
	c'4 c f4. e8 |
	c2 d |
	r4 d2 d4 |
	c a, c2 ~ |
	c4 c g, g ~ |
%35
	g g f d |
	e c e2 |
	d2. d4 |
	g,2 r4 g |
	e g f e8 d |
%40
	e1 |
	d2 r |
	r4 a e g |
	d8 e f g a b c'4 ~ |
	c' b c'4. b8 |
%45
	a4 f c2 |
	R1*4/4 |
	R1*4/4 |
	r4 c d e |
	f2 g |
%50
	a4. g8 f4 d |
	c a, d2 ~ |
	d4 cis d d |
	a,1 |
	e,2 a,4 a, ~ |
%55
	a, gis, a, a, |
	e,1
}

textocantus=\lyrics{
Glo -- ri -- a De -- _ _ _ o,
glo -- ri -- a De -- _ _ o
per im -- men -- _ sa sae -- _ _ _ _ _ _ _ _ _ _ _ _ _ _ cu -- la,
sit ti -- _ _ bi Na -- te _ _ 
de -- cus et im -- pe -- _ _ ri -- um,
de -- cus et im -- pe -- _ _ _ _ ri -- um _ _ _ _ _ 
ho -- nor, po -- te -- _ stas
San -- _ cto -- que Spi -- ri -- _ _ _ _ _ _ tu -- i,
San -- cto -- que Spi -- ri -- _ _ _ _ tu -- i
sit Tri -- ni -- ta -- _ _ _ ti
sa -- lus in -- di -- vi -- _ _ _ _ du -- a, in -- _ _ _ _ di -- vi -- du -- a,
per in -- fi -- ni -- ta sae -- cu -- lo -- _ _ _ _ _ _ _ _ rum sae -- cu -- la,
sae -- _ cu -- lo -- _ _ _ rum sae -- _ cu -- _ la.
}

textoaltus=\lyrics{
Glo -- ri -- a De -- o,
glo -- _ ri -- a De -- _ _ o,
glo -- _ ri -- a De -- o
per im -- men -- sa sae -- _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ cu -- la
sit ti -- bi Na -- _ _ _ _ _ _ _ te,
sit ti -- bi Na -- te de -- _ cus et im -- pe -- _ _ ri -- um,
de -- cus et im -- pe -- _ _ _ _ ri -- um,
ho -- nor po -- te -- _ _ _ _ stas,
ho -- nor, po -- te -- _ _ _ _ _ _ _ _ _ _ _ stas
san -- _ cto -- que Spi -- ri -- _ _ _ _ _ tu -- i
sit Tri -- ni -- ta -- _ _ _ _ _ _ _ _ ti
sa -- _ lus in -- _ _ _ di -- vi -- _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ du -- a
per in -- fi -- ni -- _ ta sae -- cu -- lo -- rum sae -- cu -- la, _ _ _ _ 
sae -- cu -- lo -- rum _ sae -- cu -- la.
}

textotenor=\lyrics{
Glo -- ri -- a De -- _ _ o
per im -- men -- _ sa sae -- cu -- la
sit ti -- _ _ bi Na -- te
de -- cus et im -- pe -- _ _ ri -- um
ho -- _ nor, po -- te -- _ stas
San -- _ cto -- que Spi -- ri -- _ _ _ tu -- i
sit Tri -- ni -- ta -- _ _ ti 
sa -- _ lus in -- di -- vi -- du -- a
per in -- fi -- ni -- ta sae -- cu -- lo -- _ rum sae -- cu -- la. _ _ _ 

}

textobassus=\lyrics{
Glo -- ri -- a De -- _ _ _ _ _ o,
glo -- ri -- a De -- _ _ _ o
per im -- men -- sa sae -- _ _ _ _ _ _ _ _ cu -- la, _
sae -- _ _ _ _ _ cu -- la
sit ti -- bi Na -- _ _ _ _ _ _ _ te
de -- cus et im -- pe -- _ _ _ _ _ _ _ _ _ _ ri -- um
ho -- nor, po -- te -- _ _ _ _ _ _ _ _ stas
san -- cto -- que Spi -- ri -- _ tu -- i,
san -- _ cto -- que Spi -- ri -- _ _ _ tu -- i
sit Tri -- ni -- ta -- _ _ _ ti
sa -- lus in -- di -- _ _ _ _ _ _ _ _ vi -- _ _ du -- a
per in -- fi -- ni -- ta sae -- _ _ cu -- lo -- rum  sae -- _ _ _ cu -- la,
sae -- cu -- lo -- _ rum sae -- cu -- la.
}


\score{
	\context ChoirStaff <
		\addlyrics
		\context Staff = "v1"<
			\property Staff.instrument="Cantus   "
			\global
			\clef	treble
			\cantus
		>
		\context Lyrics="l1" \textocantus


		\addlyrics
		\context Staff = "v2"<
			\property Staff.instrument="Altus   "
			\global
			\clef treble	
			\altus
		>
		\context Lyrics="l2" \textoaltus



		\addlyrics
		\context Staff = "v3"<
			\property Staff.VerticalExtent = #'(0 . 0)
			\property Staff.instrument="Tenor  "
			\global
			\clef "G_8"	
			\tenor
		>
		\context Lyrics="l3" \textotenor

		\addlyrics
		\context Staff ="v4"<
			\property Staff.instrument="Bassus  "
			\global
			\clef bass
			\bassus
		>
		\context Lyrics="l4" \textobassus
	>

\paper{}

\header {piece= "estrofas pares" }
%\midi {\tempo 4 = 120}


}




\score{
	\addlyrics
	\context Staff  \notes {
	\property Staff.instrument= ""
	\property Staff.TimeSignature \override #'molecule-callback = #'()
	\property Voice.Stem \set #'transparent = ##t
	\property Score.timing = ##f
	\property Voice.NoteHead \set #'style = #'mensural
	\property Staff.VerticalExtent = #'(0 . 0)
	\key a \minor \clef "G_8"  d4 e \bar "||" }
	\context Lyrics \lyrics{ 
	A -- men. 
	}
	
	

\paper {linewidth= 12.0 \cm 
        indent = 6.0 \cm}

}