\version "2.18.0"

#(ly:set-option 'point-and-click #f)

%--------------------
% Maintainer: Sven Kaiser / e-mail: noten(at)oemsel.de
% o_traurigkeit_o_herzeleid_j-s-bach_bwv-404_s-a-t-b.ly
% 2023-01-25

\header {
    poet =  \markup { \left-column {"Strophe 1:  1621 von Friedrich Spee (1591 - 1635)" \line 
                                   {"Strophe 2, 7, 8:  1641 von Johann Rist (1607 - 1667)"}}}
    composer = "Johann Sebastian Bach (1685 - 1750)"
    title = "O Traurigkeit, o Herzeleid"
    subtitle = "BWV 404"
    tagline = \markup { \tiny \italic"Diese Noten sind gemeinfrei  -  Rev. 3  -  Notensatzprogrammierung S. Kaiser mit https://lilypond.org  -  Notendownload: www.oemsel.de/noten" }
}

#(set-global-staff-size 16)

\paper {
    paper-width = 21.0\cm
    paper-height = 29.7\cm
    top-margin = 0.8\cm
    bottom-margin = 1.3\cm
    left-margin = 1.8\cm
    right-margin = 1.8\cm
    print-page-number = ##f
%    markup-system-spacing = #'((basic-distance . 20) (padding . 0.5) (stretchability . 30))
    markup-system-spacing = #'((basic-distance . 23) )
    system-system-spacing = #'((minimum-distance . 26) )
}
  
global = {
  \key c \major \time 4/4
  \autoBeamOff
}

SopranVoice =  \relative c'' {
  \override Score.BarLine #'hair-thickness = #1.2
  \override Score.BarLine #'thick-thickness = #3.6
  \partial 4 e4
  c8 b8 c4 b4 \fermata gis |
  a4 a4 gis4 \fermata e'4 |
  e4 e4 f4 e8 d8 |
  d2 c2 \fermata |
  b4 c4 d4 e4 |
  d4 c4 b2 \fermata |
  a4 b4 c4 d8 e8 |
  b2 a2 \fermata \bar "|." }

SopranVoiceLyricsOne =  \lyricmode { \set stanza = "1."
  O Trau - rig -- keit, O Her -- ze -- leid!
  Ist das nicht zu be - kla -- gen?
  Gott des Va -- ters ei -- nigs Kind
  wird zu Grab ge - tra -- gen.}

SopranVoiceLyricsTwo =  \lyricmode { \set stanza = "2."
  O gro - ße Not!
  Gott selbst ist tot,
  am Kreuz ist er ge - stor -- ben,
  hat da -- durch das Him -- mel -- reich
  uns aus Lieb' er - wor -- ben.}

SopranVoiceLyricsThree =  \lyricmode { \set stanza = "7."
  O sel - ig ist
  zu al -- ler Frist,
  der die -- ses recht be - den -- ket,
  wie der Herr der Herr -- lich -- keit
  wird ins Grab ge - sen -- ket!}
  
SopranVoiceLyricsFour =  \lyricmode { \set stanza = "8."
  O Je - su, du
  mein' Hilf' und Ruh',
  ich bit -- te dich mit __ _ Trä -- nen:
  hilf, dass ich mich bis ins Grab
  nach dir mö -- ge __ _ seh -- nen!}


AltVoice =  \relative c'' {
  \partial 4 gis4
  e4 e8 dis8 e4 \fermata e4 |
  e4 d4 e4 \fermata gis4 |
  a4 b4 a4 g4 |
  a4 g8 f8 e2 \fermata |
  g4 f8 e8 d8 d'8 c4 |
  b4 a4 gis2 \fermata |
  e4 e4 e4 a8 g8 |
  f4 e8 d8 c2 \fermata \bar "|."  }

AltVoiceLyricsOne =  \lyricmode { \set stanza = "1."
  O Trau -- rig - keit, O Her -- ze -- leid!
  Ist das nicht zu be -- kla -  - gen? 
  Gott des __ _ Va - ters ei -- nigs Kind
  wird zu Grab ge - tra - - gen. }
  
AltVoiceLyricsTwo =  \lyricmode { \set stanza = "2."
  O gro -- ße __ _ Not!
  Gott selbst ist tot,
  am Kreuz ist er ge -- stor - - ben,
  hat da - durch __ _ das Him -- mel -- reich
  uns aus Lieb' er - wor - - ben. }
  
AltVoiceLyricsThree =  \lyricmode { \set stanza = "7."
  O sel -- ig __ _ ist
  zu al -- ler Frist,
  der die -- ses recht be -- den - - ket,
  wie der __ _ Herr __ _ der Herr -- lich -- keit
  wird ins Grab ge - sen - - ket! }
  
AltVoiceLyricsFour =  \lyricmode { \set stanza = "8."  
  O Je -- su, __ _ du
  mein' Hilf' und Ruh',
  ich bit -- te dich mit Trä - nen: __ _
  hilf, dass __ _ ich __ _ mich bis ins Grab
  nach dir mö -- ge __ _ seh - - nen! }
  
TenorVoice =  \relative c' {
  \partial 4 b4
  a8 gis8 fis4 gis4 \fermata b4 |
  c4 b8 a8 b4 \fermata b4 |
  c4 b4 c8[ d8] e8[ c8] |
  c4 b4 c2 \fermata |
  d4 c4 g'4 g,8 a8 |
  b8 e,8 e'4 e2 \fermata |
  e8[ d8] d8[ c8] c8 b8 a4 |
  a4 gis4 e2 \fermata \bar "|."}

TenorVoiceLyricsOne =  \lyricmode { \set stanza = "1."
  O Trau - rig -- keit, O Her -- ze - leid!
  Ist das nicht zu __ _ be - kla - gen? 
  Gott des Va -- ters __ _ ei - nigs Kind
  wird __ _ zu __ _ Grab __ _ ge -- tra - gen.}
  
TenorVoiceLyricsTwo =  \lyricmode { \set stanza = "2."
  O gro - ße Not!
  Gott selbst ist __ _ tot,
  am Kreuz ist er __ _ ge - stor - ben,
  hat da -- durch das __ _ Him - mel -- reich
  uns __ _ aus __ _ Lieb' __ _ er -- wor - ben.}

TenorVoiceLyricsThree =  \lyricmode { \set stanza = "7."
  O sel - ig ist
  zu al -- ler __ _ Frist,
  der die -- ses recht __ _ be - den - ket,
  wie der Herr der __ _ Herr - lich -- keit
  wird __ _ ins __ _ Grab __ _ ge -- sen - ket!}

TenorVoiceLyricsFour =  \lyricmode { \set stanza = "8."  
  O Je - su,  du
  mein' Hilf' und __ _ Ruh',
  ich bit -- te dich __ _ mit __ _ Trä - nen:
  hilf, dass ich mich __ _ bis __ _ ins Grab
  nach __ _ dir __ _ \once \override LyricText.self-alignment-X = #LEFT mö - ge seh - nen!}

BassVoice =  \relative c {
  \partial 4 e4
  a4 a,4 e'4 \fermata d4 |
  c4 f4 e4 \fermata e4 |
  a4 gis4 a8 b8 c4 |
  fis,4 g4 c,2 \fermata |
  g'4 a4 b4 c4 |
  gis4 a4 e2 \fermata |
  fis4 gis4 a8[ g8] f8[ e8] |
  d4 e4 a,2 \fermata \bar "|."}

BassVoiceLyricsOne =  \lyricmode { \set stanza = "1."
  O Trau -- rig -- keit, O Her -- ze -- leid!
  Ist das nicht zu __ _ be -- kla - gen? 
  Gott des Va -- ters ei -- nigs Kind
  wird zu Grab __ _ ge - tra - gen.}
  
BassVoiceLyricsTwo =  \lyricmode { \set stanza = "2."
  O gro -- ße Not!
  Gott selbst ist tot,
  am Kreuz ist er __ _ ge -- stor - ben,
  hat da -- durch das Him -- mel -- reich
  uns aus Lieb' __ _ er - wor - ben.}

BassVoiceLyricsThree =  \lyricmode { \set stanza = "7."
  O sel -- ig ist
  zu al -- ler Frist,
  der die -- ses recht __ _ be -- den  - ket,
  wie der Herr der Herr -- lich -- keit
  wird ins Grab __ _ ge - sen - ket!}

BassVoiceLyricsFour =  \lyricmode { \set stanza = "8."  
  O Je -- su, du
  mein' Hilf' und Ruh',
  ich bit -- te dich __ _ mit Trä - nen:
  hilf, dass ich mich bis ins Grab
  nach dir \once \override LyricText.self-alignment-X = #LEFT mö - ge __ _ seh - nen!}

% The score definition
\score {
  \new ChoirStaff \with {
    \override StaffGrouper.staff-staff-spacing =
    #'((basic-distance . 0)
    (minimum-distance . 20) 
    (padding . 0)
    (stretchability . 0))
    }
    <<
    \new Staff <<
        \clef "G2"
        \set Staff.instrumentName = "S"
        \context Staff << 
            \context Voice = "SopranVoice" { \SopranVoice }
            \new Lyrics \lyricsto "SopranVoice" \SopranVoiceLyricsOne
            \new Lyrics \lyricsto "SopranVoice" \SopranVoiceLyricsTwo
            \new Lyrics \lyricsto "SopranVoice" \SopranVoiceLyricsThree
            \new Lyrics \lyricsto "SopranVoice" \SopranVoiceLyricsFour
            >>
        >>
    \new Staff <<
        \clef "G2"
        \set Staff.instrumentName = "A"
        \context Staff << 
            \context Voice = "AltVoice" { \AltVoice }
            \new Lyrics \lyricsto "AltVoice" \AltVoiceLyricsOne
            \new Lyrics \lyricsto "AltVoice" \AltVoiceLyricsTwo
            \new Lyrics \lyricsto "AltVoice" \AltVoiceLyricsThree
            \new Lyrics \lyricsto "AltVoice" \AltVoiceLyricsFour
            >>
        >>
    \new Staff <<
        \clef "G2_8"
        \set Staff.instrumentName = "T"
        \context Staff << 
            \context Voice = "TenorVoice" { \TenorVoice }
            \new Lyrics \lyricsto "TenorVoice" \TenorVoiceLyricsOne
            \new Lyrics \lyricsto "TenorVoice" \TenorVoiceLyricsTwo
            \new Lyrics \lyricsto "TenorVoice" \TenorVoiceLyricsThree
            \new Lyrics \lyricsto "TenorVoice" \TenorVoiceLyricsFour
            >>
        >>
    \new Staff <<
        \clef "F"
        \set Staff.instrumentName = "B"
        \context Staff << 
            \context Voice = "BassVoice" { \BassVoice }
            \new Lyrics \lyricsto "BassVoice" \BassVoiceLyricsOne
            \new Lyrics \lyricsto "BassVoice" \BassVoiceLyricsTwo
            \new Lyrics \lyricsto "BassVoice" \BassVoiceLyricsThree
            \new Lyrics \lyricsto "BassVoice" \BassVoiceLyricsFour
            >>
        >>
    
    >>

        \layout { 
  	% Steuert die Höhe der Taktnummerierung über dem System        
        \context { \Score \override BarNumber.padding = #2.0 } 
        % steuert die Einrückung des ersten Systems; Standardwert = automatisch eingerückt
        indent = #4
    }   
}

\score {
<<
\new Voice = "Sopran" { \autoBeamOff \SopranVoice }
\new Voice = "Alt" { \autoBeamOff \AltVoice }
\new Voice = "Tenor" { \autoBeamOff \TenorVoice }
\new Voice = "Bass" { \autoBeamOff \BassVoice }
>>
\midi { }
}