\version "2.22.0"

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

italicas=\override LyricText.font-shape = #'italic
rectas=\override LyricText.font-shape = #'upright
ss=\once \set suggestAccidentals = ##t
mtempo={\tempo 4 = 60}
mtempob={\tempo 4 = 30}
mt=#(define-music-function (offset) (number?) ; move lyric text
      #{ \once \override LyricText.X-offset = -$offset #})


htitle="BWV 245 - Dein Will gescheh"
hcomposer="Bach"

\header {
	title=\markup{\fontsize #2 "5. Dein Will gescheh"}
	subtitle=\markup{\smaller "Johannes-Passion"}
%        subsubtitle=\markup{"BWV 245" \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={\key d \minor \time 4/4 \partial 4
        \skip 1*12 \bar "|."
}


cantus=\relative c''{
  a4
  a8[ g] f4 g a8[ g]
  f4 e \mtempob d^\fermata \mtempo a'
  a g c a8[ g]
  f4 g \mtempob a^\fermata \mtempo a8[ b]
  c4 d8[ e] f4 e
  d cis \mtempob d^\fermata \mtempo d
  e d c! b!
  a gis \mtempob a^\fermata \mtempo d
  c b c8[ bes] a4
  a4 g \mtempob f^\fermata \mtempo a
  bes4 a8[ g] f4 g
  f e \mtempob d^\fermata
}

altus=\relative c'{
  f4
  e e8[( d)] cis8[( d16 e]) a,4
  bes8( d4) cis8 a4^\fermata f'
  e d e f8[ e]
  d[ f] e[ d] e4^\fermata e
  a g f8[ a] g[ e]
  f[( e)] e4 fis^\fermata g8[ f]
  e4 b' e, f8[( e)]
  e8[( d)] e4 e^\fermata g
  g8[ f16 e] f4 e f
  f4. e8 c4^\fermata d
  d e e8[( a,)] d4
  d4. cis8 a4^\fermata
}

tenor=\relative c'{
  d4
  a a g d'
  d a8[ g] f4^\fermata d'
  a bes c4. cis8
  d8[( cis)] d4 cis!^\fermata c
  c8[ a] b[ cis] d[ c] bes4
  b4 a a^\fermata b!
  b8[( a)] a([ gis]) a4. gis!8
  a4 b c^\fermata b!
  c8[( a]) g8[( f]) g4 d'
  d g,8[( c]) a4^\fermata a
  g8[ f] e4 a bes
  b4 e,8[ a] fis4^\fermata
}

bassus=\relative c{
  d4
  cis d e f
  g a d,^\fermata d
  c bes a8[ c] f4
  bes8[ a] bes4 a^\fermata a8[( g])
  f4. e8 d4 g
  gis a d,^\fermata g
  c, b a d8[ e]
  f4 e a,^\fermata g'8[ f]
  e4 d c d8[ c]
  bes4 c f^\fermata fis
  g cis, d8[ c] bes[ a]
  gis4 a d^\fermata
}

continuo=\relative c{
  \set autoBeaming=##t
  d4
  cis d e f
  g a d,^\fermata d
  c bes a8[ c] f4
  bes4 bes,4 a^\fermata a'8[( g])
  f4. e8 d4 g
  gis a d,^\fermata g
  c, b a d8[ e]
  f4 e a,^\fermata g'8[ f]
  e4 d c d8[ c]
  bes4 c f^\fermata fis
  g cis, d8[ c bes a]
  gis4 a d,^\fermata

}

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


textocantus=\lyricmode{
Dein Will' ge -- scheh', Herr Gott, zu -- gleich
auf Er -- den wie im Him -- mel -- reich;
gib uns Ge -- duld in Lei -- dens -- zeit, % gieb
Ge -- hor -- sam sein in Lieb' und Leid,
\mt #1.5
wehr' und
\mt #1.5
steur' al -- lem Fleisch und Blut,
das wi -- der dei -- nen Wil -- len tut. % thut
}

textoaltus=\lyricmode{
Dein Will' ge -- scheh', Herr Gott, zu -- gleich
auf Er -- den wie im Him -- mel -- reich;
gib uns Ge -- duld in Lei -- dens -- zeit, % gieb
Ge -- hor -- sam sein in Lieb' und Leid,
wehr' und steur' al -- lem Fleisch und Blut,
das wi -- der dei -- nen Wil -- len tut. % thut

}

textotenor=\lyricmode{
Dein Will' ge -- scheh', Herr Gott, zu -- gleich
auf Er -- den wie im Him -- mel -- reich;
gib uns Ge -- duld in Lei -- dens -- zeit, % gieb
Ge -- hor -- sam sein in Lieb' und Leid,
wehr' und steur' al -- lem Fleisch und Blut,
das wi -- der dei -- nen Wil -- len tut. % thut

}

textobassus=\lyricmode{
Dein Will' ge -- scheh', Herr Gott, zu -- gleich
auf Er -- den wie im Him -- mel -- reich;
gib uns Ge -- duld in Lei -- dens -- zeit, % gieb
Ge -- hor -- sam sein in Lieb' und Leid,
wehr' und steur' al -- lem Fleisch und Blut,
das wi -- der dei -- nen Wil -- len tut. % thut

}



\score {\transpose c' c'{

<<
\new ChoirStaff<<

	\new Staff <<\global
	\new Voice="v1" {
		\set Staff.instrumentName=\markup{\smaller \center-column {\larger "Soprano" \smaller \raise #.9 "Violino I" \smaller \raise #1.8 "Flauti, Oboi"}}
		\clef "treble"
		\cantus }
	\new Lyrics \lyricsto "v1" {\textocantus }
	>>

	\new Staff <<\global
	\new Voice="v2" {
		\set Staff.instrumentName=\markup{\center-column {"Alto " \raise #.5 \smaller "Violino II" }}
		\clef "treble"
		\altus }
	\new Lyrics \lyricsto "v2" {\textoaltus }
	>>
	
	\new Staff <<\global
	\new Voice="v3" {
		\set Staff.instrumentName=\markup{\center-column {"Tenore" \raise #.5 \smaller "Viola"}}
		\clef "G_8"
		\tenor }
	\new Lyrics \lyricsto "v3" {\textotenor }
	>>

	\new Staff <<\global
	\new Voice="v4" {
		\set Staff.instrumentName="Basso"
		\clef "bass"
		\bassus }
	\new Lyrics \lyricsto "v4" {\textobassus }
	>>

>>
	\new Staff \with{
          \remove Ambitus_engraver
          fontSize = #-4
          \override StaffSymbol #'staff-space = #(magstep -5)
      	}<<\global
	\new Voice="v5" {
		\set Staff.instrumentName=\markup{\larger \center-column{"Organo e" \raise #1.5 "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 {\Staff 
                %\RemoveEmptyStaves
                %\override VerticalAxisGroup.remove-first = ##t
%		\override VerticalAxisGroup.staff-staff-spacing =
%			#'((basic-distance . 11) (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 = 1
	systems-per-page = 3
	ragged-last-bottom = ##f
	indent=1.7\cm
	system-system-spacing =
	#'((basic-distance . 20) (minimum-distance . 0) (padding . 5))
	top-system-spacing = % header
	#'((basic-distance . 8) (minimum-distance . 0) (padding . 0))
	last-bottom-spacing = % footer
	#'((basic-distance . 10) (minimum-distance . 0) (padding . 0))
	markup-system-spacing.padding = #1.5
}