BWV 847/pre

\version "2.19.52"
\language "deutsch"

myTitel = "Fuge in C-Moll"
mycomp=\markup \line \fontsize #-1.5 { " (Johann Sebastian Bach, 1685-1750) ♫" \hspace #-1 "♫" \hspace #-1 "♫" \hspace #-1 "♪" }

halsup        = { \stemUp \tieUp \slurUp \dotsUp }
halsdown      = { \stemDown \tieDown \slurDown \dotsDown}
halsneutral   = { \stemNeutral \tieNeutral \slurNeutral \dotsNeutral }
staffup       = { \change Staff = "Discant" }
staffdown     = { \change Staff = "Bass" }

RH= \relative c''' {
  \time 4/4
  \key es \major
  \set Timing.beamExceptions = #'()
  \set Timing.baseMoment = #(ly:make-moment 1/4)
  \set Timing.beatStructure = #'(1 1 1 1 )  %% abhängig vom Takt
  R1 R1
  r8 g16-4 ( fis g8-- ) c,-- es-- g16 ( fis! g8 ) a --
  d,8-- g16 ( fis g8 ) a-- c,16-1 ( d es4 ) ( d16 c-1

%%% 5
  b8-2 ) es16-4 ( d es8 ) g,-- as-- f'16 ( es f8 ) a,--
  b8-- g'16 ( f g8 ) h,-- c-- d16 es
  \voiceOne
  f4-5~
  f8 es16 d c-1 b!-4 as g
  \set Voice.beatStructure = #'(2 2 )
  f8-1 as'-5 ( g f-3
  es-2 ) d-3 ( es f h,-3 ) (c-4 d-5 h!-1 )
  \set Voice.beatStructure = #'(1 1 1 1 )
  c8---2 g'16-5 ( fis g8 ) d-2 es4---3 r8 e-4 (

%%% 10
  f8-5 f16 e f8 c-2 ) d4-3 r8 d-4
  es8-5 es16 d es8 b-2 c es16 d! es8 f
  \oneVoice
  b,8 es16 d es8 f as,16 b c4 b16 ( as
  \oneVoice
  g16 es f g as b c d es d c d es f g a
  b16 ) f, ( g as! b c d! e f es d es f g a h
  % {
%%% 15
  %\halsup
  \voiceOne
  c8-5 ) h16 a g f!-1 es-4 d
  \set Voice.beatStructure = #'(2 2 )
  c8-1-2 es-1-5 d-1-5 c-2-4
  b8-1-3
  \once \override Fingering.X-offset = #0.5
  a-3-4 b-1-4 c-3-5 fis,!-1-4 g a! fis-2-4
  \set Voice.beatStructure = #'(1 1 1 1 )
  g8-2-5 d'16 c d8 r r e16 d e8 r
  r8 fis16-1-5 e fis8 r r g,16 f! g8 r
  r8 a16 g a8 r r h16 a h8 r
  % {
%%% 20
  r8 c16 ( h c8 ) g_- as_- c16 ( h! c8 ) d--
  g,8-- c16 ( h c8 ) d f,16 ( g as4 ) g16 ( f
  es8 ) c'16_( h c8 ) g-3 as4 r8 a
  b8 b16_( a b8 ) f g4 r8 g~
  g8 as16 b c h c-5 as-3 f2~-4
  % {
%%% 25
  f8 d'16_( c d8 ) f,-3 es es'16_( d es8 ) g,-3
  f8 f'16 ( es f8 ) as,-- g16 f'-4 ( es-3 d-2 c-1 h-4 a-1-3 g-2 )
  c8-1-3 ( [ f-2-5 es-1-4 d-1-3 ] ) r-2 as-1-5 ( g f
  g8-1-4 f16 es f8 d ) as' g r a
  h8 c f,16 es d c c8\noBeam c'16 h c8 g
  % {
%%% 30
  as8 c16 h c8
  %\once \override Fingering.X-offset = #0.5
  < as! h! d >-2-5
  g c16 h c8 d
  f,16 g as4 g16-5 f e2\fermata
  %}
  \bar "|."
}

Mitte = \relative c'' {
  s1*6
  \voiceTwo
  \set Voice.beatStructure = #'(2 2 )
  c4 r r8 f es d
  r8 as g f
  \set Voice.beatStructure = #'(1 1 1 1 )
  g-1 f16-2 es f8 d
  g4 r8 h-1 c-2 c16 h!-1 c8-- g-1

%%% 10
  as4-1 g8\rest a b b16a!-3 b8 f
  g4-1 r8 g-1 as-1 as g-1 f-1
  \staffdown
  \voiceOne
  \set Voice.beatStructure = #'(2 2 )
  r8 as, b c r
  as16 [ g-1 ] as8 f
  b8 c b as b g f es
  f8 des' c b c as g f
  % {
%%% 15
  g8\noBeam
  %\staffup \voiceTwo
  %\clef treble
  \set Voice.beatStructure = #'(1 1 1 1 )
  \override Fingering.direction = #UP
  g'16 fis g8 c, es%\noBeam \clef bass
  \staffup \voiceTwo
  %\override Fingering.outside-staff-priority = #'100
  g16 fis!-1 g8 a
  d,8 g16
  %\once \override NoteHead.X-offset = #-1
  %\once \override Stem.X-offset = #-1
  %\once \override NoteColumn.force-hshift = #-12
  fis-2 g8 a! c,16 d-1 es4-2-4 d16 c-1
  b8 r r16 d e fis g-4 a-1 b8~ b16 e,! f g
  a16-1 b-2 c8~ c16 fis,-1 g a b8 es,!16 d es8 g,-1
  as!8-1 f'16 es f8 a,-1 b-1 g'16 f g8 h,
  % {
%%% 20
  c16-1
  \staffdown \voiceOne
  %\once \override NoteColumn.force-hshift =#1
  \once \override NoteHead.X-offset = #0.5
  \once \override Stem.X-offset = #1.8
  %\once \override Fingering.X-offset = #0.5
  %\once \override Fingering.extra-offset = #'(0 . 9 )
  f_1 es d
  c^1 b! as g-1 f8
  \staffup \voiceTwo
  \set Voice.beatStructure = #'(2 2 )
  as' g f
  es8 d es f h, c d h
  c4 r8 e
  \set Voice.beatStructure = #'(1 1 1 1 )
  f f16-3 e! f8 c
  d4 r8 d es^( es16 d es8 ) b
  c2~ c8 d16 es f es f d
  % {
%%% 25
  h8 r r h c r r es
  d8 r r f~ f r r f
  \set Voice.beatStructure = #'(2 2 )
  es8 as! g f es d es f
  h,8 c d h? h? c r c
  \set Voice.beatStructure = #'(1 1 1 1 )
  f16 d es c~ c8 h c4\noBeam r8 e
  % {
%%% 30
  f4 r8
  \once \override NoteColumn.force-hshift = #1
  \override TextSpanner.bound-details.left.text = "rit."
  \override Fingering.extra-offset = #'( 0 . 0.5)
  f^1^3_\startTextSpan f

  es16 d es8 <as f>
  <h, d>8 r <h d> r <g c>2\stopTextSpan
  %}
}

LH = \relative c'' {
  \clef bass
  \key es \major
  %\halsdown
  \clef treble
  \override Fingering.avoid-slur = #'inside
  \override Fingering.direction = #DOWN
  r8 c16-2 ( h c8 ) g---5 as-- c16 ( h c8-2 )  d---1
  g,8-- c16 ( h  c8 ) d-- f,16-4 ( g as4 ) g16 ( f
  es16 ) c' ( h a g f! es d
  \set Voice.beatStructure = #'(2 2 )
  c8-5 )  es'-2 ( d c
  b8 ) a ( b c-1 ) fis,-3 ( g a! fis-3

%%% 5
  \set Voice.beatStructure = #'(1 1 1 1 )
  g4-1 ) r16 c,-5 d es f g-1 as8~-2 as16 d,-5 es f
  g16 a-1 b8~-2 b16 es,-3 f g-1 as-2 g-1 f es d8
  \staffup
  c'16 h!
  \staffdown
  \clef bass
  r8 c,16-2 ( h c8 ) g-- as-- c16 ( h! c8 ) d--
  g,8 c16 ( h c8 ) d-- f,16-4 ( g as4 ) g16 ( f
  es16 ) c' ( h a g-1 f! es d
  \override Fingering.direction = #DOWN
  c-5 d-3 es d c-1 b! as! g

%%% 10
  f16 ) b'-2 ( as g-1 f-2 es!-3 d-1 c-2
  b-3 c-2 d-1 c-2 b-3 as!-4 g-1 f-2
  es16-3 ) as'-2_( g-1 f es des-4 c-1 b
  \set Voice.beatStructure = #'(2 2 )
  as8 ) c'-1 ( b-2 as-3
  \voiceTwo
  \override Fingering.avoid-slur = #'around
  g8 ) f-3-5 ( g as d,-5 es-2-4 f-2-3 d-3-5
  es8-1-4 as-1-2 g f g ) es-1-3 ( d c
  d8 ) b'-3 ( as g as ) f-1-3 ( es d!
  % {
%%% 15
  \oneVoice
  \override Fingering.direction = #DOWN
  es8 ) r8 r4 r8 c-3 b a
  \set Voice.beatStructure = #'(1 1 1 1 )
  %\revert Fingering.direction
  r8
  \once \override NoteHead.X-offset = #1.5
  \once \override Stem.X-offset = #1.5
  es'-2 [ d-1 c ] d---1 c16 ( b c8 ) d--
  g,8-- b'16-2 ( a-1 b8---2 ) d,---5 es---4 c'16-1 ( b-2 c8---1 ) e,--
  f8---4 d'16 ( c d8 ) fis,-- g4-- r16 g,-5_( a h
  c16 d-1 es8~-2 es16 ) a,-4^\<_( b c d-1 es-2 f8~\!-1 ) f16 h,-5_( c d
  % {
%%% 20
  \voiceTwo
  es8-2 ) r r e-3-5
  \set Voice.beatStructure = #'(2 2 )
  f-2 f,-3 es! d
  \oneVoice
  r8 as'-2 g-1 f
  \set Voice.beatStructure = #'(1 1 1 1 )
  \override Fingering.direction = #DOWN
  g-1 f16 es f8 g
  c16-4 d es d c-1 b! as  g f b'-2 as-3 g-1 f-2 es! d-1 c
  b16 c d c b as! g-1 f-2 es as'-2 g-1 f es d-1 c-2 b
  as16-4 b c b as g-1 f-2 es d g'-1 f-2 es d c h a
  %\revert Fingering.direction
  % {
%%% 25
  g4-5 r r16 g-5 a h c d-1 es-3 f
  g16 f-3 as-2 g-1 f es-3 d-1 c-2 h8 c16 h c8 g as c16 ( h! c8 ) d--
  g,8-- c16  ( h  c8 ) d ( f,16-4 g as4 ) g16 ( f
  es4-5 ) r8 es'
  d8 c g' g, <c, c'>2~

%%% 30
  <c c'>1~
  <c c'>1
  %}
}

Struktur =
{
  \override Score.SpacingSpanner.common-shortest-duration = #(ly:make-moment 1/1)
  \override Score.NonMusicalPaperColumn.page-break-permission = ##f
  \override Score.NonMusicalPaperColumn.line-break-permission = ##f
  \repeat unfold 4 { s1 * 3 \break }
  s1*3 \pageBreak s1 s \break s1 s \break
  \repeat unfold 4 { s1 * 3 \break }
}

\layout {
  \context {
    \PianoStaff
    \override VerticalAxisGroup.staff-staff-spacing.minimum-distance = #12
  }
}

\paper {
  ragged-bottom = ##f
  system-system-spacing.padding = #0
  system-system-spacing.basic-distance = #2
}

\bookpart {
  \header {
    title = \myTitel
    subtitle = "Wohltemperiertes Klavier I, BVW 847"
    subsubtitle = ##f
    opus = ##f
    composer = "Johann Sebastian Bach (1685-1750)"
    piece = ##f
    poet = ##f
  }

  \include "_index.ly"
  \score
  {
    \new PianoStaff="leadsheet"
    <<
      \new BarNumberStaff="Discant"
      <<
        \new Voice=right \RH
        \new Voice \Mitte
      >>
      %\new Dynamics \Dyn
      \new Staff="Bass"
      <<
        \new Voice = left \LH
        \new NullVoice \Struktur
      >>
    >>
  }
}