\version "2.24.0"

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

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}
mt=#(define-music-function (offset) (number?) ; move lyric text
      #{ \once \override LyricText.X-offset = -$offset #})

htitle="Trahe me post te"
hcomposer="Guerrero"

\header {
	title=\markup{\fontsize #3 "Trahe me post te"}
	subtitle=\markup{\fontsize #-1 "Canticum Canticorum Salomonis"} % I, 3; VII 6-8
%	subsubtitle=\markup{\null \vspace #2 }
	composer="Francisco Guerrero (c.1528-1599)"
	pdfauthor = \composer
	%opus="(-)"
	poet=\markup{"Sevilla 1555,  Venecia 1589,  Venecia 1597"}
	copyright=\markup{
		\fill-line {"Edited by Nancho Alvarez upon a transcription by Josep Mª Llorens" \typewriter "http://tomasluisdevictoria.org"}
	}
%	tagline=""
}


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

cantus=\relative c'' {
	s4*0^\markup{"Resolutio"}
        R1*4/4
	R1*4/4
	R1*4/4
	R1*4/4
%5
	r2 c ~
	c4 c b2
	a g ~
	g4 b a a ~
	a \ss gis8 \ss fis gis2
%10
	a r
	r r4 e' ~
	e e d2
	c b4 e ~
	e d2 c4 ~
%15
	c b c2 ~
	c r
	r4 c c c
	b g a2
	g r4 e ~
%20
	e f g2
	a4 b c2
	d4 e4. d8 b4
	c2 r
	R1*4/4
%25
	c2 e
	d c ~
	c r
	r4 c c c
	a4. b8 c2
%30
	R1*4/4
	r2 e
	f2. e4
	e2 f ~
	f4 d e4. d8
%35
	c b c2 b4
	g2 r
	r e'
	d4 b c4. d8
	e2 r
%40
	R1*4/4
	R1*4/4
	r2 r4 a,
	c d e \ss fis
	g2. f4
%45
	e c d2
	r4 c e2 ~
	e4 d e c ~
	c b c a
	g1
%50
	R1*4/4
	R1*4/4
	r2 e' ~
	e d ~
	d r4 g,
%55
	a b c d
	e2 r
	r r4 e
	d e c d
	e8 d c b a4 \ss gis
%60
	a2 \ss gis
	R1*4/4
	r4 g a b
	c2 b4 d
	c b4. a16 g a4
%65
	b2 r
	r4 c2 b8 a
	b4 b c2 ~
	c4 a \[b2
	g2.\] a4
%70
	b2 r
	R1*4/4
	d2 e4. d8
	c4 b c2
	d r
%75
	r r4 d
	d e c2
	b4 a2 \ss gis4
	a2 r
	r r4 e'
%80
	e4. d8 c4 b
	c2 b
	R1*4/4
	r4 d d e
	c2 b4 a ~
%85
	a \ss gis a2 ~
	a1 ~
	a\breve*1/2
}

cantusdos=\relative c'' {
	s4*0^\markup{"Canon ad tertium"}
	R1*4/4
	R1*4/4
	R1*4/4
	a2. a4
%5
	g2 f
	e2. g4
	f f2 e8 d
	e2 f
	R1*4/4
%10
	r4 c'2 c4
	b2 a
	g4 c2 b4 ~
	b a2 \ss gis4
	a1
%15
	r2 r4 a
	a a g e
	f2 e
	r4 c2 d4
	e2 f4 g
%20
	a2 b4 c ~
	c8 b \ss gis4 a2
	R1*4/4
	r2 a
	c b
%25
	a1
	r2 r4 a
	a a f4. g8
	a2 r
	R1*4/4
%30
	c2 d ~
	d4 cis cis2
	d2. b4
	c4.  b8[ a g] a4 ~
	a g e2
%35
	R1*4/4
	c'2 b4 g
	a4. b8 c2
	R1*4/4
	R1*4/4
%40
	R1*4/4
	r4 f, a b
	c d e2 ~
	e4 d c a
	b2 r4 a
%45
	c2. b4
	c a2 g4
	a f e2 ~
	e r
	R1*4/4
%50
	R1*4/4
	c'1
	b
	r4 e, f g
	a b c2
%55
	R1*4/4
	r4 c b c
	a b c8 b a g
	f4 e f2
	e r
%60
	r r4 e
	f g a2
	gis4 b! a \ss g ~
	g8 \ss fis16 e fis!4 g2
	r r4 a ~
%65
	a \ss gis8 \ss fis gis!4 gis
	a2. \ss fis4
	\[g2 e ~ \]
	e4 f g2
	R1*4/4
%70
	r2 b
	c4. b8 a4 g
	a2 b
	R1*4/4
	r4 b b c
%75
	a2 g4 f ~
	f e f2
	R1*4/4
	r4 c' c4. b8
	a4 g a2
%80
	gis r
	r r4 b
	b c a2
	g4 f2 e4
	f2 r
%85
	r4 e4. e8 e4
	f d f2
	e\breve*1/2
}

altus=\relative c'' {
	R1*4/4
	r2 a ~
	a4 a g2
	f e ~
%5
	e r4 a ~
	a a g8 f e d
	c4 c c2
	R1*4/4
	r4 e2 e4
%10
	c4. d8 e4 f
	g2 f4 e ~
	e c d4. b8
	c d e4. d16 c b4
	a a' a f
%15
	g4. f8 e d c b
	c4 a r a'
	a a4.  g16[ f]  e8[ f]
	g f e d c4 a
	b c4. d8 e4
%20
	c r8 c d4 e
	a, e'2 c4
	g'4. f8 e4 d
	c4. b8 a4 a'
	g8 e a2 \ss gis4
%25
	a2 r4 e
	gis gis a2
	r4 a a a
	\[f2 e4.\] d16 e
	f8 e f4 e2
%30
	a a ~
	a4 a a2
	r4 a2 gis4
	a a f4. e8
	d2 g
%35
	a f4. f8
	e2 r
	f e4 c
	d e4. c8 f4
	e2 r4 c
%40
	e f g g
	a4.  g8[ f e] g4
	f2 e
	r4 g e a
	g g a4. f8
%45
	g4 a2 g8 f
	e2 r
	r r4 c ~
	c e2 d4
	e c2 b4
%50
	c a2 gis4
	a a'2 a4 ~
	a \ss gis8 \ss fis gis!4 e
	\ss gis2 a4 \ss g
	fis g2 c,4
%55
	c g' f f
	e g g e
	f g e4. c8
	d4 a r2
	r4 a2 c4 ~
%60
	c a b c ~
	\set Staff.autoBeaming = ##f
	c8 d e2 d4
	\set Staff.autoBeaming = ##t
	e2 a,4 e'
	e c d4. e8
	f4 g e2
%65
	r4 e4. d16 c b4
	c2 r
	r4 g'2 g4
	a2 d,4 g ~
	g8 f e d e4 f
%70
	g1
	r4 e f g
	f a4. \ss gis16 \ss fis gis4
	a g e2
	r4 g2 e4
%75
	e f d4. e8
	f d g4 a4. g8
	f2 e
	r4 e e e
	f g c,4. d8
%80
	e2 f4 g
	e a2 g8 \ss fis
	g4 c, e f
	d4. e8 f4 g
	a4. g8 f2
%85
	e c
	d4 f4. e8 d4 ~
	d \ss cis8 b \mtempob cis!\breve*1/4
}

tenor=\relative c' {
	r2 e ~
	e4 e d2
	c b
	d c
%5
	r4 c2 a4 ~
	a8 b c a b4 g
	a2 r4 c ~
	c b c d
	c b8 a b2
%10
	a r4 c
	d e c4. d8
	e f g4. f8 g4
	e2 r4 e
	c f4. e8 c4
%15
	d2 c4 f
	f f d cis
	d c8 b c2
	d4 e a,2
	r a4 b
%20
	c a g e
	f e a2
	r4 e' c g'
	f e4. d16 c d4
	e1
%25
	a,
	r4 d f2
	e d
	r4 a c c
	d2 c
%30
	e f ~
	f4 e e a,
	d2. e4
	a, c d c ~
	c8 a b4 c2
%35
	a r
	r4 c d e
	a,8 g a b c d e \ss fis
	g2 c,
	r4 c c a
%40
	b c d e
	f4. e8 d2
	R1*4/4
	R1*4/4
	r4 d d d
%45
	c a f g
	a2 r
	r4 d a8 b c d
	e \ss fis g4 c, a8 b
	c b e4 d e ~
%50
	e8 d c4 b2
	a e' ~
	e e
	r4 b d g,
	d' g, c e
%55
	f e2 d4
	g8 f e d e4 c
	d g, a2
	R1*4/4
	r4 c d e
%60
	c d e8 d c b
	a4 g f2
	e r
	r r4 g
	a b c2
%65
	b e ~
	e c
	d e4 \[c ~
	c d2\] b4
	c1
%70
	r4 d e4. e8
	e4 c d e
	a,2 r4 e'
	a, e'4. d8 c4
	b d e c ~
%75
	c c b a8 g
	a b c4. a8 c4
	d4. c8 b2
	a r4 c
	d e4. d8 c4
%80
	b2 a4 g
	a8 b c d e2 ~
	e c
	b4 a2 c4 ~
	c a d4. c8
%85
	b2 a ~
	a1 ~
	a\breve*1/2 
}

bassus=\relative c' {
	a2. a4
	g2 f
	e2. g4
	d8 e f g a4. b8
%5
	c4 c, f4. g8
	a2 e
	f c
	g' f4 d
	e1
%10
	r4 a2 a4
	g e f8 g a b
	c4 c, g'2
	a \[e
	f4.\]  e8[ f g] a4
%15
	g2 r4 f
	f4. f8 g4 a
	d,8 e f g a2
	g4 c, f2
	e4 c f e
%20
	a2 r
	r r4 a
	b c4. b8 g4
	a a f2
	c4. d8 e2
%25
	r4 a c2
	b a ~
	a r4 d,
	d8 e f g a4 a
	d,2 a'
%30
	a d ~
	d4 a a2
	R1*4/4
	r4 a d, f ~
	f g c, c' ~
%35
	c f, a b
	c c, g' e
	f2 c4 c'
	b g a4. b8
	c4 c, e f
%40
	g a b c
	f,2 r4 g
	a b c8 b a g
	a4 b c d
	g,2 r
%45
	R1*4/4
	r4 a2 c4 ~
	c b c a ~
	a g a f
	e4. f8 g2
%50
	c,4. d8 e2
	a, a'
	e1 ~
	e2 r
	r c
%55
	f4 g a b
	c2 r
	r r4 a
	b c a b
	c8 b a g f4 e
%60
	f2 e
	R1*4/4
	r4 e f g
	a2 g4 bes
	a g a2
%65
	e1
	a
	g2 c4. b8
	a4 d, g4. g8
	c,4 c'4. b8 a4
%70
	g2 r4 e
	a4. g8 f4 e
	d f e2
	f4 g a2
	g r4 a ~
%75
	a f g d ~
	d c \[f2
	d\] e
	r4 a a4. g8
	f4 e a2
%80
	e r
	r r4 e
	e a2 f4
	g d2 c4
	f2 d
%85
	e a,
	d d
	a\breve*1/2
}

textocantus=\lyricmode{
Tra -- _ he me post te, _
vir -- go Ma -- _ ri -- _ _ a
tra -- _ he me post te \mt #1 vir -- _ go Ma -- _ ri -- a _
cur -- re -- mus in o -- do -- rem
un -- _ guen -- to -- rum
tu -- o -- _ _ _ _ \mt #1.5 rum.
Quam pul -- chra es _
et quam de -- co -- _ ra
ca -- ris -- si -- ma in _ de -- li -- _ _ _ _ ti -- is
sta -- tu -- ra tu -- _ a
as -- si -- mi -- la -- ta est
\mt #.5 pal -- _ _ mæ et u -- _ be -- ra tu -- _ a bo -- _ tris
di -- _ xi: _
a -- scen -- dam in pal -- mam
et ap -- pre -- hen -- dam \mt #.2 fru -- _ _ _ _ ctum e -- ius:
et e -- runt u -- be -- ra \mt #.3 tu -- _ _ _ _ a
sic -- _ _ _ ut bo -- _ tri vi -- _ ne -- æ
et o -- dor o -- ris tu -- i
sic -- ut o -- dor ma -- \mt #.1 lo -- _ rum
et o -- dor o -- ris tu -- i
sic -- ut o -- dor ma -- lo -- _ _ rum. _ _ 
}

textocantusdos=\lyricmode{
Tra -- he me post te,
vir -- go Ma -- ri -- _ _ a
tra -- he me post te vir -- go _ Ma -- ri -- a
cur -- re -- mus in o -- do -- rem
un -- guen -- to -- rum tu -- o -- _ _ _ _ _ \mt #1.5 rum.
Quam pul -- chra es
et quam de -- co -- _ ra
ca -- ris -- _ si -- ma
in de -- li -- _ _ _ _ _ ti -- is
sta -- tu -- ra tu -- _ a
as -- si -- mi -- la -- ta est _
\mt #.5 pal -- _ _ mæ
et u -- be -- ra tu -- a \mt #.3 bo -- _ tris _
di -- xi:
a -- scen -- dam in pal -- mam
et ap -- pre -- hen -- dam \mt #.2 fru -- _ _ _ _ ctum e -- ius:
et e -- runt u -- be -- ra tu -- _ _ _ _ _ a
sic -- _ _ _ _ ut bo -- tri vi -- _ _ ne -- æ
et o -- dor o -- ris tu -- i
sic -- ut o -- dor ma -- lo -- _ _ rum
et o -- dor o -- ris tu -- i
sic -- ut o -- dor ma -- lo -- _ rum,
sic -- ut o -- dor ma -- lo -- rum.
}

textoaltus=\lyricmode{
Tra -- _ he me post te _
tra -- _ he me __ _ _ _ _ post te
tra -- he \mt #.3 me __ _ _ post te vir -- go _ Ma -- ri -- _ _ _ _ _ _ _ a,
vir -- go Ma -- ri -- _ _ _ _ _ _ a
cur -- re -- mus __ _ _ _ _ _ _ _ _ _ in o -- do -- _ _ rem
in o -- do -- rem un -- guen -- to -- _ _ _ \mt #.5 rum __ _ _ 
tu -- o -- _ _ _ \mt #1.5 rum.
Quam pul -- chra es
et quam de -- co -- _ _ _ _ _ _ ra
ca -- ris -- _ si -- ma
in de -- li -- ti -- is, __ _ _ 
in de -- li -- ti -- is
sta -- tu -- _ ra tu -- _ _ a
as -- si -- mi -- la -- ta \mt #.5 est __ _ _ _ _ pal -- mæ
as -- si -- mi -- la -- ta \mt #.2 est __ _ _ \mt #.3 pal -- _ _ mæ
et _ u -- be -- ra tu -- a bo -- _ _ tris,
di -- xi: __ _ _ _ _ 
a -- scen -- dam in pal -- mam,
a -- scen -- dam in pal -- mam,
et ap -- pre -- hen -- dam fru -- ctum e -- ius:
et e -- _ runt u -- be -- _ ra tu -- _ a,
et e -- runt u -- be -- ra \mt #.2 tu -- _ a
\mt #.2 sic -- _ _ _ ut
sic -- ut bo -- tri vi -- _ _ _ _ _ ne -- æ
et o -- dor o -- _ _ _ _ ris tu -- i
sic -- ut o -- dor \mt #.1 ma -- _ _ _ _ lo -- _ _ rum
et o -- dor o -- ris tu -- _ i,
o -- ris tu -- _ _ _ i
sic -- ut o -- dor _ _ ma -- lo -- _ _ _ rum,
ma -- lo -- _ _ _ _ _ \mt #1.3 rum.
}

textotenor=\lyricmode{
Tra -- _ he me post te,
vir -- go Ma -- ri -- _ _ _ _ _ _ a
vir -- _ go Ma -- ri -- _ _ _ _ a
tra -- he me \mt #.2 post __ _ _ _ _ _ _ te
vir -- go Ma -- _ _ ri -- a,
cur -- re -- mus in o -- \mt #.3 do -- _ _ _ _ _ rem
un -- guen -- to -- rum
tu -- o -- _ _ \mt #1.5 rum
un -- guen -- to -- rum
tu -- _ _ _ o -- \mt #1.5 rum.
Quam pul -- chra es
et quam de -- co -- ra,
ca -- ris -- _ si -- ma,
ca -- ris -- si -- ma in de -- li -- _ _ _ ti -- is
sta -- tu -- ra \mt #.2 tu -- _ _ _ _ _ _ _ _ a
as -- si -- mi -- la -- ta est \mt #.5 pal -- _ _ mæ
as -- si -- mi -- la -- ta est pal -- mæ
et u -- _ _ _ _ _ _ be -- ra __ _ _ _ _ tu -- _ _ _ a bo -- tris,
di -- _ xi:
a -- scen -- dam in pal -- mam,
a -- scen -- dam in \mt #.2 pal -- _ _ _ _ _ _ _ mam
et ap -- pre -- hen -- dam fru -- _ _ _ _ ctum e -- ius:
u -- be -- ra tu -- a,
sic -- _ ut bo -- tri vi -- _ _ ne -- æ
et o -- dor o -- ris \mt #.2 tu -- _ i
o -- ris \mt #.1 tu -- _ _ i,
sic -- ut o -- _ dor ma -- lo -- _ _ _ _ _ _ _ _ _ rum
et o -- \mt #.2 dor __ _ _ 
o -- ris tu -- _ _ _ _ i, _
sic -- ut o -- dor _ ma -- lo -- _ _ rum. _ _ 
}

textobassus=\lyricmode{
Tra -- he me post te,
vir -- go __ _ _ _ _ _ _ Ma -- ri -- _ _ a,
vir -- go Ma -- ri -- _ a
tra -- he me post te __ _ _ _ _ 
vir -- go 
Ma -- ri -- _ _ _ _ _ a
cur -- re -- mus in o -- do -- _ _ _ _ rem
un -- guen -- to -- rum tu -- o -- rum
un -- guen -- to -- _ _ rum
tu -- o -- _ _ \mt #1.5 rum.
Quam pul -- chra es _
et quam __ _ _ _ _ de -- co -- ra ca -- ris -- _ si -- ma
in de -- li -- _ ti -- is,
in _ de -- li -- ti -- is sta -- tu -- ra tu -- a,
sta -- tu -- ra tu -- _ a,
as -- si -- mi -- la -- ta est pal -- mæ
as -- si -- mi -- la -- _ _ _ _ ta est pal -- mæ
et u -- _ be -- ra tu -- _ a \mt #.2 bo -- _ \mt #.5 tris, __ _ _ 
bo -- _ _ tris,
di -- xi: _
a -- scen -- dam in pal -- mam
et ap -- pre -- hen -- dam \mt #.2 fru -- _ _ _ _ ctum e -- ius
et e -- runt u -- be -- ra \mt #.2 tu -- _ _ a,
sic -- ut \mt #.1 bo -- _ _ tri vi -- ne -- æ,
\mt #.2 vi -- _ ne -- æ
et o -- dor o -- ris tu -- i,
o -- ris tu -- _ i
sic -- _ ut o -- dor _ ma -- lo -- _ rum
et o -- dor o -- ris tu -- i
sic -- ut o -- dor ma -- lo -- rum,
sic -- ut o -- dor ma -- lo -- rum.
}

incipitcantus=\markup{
	\score{
		{ 
		\set Staff.instrumentName="Cantus I  "
		\override NoteHead.style = #'neomensural
		\override Staff.TimeSignature.style = #'neomensural
		\cadenzaOn 
		\clef "petrucci-g"
		\key c \major
		\time 2/2
                c''1.
		} 

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


incipitcantusdos=\markup{
	\score{
		{ 
		\set Staff.instrumentName="Cantus II "
		\override NoteHead.style = #'neomensural
		\override Staff.TimeSignature.style = #'neomensural
		\cadenzaOn 
		\clef "petrucci-c1"
		\key c \major
		\time 2/2
                a'1.
		} 

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

incipitaltus=\markup{
	\score{
		{ 
		\set Staff.instrumentName="Altus       "
		\override NoteHead.style = #'neomensural 
		\override Staff.TimeSignature.style = #'neomensural
		\cadenzaOn 
		\clef "petrucci-c2"
		\key c \major
		\time 2/2
                a1.
		} 
	\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-c3"
		\key c \major
		\time 2/2
                e'1.
		} 
	\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-f3"
		\key c \major
		\time 2/2
                a1.
		} 
	\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="v5" {
		\set Staff.instrumentName=\incipitcantusdos
		\clef "treble"
		\cantusdos }
	\new Lyrics \lyricsto "v5" {\textocantusdos }
	>>

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

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

%\midi { \mtempo }

}


\paper{
	evenHeaderMarkup=\markup  \fill-line { \fromproperty #'page:page-number-string \htitle \hcomposer }
	oddHeaderMarkup= \markup  \fill-line { \unless \on-first-page \hcomposer \unless \on-first-page \htitle \unless \on-first-page \fromproperty #'page:page-number-string }
	%system-count=20
	%page-count = 8
	systems-per-page = 3
	ragged-last-bottom = ##f
	indent=3.6\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))
	markup-system-spacing.padding = #1.5
}