\version "2.22.0"

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

italicas=\override LyricText.font-shape = #'italic
rectas=\override LyricText.font-shape = #'upright
ss=\once \set suggestAccidentals = ##t
mtempo={\tempo 4 = 62 }
mtempob={\tempo 4 = 31 }
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 = #""
mt=#(define-music-function (offset) (number?) ; move lyric text
      #{ \once \override LyricText.X-offset = -$offset #})


htitle="BWV 161 - Der Leib zwar in der Erden"
hcomposer="Bach"

\header {
        title=\markup{\fontsize #3 "6. Der Leib zwar in der Erden"}
        subtitle="Cantata BWV 161"
        subsubtitle=\markup{\smaller \raise #2 \italic "Komm, du süße Todesstunde" \vspace #1.5 }
        composer="Johann Sebastian Bach (1685-1750)"
        pdfauthor=\composer
       %opus="(-)"
        poet=\markup{\smaller "Christoph Knoll (1563-1630)"} 
        copyright=\markup{
                \fill-line {"Edited by Nancho Alvarez" \typewriter "http://tomasluisdevictoria.org"}
        }
  %     tagline=""
}



global={\key c \major \time 4/4 % las flautas estan con 3 bemoles, ¿error del editor?
        \partial 4
        \skip 1*4 \bar ":|."
	\skip 1*8 \bar "|."
}

flauta=\relative c'''{
  \set autoBeaming = ##t
  r8 g ~
  g16 c, f8 ~ f16 e32 d e8 ~ e16 a, d8 ~ d16 c32 b c8 ~
  c16 e d c b c b a gis a gis \ss fis e8 b'' ~
  b16 d c b a gis a8 ~ a16 c b a g f g8 ~
  g16 bes a g f e f8 e4
  a4 ~
  a16 c b! a g f g8 ~ g16 bes a g f e f8 ~
  f16 a g f e f e d c g' a b! c8 g ~
  g16 c, f8 ~ f16 e32 d e8 ~ e16 g f e d cis d8 ~
  d16 f e d c! b d c ~ c d c b a8 a' ~
  a16 c b a g a g f e2 ~
  e16 g f e d cis d8 ~ d16 f e d cis! d b cis
  d a d8 ~ d16 c!32 b c8 ~ c16 e d c b c d8 ~
  d16 f e d c e a8 ~ \mtempob a[ gis]^\fermata
}


cantus=\relative c'{
  e4
  a g f e
  d2 e4 b'
  c c b b
  a2. c4
  b8[ c16 d] g,4 a b
  c2 c4 g
  a g a f
  e2 r4 c'
  b d c b
  a2 b4 e,4
  f e d g
  e2.^\fermata
}

altus=\relative c'{
  e4 e8[ d] d4 d c8[ b]
  a2 b4 e
  e f f e8[ d]
  cis4 d4. c8 a'8[ g]
  f4 e e8[ c] f4
  g4. f8 e4 c
  c4 c8[ bes] a4 a
  a2 r4 e'
  e d e8[ fis] g[ gis]
  a4 a, e'4 e8[ cis]
  a[ b] c!4 d d8[ c]
  b4. b16[ a] b4^\fermata
}

tenor=\relative c'{
  g8[ b]
  a[ c] b4 c8[ g] g4
  a8[ f d d'] d[ b] gis4
  a4. c8 d[ d,] g![ f]
  e4 f8.[ g16] a4 e'
  d4 d8[ c] c4 d
  g,4 a8[ b] c4 c
  f,4 g e f8[ g]
  a2 r4 a
  b b b8[ a] e'[ d]
  c8[ cis] d4 g,4 a8[ g] % gis,4 en otra edicion
  f8[ g] a4 a b
  b8[ gis e c'] b4^\fermata
}

bassus=\relative c{
  e4 f g a,8[ b] c4
  f,2 e4 e'
  a8[ g] f[ e] d[ b] e4
  a,2. a'4
  d,4 e f d
  c2 c4 e
  f4 c cis d
  a2 r4 a
  e'4 b c8[ d] e4
  f2 e4 a
  d, a8[ g] f[ fis] g4
  gis4 a e^\fermata
}

% estrofa 4 del himno Herzlich tut mich verlangen
textocantus=\lyricmode{
Der Leib zwar in der Er -- den
von Wür -- mern wird ver -- \mt #0 zehrt,
wird leuch -- ten als die Son -- ne
und le -- ben oh -- ne Not % Noth
in Himml' -- scher Freud' und Won -- ne.
Was schad't mir denn der Tod?
}
textocantusb=\lyricmode{
doch auf -- er -- weckt soll wer -- den,
durch Chri -- stum schön ver -- klärt,
}


textoaltus=\lyricmode{
Der Leib zwar in der __ Er -- den
von Wür -- mern wird ver -- zehrt, __ _ _
wird leuch -- ten als __ die Son -- _ ne
und le -- ben __ oh -- ne Not
in Himml' -- scher Freud' und Won -- _ ne.
Was schad't mir denn der __ Tod? __ _ _

}
textoaltusb=\lyricmode{
doch auf -- er -- weckt soll __ wer -- den,
durch Chri -- stum schön ver -- klärt, __ _ _ 
"  " 

}


textotenor=\lyricmode{
Der Leib zwar in __ der Er -- den
von Wür -- mern wird __ ver -- zehrt, __ _ _ 
wird leuch -- ten __ als die Son -- _ ne
und le -- ben oh -- ne __ Not
in Himml' -- scher Freud' und Won -- _ ne.
Was schad't mir denn der Tod? __ _ 

}
textotenorb=\lyricmode{
doch auf -- er -- weckt soll wer -- den,
durch Chri -- stum schön ver -- klärt, __ _ _ 
"  "

}

textobassus=\lyricmode{
Der Leib zwar in __ der Er -- den
von Wür -- mern wird __ ver -- zehrt,
wird leuch -- ten als die Son -- ne
und le -- ben oh -- ne Not
in Himml' -- scher Freud' und Won -- ne.
Was schad't mir __ denn __ der Tod? __ _ _ % dann

}
textobassusb=\lyricmode{
doch auf -- er -- weckt soll wer -- den,
durch Chri -- stum schön verk -- lärt,

}

continuo=\relative c{
  e4 f g a,8[ b] c4
  f,2 e4 e'
  a8[ g f e] d[ b] e4
  a,2. a'4
  d,4 e f d
  c2 c4 e
  f4 c cis d
  a2 r4 a
  e'4 b c8[ d] e4
  f2 e4 a
  d, a8[ g] f[ fis] g4
  gis4 a e^\fermata
}

cifrado=\figuremode{
  \override FiguredBass.BassFigure #'font-size = #-3
  s4
  <7>8 <6> s4 <6>2
  <6> <_+>4 <_+>
  s2 <6 5>4 <_!>
  <5 _+>4 <6 4> <5 3!>
  s4
  <6> <6> s <6>
  s2. <6>4
  s2 <6>4 s
  s1
  s4 <6> s2
  <7>4 <6> s <[_+]>
  s2 <[6]>4 s
  <6 5>4 s <_+>
}


\score {\transpose c' c'{
<<
  \new StaffGroup<<
        \new Staff \with{
         fontSize = #-2
         \override StaffSymbol #'staff-space = #(magstep -2)
         \remove Ambitus_engraver
        } <<\global
        \new Voice="f" {
                \set Staff.instrumentName=\markup{"Flauto I,II"}
                \clef "treble"
                \flauta }
        >>
>>
  
\new ChoirStaff<<

        \new Staff <<\global
        \new Voice="v1" {
                \set Staff.instrumentName=\markup{\fontsize #-1 \center-column {"Soprano" \smaller \raise #.5 "Violino I"}}
                %\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{\fontsize #-1 \center-column{"Alto " \smaller \raise #.5 "Violino II"}}
                %\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{\fontsize #-1 \center-column{"Tenore" \smaller \raise #.5 "Viola"}}
                %\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 \with{
         fontSize = #-3
         \override StaffSymbol #'staff-space = #(magstep -3)
         \remove Ambitus_engraver
        }<<\global
	\new Voice="cont" {
		\set Staff.instrumentName=\markup{\larger "Continuo "}
		\clef "bass"
		\continuo }
	\new FiguredBass {\cifrado }
	>> 

>>

	} % 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 . 16) (minimum-distance . 0) (padding . 1))
                  \override StaffGrouper.staff-staff-spacing =
                        #'((basic-distance . 12) (minimum-distance . 0) (padding . 1))
        }

        \context {\StaffGroup
                  \override StaffGrouper.staffgroup-staff-spacing =
                        #'((basic-distance . 13) (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=5
	%page-count = 1
	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
	markup-system-spacing.padding = #3
}