\version "2.18.0"

#(set-default-paper-size "a4")
#(set-global-staff-size 19.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 = 66 }
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 244 - Können Tränen meiner Wagen"
hcomposer="Bach"
%{
\header {
	title=\markup{\fontsize #3 "61. Können Tränen meiner Wagen"}
	subtitle="Matthäus-Passion"
        subsubtitle=\markup{"BWV 244" \vspace #0 }
        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 g \minor \time 3/4
  \skip 1*3/4*91 \bar "|."
  \override Score.RehearsalMark.self-alignment-X=#right
  \mark \markup{"D.C."}
}

altus=\relative c''{
        \set autoBeaming = ##f
        R1*3/4*12
        g8 bes16[ a] g[ fis g8] ~ g16[ fis] g8
        g8 bes16[ a] g[ fis g8] ~ g16[ fis] g8
        g8 a16[ bes] c[ d ees8] ~ ees16[ d ees8] ~
        ees16[ d c8] \appoggiatura bes8 a4 r4
        f8 g16[ a] bes[ c d8] ~ d16[ c d8] ~
        d16[ c bes8] \appoggiatura a8 g4 r4
        \appoggiatura {a16[ bes]} c8. bes16 a8. g16 fis8. g16
        \appoggiatura g8 fis2. ~
        fis8 d'16[ c] bes[ a] g8 g16[ f!] g8
        ees16[( d c8]) bes'8([ a8)] r8 c16([ d32 ees])
        d8. c16 a4. bes8
        bes4 r r
        R1*3/4*8
        bes8 d16[ c] bes[ a bes8] ~ bes16[ a] bes8
        b8 d16[ c] b[ a b8] ~ b16[ a] b8
        f8 d'16[ c] b[ a g8] ~ g16[ ees f8] ~
        f16[ d ees8] ees4 r
        aes8 c16[ bes] aes16[ g aes8] ~ aes16[ g] aes8
        aes16[ c ees] d c16[ b c8] ~ c16[ b] c8
        d, e16[ fis] g[ a bes8] ~ bes16[ a bes8] ~
        bes16[ a c8] c4 r
        bes16[ a g8] ~ g16[ fis] g8 g16[ fis] g8
        g8[ bes16 a] g[ fis] g8 g16[ fis] g8
        ees8 f16[ g] f[ ees d8] ~ d16[ ees c8]
        c'16[ b c8] c2
        r8 ees16 d c16[ bes] a[ g] a[ fis] g8
        g4 r8 g g16[ fis] g8
        c4 r8 g g16[ fis] g8
        cis,4 bes' r8 a8
        g16[ e] fis8 ees'![ d] r8 c ~
        c bes16[ a] bes[ c] d8 d,8. fis16
        g4 r r
        R1*3/4*12
        bes8 d16[ c] bes[ a bes8] ~ bes16[ a] bes8
        c,8 bes'16[ a] g[ f e8] ~ e16[ d] c8
        a'8 c16[ bes] a[ g a8] ~ a16[ g] a8
        d8 c16[ bes] a[ fis g8] ~ g16[ fis] g8
        cis8 b16[ a] d8 d, g16[ f] e8
        d4 r r
        R1*3/4*8
        f8 aes16[ g] f[ e f8] ~ f16[ e] f8
        b16[( c] d4) c16[( b]) c[( b]) a([ g])
        ees'16[( d] c4) bes!16[( aes]) bes[( aes]) g[( f)]
        des'16[( c] bes4) aes16[( g]) aes([ g]) f[( ees])
        c'8 bes16[ aes] g[ f] bes8 ees,16[ f] d8
        ees4 r8 f g16[ ees] a!8
        a8[ bes] bes f g16[ bes] ees8
        d16[ bes] c8 bes16[ g aes8]^\fermata r4
        g8 bes16[ aes] g[ f g8] ~ g16[ f] g8
        g8 bes16[ aes] g[ f g8] ~ g16[ f] g8
        aes8 c16[ bes] aes[ g aes8] ~ aes16[ g] f8
        b8 c d16[( c] d4) g,8
        ees'8 d16[ c] d[ b] c8 g8. b16
        c4 r r
}

textoaltus=\lyricmode{
Kön -- nen Trä -- nen mei -- ner Wan -- gen
nichts er -- lan -- gen
nichts er -- lan -- gen

o so nehmt mein Herz hin -- ein,
so nehmt mein Herz hin -- ein, __
o __ so nehmt mein Herz hin -- ein!

Kön -- nen Trä -- nen mei -- ner Wan -- gen
nichts er -- lan -- gen
kön -- nen Trä -- nen mei -- ner Wan -- gen
nichts er -- lan -- gen

kön -- nen Trä -- nen mei -- _ ner Wan -- gen
nichts er -- lan -- _ gen

o so nehmt mein Herz hin -- ein
so nehmt mein Herz 
mein Herz hin -- ein,
o so nehmt mein Herz 
o so nehmt mein Herz hin -- ein.

A -- ber lasst __ es bei den Flu -- ten,
wenn die Wun -- den mil -- de blu -- ten,
auch die O -- pfer -- scha -- le sein.

A -- ber lasst __ es bei __ den Flu -- ten,
wenn __ die Wun -- den mil -- de blu -- ten,
auch die O -- pfer -- scha -- le sein
die O -- pfer -- scha -- le,
die O -- pfer -- scha -- le sein. __

A -- ber lasst __ es bei den Flu -- ten,
wenn __ die Wun -- den mil -- de blu -- ten,
auch die O -- pfer -- scha -- le sein.
}


violinuno = \relative c'' {
  g8.( bes16) d,8.( g16) bes,8.( d16)
  g8.( bes16) d,8.( g16) bes,8.( d16)
  g8( a16 bes) c( d ees8) ees16( d ees8)
  ees16( d c8) a'4 r
  f,8( g16 a) bes16( c d8) d16( c d8)
  d16( c bes8) g'4 r
  c,8.( ees16) a,8.( c16) fis,8.( a16)
  c8.( ees16) a,8.( c16) fis,8.( a16)
  bes8( d16 c) bes( a g8) g16( fis g8)
  g16( a bes8) \appoggiatura d,8 cis4 r8 bes' % mordente
  a16( bes c8) \appoggiatura ees,8 d4 r8 fis
  g8.( bes16) d,8.( g16) bes,8.( d16)
  g,4 r r
  r8 d'16(^\p c) bes( a bes8) ~ bes16 a bes8
  ees8 r r4 r
  a8.( c16) ees,8.( a16) c,8.( ees16)
  a,8 r r4 r
  g'8.( bes16) d,8.( g16) bes,8.( d16)
  g,8 r r4 r
  r8 r16 ees'' a,8.( c16) fis,8.( a16)
  d,8 r r4 r
  r8 r16 ees' a,8.( c16) f,8.( a16)
  bes,8 r r4 r
  R1*3/4
  bes'8.(^\f d16) f,8.( bes16) d,8.( f16)
  bes8.( d16) f,8.( bes16) d,8.( f16)
  bes8( c16 d) ees( f g8) g16( f g8)
  g16( f ees8) c'4 r
  c,,8( d16 ees) f16( g a8) a16( g a8)
  a16( g f8) ees'4 r8 c
  d8.( f16) bes,8.( d16) f,8.( a16)
  bes8.( d16) f,8.( bes16) d,8.( f16)
  bes,8.^\p( f'16) d8.( f16) bes,8.( d16)
  f8.( aes16) d,8.( f16) b8.( d16)
  g,,8 r r4 r
  c'8.( ees16) g,8.( c16) ees,8.( g16)
  aes8.( c16) ees,8.( aes16) c,8.( ees16)
  aes8.( c16) ees,8.( aes16) c,8.( ees16)
  a,! fis'( g a) d,8.( g16) bes,8.( d16)
  cis8.( g'16) fis4 r
  g8.( bes16) d,8.( g16) bes,8.( d16)
  g,8( d'16 c) bes16( a bes8) ~ bes16 a bes8
  bes16( a g8) g'2 ~
  g8 a16( bes) a16( g fis8) fis16( ees' d8)
  d8 r r4 r
  g,8.( bes16) d,8.( g16) bes,8.( d16)
  g8.( c16) ees,8.( g16) c,8.( ees16)
  g,8.( cis16) e8.( g16) cis,8.( e16)
  a,8 r r4 r
  R1*3/4
  g''8.(^\f bes16) d,8.( g16) bes,8.( d16)
  g,8.( bes16) d,8.( g16) bes,8.( d16)
  g8.( bes16) d,8.( g16) bes,8.( d16)
  g8( a16 bes) c( d ees8) ees16( d ees8)
  ees16( d c8) a'4 r
  f,8( g16 a) bes( c d8) d16( c d8)
  d16( c bes8) g'4 r
  c,8.( ees16) a,8.( c16) fis,8.( a16)
  c8.( ees16) a,8.( c16) fis,8.( a16)
  bes8( d16 c) bes16( a g8) g16( fis g8)
  g16( a bes8) \appoggiatura d,8 cis4 r8 bes'
  a16( bes c8) \appoggiatura ees,8 d4 r8 fis
  g8.( bes16) d,8.( g16) bes,8.( d16)
  g,8^\fermata r r4 r
  R1*3/4*4
  d''8.(^\f f16) a,8.( d16) f,8.( a16)
  d,8( e16 f) g( a bes8) bes16( a bes8)
  bes16( a g8) e'4 r
  c,8( d16 e) f( g a8) a16( g a8)
  a16( g f8) d'4 r
  g8( bes16 a) g16( f ees!8) ees16( d ees8)
  ees16( f g8) \appoggiatura d8 cis4 r8 g
  f16( g a8) \appoggiatura bes,8 a4 r8 cis
  d8.( f16) a8.( d16) f,8.( a16)
  d,4 r r
  d'8.(^\p f16) b,8.( d16) g,8.( b16)
  c,4 c'2 ~
  c8 des16( c) bes2 ~
  bes16 aes16( g f) d'8( ees) r4
  bes8.( ees16) g,8.( bes16) ees,4 ~
  ees16 c d8 bes2 ~
  bes2 r4^\fermata
  ees8( g16 f) ees16 d ees8 ~ ees16 d ees8
  e8( g16 f) e16 d e8 ~ e16 d e8
  f8( aes16 g) f16 e f8 ~ f16 e f8
  f8( aes16 g) f ees! f8 ~ f16 ees f8
  g,8 r r4 r
  R1*3/4
}

cello=\relative c'{
  g8.( bes16) d,8.( g16) bes,8.( d16)
  g8.( bes16) d,8.( g16) bes,8.( d16)
  g8 r ees r c r
  f8.( a16) c,8.( f16) a,8.( c16)
  f8 r d r bes r
  ees8.( g16) bes,8.( ees16) g,8.( bes16)
  ees8.( g16) c,8.( ees16) a,8.( c16)
  a'8.( c16) fis,8.( a16) d,8.( fis16)
  g,8 r g' r f! r
  ees8 r g r cis, r
  d r c! r d r
  g8.( bes16) d,8.( g16) bes,8.( d16)
  g,8^\p r g' r f r
  ees r ees, r d r
  c r ees' r c r
  f8.( a16) c,8.( f16) a,8.( c16)
  ees,8 r d' r bes r
  ees8.( g16) bes,8.( ees16) g,8.( bes16)
  ees,8.( g16) c8.( d16) ees4 ~
  ees8. c16 a8.( c16) fis,8.( a16)
  d,8 r g r bes r
  c8.( ees16) a,8.( c16) f,8.( a16)
  bes8. ees16 f8.( ees16) f8.( f,16)
  bes8.( d16) f8.( bes16) d,8.( f16)
  bes,8^\f r bes' r a r
  g r f r ees r
  d r g r ees r
  a8.( c16) f,8.( a16) c,8.( ees16)
  f,8 r a r c r
  ees8.( f16) a8.( c16) f,8.( a16)
  bes8 r d, r f r
  bes8.( d16) f,8.( bes16) d,8.( f16)
  bes,8^\p r bes' r aes r
  g8.( d'16) f,8.( aes16) d,8.( f16)
  b,8 r g r b r
  c8.( ees16) g,8.( c16) ees,8.( g16)
  c,8 r c' r c r
  c, r c' r c r
  c,8.( c'16) bes8.( d16) g,8.( bes16)
  d,8 r d' r r4
  g,8 r g' r f r
  ees8 r ees, r d r
  c r c' r bes r
  a r fis r d r
  bes'8.( d16) g,8.( bes16) d,8.( d'16)
  g8 r g, r f r
  ees r c' r bes r
  a r cis r a r
  d8.( fis16) a,8.( c16) fis,8.( a16)
  d,8.( fis16) g8.( bes16) d8.( d,16)
  g8 r bes r d r
  g8.^\f( bes16) d,8.( g16) bes,8.( d16)
  g8.( bes16) d,8.( g16) bes,8.( d16)
  g8 r ees r c r
  f8.( a16) c,8.( f16) a,8.( c16)
  f8 r d r bes r
  ees8.( g16) bes,8.( ees16) g,8.( bes16)
  ees8.( g16) c,8.( ees16) a,8.( c16)
  a'8.( c16) fis,8.( a16) d,8.( fis16)
  g,8 r g' r f! r
  ees r g r cis, r
  d r c! r d r
  g8.( bes16) d,8.( g16) bes,8.( d16)
  g,8^\fermata r g'^\p r f r
  e8.( d16) e8.( g16) c,8.( e16)
  f,8 r f' r d r
  bes8.( a16) bes8.( d16) g,8.( bes16)
  e,8.( e'16) f8.( g16) a8.( a,16)
  d,8^\f r f r a r
  d r bes' r g r
  c8.( e16) g,8.( c16) e,8.( g16)
  c,8 r a' r f r
  bes8.( d16) f,8.( bes16) d,8.( f16)
  bes,8 r bes' r a r
  g8.( f16) g8.( bes16) e,8.( cis'16)
  d8 r f, r a r
  d,8.( f16) a,8.( d16) f,8.( a16)
  d,8^\p r d' r b r
  g8.( d'16) g8.( f16) ees!8.( d16)
  c8.( ees16) aes,8.( c16) f,8.( aes16)
  bes8.( des16) g,8.( bes16) ees,8.( g16)
  aes8.( f'16) g8.( aes16) bes8.( bes,16)
  ees8 r d r c r
  bes8.( c16) d8.( bes16) ees8.( g16)
  bes8 r d,4 r^\fermata
  ees,8 r ees' r des r
  c8.( g'16) c8.( bes16) aes8.( g16)
  f8 r f, r d r
  g8.( d'16) g8.( f16) ees8.( d16)
  c8.( ees16) f8.( d16) g8.( g,16)
  c4 r r
}

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

}


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

        \new Staff \with{ 
      \remove Ambitus_engraver
      fontSize = #-2
      \override StaffSymbol #'staff-space = #(magstep -2)
      }<<\global
	\new Voice="vi1" {
		\set Staff.instrumentName=\markup{\center-column{"Violino I, II"}}
		\clef "treble"
		\violinuno }
	>> 
>>
%}

\markup{\bold \larger "Alto"}
\score{
        \new Staff <<\global
        \new Voice="v3" {
          %      \set Staff.instrumentName="Alto"
           %     \set Staff.shortInstrumentName="A"
                \clef "treble"
                \altus }
        \new Lyrics \lyricsto "v3" {\textoaltus }
        >>
}
\pageBreak

\markup{\bold \larger "Violino I, II"}
\score{
        \new Staff<<\global
	\new Voice="vi1" {
	%	\set Staff.instrumentName=\markup{"Violino I, II"}
		\clef "treble"
		\violinuno }
	>> 
}
\pageBreak

\markup{\bold \larger "Cello"}
\score{
\new Staff<<\global
	\new Voice="cont" {
%		\set Staff.instrumentName=\markup{ \smaller \center-column{"Organo e" "Continuo"}}
		\clef "bass"
		\cello }
%	\new FiguredBass {\cifrado }
	>> 
}
\pageBreak

\markup{\bold \larger "Organo e Continuo"}
\score{
\new Staff<<\global
	\new Voice="cont" {
%		\set Staff.instrumentName=\markup{ \smaller \center-column{"Organo e" "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
}