\version "2.22.0"

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

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 244 - Wenn ich einmal soll scheiden"
hcomposer="Bach"

\header {
	title=\markup{\fontsize #2 "72. Wenn ich einmal soll scheiden"}
        subtitle="Matthäus-Passion"
%        subsubtitle=\markup{"BWV 244" \vspace #0 }
        composer="Johann Sebastian Bach (1685-1750)"
        pdfauthor=\composer
        	%opus="(-)"
	poet=\markup{"BWV 244"}
	copyright=\markup{
		\fill-line {"Edited by Nancho Alvarez" \typewriter "http://tomasluisdevictoria.org"}
	}
	tagline=""
}

global={\key c \major \time 4/4 \partial 4
        \skip 1*4 \bar ":|." \break
        \skip 1*8 \bar "|."
}


cantus=\relative c'{
        \override Score.MetronomeMark.X-offset = #1
        \override Score.MetronomeMark.padding = #3
        %\tempo \markup{\fontsize #2 "Coral"}
	e4
	a4 g f e
	d2 e4^\fermata b'
	c b8[ c16 d] c4 b8[ a]
	a2.^\fermata 
	c4
	b8[ a] g4 a b
	c2 c4^\fermata g
	a g a8[ g] f4
	e2.^\fermata \bar ";" \break
	c'4
	b8[ c] d4 c b
	a2 b4^\fermata e,
	f e d g8[ f]
	e2.^\fermata
}

altus=\relative c'{
	c4
	c8[ d] e4 a,8[ b] c4
	c( b) c^\fermata e
	e f e d8[ c]
	c2.^\fermata
	e4
	fis e f f
	g( f) e^\fermata e
	e8[ d] cis[ d] e4 e8[ d]
	d4( cis2^\fermata) a'4
	g4 g g8[ a] b[ g]
	g4( fis) g^\fermata c,
	d c d e8[ d]
	d4( c \mtempob b4^\fermata)
}

tenor=\relative c'{
	a4
	a8[ b] c4 d g,
	a4( g) g4^\fermata b
	a a a gis
	e2.^\fermata 
	a8[ g]
	fis4 b c d 
	c8( bes4 aes8) g4^\fermata c8[ bes]
	a!4 bes a a
	a2.^\fermata d4
	d d8[ e16 f] e4 d
	e( d) d^\fermata g,
	g g g8[ a] bes4
	b!( a gis)^\fermata
}

bassus=\relative c'{
	a8[ g]
	f4 e d c
	fis,( g) c^\fermata gis
	a d e e
	a,2.^\fermata
	a'4
	dis,4 e es d
	e!( f) c^\fermata c
	f4 e8[ d] cis4 d
	a2.^\fermata fis'4
	g8[ a] b4 e,8[ fis] g4
	cis,( d) g,^\fermata c
	b c bes8[ a] g4
	gis( a e')^\fermata
}

continuo=\relative c'{
	\set autoBeaming = ##t
	a8 g
	f4 e d c
	fis, g c^\fermata gis
	a d e e
	a,2.^\fermata
	a'4
	dis,4 e es d
	e! f c^\fermata c
	f4 e8 d cis4 d
	a2.^\fermata fis'4
	g8 a b4 e,8 fis g4
	cis, d g,^\fermata c
	b c bes8 a g4
	gis a e'^\fermata
}

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

textocantus=\lyricmode{
\mt #1
Wenn ich ein -- mal soll schei -- den,
so schei -- de nicht von mir!
\mt #1
Wenn mir am al -- ler -- bäng -- sten
wird um das Her -- ze sein,
so reiß mich aus den Äng -- sten
kraft dei -- ner Angst und Pein.
}
textocantusb=\lyricmode{
Wenn ich den Tod soll lei -- den,
so tritt du dann her -- für!
}  

textoaltus=\lyricmode{
Wenn ich ein -- mal soll schei -- den,
so schei -- de nicht von mir!
Wenn mir am al -- ler -- bäng -- sten
wird um das Her -- ze sein, __
so reiß mich aus den Äng -- sten
kraft dei -- ner Angst und Pein. __
}
textoaltusb=\lyricmode{
Wenn ich den Tod soll lei -- den,
so tritt du dann her -- für!
}  

textotenor=\lyricmode{
Wenn ich ein -- mal soll schei -- den,
so schei -- de nicht von mir!
Wenn mir am al -- ler -- bäng -- sten
wird um das Her -- ze sein,
so reiß mich aus den Äng -- sten
kraft dei -- ner Angst und Pein. __
}
textotenorb=\lyricmode{
Wenn ich den Tod soll lei -- den,
so tritt du dann her -- für!
}  

textobassus=\lyricmode{
Wenn ich ein -- mal soll schei -- den, 
so schei -- de nicht von mir!
Wenn mir am al -- ler -- bäng -- sten
wird um das Her -- ze sein,
so reiß mich aus den Äng -- sten
kraft dei -- ner Angst und Pein. __
}
textobassusb=\lyricmode{
Wenn ich den Tod soll lei -- den, 
so tritt du dann her -- für!
}  



\score {\transpose c' c'{
<<
  \new ChoirStaff<<

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

	\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 Lyrics \lyricsto "v2" {\textoaltusb }
	>>
	
	\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 Lyrics \lyricsto "v3" {\textotenorb }
	>>

	\new Staff <<\global
	\new Voice="v4" {
		\set Staff.instrumentName="Basso "
		\clef "bass"
		\bassus }
	\new Lyrics \lyricsto "v4" {\textobassus }
	\new Lyrics \lyricsto "v4" {\textobassusb }
	>>	
>>
\new Staff \with{
          \remove Ambitus_engraver
          fontSize = #-4
          \override StaffSymbol #'staff-space = #(magstep -5)
        }<<\global
        \new Voice="v5" {
                \set Staff.instrumentName=\markup{\larger \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 . .2))
		\override LyricText.font-size = #1.0
		\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 . 0) (minimum-distance . 0) (padding . 0))
		\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
	ragged-last-bottom = ##f
	indent=1.7\cm
	system-system-spacing =
	#'((basic-distance . 7) (minimum-distance . 0) (padding . 0))
	top-system-spacing = % header
	#'((basic-distance . 8) (minimum-distance . 0) (padding . 0))
	last-bottom-spacing = % footer
	#'((basic-distance . 4) (minimum-distance . 0) (padding . 0))
	markup-system-spacing.padding = #1.5
	markup-system-spacing = 
	#'((basic-distance . 0) (minimum-distance . 0) (padding . 1))
}