\version "2.18.0"

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

italicas=\override LyricText.font-shape = #'italic
rectas=\override LyricText.font-shape = #'upright
ss=\once \set suggestAccidentals = ##t
mtempo={\tempo 4 = 130 }
pfermata=\markup{"(" \musicglyph #"scripts.ufermata" ")"}
showMultiRests = { \set Staff.keepAliveInterfaces = #'( rhythmic-grob-interface multi-measure-rest-interface lyric-interface stanza-number-interface percent-repeat-interface) }
hideMultiRests = \unset Staff.keepAliveInterfaces
noados=\once \set Staff.aDueText = #""
showMultiRests = { \set Staff.keepAliveInterfaces = #'( rhythmic-grob-interface multi-measure-rest-interface lyric-interface stanza-number-interface percent-repeat-interface) }
hideMultiRests = \unset Staff.keepAliveInterfaces


htitle="BWV 198 - An dir, du Fürbild großer Frauen"
hcomposer="Bach"

\header {
	title=\markup{\fontsize #3 "7. An dir, du Fürbild großer Frauen"}
	subtitle="Trauerode - Oda fúnebre"
        subsubtitle=\markup{\raise #3 "BWV 198" \vspace #2 }
        composer="Johann Sebastian Bach (1685-1750)"
        pdfauthor=\composer
       %opus="(-)"
	%poet=\markup{"BWV 198"}
	copyright=\markup{
		\fill-line {"Edited by Nancho Alvarez" \typewriter "http://tomasluisdevictoria.org"}
	}
%	tagline=""
}

global={
  \compressFullBarRests
  \key b \minor \time 2/2 \skip 1*73 \bar "|."
}

cantus=\relative c'{
        \showMultiRests
        \set autoBeaming = ##f
        R1*9
        r2 fis
        b2 b4.( cis16[ d])
        cis4 fis, cis' e
        d4( cis) d b
        cis fis, fis'2 ~
        fis4 eis8[ dis] eis4. fis8
        fis2. e!4
        dis2. b4
        fis' g a fis
        g4( fis) e d
        cis2. a4
        e'( fis) g( e)
        fis e d c
        b b e2 ~
        e4 a, d2 ~
        d4 cis8[ b] a4 g
        fis4 g a c
        b e cis! d
        fis,2( e) 
        d2 r
        R1*18
        r2 fis
        b2 b4.( cis16[ d])
        cis4 fis, cis' e
        d( cis) d b
        cis fis, fis'2 ~
        fis4 eis8[ dis] eis4. fis8
        fis4 cis fis2 ~
        fis8[ g] fis[ e] d[ cis d b]
        e[ fis e d] cis[ b cis a]
        fis'4 e fis dis
        e2 r4 e,
        a2. g8[ fis]
        b4 a8[ g] fis[ e] e'4
        cis2. a4
        e'4 fis g e
        fis( e) d cis
        b2. a8([ g)]
        d'4( e) fis( d)
        e4 d cis b
        ais2. fis4
        d'2. cis8[ b]
        e2. d8[ cis]
        fis4 b, g' fis
        e4 d8[ cis] fis4 b,
        d2( cis)
        b1^\fermata
}

altus=\relative c'{
        \showMultiRests
        \set autoBeaming = ##f
        R1*3
        r2 b
        fis' fis4.( gis16[ a])
        gis4 cis, gis' b
        a4( gis) a fis
        d'2. cis8[( dis16 e])
        b4 a g fis
        g( e) cis ais
        fis' b, b'2 ~
        b4 ais8[ gis] ais4. b8
        b4 fis b2 ~
        b4 a!8[ gis] a4 fis
        b4 cis8[ d cis b] a8[ gis]
        cis8[( b a gis]) fis4 a
        fis2. fis4
        b4 b b b 
        b4( a) g b
        a2. e4
        a2 a
        a4 g fis a
        g2 r4 g
        a8[ g a b] a[ g a fis]
        e4 e8[ d] cis4 e
        d4 cis' d fis,
        g b e, d
        d2( cis)
        a2 r
        R1*15
        r2 cis
        fis2 fis4.( gis16[ a])
        gis4 cis, gis' b
        a4( gis) a fis
        g!4 e b'2 ~
        b4 ais8[ gis] ais4. b8
        b4 fis b2 ~
        b4 a8[ gis] a4 fis
        d'8[ cis b a] gis4 cis
        cis4( b) cis ais
        b2 r4 fis
        cis'8[ d cis b] a[ g a fis]
        b1 ~
        b8[ a g a] b[ a b g]
        c8[ b] a[ g] fis2 ~
        fis4 dis b b'
        a2. e4
        a4 a a a
        a4( g) fis a
        g2. fis8([ e)]
        fis2 b
        e,4 fis g e
        cis fis cis'2 ~
        cis4 fis, b2 ~
        b4 a8[ g] fis4 b8[ ais]
        b4 b b ais
        b4 b b b 
        b2( ais)
        fis1^\fermata
}

tenor=\relative c{
        \showMultiRests
        \set autoBeaming = ##f
        r2 fis
        b2 b4.( cis16[ d])
        cis4 fis, cis' e
        d4( cis) d b
        cis fis, fis'2 ~
        fis4 eis8[ dis] eis4. fis8
        fis2 r
        r4 b, g'2 ~
        g4 fis e dis
        e cis ais cis
        d2 r4 b
        g'4 cis,2 fis4 ~
        fis4 e fis d
        cis2 r4 cis
        gis'2. cis,4
        cis4 dis8[ eis] fis2 ~
        fis4 fis, b dis
        fis8[ e] dis[ e] fis[ e] dis![ cis]
        b4( dis) e g
        e e, a cis
        e8[ d cis d] e[ d] cis[ b]
        a4 cis d fis
        d2 r4 b
        a4( cis) d( a)
        a2 a
        a4 e' d d
        d g a a,
        a2.( g4)
        fis2 r
        R1*24
        r2 fis
        b2 b4.( cis16[ d])
        cis4 fis, cis' e
        dis4( cis) dis b
        g' b, e2 ~
        e4 dis8[ cis] dis4. fis8
        b,2 r4 g'
        e e, a cis
        e8[ d] cis[ d] e[ d] cis[ b]
        a4( cis) d fis
        d d, g a
        a4 b8[ cis] d[ cis d b]
        g'4 fis e8[ fis] g4
        fis4 r r ais,
        fis'2. fis4
        b,8[ ais] b[ cis] d[ cis] d[ e]
        fis4 e8[ dis] e4 cis
        b g' fis g
        d8[( cis d e] fis4 e)
        dis1^\fermata
}

bassus=\relative c{
        \showMultiRests
        \set autoBeaming = ##f
        R1*12
        r2 b
        fis'2 fis4.( gis16[ a])
        gis4 cis, gis' b
        a4( gis) a fis
        b4 a8[ g!] fis4 a
        dis,2 b
        e4( fis) g4 e
        a4 g8[ fis] e4 g
        cis,2 a
        d4 e fis d
        g4( fis) g( e)
        fis( e) fis( d)
        a'2 r4 a,
        d4 e fis d
        g2. fis8[ g]
        \shape #'((0 . 0) (0 . 1) (0 . 2) (-.2 . 1)) Slur
        a2( a,)
        d2 r
        R1*27
        r2 b
        e2 e4.( fis16[ g])
        fis4 b, fis' a
        g4( fis) g4 e
        a4 g8[ fis] e4 g
        cis,2 a
        d4( e) fis d
        g4 fis8[ e] d4 cis
        b2 gis
        cis4 d e cis
        fis8[ e fis g] fis[ e] d[ cis]
        b[ ais b cis] d[ e fis d]
        g[ fis g a] b[ ais] b[ cis]
        d4 b e, fis
        g fis8[ e] d4 e
        \shape #'((0 . 0) (0 . 1) (0 . 2) (-.5 . 1)) Slur
        fis2( fis,)
        b1^\fermata
}

textocantus=\lyricmode{
An dir du __ Vor -- bild gro -- ßer Frau -- en,
an dir er -- hab' -- ne Kö -- ni -- gin,
an dir du Vor -- bild gro -- ßer Frau -- en,
an dir er -- hab' -- ne __ Kö -- ni -- gin,
an dir du Glau -- bens -- pfle -- _ _ ge -- rin,
war die -- ser Groß -- mut Bild zu schau -- en. % grossmuth

An dir du __ Vor -- bild gro -- ßer Frau -- en,
an dir er -- hab' -- ne Kö -- ni -- gin,
an dir __ er -- hab' -- _ _ _ ne __ Kö -- ni -- gin
er -- hab' -- ne Kö -- ni -- gin,
an dir du Vor -- bild gro -- ßer Frau -- en,
an dir er -- hab' -- ne __ Kö -- ni -- gin,
an dir du Glau -- bens -- pfle -- ge -- rin,
war die -- ser Groß -- mut Bild zu schau -- en. % grossmuth
}

textoaltus=\lyricmode{
An dir du __ Vor -- bild gro -- ßer Frau -- en,
an dir du __ Vor -- bild gro -- ßer Frau -- en,
an dir er -- hab' -- ne Kö -- ni -- gin,
an dir du Vor -- bild gro -- _ ßer Frau -- en,
an dir du Vor -- bild gro -- ßer Frau -- en,
an dir er -- hab' -- ne Kö -- ni -- gin,
an dir du Glau -- _ _ bens -- pfle -- ge -- rin,
war die -- ser Groß -- mut Bild zu schau -- en.

An dir du __ Vor -- bild gro -- ßer Frau -- en,
an dir er -- hab' -- ne Kö -- ni -- gin,
an dir du Vor -- bild gro -- _ ßer Frau -- en,
an dir er -- hab' -- _ _ _ _ ne Kö -- ni -- gin,
an dir du Vor -- bild gro -- ßer Frau -- en,
an dir er -- hab' -- ne Kö -- ni -- gin,
an dir du Glau -- bens -- pfle -- _ _ ge -- rin,
war die -- ser Groß -- mut Bild zu schau -- en.

}

textotenor=\lyricmode{
An dir du __ Vor -- bild gro -- ßer Frau -- en,
an dir er -- hab' -- ne Kö -- ni -- gin
er -- hab' -- _ _ _ _ ne Kö -- ni -- gin
an dir er -- hab' -- ne Kö -- ni -- gin
er -- hab' -- ne Kö -- ni -- gin,
an dir du Vor -- bild gro -- ßer Frau -- en,
an dir, an dir er -- hab' -- _ ne Kö -- ni -- gin,
an dir du Glau -- bens -- pfle -- ge -- rin,
war die -- ser Groß -- mut Bild zu schau -- en.

An dir du __ Vor -- bild gro -- ßer Frau -- en,
an dir er -- hab' -- ne Kö -- ni -- gin
an dir, an dir du Vor -- bild gro -- ßer Frau -- en,
an dir, an dir er -- hab' -- _ _ _ ne Kö -- ni -- gin
an dir du Glau -- bens -- pfle -- ge -- rin,
war die -- ser Groß -- mut Bild zu schau -- en.
}

textobassus=\lyricmode{
An dir du __ Vor -- bild gro -- ßer Frau -- en,
an dir du Vor -- bild gro -- ßer Frau -- en,
an dir er -- hab' -- ne Kö -- ni -- gin,
an dir du Glau -- bens -- pfle -- ge -- rin
war die -- ser Groß -- mut Bild zu schau -- en.

An dir du __ Vor -- bild gro -- ßer Frau -- en,
an dir du Vor -- bild gro -- ßer Frau -- en,
an dir er -- hab' -- ne Kö -- ni -- gin,
an dir du Glau -- _ bens -- pfle -- _ _ _ ge -- rin,
war die -- ser Groß -- mut Bild zu schau -- en.
}


flautauno = \relative c'' {
        R1*31
        r2 d
        a'2 a4.( b16 cis)
        b4 e, b' d
        cis8( d b) d cis( b) cis( a)
        b4 b, e2 ~
        e8 d cis e d cis d b
        cis4 cis fis2 ~
        fis4 eis2 a4
        d2. gis,4
        cis2. fis,4
        b8( cis a) cis b( a) b( gis)
        a1 ~
        a8 gis a b a gis fis gis
        eis dis eis fis gis a b gis
        a4 cis, fis2 ~
        fis4 eis8 dis eis4. fis8
        fis2 ~ fis8 g! fis e
        d2 ~ d8 d e fis
        g4 e cis2
        b b
        fis' fis4.( gis16 a)
        gis4 cis, gis' b
        ais8( b gis) b ais( gis) ais( fis)
        d'4 fis, b2 ~
        b4 a!8 g a2 ~
        a8 g a b a g a fis
        g fis e dis e fis dis e
        fis e fis g a c b a
        b4 b, e g ~
        g8 fis e d cis d e cis
        a2 a' ~
        a4 a, d fis ~
        fis8 e d cis b cis d e
        d cis b ais b2 ~
        b8 ais b d g, b e4 ~
        e8 cis d e fis g fis e
        d cis d e fis g a dis,
        e4 b b'2 ~
        b4 b, g' fis
        e d8 cis fis4 b,
        d2 cis
        b1^\fermata
}

flautados = \relative c''{
  R1*28
  r2 a
  d d4.( e16 fis)
  e4 a, e' g
  fis8( g e) g fis( e) fis( d)
  e a, cis e a2 ~
  a4 gis8 fis gis4. a8
  a4 e a2 ~
  a8 g fis a g fis g e
  fis4 fis, b2 ~
  b8 a gis b a gis a fis
  gis4 gis' cis2 ~
  cis4 fis, b2 ~
  b4 e, a2 ~
  a8 gis fis a gis fis gis eis 
  fis eis fis gis fis e d cis
  b1 ~
  b8 a gis fis eis fis gis eis
  fis eis fis gis a b cis a
  d8 cis b a gis4. fis8
  fis a b cis d e d cis
  b4 cis8 d e2 ~
  e4 cis ais cis
  d2 b
  fis' fis4.( gis16 a)
  gis4 cis, gis' b
  ais8( b gis) b ais( gis) ais( fis)
  d'4 fis, b2 ~
  b4 a!8 g a2 ~
  a8 g a b a g a fis
  g fis e dis e fis dis e
  fis e fis g a c b a
  b4 b, e g ~
  g8 fis e d cis d e cis
  a2 a' ~
  a4 a, d fis ~
  fis8 e d cis b cis d e
  d cis b ais b2 ~
  b8 ais b d g, b e4 ~
  e8 cis d e fis g fis e
  d cis d e fis g a dis,
  e4 b b'2 ~
  b4 b, g' fis
  e d8 cis fis4 b,
  d2 cis
  b1^\fermata
}

oboeuno=\relative c'{
  R1*9
  r2 
  \set aDueText = #""
   fis
  b2 b4.( cis16 d)
  cis4 fis, cis' e
  d8( e cis) e d( cis) d( b)
  cis fis, a cis fis2 ~
  fis4 eis8 dis eis4. fis8
  fis2. e!4
  dis2. b4
  fis'4( g) a( fis)
  g4( fis e) d
  cis2. a4
  e'4( fis) g( e)
  fis( e d) c
  b b e2 ~
  e4 a, d2 ~
  d4 cis8 b a4 g
  fis4 g a c
  b e cis! d
  fis,2 e
  d r
  R1*18
  r2 fis
  b2 b4.( cis16 d)
  cis4 fis, cis' e
  d( cis) d b
  cis4 fis, fis'2 ~
  fis4 eis8 dis eis4. fis8
  fis4 cis fis2 ~
  fis8 g fis e d cis d b
  e fis e d cis b cis a
  fis'4( e) fis dis
  e2 r4 e,
  a2. g8 fis
  b4 a8( g) fis( e) e'4
  cis2. a4
  e'4( fis) g( e)
  fis( e d) cis
  b2. a8( g)
  d'4( e) fis( d)
  e( d cis) b
  ais2. fis4
  d'2. cis8( b)
  e2. d8( cis)
  fis4 b, g' fis
  e d8 cis fis4 b,
  d2 cis
  b1^\fermata
}

oboedos=\relative c'{
  R1*3
  r2 b
  fis'2 fis4.( gis16 a)
  gis4 cis, gis' b
  a8( b gis) b a( gis) a( fis)
  d'2. cis8( dis16 e)
  b4 a g fis
  g8 fis e d cis4 fis ~
  fis8 b, d fis b2 ~
  b4 ais8 gis ais4. b8
  b4 fis b2 ~
  b4 a!8 gis a cis a fis
  b4 cis8 d cis b a gis
  cis b a gis fis gis a4 ~
  a8 b c b a g fis e
  b2 b' ~
  b8 c a b g2 ~
  g8 a b a g fis e d
  a2 a' ~
  a8 b g a fis4 a
  g2 r4 e
  a8 g a b a g a fis
  e fis e d cis d e cis
  d4 cis' d fis,
  g b e, d
  d2 cis
  d2 r 
  R1*15
  r2 cis
  fis fis4.( gis16 a)
  gis4 cis, gis' b
  a4( gis) a fis
  g!4 e b'2 ~
  b4 ais8 gis ais4. b8
  b4 fis b2 ~
  b4 a8 gis a4 fis
  d'8 cis b a gis4 cis ~
  cis8 d b d cis( b) cis( ais)
  b2 r4 fis
  cis'8 d cis b a g a fis
  b1 ~
  b8 a g a b a b g
  c b a g fis2 ~
  fis4 dis b b'
  a2. e4
  a a a a
  a( g fis) a
  g2. fis8( e)
  fis2 b
  e,4( fis g) e
  cis fis cis'2 ~
  cis4 fis, b2 ~
  b4 a8 g fis4 b8( ais)
  b4 b b ais
  b2. b4
  b2 ais
  b1^\fermata
}

violinuno = \relative c'{
  \set aDueText = #""
  R1*9
  r2 fis
  b2 b4.( cis16 d)
  cis4 fis, cis' e
  d8( e cis) e d( cis) d( b)
  cis fis, a cis fis2 ~
  fis4 eis8 dis eis4. fis8
  fis2. e!4
  dis2. b4
  fis'4( g) a( fis)
  g4( fis e) d
  cis2. a4
  e'4( fis) g( e)
  fis( e d) c
  b b e2 ~
  e4 a, d2 ~
  d4 cis8 b a4 g
  fis4 g a c
  b e cis! d
  fis,2 e
  d r
  R1*18
  r2 fis
  b2 b4.( cis16 d)
  cis4 fis, cis' e
  d( cis) d b
  cis4 fis, fis'2 ~
  fis4 eis8 dis eis4. fis8
  fis4 cis fis2 ~
  fis8 g fis e d cis d b
  e fis e d cis b cis a
  fis'4( e) fis dis
  e2 r4 e,
  a2. g8 fis
  b4 a8( g) fis( e) e'4
  cis2. a4
  e'4( fis) g( e)
  fis( e d) cis
  b2. a8( g)
  d'4( e) fis( d)
  e( d cis) b
  ais2. fis4
  d'2. cis8( b)
  e2. d8( cis)
  fis4 b, g' fis
  e d8 cis fis4 b,
  d2 cis
  b1^\fermata}

violindos=\relative c'{
  \set aDueText = #""
  R1*3
  r2 b
  fis'2 fis4.( gis16 a)
  gis4 cis, gis' b
  a8( b gis) b a( gis) a( fis)
  d'2. cis8( dis16 e)
  b4 a g fis
  g8 fis e d cis8 ais 
  \set aDueText = #""
   fis'4 ~
  fis8 b, d fis b2 ~
  b4 ais8 gis ais4. b8
  b4 fis b2 ~
  b4 a!8 gis a cis a fis
  b4 cis8 d cis b a gis
  cis b a gis fis gis a4 ~
  a8 b c b a g fis e
  b2 b' ~
  b8 c a b g2 ~
  g8 a b a g fis e d
  a2 a' ~
  a8 b g a fis4 a
  g2 r4 e
  a8 g a b a g a fis
  e fis e d cis d e cis
  d4 cis' d fis,
  g b e, d
  d2 cis
  a2 r 
  R1*15
  \set aDueText = #""
  r2 cis
  fis fis4.( gis16 a)
  gis4 cis, gis' b
  a4( gis) a fis
  g!4 e b'2 ~
  b4 ais8 gis ais4. b8
  b4 fis b2 ~
  b4 a8 gis a4 fis
  d'8 cis b a gis4 cis ~
  cis8 d b d cis( b) cis( ais)
  b2 r4 fis
  cis'8 d cis b a g a fis
  b1 ~
  b8 a g a b a b g
  c b a g fis2 ~
  fis4 dis b b'
  a2. e4
  a a a a
  a( g fis) a
  g2. fis8( e)
  fis2 b
  e,4( fis g) e
  cis fis cis'2 ~
  cis4 fis, b2 ~
  b4 a8 g fis4 b8( ais)
  b4 b b ais
  b2. b4
  b2 ais
  fis1^\fermata
}

viola=\relative c{
  r2 fis
  b2 b4.( cis16 d)
  cis4 fis, cis'8 d e cis
  d( e cis) e d( cis) d( b)
  cis fis, a cis fis2 ~
  fis4 eis8 dis eis4. fis8
  fis1
  r8 b, d fis g2 ~
  g4 fis e dis
  e8 d! cis b ais fis ais cis
  \once \override TextScript.X-offset = #1
  b2_\markup{\fontsize #-2 "Viola"} ~ b8 b d fis
  g4 cis,8 b cis4 fis ~
  fis8 g e g fis( e) fis( d)
  cis2 r8 fis, a cis
  b a gis fis gis4 cis ~
  cis dis8 eis fis2 ~
  fis4 fis, b8 cis dis e
  fis e dis e fis e dis! cis
  b4 dis e2 ~
  e4 e, a8 b cis d
  e d cis d e d cis b
  a4 cis d2 ~
  d4 d, b'8 a b g
  fis4 cis' d a ~
  a e a2 ~
  a4 e' d2 ~
  d4 g a a,
  a2 a4( g)
  \override TextScript.X-offset = #-4
  fis2 r_\markup{\smaller "Viola tacet"}
  R1*24
  r2 fis
  b2 b4.( cis16 d)
  cis4 fis, cis' e
  dis( cis) dis b
  b' b, e2 ~
  e4 dis8 cis dis4. fis8
  b,2 r4 g'
  e e, a8 b cis d
  e d cis d e d cis b
  a4 cis d2 ~
  d4 d, g a ~
  a8 fis b cis d cis d b
  g'4 fis e8 fis g4
  fis4 r4 r ais,
  fis'2. fis4
  b,8 ais b cis d cis d e
  fis4 e8 dis e4 cis
  b g' fis g
  d8( cis d e fis4) e
  dis1^\fermata
}

gambauno=\relative c'{
  R1*3
  r2 b
  fis'2 fis4.( gis16 a)
  gis4 cis, gis' b
  a8( b gis) b a( gis) a( fis)
  d'2. cis8( dis16 e)
  b4 a g fis
  g8 fis e d cis8 ais fis'4 ~
  fis8 b, d fis b2 ~
  b4 ais8 gis ais4. b8
  b4 fis b2 ~
  b4 a!8 gis a cis a fis
  b4 cis8 d cis b a gis
  cis b a gis fis gis a4 ~
  a8 b c b a g fis e
  b2 b' ~
  b8 c a b g2 ~
  g8 a b a g fis e d
  a2 a' ~
  a8 b g a fis4 a
  g2 r4 e
  a8 g a b a g a fis
  e fis e d cis d e cis
  d4 cis' d fis,
  g b e, d
  d2 cis
  d8 e fis e d cis b a
  b cis d cis b a g fis
  g e fis g a g fis e
  d4 a' d b
  cis4 a fis'8 e d cis
  d b cis d e d cis b
  a4 \clef "bass" a, r a'
  e' e, r e
  b' b, r \clef "alto" b'
  fis' fis, r fis
  cis'8( d b) d cis( b) cis( a)
  b8( cis a) cis b( a) b( gis)
  a( b gis) b a( gis) a( fis)
  gis4 cis, cis'2 ~
  cis4 fis, fis' e
  d cis b d
  cis b a gis
  fis e d \clef "bass" cis
  b4 cis8 b cis4 cis
  fis,8 cis' d e fis2 ~
  fis8 d e fis g a g fis
  e cis d e fis e d cis
  b cis b a gis b a gis
  a b cis a d e d cis
  b gis a b cis4 cis
  fis,2 \clef "alto" fis'
  b2 b4.( cis16 d)
  cis4 fis, cis' e
  dis( cis) dis b
  b' b, e2 ~
  e4 dis8 cis dis4. fis8
  b,2 r4 g'
  e e, a8 b cis d
  e d cis d e d cis b
  a4 cis d2 ~
  d4 d, g a ~
  a8 fis b cis d cis d b
  g'4 fis e8 fis g4
  fis4 r4 r ais,
  fis'2. fis4
  b,8 ais b cis d cis d e
  fis4 e8 dis e4 cis
  b g' fis g
  d8( cis d e fis4) e
  dis1^\fermata  
}

gambados=\relative c{
  \set aDueText = #""
  r2 fis
  b2 b4.( cis16 d)
  cis4 fis, cis'8 d e cis
  d( e cis) e d( cis) d( b)
  cis fis, a cis fis2 ~
  fis4 eis8 dis eis4. fis8
  fis1
  r8 b, d fis g2 ~
  g4 fis e dis
  e8 d! cis b ais fis ais cis
  d2^\markup{\fontsize #-2 "V. de g."} ~ d8 b d fis
  g4 cis,8 b cis4 fis ~
  fis8 g e g fis( e) fis( d)
  cis2 r8 fis, a cis
  b a gis fis gis4 cis ~
  cis dis8 eis fis2 ~
  fis4 fis, b8 cis dis e
  fis e dis e fis e dis! cis
  b4 dis e2 ~
  e4 e, a8 b cis d
  e d cis d e d cis b
  a4 cis d2 ~
  d4 d, b'8 a b g
  fis4 cis' d a ~
  a e a2 ~
  a4 e' d2 ~
  d4 g a a,
  a2 a4( g)
  \partcombineApart
  fis4 fis'8 e d cis b a
  \partcombineAutomatic
  \set soloText = ""
  b cis d cis b a g fis
  g e fis g a g fis e
  d4 a' d b
  cis4 a fis'8 e d cis
  d b cis d e d cis b
  a4 \clef "bass" a, r a'
  e' e, r e
  b' b, r \clef "alto" b'
  fis' fis, r fis
  cis'8( d b) d cis( b) cis( a)
  b8( cis a) cis b( a) b( gis)
  a( b gis) b a( gis) a( fis)
  gis4 cis, cis'2 ~
  cis4 fis, fis' e
  d cis b d
  cis b a gis
  fis e d \clef "bass" cis
  b4 cis8 b cis4 cis
  fis,8 cis' d e fis2 ~
  fis8 d e fis g a g fis
  e cis d e fis e d cis
  b cis b a gis b a gis
  a b cis a d e d cis
  b gis a b cis4 cis
  \override Staff.TextScript.X-offset = #-4
  fis,2 \clef "alto" fis'^\markup{\fontsize #-2 "Viola y V. d gamba"}
  b2 b4.( cis16 d)
  cis4 fis, cis' e
  dis( cis) dis b
  b' b, e2 ~
  e4 dis8 cis dis4. fis8
  b,2 r4 g'
  e e, a8 b cis d
  e d cis d e d cis b
  a4 cis d2 ~
  d4 d, g a ~
  a8 fis b cis d cis d b
  g'4 fis e8 fis g4
  fis4 r4 r ais,
  fis'2. fis4
  b,8 ais b cis d cis d e
  fis4 e8 dis e4 cis
  b g' fis g
  d8( cis d e fis4) e
  dis1^\fermata  
}

liutouno=\relative c{
  \set Staff.aDueText=#""
  R1
  s4*0_\markup{\fontsize #-1 "Liuto II tacet"}
  r4 b b'2 ~
  b2 ais
  b8 cis ais cis b a b gis
  a gis fis e d cis b a
  b d cis b cis b a gis
  fis8 cis' \ss dis \ss eis fis \ss e \ss d cis
  b a g fis e d e fis
  g fis g a b b' a b
  e,2 ~ e4 fis8 e
  d4 g2 fis4
  e4 fis8 e fis4 fis,
  b2 b_\markup{"Liuto I,II"}
  fis'2 fis4.( gis16 a)
  gis4 cis, gis' b
  a4( gis) a fis
  b a8 g! fis4 a
  dis,2 b
  e4( fis g) e
  a4 g8 fis e4 g
  cis,2 a
  d4( e fis) d
  g8( a fis) a g( fis) g( e)
  fis( g e) g fis( e) fis( d)
  a'2 a,
  d8 fis e g fis e fis d
  g2. fis8( g)
  a2 a,
  d2 r
  R1*27
  r2 b
  e2 e4.( fis16 g)
  fis4 b, fis' a
  g4( fis) g e
  a g8 fis e4 g
  cis,2 a
  d4( e fis) d
  g4 fis8 e d4 cis
  b2 gis
  cis4( d e) cis
  fis8 e fis g fis e d cis
  b ais b cis d e fis d
  g fis g a b ais b cis
  d b g b e, dis e fis
  g, g' fis e d fis e g
  fis2 fis,
  b1^\fermata
}

cello=\relative c{
  R1
  s4*0_\markup{\fontsize #-1 "Liuto II tacet"}
  r4 b b'2 ~
  b2 ais
  b8 cis ais cis b a b gis
  a gis fis e d cis b a
  b d cis b cis b a gis
  fis8 cis' \ss dis \ss eis fis \ss e \ss d cis
  b a g fis e d e fis
  g fis g a b b' a b
  e,2 ~ e4 fis8 e
  d4 g2 fis4
  e4 fis8 e fis4 fis,
  b2 b^\markup{\fontsize #-1 "Continuo"}_\markup{\fontsize #-1 "Liuto I,II"}
  fis' a
  gis4 cis, gis' b
  a4( gis) a fis
  b a8 g! fis4 a
  dis,2 b
  e4( fis g) e
  a4 g8 fis e4 g
  cis,2 a
  d4( e fis) d
  g8( a fis) a g( fis) g( e)
  fis( g e) g  fis( e) fis( d)
  a'2 a,
  d8 fis e g fis e fis d
  g2. fis8( g) 
  a2 a,
  d2 r
  R1*27
  r2 b
  e g
  fis4 b, fis' a
  g4( fis) g e
  a4 g8 fis e4 g
  cis,2 a
  d4( e fis) d
  g4 fis8 e d4 cis
  b2 gis
  cis4( d e) cis
  fis8 e fis g fis e d cis
  b ais b cis d e fis d
  g fis g a b ais b cis
  d b g b e, dis e fis
  g, g' fis e d fis e g
  fis2 fis,
  b1^\fermata
}

cifrado=\figuremode{

}
guia=\relative c''{
  \set autoBeaming = ##t
  s1*41
  \break
  <<
    {b'8( cis a) cis b( a) b( gis) a1 ~ a8 gis a b a gis fis gis eis dis eis fis gis a b gis } \\
    {s2 cis,,2 ~ cis4 fis, fis'4 e d cis b d cis b a gis }
  >>
}




\score {\transpose c' c'{
<<
%{
\new StaffGroup << 
  \set StaffGroup.systemStartDelimiterHierarchy
    = #'(SystemStartBracket (SystemStartBrace c d ) (SystemStartBrace e f ) g (SystemStartBrace h i ) )

       \new Staff <<\global
	\new Voice="f1" {
		\set Staff.instrumentName=\markup{\smaller \center-column{"Flauto " \raise #.5 "traverso I"} } 
		\clef "treble"
		\flautauno }
	>> 
  
       \new Staff <<\global
	\new Voice="f2" {
		\set Staff.instrumentName=\markup{\smaller \center-column{"Flauto " \raise #.5 "traverso II"} } 
		\clef "treble"
		\flautados }
	>> 
  %{
       \new Staff <<\global
	\new Voice="o1" {
		\set Staff.instrumentName=\markup{\smaller \center-column{"Oboe" \raise #.5 "(d'amore) I"}}
		\clef "treble"
		\oboeuno }
	>> 

       \new Staff <<\global
	\new Voice="o2" {
		\set Staff.instrumentName=\markup{\smaller \center-column{"Oboe" \raise #.5 "(d'amore) II"}}
		\clef "treble"
		\oboedos }
	>> 
  
        \new Staff <<\global
	\new Voice="vi1" {
		\set Staff.instrumentName=\markup{\center-column {"Violino I" "Oboe I"}}
		\clef "treble"
		\partcombine \oboeuno \violinuno }
	>> 
	\new Staff <<\global
	\new Voice="vi2" {
		\set Staff.instrumentName=\markup{\center-column{"Violino II " "Oboe II"}}
		\clef "treble"
		\partcombine \oboedos  \violindos }
	>>     
%{
        \new Staff <<\global
	\new Voice="vi3" {
		\set Staff.instrumentName=\markup{"Viola "}
		\clef "alto"
		\viola }
	>> 

       \new Staff <<\global
	\new Voice="g1" {
		\set Staff.instrumentName=\markup{\smaller \center-column{"Viola" \raise #.5 "da gamba I"}}
		\clef "alto"
		\gambauno }
	>> 

       \new Staff <<\global
	\new Voice="g2" {
		\set Staff.instrumentName=\markup{\smaller \center-column{"Viola" \raise #.5 "da gamba II" \larger "Viola"}}
		\clef "alto"
		\partcombine \gambados \viola }
	>> 
>>
%}
\new ChoirStaff<<

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

        \new Staff <<\global
        \new Voice="v2" {
                \set Staff.instrumentName="Alto"
                \set Staff.shortInstrumentName="A"
                \clef "treble"
                \altus }
        \new Lyrics \lyricsto "v2" {\textoaltus }
        >>
        
        \new Staff <<\global
        \new Voice="v3" {
                \set Staff.instrumentName="Tenore"
                \set Staff.shortInstrumentName="T"
                \clef "G_8"
                \tenor }
        \new Lyrics \lyricsto "v3" {\textotenor }
        >>

        \new Staff <<\global
        \new Voice="v4" {
                \set Staff.instrumentName="Basso"
                \set Staff.shortInstrumentName="B"
                \clef "bass"
                \bassus }
        \new Lyrics \lyricsto "v4" {\textobassus }
        >>        
>>
%{
        \new Staff <<\global
	\new Voice="cont" {
		\set Staff.instrumentName=\markup{\center-column{"Continuo" "Liuto I,II"}}
		\clef "bass"
		\partcombine \cello \liutouno }
%		\cello }
%	\new FiguredBass {\cifrado }
	>> 
%}

	\new Staff \with{  %notablet
      \remove Ambitus_engraver %notablet
      fontSize = #-3 %notablet
      \override StaffSymbol #'staff-space = #(magstep -3) %notablet
      }<<\global %notablet
	\new Voice="v6" { %notablet
		\clef "treble" %notablet
		\guia %notablet
	} %notablet
	>> %notablet


>>

	} % 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 {\ChoirStaff 
                  \override StaffGrouper.staffgroup-staff-spacing =
                        #'((basic-distance . 15) (minimum-distance . 0) (padding . 1))
                  \override StaffGrouper.staff-staff-spacing =
                        #'((basic-distance . 11) (minimum-distance . 0) (padding . 1))
        }

        \context {\StaffGroup
                  \override StaffGrouper.staffgroup-staff-spacing =
                        #'((basic-distance . 15) (minimum-distance . 0) (padding . 1))
                  \override StaffGrouper.staff-staff-spacing =
                        #'((basic-distance . 11) (minimum-distance . 0) (padding . 1))
        }

	\context {\Staff 
                \RemoveEmptyStaves %notablet
                \override VerticalAxisGroup.remove-first = ##t
		\override VerticalAxisGroup.staff-staff-spacing =
			#'((basic-distance . 10) (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 { \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 = 16
	ragged-last-bottom = ##f
	indent=1.8\cm
	system-system-spacing =
	#'((basic-distance . 22) (minimum-distance . 0) (padding . 5))
	top-system-spacing = % header
	#'((basic-distance . 12) (minimum-distance . 0) (padding . 0))
	last-bottom-spacing = % footer
	#'((basic-distance . 15) (minimum-distance . 0) (padding . 0))
	markup-system-spacing.padding = #1.5
}