\version "2.18.0"

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

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

\header {
	title=\markup{\fontsize #3 "10. Jesus bleibet meine Freude"}
	subtitle="Cantata BWV 147"
        subsubtitle=\markup{\smaller \raise #.5 "Herz und Mund und Tat und Leben" \vspace #1 }
        composer="Johann Sebastian Bach (1685-1750)"
       %opus="(-)"
	%poet=\markup{"BWV 243"}
	copyright=\markup{
		\fill-line {"Edited by Nancho Alvarez" \typewriter "http://tomasluisdevictoria.org"}
	}
%	tagline=""
}

%\markup{\score{{\voiceOne \stopStaff \small b'8. b'16 s2^\markup{"="} \tupletUp \times 2/3{b'4 b'8}} \layout{\context {\Score \override TimeSignature.stencil = ##f \override Clef.stencil = ##f  }} }}


global =  {\key g \major \skip 4*3*71 \bar "|."
\mark \markup{\smaller \musicglyph #"scripts.ufermata" }
}

cantus = {
	\set Score.skipBars = ##t
	R2.*8  |
	b'2 c''4 |
	d''2 d''4 |
	c''2 b'4 |
%5
	a' a' r |
	R2. |
	b'2 c''4 |
	d''2 b'4 |
	a'8( b'16 c'') b'4( a') |
%10
	g'2 r4 |
	R2.*6 |
	b'2 c''4 |
	d''2 d''4 |
	c''2 b'4 |
%15
	a' a' r |
	R2. |
	b'2 c''4 |
	d''2 b'4 |
	a'8( b'16 c'') b'4( a') |
%20
	g'2 r4 |
	R2.*7 |
	a'2 b'4 |
	c''2 c''4 |
	b'4.( c''16 d'') b'4 |
%25
	a' a' r |
	R2.*2 |
	c''2 d''4 |
	e''2 e''4 |
	d''4.( e''16 f'') d''4 |
%30
	c'' c'' r |
	R2.*2 |
	b'2 c''4 |
	d''2 d''4 |
	c'' b'2^\trill |
%35
	a' r4 |
	R2. |
	b'2 c''4 |
	d''2 b'4 |
	a'8( b'16 c'') a'2^\trill |
%40
	g'2. |
	R2.*11

}



altus = {
	R2.*8|
	g'2 g'4 |
	a'( g') fis' |
	g' d'2 |
%5
	d'4 d' r |
	R2. |
	g'2 g'4 |
	g'( d') e' |
	e' fis'8( e' fis'4) |
%10
	d'2 r4 |
	R2.*6|
	g'2 g'4 |
	a'( g') fis' |
	g' d'2 |
%15
	d'4 d' r |
	R2. |
	g'2 g'4 |
	g'( d') e' |
	e' fis'8( e' fis'4) |
%20
	d'2 r4 |
	R2.*7 |
	fis'2 gis'4 |
	a'2 a'4 |
	a'2 gis'4 |
%25
	a' a' r |
	R2.*2 |
	a'2 g'4 |
	g'( c'') g' |
	f'( a') g' |
%30
	g' g' r |
	R2.*2 |
	g'2 g'4 |
	g'2 g'4 |
	g'8 fis' g'2 |
%35
	fis' r4 |
	R2. |
	g'2 g'4 |
	g'( d') e' |
	e' fis'8( e' fis'4) |
%40
	d'2. |
	R2.*11
}



tenor = {
	R2.*8 |
	d'2 e'4 |
	a2 b4 |
	b( a) g |
%5
	fis a r |
	R2. |
	d'2 e'4 |
	d'( b) b |
	 c'8[ a]  d'[( b] c'4) |
%10
	b2 r4 |
	R2.*6 |
	d'2 e'4 |
	a2 b4 |
	b( a) g |
%15
	fis a r |
	R2. |
	d'2 e'4 |
	d'( b) b |
	 c'8[ a]  d'[( b] c'4) |
%20
	b2 r4 |
	R2.*7|
	d'2 d'4 |
	e'2 f'4 |
	f'( d') e' |
%25
	c' c' r |
	R2.*2 |
	e'2 d'4 |
	c'2 c'4 |
	a2 b4 |
%30
	e' e' r |
	R2.*2 |
	d'2 e'4 |
	d'( b) b |
	c'( d') e' |
%35
	a2 r4 |
	R2. |
	d'2 e'4 |
	d'( b) b |
	 c'8[ a]  d'[( b] c'4) |
%40
	b2. |
	R2.*11
}



bassus =  {
	R2.*8 |
	g4( fis) e |
	fis( e) d |
	e( fis) g |
%5
	d d r |
	R2. |
	g4( fis) e |
	b( b,) e |
	c( d) d |
%10
	g,2 r4 |
	R2.*6 |
	g4( fis) e |
	fis( e) d |
	e( fis) g |
%15
	d d r |
	R2. |
	g4( fis) e |
	b( b,) e |
	c( d) d |
%20
	g,2 r4 |
	R2.*7 |
	d4( c) b, |
	a,( a8[ g]) f[ e] |
	d4( b,) e |
%25
	a, a, r |
	R2.*2 |
	a2 b4 |
	c'( a) e |
	f( d) g |
%30
	c c r |
	R2.*2 |
	g2 e4 |
	b( e') e |
	a,( b,) c |
%35
	d2 r4 |
	R2. |
	g4( fis) e |
	b( b,) e |
	c d2 |
%40
	g,2. |
	R2.*11
}



textocantus=\lyricmode {
Je -- sus blei -- bet mei -- ne Freu -- de
mei -- nes Her -- zens Trost und __ Saft
Je -- sus weh -- ret al -- lem Lei -- de
er ist mei -- nes Le -- bens __ Kraft
mei -- ner Au -- gen Lust __ und Son -- ne
mei -- ner See -- le Schatz __ und Won -- ne
dar -- um laß ich Je -- sum nicht % lass'
aus dem Her -- zen und Ge -- sicht.
}


textoaltus=\lyricmode {
Je -- sus blei -- bet mei -- ne Freu -- de
mei -- nes Her -- zens Trost  und __ Saft
Je -- sus weh -- ret al -- lem Lei -- de
er ist mei -- nes Le -- bens __ Kraft
mei -- ner Au -- gen Lust  und Son -- ne
mei -- ner See -- le Schatz __ und Won -- ne
dar -- um laß ich Je -- _ sum nicht
aus dem Her -- zen und  Ge -- sicht.
}


textotenor=\lyricmode {
Je -- sus blei -- bet mei -- ne Freu -- de
mei -- nes Her -- zens Trost _ und __ Saft
Je -- sus weh -- ret al -- lem Lei -- de
er ist mei -- nes Le -- _ bens __ Kraft
mei -- ner Au -- gen Lust __ und Son -- ne
mei -- ner See -- le Schatz und Won -- ne
dar -- um laß __ ich Je -- sum nicht
aus dem Her -- zen und _ Ge -- sicht.
}


textobassus=\lyricmode { 
Je -- sus blei -- bet mei -- ne Freu -- de
mei -- nes Her -- zens Trost __ und Saft
Je -- sus weh -- ret al -- lem Lei -- de
er __ ist mei -- nes Le -- bens  Kraft
mei -- ner Au -- gen _ Lust __ und Son -- ne
mei -- ner See -- le Schatz __ und Won -- ne
dar -- um laß __ ich Je -- sum nicht
aus __ dem Her -- zen und Ge -- sicht.
}

tromba = {
	R2.*8  |
	b'2 c''4 |
	d''2 d''4 |
	c''2 b'4 |
%5
	a' a' r |
	R2. |
	b'2 c''4 |
	d''2 b'4 |
	a'8( b'16 c'') b'4 a'^\trill |
%10
	g'2 r4 |
	R2.*6 |
	b'2 c''4 |
	d''2 d''4 |
	c''2 b'4 |
%15
	a' a' r |
	R2. |
	b'2 c''4 |
	d''2 b'4 |
	a'8( b'16 c'') b'4 a'^\trill |
%20
	g'2 r4 |
	R2.*7 |
	a'2 b'4 |
	c''2 c''4 |
	b'4.( c''16 d'') b'4 |
%25
	a' a' r |
	R2.*2 |
	c''2 d''4 |
	e''2 e''4 |
	d''4.( e''16 f'') d''4 |
%30
	c'' c'' r |
	R2.*2 |
	b'2 c''4 |
	d''2 d''4 |
	c'' b'2^\trill |
%35
	a' r4 |
	R2. |
	b'2 c''4 |
	d''2 b'4 |
	\slurDashed
	a'8( b'16 c'') a'2^\trill |
%40
	g'2. |
	R2.*11

}

violinuno = \relative c'' {
  r8*2/3 g a b( d c) c( e d)
  d( g fis) g( d b) g( a b)
  c( d e) d( c b) a( b g)
  fis( g a) d,( fis a) c( b a)
  b( g a) b( d c) c( e d)
  d( g fis) g( d b) g( a b)
  e,( d' c) b( a g) d( g fis)
  g b d g d b g b d
  g4 r r
  R1*3/4*2
  r8*2/3 d, e fis a g a c b
  c a fis d fis a c b a
  b( g a) b( d c) c( e d)
  d( g fis) g( d b) g( a b)
  e,( d' c) b( a g) d( g fis)
  g( b a) b( d c) c( e d)
  d( g fis) g( d b) g( a b)
  c( d e) d( c b) a( b g)
  fis( g a) d,( fis a) c( b a)
  b( g a) b( d c) c( e d)
  d( g fis) g( d b) g( a b)
  e,( d' c) b( a g) d( g fis)
  g4 r r % sol pequeño
  R1*3/4*2
  r8*2/3 d e fis a g a c b
  c a fis d fis a c b a
  b( g a) b( d c) c( e d)
  d( g fis) g( d b) g( a b)
  e,( d' c) b( a g) d( g fis)
  g( b a) b( d c) c( e d)
  d( g fis) g( d b) g( a b)
  c( d e) d( c b) a( b g)
  fis( g a) d,( fis a) c( b a)
  b( g a) b( d c) c( e d)
  d( g fis) g( d b) g( a b)
  e,( d' c) b( a g) d( g fis)
  g( b d) g( d b) g( b cis)
  d( d, e) fis( a gis) gis( b a)
  a( c b) c( a e) c( d e)
  f( d' c) d( b gis) e( fis gis!)
  a( c b) c( e d) d( f e)
  e( a gis) a( e c) a( b c)
  f( e d) c( b a) e( a gis)
  a c e a r r r4.*2/3
  r8*2/3 c, d e( g f) g( bes a)
  a( c b!) c( a f) d( e f)
  e( g f) g( e c) g( a bes)
  a( c b!) c( a f) d( e f!)
  e( c d) e( g fis!) g( b a)
  b( g a) b( d c) c( e d) 
  d( g fis) g( d b) g( a b)
  c( d e) d( c b) a( b g)
  fis( d e) fis( a g) a( c b)
  c( a fis) d( fis a) c( b a)
  b( g a) b( d c) c( e d)
  d( g fis) g( d b) g( a b)
  e,( d' c) b( a g) d( g fis)
  g( b d) g( d b) g( b d)
  f( d b) g( b d) e( c a)
  fis!( a c) d( b g) e( g b)
  c( a fis) d( fis a) c( b a)
  b( g a) b( d c) c( e d)
  d( g fis) g( d b) g( a b)
  c( d e) d( c b) a( b g)
  fis( g a) d,( fis a) c( b a)
  b( g a) b( d c) c( e d)
  d( g fis) g( d b) g( a b)
  e,( d' c) b( a g) d( g fis)
  g2.
}

violindos=\relative c''{
  r4 g8. fis16 g8. a16
  b8. a16 b8. g16 e8. d16
  e8. fis16 g8. d16 e8. b16
  a8. d16 a'8. g16 a8. fis16
  d8. fis16 g8. fis16 g8. a16
  b8. a16 b8. g16 e8. g16 
  a8. fis16 g8. e16 a,8. c16
  b8. g'16 b8. d16 g8. d16
  b4 r r
  R1*3/4*2
  r4 d,8. e16 fis8. g16
  a8. c16 a8. fis16 d8. fis16
  g8. d16 g8. fis16 g8. a16
  b8. a16 g8. fis16 e8. g16
  a8. g16 fis8. g16 a8. c,16
  b8. d16 g8. fis16 g8. a16
  b8. a16 b8. g16 e8. d16
  e8. fis16 g8. d16 e8. b16
  a8. d16 a'8. g16 a8. fis16
  d8. fis16 g8. fis16 g8. a16
  b8. a16 b8. g16 e8. g16
  a8. fis16 g8. e16 a,8. c16
  b4 r r % nota pequeña
  R1*3/4*2
  r4 d8. e16 fis8. g16
  a8. c16 a8. fis16 d8. fis16
  g8. d16 g8. fis16 g8. a16
  b8. a16 g8. fis16 e8. g16
  a8. g16 fis8. g16 a8. c,16
  b8. d16 g8. fis16 g8. a16
  b8. a16 b8. g16 e8. d16
  e8. fis16 g8. d16 e8. b16
  a8. d16 a'8. g16 a8. fis16
  d8. fis16 g8. fis16 g8. a16
  b8. a16 b8. g16 e8. g16
  a8. fis16 g8. e16 a,8. c16
  b8. g'16 b8. d16 g8. g,16
  a8. g16 a8. d16 d,8. c16
  c8. d16 e8. c16 a8. c16
  d8. e16 f8. d16 b8. d16
  c8. e16 a8. gis16 a8. b16
  c8. b16 c8. a16 f8. a16
  a8. gis16 a8. fis!16 b,8. d16
  c4 r r
  r c'8. d16 e8. c16
  f,8. g16 a8. d16 b8. d16
  c8. g16 c8. g16 e8. d16
  c8. e16 f8. a16 b8. d16
  c8. g16 c8. a16 d8. fis,!16
  g8. d16 g8. fis16 g8. a16
  b8. a16 b8. g16 e8. d16
  e8. fis16 g8. d16 e8. b16
  a8. cis16 d8. e16 fis8. g16
  a8. c16 a8. fis16 d8. fis16
  g8. d16 g8. fis16 g8. a16
  b8. a16 g8. fis16 e8. g16
  a8. g16 fis8. g16 a8. c,16
  b8. g'16 b8. d16 g8. d16
  b8. g16 d'8. b16 c4 ~
  c8. a16 b4 ~ b8. g16
  a4 ~ a8. fis16 d8. fis16
  g8. d16 g8. fis16 g8. a16
  b8. a16 b8. g16 e8. d16
  e8. fis16 g8. d16 e8. b16
  a8. d16 a'8. g16 a8. fis16
  d8. fis16 g8. fis16 g8. a16
  b8. a16 b8. g16 e8. g16
  a8. fis16 g8. e16 a,8. c16
  b2.
}

viola=\relative c'{
  r4 d e
  g e b
  a d c ~
  c a fis'
  g g, e'
  g e b
  c e d
  d r8 r16 d b8. g'16
  d4 r r
  R1*3/4*2
  r4 a8. a16 d8. d16
  fis8. a16 fis8. d16 a8. d16
  d4 d e
  g d b
  c8 a d b c a
  b4 d e
  g4 e b
  a d c ~
  c a fis'
  g g, e'
  g e b
  c e d
  d4 r r
  R1*3/4*2
  r4 a8. a16 d8. d16
  fis8. a16 fis8. d16 a8. d16
  d4 d e
  g d b
  c8 a d b c a
  b4 d e
  g e b
  a d c ~
  c a fis'
  g g, e'
  g e b
  c e d
  d r8 r16 g d8. e16
  fis4 d d
  e a, a' ~
  a a gis
  e a, f'
  a f c
  d fis! e
  e r r
  r a g
  d f g
  g e g
  f a g
  g r8 r16 d d8. d16
  d4 d e
  g e b
  a d c ~
  c a8. a16 d8. d16
  fis8. a16 fis8. d16 a8. d16
  d4 d e
  g d b
  c8( a) d( b) c( a)
  b4 r8 r16 g' d8. g16
  d4 r8 r16 g e8. c16
  a4 r8 r16 d b8. e16
  e,8. a16 fis8. a'16 fis8. d16
  d4 d e
  g4 e b
  a d c ~
  c a fis'
  g g, e'
  g e b
  c e d
  d2.
}

cello=\relative c{
  g4 g' e b e e,
  a b c
  d fis d 
  g e c
  b e d
  c cis d
  g, r8 r16 g' d8. b16
  g4 fis' e
  fis e d
  e fis g
  d4 r8 r16 d d8. d16
  d,4 r8 r16 d' d8. d16
  g4 fis e
  b' b, e
  c d d,
  g g' e
  b e e,
  a b c
  d fis d
  g e c
  b e d
  c cis d
  g, fis' e
  fis e d
  e fis g
  d r8 r16 d d8. d16
  d,4 r8 r16 d' d8. d16
  g4 fis e
  b' b, e
  c d d,
  g g' e
  b e e,
  a b c
  d fis d
  g e c
  b e d
  c cis d
  g, r8 r16 g' fis8. e16
  d4 c b
  a a'8 g f e
  d4 b e
  a, f' d
  c f e
  d dis e
  a, a' b
  c a e
  f d g
  c, e c
  f d g
  c, r8 r16 c b8. d16
  g,4 g' e
  b e e,
  a4 b c
  d4 r8 r16 d d8. d16
  d,4 r8 r16 d' d8. d16
  g4 fis e
  b' b, e 
  c d d,
  g2. ~
  g ~
  g ~
  g ~
  g4 g' e
  b e e,
  a b c
  d fis d
  g e c
  b e d
  c cis d
  g,2.
}

cifrado=\figuremode{
s1*3/4*13
s2 <6>4
s1*3/4*14
s2 <6>4
s1*3/4*14
s2 <6 4 2!>4
s1*3/4
s2 <6>4
s1*3/4
<6 5>4 s s
s1*3/4*3
s2 <6>4
s1*3/4*19
}
guia=\relative c''{
  \set autoBeaming = ##t

}




\score {\transpose c' c'{
<<

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

  
       \new Staff  \with{ 
      \remove Ambitus_engraver
      fontSize = #-1
      \override StaffSymbol #'staff-space = #(magstep -1)
      }<<\global
	\new Voice="f2" {
	        \time 3/4
		\set Staff.instrumentName=\markup{"Tromba"}
		\clef "treble"
		\tromba }
	>> 
  
        \new Staff <<\global
	\new Voice="vi1" {
		\time 9/8
		\set Staff.timeSignatureFraction=9/8
                \set Staff.instrumentName=\markup{\center-column{"Violino I" \smaller \raise #.8 "Oboi"}}
		\clef "treble"
		\violinuno }
	>> 
	\new Staff <<\global
	\new Voice="vi2" {
		\time 3/4
		\set Staff.instrumentName=\markup{"Violino II"}
		\clef "treble"
		\violindos }
	>>     
    
        \new Staff <<\global
	\new Voice="vi3" {
		\time 3/4
		\set Staff.instrumentName=\markup{"Viola"}
		\clef "alto"
		\viola }
	>> 
>>

\new ChoirStaff<<

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

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

        \new Staff <<\global
        \new Voice="v4" {
                \time 3/4
		\set Staff.instrumentName="Basso"
                \set Staff.shortInstrumentName="B"
                \clef "bass"
                \bassus }
        \new Lyrics \lyricsto "v4" {\textobassus }
        >>        
>>
        \new Staff <<\global
	\new Voice="cont" {
		\time 3/4
		\set Staff.instrumentName=\markup{\smaller "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" {
		\time 3/4
		\clef "treble"
		\guia }
	>>
%}

>>

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