\version "2.18.0"

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

italicas=\override LyricText.font-shape = #'italic
rectas=\override LyricText.font-shape = #'upright
ss=\once \set suggestAccidentals = ##t
mtempo={\tempo 4 = 64 }
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 = #""


htitle="BWV 140 - Zion hört die Wächter singen"
hcomposer="Bach"
%{
\header {
	title=\markup{\fontsize #3 "4. Zion hört die Wächter singen"}
	subtitle="Cantata BWV 140"
        subsubtitle=\markup{\null \vspace #1 }
        composer="Johann Sebastian Bach (1685-1750)"
        pdfauthor=\composer
       %opus="(-)"
	%poet=\markup{"BWV 245"}
	copyright=\markup{
		\fill-line {"Edited by Nancho Alvarez" \typewriter "http://tomasluisdevictoria.org"}
	}
%	tagline=""
}
%}
global={
  \compressFullBarRests
  \key ees \major \time 4/4 \partial 8 \skip 8
  \skip 1*74 \bar "|."
}

tenor=\relative c{
        \set autoBeaming = ##f
        r8
        R1*12
        r2 ees4 g
        bes4 bes bes bes
        c2 bes
        r2 r4 bes
        ees4 bes ees8[ f] g4
        f4. ees8 d4( c16[ bes c8])
        bes2 r
        r4 bes ees bes
        c g8[ aes16 bes] aes 8[ g] f4
        ees2 r
        R1*11
        r2 ees4 g
        bes bes bes bes
        c2 bes
        r2 r4 bes
        ees bes ees8[ f] g4
        f4. ees8 d4( c16^\trill[ bes c8])
        bes2 r
        r4 bes ees bes
        c g8[ aes16 bes] aes8[ g] f4
        ees2 r
        R1*6
        r2 r4 bes'
        bes aes g f
        ees2 r
        r4 bes' bes aes
        g f ees2
        R1
        f4 g aes2
        g2 r
        R1*5
        r4 bes c d
        ees2 r
        r r4 ees
        g f ees2
        R1
        r4 bes ees bes
        c g aes8[ g] f4
        ees1
        R1*3
        %r1^\fermata
        R1^\fermataMarkup
}

textotenor=\lyricmode{
% verse 2 of the choral "Wachet auf, ruft uns die Stimme"
Zi -- on hört die Wäch -- ter sin -- gen,
das Herz tut ihr vor Freu -- den sprin -- gen,
sie wa -- chet und steht ei -- lend auf.
Ihr Freund kommt von Him -- mel präch -- tig,
von Gna -- den stark, von Wahr -- heit mäch -- tig,
ihr Licht wird hell, ihr Stern geht auf.
Nun komm, du wer -- te Kron’,
Herr Je -- su, Got -- tes Sohn,
Ho -- si -- an -- na!
Wir fol -- gen all
zum Freu -- den -- saal
und hal -- ten mit das A -- bend -- mahl.
}


violinuno = \relative c' {
          %s4*0_\markup{\smaller "Violino piccolo tacet)"}
          bes8
          ees16( f g8) g( f) aes( g) bes,( aes)
          g'16( ees) f8-. aes,( g) d'( ees) r8 bes-\p
          ees16( f g8) g( f) aes( g) bes,( aes)
          g'16( ees) f8-. aes,( g) d'( ees) r8 bes'-\f
          bes4 aes16( g f ees) f( ees d c bes8) c16 d
          ees16( f) g( f) aes( g f ees) g8( f) r8 bes,
          g'8( a4) bes8 ees,16( d ees8) r8 c
          a'( bes4) c8 ees,16( d ees8) r8 ees'
          d16 c bes8 ~ bes16 a bes8 ~ 
          \slurDashed
           bes16 a( g f ees d c bes)
          \slurSolid
          c16( d ees8) ees16^\trill d ees8 ~ ees16 a( bes c bes a g f)
          bes8 f d8^\trill c16 bes bes16( ees d c d8) bes
          g8. a16 a8.(^\trill g32 a) bes4 r8 bes-\p % trino editorial
          ees16( f g8) g( f) aes( g) bes,( aes)
          g'16( ees) f8-. aes,8( g) d'( ees) r8 bes-\p
          ees16( f g8) g( f) aes( g) bes,( aes)
          g'16( ees) f8-. aes,8( g) d'( ees) r8 f
          g8( a4) bes8 ees,16( d ees8) r8 ees
          a8( bes4) c8 f,16( ees f8) r4
          r4 r8 bes bes4 aes16( g f ees)
          f( ees d c bes8) c16 d ees( f) g( f) aes( g f ees)
          g8( f) r4 r r8 bes,-\f
          ees16( f g8) g( f) aes( g) bes,( aes)
          g'16( ees) f8-. aes,( g) d'( ees) r8 bes-\p
          ees16( f g8) g( f) aes( g) bes,( aes)
          g'16( ees) f8-. aes,( g) d'( ees) r8 bes'
          bes4 aes16( g f ees) f( ees d c bes8) c16 d
          ees16( f) g( f) aes( g f ees) g8( f) r8 f
          g8( a4) bes8 ees,16^\trill( d ees8) r8 c
          a'8( bes4) c8 ees,16(^\trill d ees8) r8 ees'
          d16 c bes8 ~ bes16^\trill a bes8 ~ bes16 a( g f ees d c bes)
          c( d ees8) ees16^\trill( d ees8 ) ~ ees16 a( bes c bes a g f)
          bes8 f d^\trill c16 bes bes( ees d c d8) bes
          g8. a16 a8.^\trill g32 a bes4 r8 bes-\p % trino editorial
          ees16( f g8) g( f) aes( g) bes,( aes)
          g'16( ees) f8-. aes,( g) d'( ees) r8 bes-\pp
          ees16( f g8) g( f) aes( g) bes,( aes)
          g'16( ees) f8-. aes,( g) d'( ees) r8 f
          g8( a4) bes8 ees,16( d ees8) r ees
          a8( bes4) c8 f,16( ees f8) r4
          r r8 bes bes4 aes16( g f ees)
          f16( ees d c bes8) c16 d ees16( f) g( f) aes( g f ees)
          g8( f) r4 r r8 bes-\f
          bes4 aes16( g f ees) f( ees d c bes8) c16 d
          ees( f) g( f) aes( g f ees) g8( f) r8 bes,
          g'8( a4) bes8 ees,16( d ees8) r8 c
          a'( bes4) c8 ees,16( d ees8) r8 ees'
          d16 c bes8 ~ bes16 a bes8 ~ bes16 a( g f ees d c bes)
          c( d ees8) ees16^\trill d ees8 ~ ees16 a( bes c bes a g f)
          bes8 f d^\trill c16 bes bes( ees d c d8) bes
          g8. a16 a8.(^\trill g32 a) bes4 r8 d % trino editorial
          ees8( f4) g8 bes,16(^\trill aes bes8) r8 bes'
          bes4 aes16( g f ees) f( ees d c bes8) c16 d
          ees16( f) g( f) aes( g f ees) g8( f) r4
          r4 r8 g c16( d ees8) ees( d)
          f( ees) g,( f) ees'16( c) d8-. f,8( ees)
          b'8( c) r8 g g4 f16( ees d c)
          d( c b a g8) a16 b c( d) ees( d) f( ees d c)
          ees8( d) r8 g, ees'8( fis4) g8
          c,16( bes c8) r8 a fis'8( g4) a8
          c,16( bes c8) r8 c' bes16 a g8 ~ g16 fis g8 ~
          g16 f!16( ees d c bes a g) a16 bes c8 ~ c16 bes c8 ~ % a16( bes c8 ~ c16 bes) c8
          \override AccidentalSuggestion.avoid-slur = #'outside
          c16 fis( g \ss a g fis e d) g8 d bes^\trill a16 g
          g4 r r r8 bes
          ees16( f g8) g( f) aes( g) bes,( aes)
          g'16( ees) f8-. aes,( g) d'( ees) r4
          r4 r8 bes' bes4 aes16( g f ees)
          f( ees d c bes8) c16 d ees( f) g( f) aes( g f ees)
          g8( f) r ees c'8( d4) ees8
          aes,16^\trill( g aes8) r8 c d8( ees4) f8
          aes,16( g aes8) r8 f g16 f ees8 ~ ees16 d ees8 ~
          ees16 des'( c bes aes g f ees) f g aes8 ~ aes16^\trill g aes8 ~
          aes16 d,( ees f ees d c bes) bes'8 ees, g16 f ees d
          ees( aes g f g8) ees c8. d16 d8. ees16
          ees1^\fermata
}


cello=\relative c,{
  r8 
  ees4 ees ees g
  aes bes ees, r
  ees^\p ees ees g
  aes bes ees, r
  g^\f c bes aes
  g ees bes' d
  ees d c ees
  f g a f
  bes a g f
  ees d c ees
  d8 bes f' f, g a bes d, 
  ees c f4 bes8 c bes aes!
  g f ees d c4 c'^\p
  g4 bes ees, g
  aes aes' d, ees
  c d ees d
  c g c8 d ees4 ~
  ees8 d g, a bes d, ees f
  bes a bes c d bes ees4
  bes aes g ees
  aes8 bes c4 f, bes8 aes
  g4 ees'^\f d ees
  aes, bes ees, r
  ees^\p ees ees g
  aes bes ees, r
  g^\f c bes aes
  g ees bes' d
  ees d c ees
  f g a f
  bes a g f
  ees d c ees
  d8 bes f' f, g a bes d,
  ees c f4 bes8 c bes aes! 
  g f ees d c4 c'^\p 
  g4 bes ees, g
  aes aes' d, ees
  c4 d ees d
  c g c8 d ees4 ~ 
  ees8 d g, a bes d, ees f
  bes a bes c d bes ees4
  bes aes! g ees
  aes8 bes c4 f, bes8 aes
  g4 c bes aes
  g ees bes' d
  ees d c ees
  f g a f
  bes a g f
  ees d c ees
  d8 bes f' f, g a bes d,
  ees c f4 bes8 c bes aes!
  g f ees d ees g aes bes
  c d ees4 bes aes
  g ees bes'8 c d bes
  ees8 d c b c g' c bes!
  aes4 ees f g
  aes8 g f \ss e f \ss ees d c
  b8 g g' f ees4 c
  g'4 b c bes
  a c, d ees
  fis, d g f
  ees' d c bes
  a4 c bes8 g d' d,
  g ees f g aes g aes bes
  c bes c d ees4 c
  aes4 bes c8 bes c d
  ees8 d ees f g f g aes
  d, bes bes' aes g4 ees
  bes'8 aes g4 aes g
  f ees f bes,
  c4 aes bes g
  aes8 g f ees d!4 f
  bes8 c bes aes g c aes bes
  c d ees g aes f bes bes,
  ees1^\fermata
}

cifrado=\figuremode{
  \override FiguredBass.BassFigure #'font-size = #-2
  s8
  s4
  <7 4 2>4 <8 5 3> <6>
  <6 5 > s s2
  s4 <7 4 2> <8 5 3> <[6]>
  <6 5>4 s s2
  <6>4 <6> <5> <6 4 2>
  <6>2 <6 4>8 <5 3> <6>4
  s4 <5\+>8 <6> <7>4 <6 5>
  <7 _!> <6> <6 5> s
  s <6 4 2> <5> s
  <6 5>4 s <7> <6 4\+ 2>
  <6>4 <[6] [4]>8 <[5] [_!]> <6> <6 5> s4
  <6 5> <_!> s4 <6 4 2>
  <[6]>2 <6>8 <5> <5>4
  <6> s s <6>
  <8> <7> <6 5> s
  <6 5>4 <6 5> s <6>
  <5>8 <6\\> <5>4 <7>8 <5-> s4
  <6 4\+ 2>8 <6> <7> <6 5> <9> <6> <6 5> <_!>
  s2 <6>4 s
  s <6 4 2> <6> s
  <5> <5> <7> s
  <6> s <6 5> s
  <7>8 <6> s4 s2
  s4 <7 2> <8 3> <6>
  <6 5>4 s s2
  <6>4 <6> <5> <6 4 2>
  <6> s <6 4>8 <5 3> <6>4
  s4 <5\+>8 <6> <7>4 <6 5>
  <_!>4 <6> <6 5> <_!>
  s <6 4 2> <5> s
  <6 5> s <7> <6 4\+ 2>
  <6>4 <[6] [4]>8 <[5] [_!]> <6> <6 5> s4
  <6 5> <_!> s s8 <6 4 2>
  <[6]>2 <6>8 <5> <5>4
  <6>4 s s <6>
  <8> <7> <6 5> s
  <6 5> <6 5> s <6>
  <5>8 <6\\> <5>4 <7>8 <6 5> s4
  <4\+ 2>8 <6> <7> <6 5> <9> <6> <6 5> <[_!]>
  s2 <6>4 s
  s4 <6 4 2> <6> s
  <7>8 <5> <5>4 <7> s
  <6>4 <6> s <6 4 2>
  <6> s <6 4>8 <5 3> <6>4
  <3 5>8 <4\+ 6> <5\+> <6> <7>4 <6 5>
  <7 _!>4 <6> <6 5> <7 _!>
  s4 <6 4 2> <5> <6 4 2>
  \bassFigureExtendersOn
  <6\! 5> <6 5>
  \bassFigureExtendersOff
   <6\\> <6 4\+ 2>
  <6>4 <6 4>8 <5 _!> <6> <6 5> <9> <6>
  <6 5>4 <_!> s2
  <6>4 <5 4 2> <9>8 <6> <6 5>4
  <7>8 <6 5> s4 s <6 4 2>
  <6> s <6 4> <6 5>
  <5> <5 4 2> s <6>8 <6>
  <6>4 <6> <6 5> <7 _!>
  <6> <5 2> <9> <6\\ 5>
  <6 5> <_!> <6> s
  <6 4>8 <5 _!> <6>4 <3>8 <4\+> <5\+> <6>
  <7>4 <6\\ 3> <_+> <6>
  <6 5> <7 _+> s <6 4 2>
  <5> s <6\\ 5> <6 4 2>
  <6\\ 5-> <4\+ 2> <6> <6 4>8 <5\+ _+>
  s4 <7 4 2> <6 5> <4 2>
  <5> <6 5>8 <6 5> <4> <3> s4
  <6 5> <8>8 <7> <5>4 <6>
  s4 <7 4 2>
  \bassFigureExtendersOn
   <6>4. <6>8
  \bassFigureExtendersOff
  <6 5>4 <7> <6> s
  s <6> s <7>8 <6>
  <5>4 <6> <6> <7>
  <6> <6 5> <6 4> <6>
  <6 5>4 <6> <6 5> <7 5>
  <7>4 <6 3>8 <6 4 2> <6>4 <6 5>
  <7>8 <6 5> <9> <6> <6 5>4 s
  s1
}
guia=\relative c''{
  \set autoBeaming = ##t

}



\markup{\null \vspace #1 }
\markup{\bold \larger "Tenore"}
\score{
        \new Staff <<\global
        \new Voice="v3" {
            %    \set Staff.instrumentName="Tenore "
             %   \set Staff.shortInstrumentName="T"
                \clef "G_8"
                \tenor }
        \new Lyrics \lyricsto "v3" {\textotenor }
        >>
}
\pageBreak

\markup{\bold \larger "Violino I,II"}
\score{
      \new Staff<<\global
	\new Voice="vi1" {
		%\set Staff.instrumentName=\markup{\center-column{"Violino I, II" \raise #1 "e Viola"}}
		\clef "treble"
		\violinuno }
	>> 
}
\pageBreak

\markup{\bold \larger "Viola" " col Violini"}
\score{
      \new Staff<<\global
	\new Voice="vi1" {
		%\set Staff.instrumentName=\markup{\center-column{"Violino I, II" \raise #1 "e Viola"}}
		\clef "alto"
		\violinuno }
	>> 
}
\pageBreak

\markup{\bold \larger "Cello"}
\score{
      \new Staff<<\global
	\new Voice="cont" {
		%\set Staff.instrumentName=\markup{ "Cello "}
		\clef "bass"
		\cello }
	>>
}
\pageBreak

\markup{\bold \larger "Continuo"}
\score{
      \new Staff<<\global
	\new Voice="cont" {
		%\set Staff.instrumentName=\markup{ "Continuo "}
		\clef "bass"
		\cello }
	\new FiguredBass {\cifrado }
	>>
}


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

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

\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 }
	oddHeaderMarkup = \evenHeaderMarkup
	%system-count=20
	%page-count = 3
%	systems-per-page = 5
	ragged-last-bottom = ##f
	indent=0.5\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
}