\version "2.22.0"

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

italicas=\override LyricText.font-shape = #'italic
rectas=\override LyricText.font-shape = #'upright
ss=\once \set suggestAccidentals = ##t
mtempo={\tempo 4 = 76 }
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 = #""
peq={\newSpacingSection \override Score.SpacingSpanner.spacing-increment = #.7 }
normal={ \newSpacingSection \revert Score.SpacingSpanner.spacing-increment }
mt=#(define-music-function (offset) (number?) ; move lyric text
      #{ \once \override LyricText.X-offset = -$offset #})


htitle="BWV 98 - Was Gott tut, das ist wohlgetan"
hcomposer="Bach"

\header {
	title=\markup{\fontsize #3 "1. Was Gott tut, das ist wohlgetan"}
	subtitle="Cantata BWV 98"
        %subsubtitle=\markup{\raise #.8 "BWV 98" \vspace #1 }
        composer="Johann Sebastian Bach (1685-1750)"
        pdfauthor=\composer
       %opus="(-)"
	%poet=\markup{"BWV 98"}
	copyright=\markup{
		\fill-line {"Edited by Nancho Alvarez" \typewriter "http://tomasluisdevictoria.org"}
	}
%	tagline=""
}

global={
  \compressEmptyMeasures
  \key bes \major \time 3/4 \skip 1*3/4
  \repeat volta 2
  { \skip 1*3/4*25 } 
  \alternative { {\skip 2. \pageBreak } {\skip 2.}}
  \skip 1*3/4*55 \bar "|."
}

cantus=\relative c'{
        \set autoBeaming = ##f
        \peq
        R1*3/4*15
        r4 r \normal f
        bes2 c4
        d2 ees4
        f2 ees4
        d2 r4
        \peq
        R1*3/4*2
        r4 r \normal g
        f2 ees4
        d2 ees4
        d8[( c] c2)^\trill
        bes2 r4
        bes2 r4
        \peq
        R1*3/4*10
        r4 r \normal f'
        g2 g4
        c,2 r4
        \peq
        R1*3/4
        r4 r \normal c
        f2 f4
        bes,2 r4
        \peq
        R1*3/4*2
        r4 r \normal d
        c2 bes4
        a2 bes4
        g2.
        f2 r4
        \pageBreak
        \peq
        R1*3/4*6
        r4 r \normal f'
        ees2 d4
        c2 d4
        c2.
        bes2. ~
        bes ~
        bes ~
        bes ~
        bes ~
        bes2 r4
        R1*3/4*15
}

altus=\relative c''{
        \set autoBeaming = ##f
        R1*3/4*16
        r4 r a
        bes8[ a] bes[ a] bes4
        bes8[ aes] g4 a4
        bes2 r4
        R1*3/4*2
        r4 r c
        c8[( bes] c4) a4
        f4( bes8[ a]) bes4
        bes2 a4
        bes2 r4
        bes2 r4
        R1*3/4*10
        r4 r bes
        bes4. d8[ c bes]
        a2 r4
        R1*3/4
        r4 r c
        bes4. c8[ bes aes]
        g2 r4
        R1*3/4*2
        r4 r g
        g( c,) g'
        g8 a16[( g]) f8[ e] f4 ~
        f8[ e16 d] e2
        c2 r4
        R1*3/4*6
        r4 r a'
        bes8[ a] bes[ c] d bes
        g8[ c] ~ c16[ bes a g] f[ bes a bes]
        g[ f ees d] c8.[ bes'16] a4
        bes4 f r8 aes
        bes8 aes g4 r8 bes
        f8[ g16 ees] bes'4. aes16[ g]
        aes8[ g16 aes] f4. ees16[ f]
        g4. a8 bes4 ~
        bes8 a16[( g] f4) r
        R1*3/4*15
}

tenor=\relative c'{
        \set autoBeaming = ##f
        R1*3/4*16
        r4 r f
        f d bes8[ c]
        d4 d8[( c)] c[( bes])
        bes2 r4
        R1*3/4*2
        r4 r ees
        f2 c4
        d8[( ees] f4) bes,
        f'( g f8[ ees])
        d2 r4
        d2 r4
        R1*3/4*10
        r4 r d
        ees8.([ f16] g4) g,
        f2 r4
        R1*3/4
        r4 r f'
        f8[ ees d ees] f4
        ees2 r4
        R1*3/4*2
        r4 r bes
        c4( g) c
        c2 d4
        d4 c g
        a2 r4
        R1*3/4*6
        r4 r d
        d c bes ~
        bes a bes ~
        bes8[ g'] ~ g16[ f ees d] c[ f ees f]
        d8 bes d4 r8 f
        g f ees4 r8 g
        d8[ ees16 c] d4. ees8
        bes16[ a bes c] d4. bes8 % la bemol?
        ees4. d16[ c bes8 c]
        d4 bes r
        R1*3/4*15
}

bassus=\relative c{
        \set autoBeaming = ##f
        R1*3/4*16
        r4 r f
        bes f g
        d4 ees f
        bes,2 r4
        R1*3/4*2
        r4 r c'8[ bes]
        <<{\voiceTwo \override NoteHead.font-size=#-2 a8[( g]^\markup{\fontsize #-3 "2ª vez"} a4)} \new Voice{\voiceOne a2} >>
        \oneVoice
        \revert NoteHead.font-size
         f4
        bes4( a) g
        f( ees f)
        bes,2 r4
        bes2 r4
        R1*3/4*10
        r4 r bes'
        ees,8[ d ees g] c,[ ees]
        f2 r4
        R1*3/4
        r4 r a4
        d,8[ c d f] bes,[ d]
        ees2 r4
        R1*3/4*2
        r4 r g8[ f]
        e8.[( f16] g8[ bes]) c,8[ e!]
        f8 f16[ e] f8[ a] d,[ f]
        bes,8[ c16 d] c2
        f2 r4
        R1*3/4*6
        r4 r d
        g8[ f] g[ a] bes8 d,
        ees8[ f16 g] f8[ ees d bes]
        ees8[ c16 d] ees8[ c] f4
        bes,8 bes f' ees f4
        r8 bes, g'[ f] g4
        r8 bes,[ aes' g f ees]
        f8 bes,[ bes' aes g f]
        ees[ d ees f g a]
        bes4 bes, r
        R1*3/4*15
}

textocantus=\lyricmode{
Was Gott tut, das ist wohl -- ge -- tan
es \mt #0 bleibt ge -- recht sein Wil -- le;
le.
Er ist mein Gott
der in der Not
mich wohl weiß zu er -- hal -- ten;
drum lass' ich ihn nur wal -- ten.
}
textocantusb=\lyricmode{
wie er fängt mei -- ne Sa -- chen an
will ich ihm hal -- ten stil -- "  "
}

textoaltus=\lyricmode{
Was Gott tut, das ist wohl -- ge -- tan
es bleibt ge -- recht __ sein Wil -- _ le;
le.
Er ist mein __ Gott
der in der __ Not
mich wohl __ weiß zu er -- hal -- _ _ ten;
drum lass' ich ihn nur wal -- _ _ _ _ ten,
drum drum lass' ich ihn nur wal -- _ _ _ _ _ _ _ _ ten. __
}
textoaltusb=\lyricmode{
wie er fängt mei -- ne Sa -- chen an
will ich __ ihm hal -- ten stil -- _ "  "
}

textotenor=\lyricmode{
Was Gott tut, das ist wohl -- ge -- tan
es bleibt ge -- recht sein Wil -- le;
le.
Er ist __ mein Gott
der in __ der Not
mich wohl __ weiß zu er -- hal -- _ _ ten;
drum lass' ich ihn nur wal -- _ _ ten,
drum drum lass' ich ihn nur wal -- _ _ _ _ _ _ _ _ ten.
}
textotenorb=\lyricmode{
wie er fängt mei -- ne Sa -- chen an
will ich ihm hal -- ten stil -- "  "
}

textobassus=\lyricmode{
Was Gott tut, das ist wohl -- ge -- tan
es __ bleibt ge -- recht sein Wil -- le;
le.
Er ist __ mein Gott
der in __ der __ Not
mich wohl __ weiß zu er -- hal -- _ _ _ ten;
drum lass' ich ihn nur wal -- _ _ _ _ ten,
drum lass' ich ihn nur wal -- _ _ _ _ _ _ ten.
}
textobassusb=\lyricmode{
wie er fängt mei -- ne Sa -- chen an
will __ ich __ ihm hal -- ten stil -- "  "
}


violinuno = \relative c''{
  d4 ~ d16 c bes a bes d f8
  f4 ~ f16 ees d c d f aes8
  aes4 ~ aes16 g f ees d c b a!
  g( b d f) ees( d ees8) r4
  f,4 ~ f16 g a bes c d ees c
  a4 ~ a16 bes c d ees f g ees
  c g' a bes a g f ees d c bes a
  g( f a c) ees( c d8) r4
  e16( f32 g bes,16) a-. bes e d e c e bes e
  f16( g32 a c,16) bes-. c16 f e f d f c f
  g( a32 bes a16) bes g bes f bes e, bes' d, bes'
  e,( f32 g f16) g e g d g c, g' bes, g'
  a,( c d bes c-.) a( g f) f'-. a,( g f)
  bes16( d ees c d-.) bes( a g) f'-. bes,( a g)
  c( e f d c-.) a'( bes g) c,-. f( g e!)
  f( c) d( bes) c-. a( g f) f'8 r
  R1*3/4*3
  d4 ~ d16 c bes a bes d f8
  f4 ~ f16 ees d c d f aes8
  aes4 ~ aes16 g f ees d c b a!
  g( b d f) ees( d ees8) r4
  R1*3/4*3
  d4 ~ d16 c bes a bes d f8
  bes,,4 ~ bes16 c d ees f g aes f
  d4 ~ d16 ees f g aes bes c aes
  f c' d ees d c bes aes g f ees d
  c16( bes d f) aes( f g8) r4
  a!16( bes32 c ees,16) d-. ees a g a f a ees a
  bes16( c32 d f,16) ees-. f bes a bes g bes f bes
  c( d32 ees d16) ees c ees bes ees a, ees' g, ees'
  a,16( bes32 c bes16) c a c g c f, c' ees, c'
  d,( f g ees f-.) d( c bes) bes'-. d,( c bes)
  ees( g aes f g-.) ees( d c) bes'-. ees,( d c)
  f( a bes g f-.) d'( ees c) f, bes( c a)
  bes( f) g( ees) f-. d( c bes) bes' d,( c bes)
  g'( bes c aes bes-.) g( f ees) ees'-. g,( f ees)
  a!( c d bes c-.) a( g f) f'-. a,( g f)
  bes( d ees c d-.) bes( a g) f'-. bes,( a g)
  c( ees f d ees-.) c( bes a) f'-. c( bes a)
  d( f g ees f-.) d( c bes) aes'-. d,( c bes)
  g'( bes, c aes bes-.) g( f ees) ees'-. bes( a g)
  \override AccidentalSuggestion.avoid-slur = #'outside
  fis16( a bes g a-.) fis!( \ss e d) d'-. aes( g f)
  ees( g aes f g-.) ees( d c) c'-. g( f ees)
  d8 d' ~ d16 c bes a bes d g8
  g4 ~ g16 f e d e! g c8
  c4 ~ c16 bes a g f \ss e d c
  bes16 a g f e( g bes d) c( a bes8)
  a4 ~ a16 g f e f a c8
  c4 ~ c16 bes a g a c ees8
  ees4 ~ ees16 d c bes a g fis e
  d( fis a c) bes( a bes8) r4
  c,4 ~ c16 d e f g a bes g
  e4 ~ e16 f g a bes c d bes
  g d' e f e d c bes a g f e
  d( c e g) bes( g a8) r4
  R1*3/4*3
  d16( ees32 f aes,16) g-. aes d c d bes d aes d
  ees( f32 g bes,16) aes-. bes ees d ees c ees bes ees
  f16( g32 aes g16) aes f aes ees aes d, aes' c, aes'
  d,16( ees32 f ees16) f d f c f bes, f' aes, f'
  g, g'[ a! bes] a g f ees d c bes a
  g f a c ees c d a bes d f8
  f4 ~ f16 ees d c d f aes8 
  aes4 ~ aes16 g f ees d c b a!
  g( b d f) ees( d ees8) r4
  f,4 ~ f16 ees d c d f aes8
  aes4 ~ aes16 g f ees f aes! c8
  c4 ~ c16 bes aes g f ees d c
  bes( d f aes) g( f g8) r4
  a!16( bes32 c ees,16) d-. ees a g a f a ees a
  bes( c32 d f,16) ees f bes a bes g bes f bes
  c( d32 ees d16) ees c ees bes ees a, ees' g, ees'
  a,( bes32 c bes16) c a c g c f, c' ees, c'
  d,( f g ees f-.) d( c bes) bes'-. d,( c bes)
  ees( g aes f g-.) ees( d c) bes'-. ees,( d c)
  f( a bes g f-.) d'( ees c) f,-. bes( c a)
  bes2.^\fermata
}

violindos=\relative c''{
  bes4 f r8 a
  bes4 f r8  c'
  d4 b r8 d
  d( b) c4 r
  c4 a r8 c
  ees4 a, r8 bes
  f'4 c r8 ees
  ees( a,) bes4 r
  bes g r8 bes
  c4 a r8 c
  c2. ~
  c ~
  c8 bes f'4 r8 c
  f8 a, d4 r8 f
  e!8 c16( d e8-.)[ f] ~ f[ bes,]
  a4 r r
  R1*3/4*3
  bes4 f r8 a
  bes4 f r8 c'
  d4 b r8 d
  d( b) c4 r
  R1*3/4*3
  bes4 f r8 a
  f4 d r8 f
  aes4 d, r8 ees
  bes'4 f r8 aes
  aes8( d,) ees4 r
  ees4 c r8 ees
  f4 d r8 f
  f2. ~
  f ~
  f8 ees bes'4 r8 f
  bes8 d, g4 r8 bes
  a8 f16( g a8-.) bes4 ees,8
  d4 r r8 aes'
  g4 ees r8 c'
  c8 bes f'4 r8 c
  f8 a, d4 r8 d
  f8 bes, a4 r8 c
  bes8 a bes4 r8 bes
  bes ees, ees'4 r8 c
  a8 d, d'4 r8 d,
  ees c c'4 r8 a
  bes f bes4 r8 bes
  bes c, g'4 r8 g
  a c f4 r8 f,
  g8 bes g'4 r8 e,8
  f4 c r8 e
  f4 c r8 g'
  a4 fis r8 a
  a( fis) g4 r
  g4 e r8 g
  bes4 e, r8 f
  c'4 g r8 bes
  bes( e,) f4 r4
  R1*3/4*3
  aes4 f r8 aes!
  bes4 g r8 bes
  bes2. ~
  bes ~
  bes8 c16 d g,8 a bes4 ~
  bes8 a16 g f4 r8 a
  bes4 f r8 c'
  d4 b r8 d
  d( b) c4 r
  bes f r8 ees
  f4 d r8 ees
  f4 d r8 f
  f( d) ees4 r
  ees4 c r8 ees 
  f4 d r8 f'
  f2. ~
  f ~
  f8 ees bes4 r8 f
  bes d, g4 r8 bes
  a-. f16( g a8) bes4 ees,8
  d2.^\fermata
}

viola=\relative c'{
  f4 d r8 c
  f4 bes, r8 ees
  aes,4 f' r8 f
  f8( aes) g4 r
  a! c, r8 g'
  c4 ees, r8 g
  f4 f r8 f
  g8( ees) f4 r
  g e r8 g
  a4 f r8 a
  e8 f e4 r8 a
  bes8 a g4 r8 e
  f8 f c4 r8 a'
  a8 c f,4 r8 c'
  g[ a] g[ d] a'[ e]
  c4 r r
  R1*3/4*3
  f4 d r8 c
  f4 bes, r8 ees
  aes,4 f' r8 f
  f8( aes) g4 r
  R1*3/4*3
  f4 d r8 c
  d4 f, r8 c'
  f4 bes, r8 c
  bes4 bes r8 bes
  c8( aes) bes4 r
  c a! r8 c
  d4 bes r8 d
  a8 bes a4 r8 d
  ees d c4 r8 a
  bes8 bes f4 r8 d'
  d f bes,4 r8 f'
  c8[ d] c[ g] d'[ a]
  f4 f' r8 f
  ees4 g, r8 g'
  f8 f, c'4 r8 a'
  bes c f,4 r8 f
  f d f4 r8 ees
  d8 ees bes4 r8 f'
  ees8 g16 f ees4 r8 c
  d8 fis16 \ss e d4 r8 b
  c8 ees16 d c4 r8 ees
  f8 d f4 r8 d
  e8 g, c4 r8 c
  c a a'4 r8 a
  d,8 g bes4 r8 c,
  c4 a r8 g
  c4 f, r8 bes
  ees,!4 c' r8 c
  c8( ees) d4 r
  e4 g, r8 d'
  g4 bes, r8 d
  c4 c' r8 c,
  d8( bes) c4 r
  R1*3/4*3
  f4 d r8 f
  g4 ees r8 g
  d8 ees d4 r8 g
  aes8 g f4 r8 d
  ees4. d16 c bes8 c
  d f, bes4 r8 ees
  d4 bes r8 ees
  aes,4 f' r8 f
  f8( aes) g4 r
  f4 bes, r8 c
  d4 bes r8 g
  f4 aes r8 aes
  g8( aes) bes4 r
  c4 a! r8 c
  d4 bes r8 d
  a8 bes a4 r8 d
  ees8 d c4 r8 a'
  bes8 bes, f'4 r8 d
  d8 f bes,4 r8 f'
  c8[ d] c[ g] d'[ a]
  f2.^\fermata
}

cello=\relative c{
  bes8 a bes c d ees
  d c d ees f g
  f ees d c b g
  c4 c, r
  ees'8 f ees d c bes
  c d c bes a g
  a g f g a f
  bes4 bes' r
  r8 c, g' f g4
  r8 c, a' g a4
  r8 c, bes' a g f
  g c,[ c' bes a g]
  f bes16([ g a8-.) c-.] f,([ e])
  d8 c'16[( a bes8-.) d-.] d,8( c)
  bes8 a16( bes c8) bes c c,
  f8 f'16([ g a8-.) c-.] f,( ees)
  d bes'16([ c d8-.) f-.] a,( f)
  bes8 bes,16([ c d8-.) bes-.] g( g')
  d8 c16([ d ees8-.) g-.] c,( f)
  bes,8 a bes c d ees
  d c d ees f g
  f ees d c b g
  c-. c,-. c'([ d ees c)]
  a8 a'16[( g a8-.) c-.] f,( a)
  bes, bes'16([ a bes8-.) d-.] g,( f16 ees)
  f8-. bes-. ees,( d16 c) f8 f,
  bes a bes c d ees
  bes bes'[ aes g f ees]
  f g f ees d c
  d c bes c d bes
  ees4 ees, r
  r8 f c' bes c4
  r8 f, d' c d4
  r8 f, ees' d c bes
  c f,8[ f' ees d c]
  bes8 ees16[( c d8-.) f-.] bes,( a)
  g8 f'16([ d ees8-.) g-.] g,( f)
  ees8 d16( ees f8) ees f f
  bes8 bes'16[( c d8-.) f-.] bes,( d)
  ees8 ees,16([ d ees8-.) g-.] c,( ees)
  f8 bes16[( g a8-.) c-.] f,( ees)
  d8 c'16([ a bes8-.) d-.] c,( bes)
  a d'16[( bes c8-.) ees-.] a,( c)
  d8 d,16([ c d8-.) f-.] bes,( d)
  ees8 ees,16([ f g8-.) bes-.] c-. ees-. % no se ve el picado del sol
  d8 d,16([ e fis8-.) a-.] b-. d-.
  c8 c,16([ d ees8) g-.] a!-. c-.
  bes8 bes'16[( a bes8-.) d-.] g,( bes)
  e,-. e16([ d e8-.) g-.] c,( e!)
  f,8 f'16([ e f8-.) a-.] d,8( f)
  bes,8 c16 d c8 a bes c
  f, e f g a bes
  a g a bes c d
  c bes a g fis d
  g4 g' r
  bes8 c bes a g f
  g a g f e d
  e d c d e c 
  f4 f,8 f' ees! d
  g,8 g'16[( f g8-.) a-.] bes8( d,)
  ees8 f16([ g f8-.) ees-.] d( bes)
  ees8 c16 d ees8 c f[ f,]
  bes bes[ f' ees] f4
  r8 bes, g' f g4
  r8 bes, aes' g f ees
  f bes,[ bes' aes g f]
  ees d ees f g a
  bes8 c16 a bes8 f d c
  bes8 c d ees f g
  f ees d c b g
  c4 c, r
  d'8 c d ees f g
  f ees f g aes bes
  aes g f ees d bes
  ees4 ees, r
  r8 f c' bes c4
  r8 f, d' c d4
  r8 f, ees' d c bes
  c8 f,[ f' ees d c]
  bes8 ees16[( c d8-.) f-.] bes,( a)
  g8 f'16([ d ees8-.) g-.] g,( f)
  ees8 d'16( ees f8) ees f[ f,]
  bes2.^\fermata
}

cifrado=\figuremode{
  s2 <6>8 <4 2>
  \bassFigureExtendersOn
  <6>4 <6>8 s s <6 4 2->
  \bassFigureExtendersOff
  <6 5 _->4 <6\\ 5-> <6 5>
  <7\\ 4 2> <8 3> s
  \bassFigureExtendersOn
  <6 4\+ 2> 2 <6 4\+ 2>8 <4 2\!>
  <6 4\! 3>2 <6 4 3>8 <6\!>
  \bassFigureExtendersOff
  <6 5>4 <7> <6 5>
  <7 4 2> <8 3> s
  \bassFigureExtendersOn
  s8 <7 _!> <6\\ 4 3>4 <6\\ 4 3>4
  s8 <6 4> <6\!>4 <6>
  s8 <6 4> <4\+ 2> <6> <6\\> <6 4 2>
  <6\\ 4\! 3>2 <6\\ 4 3>8 <6\\ 4 3>
  \bassFigureExtendersOff
  s4 <6>8 <6 4> s <6 4 2>
  \bassFigureExtendersOn
  <6\!>4. <6>8
  \bassFigureExtendersOff
   <6>8 <6 4>
  <4\+ 2>8 <6> <_!> <7 5> <6 4> <5 _!>
  s4 <6> s
  <6> <6> <6>
  s <6> <6>
  <6> <9 7> <6\\ 4 3>
  s2 <6>8 <4 2>
  <6>4 s s8 <6 4 2->
  <6 5 _->4 <6\\ 5-> <6 5>
  <7\\ 4 2>4 <8 3> <6>
  <6>2 <7>4
  <9>8
  \bassFigureExtendersOn
   <8>4 <8>8 <6>4
  \bassFigureExtendersOff
  <6 4>4 <6 5>4 s
  s2 <6>8 <4 2>
  \bassFigureExtendersOn
  s4 <6 4 2>4. <6 4 2>8
  <6\! 4\! _->2 <6 4 _->8 <6 4 _->
  \bassFigureExtendersOff
  <6 5->4 <7-> <6 5->
  <7 4-> <8 3> s
  s8 <7> 
  \bassFigureExtendersOn
   <6 4>4 <6 4>
  \bassFigureExtendersOff
  s8 <6 4> <6>4 s
  s8 <6 4> <4 2> <6> <6> <4 2>
  \bassFigureExtendersOn
  <6 4\!>2 <6 4>8 <6 4>
  \bassFigureExtendersOff
  s4 <6>8 <6 4> s <4 2>
  \bassFigureExtendersOn
  <6>8. <6>16
  \bassFigureExtendersOff
   s4 <6>8 <6 4>
  <4 2>8 <6> s <7 5> <6 4> <5 3>
  s4 <6> s
  s s <7 5>
  s <6> s8 <4 2>
  <6> <6> s s <6 4> <4 2>
  <6> <6> <6 4 3>4 <6>
  <6>2 <7->4
  s4 <6> <6 5>
  <_+>4 <6> <6 5!>
  <_-> <6> <6 5>8 <6 4 3>
  s2.
  \bassFigureExtendersOn
  <6>4. <6>8
  \bassFigureExtendersOff
   <7 _!>4
  <9>4 <8> <6>
  <6 5>
  \bassFigureExtendersOn
   <_!>4. <_!>8
  \bassFigureExtendersOff
  s2 <6>8 <4\+ 2>
  <6>4 s s8 <4 2->
  <6 5->4 <6\\ 5-> <6 5>
  <7\\ 4> <8 3> s
  \bassFigureExtendersOn
  <4\+ 2>2 <4\+ 2>8 <4\+ 2>
  \bassFigureExtendersOff
  <6\\ 4 3>2.
  <6 5>4 <7 _!> <6 5>
  <9 4>4 <8 3>2
  \bassFigureExtendersOn
  <6>4 <6>8
  \bassFigureExtendersOff
   <6 5> s4
  <6 5>4 <3> <6>
  \bassFigureExtendersOn
  <6\! 5>4. <6 5>8 s4
  \bassFigureExtendersOff
  s4 <6 4 3-> s
  s8 <7-> \bassFigureExtendersOn
   <6>4 <6>4
  <5 3>4 <4 2>4. <4 2>8
  <6 4\! 3->2 <6 4 3->8 <6 4 3->
  s2.
  \bassFigureExtendersOn
  s8 <_>4 <_>8 <6>4
  \bassFigureExtendersOff
  s2 <6 4>8 <4 2->
  <6 5 _->4 <6\\ 5-> <6 5>
  <7\\ 4> <8 3> s
  <6>2 <6 4>4
  \bassFigureExtendersOn
  <6\! 4\! 3->2 <6 4 3->8 <6 4 3->
  \bassFigureExtendersOff
  <6 4 2>4 <6 4 3-> <6 5->
  <7 4-> <8 3> s
  s8 <7 _!>
  \bassFigureExtendersOn
   <6 4 3>4 <6 4 3>
  \bassFigureExtendersOff
  s8 <6 4> <6>2
  s8 <6 4> <4 2> <6> <6> <6>
  <6 4>4 <7-> s
  s <6> s
  \bassFigureExtendersOn
  <6>4 <6>8
  \bassFigureExtendersOff
   s8 <6>8 <6 4>
  <4 2>8 <6> s <6 5> <6 4> <5 3>
  s2.
  
}
guia=\relative c''{
  \set autoBeaming = ##t
  s1*3/4*13
  bes16( d ees c d-.) bes( a g) f'-. bes,( a g)
  c16( e f d c-.) a'( bes g) c,-. f( g e!)
  f( c) d( bes) c-. a( g f)
  f'8 r
  s1*3/4*4
  s1*3/4
  \break
  aes4 ~ aes16 g f ees d c b a
  g( b d f) ees( d ees8)
   r4
  s1*3/4*4
  s1*3/4*10
  %ees,16( g  aes f g-.) ees( d c) bes'-. ees,( d c)
  f,16( a bes g f-.) d'( ees c) f, bes( c a)
  bes( f) g( ees) f-. d( c bes) bes'-. d,( c bes)
  s1*3/4*2
  bes'16( d ees c d-.) bes( a g) f'-. bes,( a g)
  c( ees f d ees-.) c( bes a) f'-. c( bes a)
  s1*3/4*3
  ees16( g aes f g-.) ees( d c) c'-. g( f ees)
  d8 d' ~ d16 c bes a bes d g8
  s1*3/4*9
  g,16 d' e f e d c bes a g f e!
  d( c e g) bes( g a8) r4
}




\score {\transpose c' c'{
<<
%{
\new StaffGroup << 
  \set StaffGroup.systemStartDelimiterHierarchy
    = #'(SystemStartBracket (SystemStartBrace a b) )


        \new Staff <<\global
	\new Voice="vi1" {
		\set Staff.instrumentName=\markup{\smaller "Violino I"}
		\clef "treble"
		\violinuno }
	>> 
	\new Staff <<\global
	\new Voice="vi2" {
		\set Staff.instrumentName=\markup{"Violino II "}
		\clef "treble"
		\violindos }
	>>     
    
        \new Staff <<\global
	\new Voice="vi3" {
		\set Staff.instrumentName=\markup{"Viola "}
		\clef "alto"
		\viola }
	>> 
>>
%}
\new ChoirStaff<<

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

        \new Staff <<\global
        \new Voice="v2" {
                \set Staff.instrumentName=\markup{"Alto"}
                \set Staff.shortInstrumentName="A"
                \clef "treble"
                \altus }
        \new Lyrics \lyricsto "v2" {\textoaltus }
        \new Lyrics \lyricsto "v2" {\textoaltusb }
        >>
        
        \new Staff <<\global
        \new Voice="v3" {
                \set Staff.instrumentName=\markup{"Tenore"}
                \set Staff.shortInstrumentName="T"
                \clef "G_8"
                \tenor }
        \new Lyrics \lyricsto "v3" {\textotenor }
        \new Lyrics \lyricsto "v3" {\textotenorb }
        >>
    
        \new Staff <<\global
        \new Voice="v4" {
                \set Staff.instrumentName="Basso"
                \set Staff.shortInstrumentName="B"
                \clef "bass"
                \bassus }
        \new Lyrics \lyricsto "v4" {\textobassus }
        \new Lyrics \lyricsto "v4" {\textobassusb }
        >>          
>>
%{
        \new Staff <<\global
	\new Voice="cont" {
		\set Staff.instrumentName=\markup{"Continuo"}
		\clef "bass"
		\cello }
	\new FiguredBass {\cifrado }
	>> 
%}

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


>>

	} % transpose

\layout{ 
	\context {\Lyrics 
		\override VerticalAxisGroup.staff-affinity = #UP
		\override VerticalAxisGroup.nonstaff-relatedstaff-spacing =
			#'((basic-distance . 0) (minimum-distance . 0) (padding . .5))
		\override VerticalAxisGroup.nonstaff-nonstaff-spacing =
			#'((basic-distance . 0) (minimum-distance . 0) (padding . .2))
		\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 . 12) (minimum-distance . 10) (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
	systems-per-page = 3
	ragged-last-bottom = ##f
	indent=1.8\cm
	system-system-spacing =
	#'((basic-distance . 24) (minimum-distance . 0) (padding . 5))
	top-system-spacing = % header
	#'((basic-distance . 12) (minimum-distance . 0) (padding . 0))
	last-bottom-spacing = % footer
	#'((basic-distance . 11) (minimum-distance . 0) (padding . 0))
	markup-system-spacing.padding = #1.5
}