Fuge g Moll (BWV558)

Zur Navigation springen Zur Suche springen

Fuge gekürzt und adaptiert als Auszug aus der Messfeier

Lilypond Score

#(set-global-staff-size 22)
sop = \relative c' {
  \key b \major
  \oneVoice
  f4
  b8 a16 b g4. c8
  a8 g16 a f4. b8
  es, b' es, b' es, b'
  d, b' d, b' d, b'
  c,[ d16 es] f8 es d c
  d f g a b c
  a4 r8 d16 c b4
  c r8 c16 b a4
  b8 d b d b d
  c f c f c f ~ f4 e2
  \voiceOne
  f8[ es16 d] c8 d es c
  d[ c16 d] b8 a g4
  c8[ b16 c] a8 g f4
  g2.
  b ~
  b4 a c ~
  c8[ b16 a] b8 c d es
  c4 r8 d c h
  c4 r8 c b a
  b2. c
  c
  d
  \oneVoice
  b8 f' b, f' b, f'
  g, f' g, f' g, f'
  g, es' g, es' g, es'
  f, es' f, es' f, es'
  f, d' f, d' f, d'
  \voiceOne
  f,4 b2 ~ b4 a2 < b f >2.\fermata
  \bar "|."
}

alt = \relative c'' {
  s4 s2. * 11
  \voiceTwo
  s4 r8 b c a
  f4 g8 f e4
  f4~ f8 es d4
  es2.
  < f d >2.
  es4 ~ es8 d16 c f8[ es]
  d4. es8 f4 ~
  f s8 f es d
  es4 s8 es d c
  d2.
  f
  es
  d4 g g
  s2. * 5
  c4 r es
  f2 es4 d2.
}

ten = \relative c' {
  \key b \major
  \clef bass
  \oneVoice
  r4
  < d b f >4. < es c g >
  < c a f > < d b f >
  < b g es >2.
  < b f d >
  < g es c >
  r4 r \clef treble d'
  f8 es16 f d4 r8 g
  es8 d16 es c4 r8 f^~
  < f d >2. ^~
  < f a, >
  \clef bass
  g,8[ a16 b] c8 b a g
  %b[ a16 b] c8 b a g
  a4 r f
  b8 g ~ g4. c8
  a8 g f4. b8
  es, b' es, b' es, b'
  d, b' d, b' d, b'
  c, d16 es f4 a
  b2 b4 < f a >2 r8 g ~
  g2 r8 f
  b, f' b, f' b, f'
  a, f' a, f' a, f'
  c g' c, g' c, g'
  b, g' b, g' b, g'
  < d' f >2.
  < c f >
  < b c >
  < a c >
  < b d >
  a4 r \voiceOne b8 c
  d4 c2 b2.\fermata
}

bas = \relative c' {
  s4
  s2. * 29
  \voiceTwo
  s2 g4
  f2. f
}

Struktur =
{
  \override Score.NonMusicalPaperColumn.page-break-permission = ##f
  %   \override PianoStaff.VerticalAxisGroup.staff-staff-spacing.minimum-distance = #10
  %   \override PianoStaff.VerticalAxisGroup.staff-staff-spacing.padding = #2
  \override Score.RehearsalMark.font-size = #0
  \partial 4
  \time 3/4
  \set Timing.beatStructure = #'(3)
  %\mark \markup "Takt 1-4"

}

kopf=\header {
  title = "Fuga g-Moll"
  subtitle = "Nach BWV 558"
  composer = \markup \column {
    "M: J. S. Bach BWV 558"
    " "
  }
}

mypaper = \paper {
  top-margin = 15\mm
  ragged-right = ##f
  ragged-last = ##f
  ragged-bottom = ##t
  ragged-last-bottom = ##t
  bottom-margin = 15\mm
  indent = #0
  line-width = 170\mm
  print-all-headers = ##f
  #(include-special-characters)
  oddFooterMarkup = ##f
  evenFooterMarkup = ##f
  oddHeaderMarkup = #oddFooterMarkup
  evenHeaderMarkup = #evenFooterMarkup
  %   markup-system-spacing.padding = #4
  %   system-system-spacing.padding = #4
  %   score-system-spacing = #system-system-spacing
  bookTitleMarkup =
  \markup {
    \override #'(baseline-skip . 2)
    \column {
      \fill-line {
        \huge \larger \larger \bold
        \center-column {
          \fromproperty #'header:title
        }
      }
      \vspace #.3
      \fill-line \bold { \fromproperty #'header:subtitle }
      \vspace #1
      \fontsize #-1.5 {
        \fill-line {
          "Notensatz: lilypond.miraheze.org" ""
          \fromproperty #'header:poet \fromproperty #'header:composer
        }
      }
    }
  }
}

\bookpart {
  \mypaper
  \kopf
  \orgelpre \sop \alt \ten \bas \Struktur c
}

Lilypond Score

#(set-global-staff-size 22)
sop = \relative c' {
  \key b \major
  \oneVoice
  f4
  b8 a16 b g4. c8
  a8 g16 a f4. b8
  es, b' es, b' es, b'
  d, b' d, b' d, b'
  c,[ d16 es] f8 es d c
  d f g a b c
  a4 r8 d16 c b4
  c r8 c16 b a4
  b8 d b d b d
  c f c f c f ~ f4 e2
  \voiceOne
  f8[ es16 d] c8 d es c
  d[ c16 d] b8 a g4
  c8[ b16 c] a8 g f4
  g2.
  b ~
  b4 a c ~
  c8[ b16 a] b8 c d es
  c4 r8 d c h
  c4 r8 c b a
  b2. c
  c
  d
  \oneVoice
  b8 f' b, f' b, f'
  g, f' g, f' g, f'
  g, es' g, es' g, es'
  f, es' f, es' f, es'
  f, d' f, d' f, d'
  \voiceOne
  f,4 b2 ~ b4 a2 < b f >2.\fermata
  \bar "|."
}

alt = \relative c'' {
  s4 s2. * 11
  \voiceTwo
  s4 r8 b c a
  f4 g8 f e4
  f4~ f8 es d4
  es2.
  < f d >2.
  es4 ~ es8 d16 c f8[ es]
  d4. es8 f4 ~
  f s8 f es d
  es4 s8 es d c
  d2.
  f
  es
  d4 g g
  s2. * 5
  c4 r es
  f2 es4 d2.
}

ten = \relative c' {
  \key b \major
  \clef bass
  \oneVoice
  r4
  < d b f >4. < es c g >
  < c a f > < d b f >
  < b g es >2.
  < b f d >
  < g es c >
  r4 r \clef treble d'
  f8 es16 f d4 r8 g
  es8 d16 es c4 r8 f^~
  < f d >2. ^~
  < f a, >
  \clef bass
  g,8[ a16 b] c8 b a g
  %b[ a16 b] c8 b a g
  a4 r f
  b8 g ~ g4. c8
  a8 g f4. b8
  es, b' es, b' es, b'
  d, b' d, b' d, b'
  c, d16 es f4 a
  b2 b4 < f a >2 r8 g ~
  g2 r8 f
  b, f' b, f' b, f'
  a, f' a, f' a, f'
  c g' c, g' c, g'
  b, g' b, g' b, g'
  < d' f >2.
  < c f >
  < b c >
  < a c >
  < b d >
  a4 r \voiceOne b8 c
  d4 c2 b2.\fermata
}

bas = \relative c' {
  s4
  s2. * 29
  \voiceTwo
  s2 g4
  f2. f
}

Struktur =
{
  \override Score.NonMusicalPaperColumn.page-break-permission = ##f
  %   \override PianoStaff.VerticalAxisGroup.staff-staff-spacing.minimum-distance = #10
  %   \override PianoStaff.VerticalAxisGroup.staff-staff-spacing.padding = #2
  \override Score.RehearsalMark.font-size = #0
  \partial 4
  \time 3/4
  \set Timing.beatStructure = #'(3)
  %\mark \markup "Takt 1-4"

}

kopf=\header {
  title = "Fuga g-Moll"
  subtitle = "Nach BWV 558"
  composer = \markup \column {
    "M: J. S. Bach BWV 558"
    " "
  }
}

mypaper = \paper {
  top-margin = 15\mm
  ragged-right = ##f
  ragged-last = ##f
  ragged-bottom = ##t
  ragged-last-bottom = ##t
  bottom-margin = 15\mm
  indent = #0
  line-width = 170\mm
  print-all-headers = ##f
  #(include-special-characters)
  oddFooterMarkup = ##f
  evenFooterMarkup = ##f
  oddHeaderMarkup = #oddFooterMarkup
  evenHeaderMarkup = #evenFooterMarkup
  %   markup-system-spacing.padding = #4
  %   system-system-spacing.padding = #4
  %   score-system-spacing = #system-system-spacing
  bookTitleMarkup =
  \markup {
    \override #'(baseline-skip . 2)
    \column {
      \fill-line {
        \huge \larger \larger \bold
        \center-column {
          \fromproperty #'header:title
        }
      }
      \vspace #.3
      \fill-line \bold { \fromproperty #'header:subtitle }
      \vspace #1
      \fontsize #-1.5 {
        \fill-line {
          "Notensatz: lilypond.miraheze.org" ""
          \fromproperty #'header:poet \fromproperty #'header:composer
        }
      }
    }
  }
}

\bookpart {
  \mypaper
  \kopf
  \orgelpre \sop \alt \ten \bas \Struktur c
}

#(set-global-staff-size 24)

MollDur =
#(define-music-function (p q m)
   (ly:pitch? ly:pitch? ly:music?)
   #{
     \key $p \major \transpose c $p \naturalizeMusic \transpose $q c { $m }
   #}
   )

#(define-markup-command (text-fromproperty layout props text-1 symbol text-2)
   (markup? symbol? markup?)
   #:category other
   (let ((m (chain-assoc-get symbol props)))
     (if (markup? m)
         ;; prevent infinite loops by clearing the interpreted property:
         (interpret-markup
          layout
          (cons (list (cons symbol `(,property-recursive-markup ,symbol))) props)
          (make-concat-markup (list text-1 m text-2)))
         empty-stencil)))

orgelpre =
%Notensatz für Vorspiel 4stimmig + Umbrüche
#(define-music-function (sop alt ten bas stru p)
   (ly:music? ly:music? ly:music? ly:music? ly:music? ly:pitch?)
   #{
     <<
       \new PianoStaff="leadsheet"
       <<
         \new Staff="up"
         <<
           \new Voice="Alt" { \voiceOne \transpose c $p $sop }
           \new Voice { \voiceTwo \transpose c $p $alt }
         >>
         \new Staff="down"
         <<
           \new Voice { \voiceOne \transpose c $p $ten }
           \new Voice { \voiceTwo \transpose c $p $bas }
           \new NullVoice $stru
         >>
       >>
     >>
   #}
   )

orgelp =
%% Orgelsatz mit Pedal
#(define-music-function (sop alt ten bas ped stru p)
   (ly:music? ly:music? ly:music? ly:music? ly:music? ly:music? number?)
   #{
     <<
       \new PianoStaff="leadsheet"
       <<
         \new Staff="up"
         <<
           \new Voice="Alt" { \voiceOne $sop }
           \new Voice { \voiceTwo $alt }
         >>
         \new Staff="down"
         <<
           \new Voice { \voiceOne $ten }
           \new Voice { \voiceTwo $bas }
           \new NullVoice $stru
         >>
       >>
       \new StaffGroup
       \new Staff="Pedal" \with {
         \magnifyStaff $p
       }
       <<
         \new Voice $ped
       >>
     >>
   #}
   )

make-midi-list =
#(define-void-function (name score tempolist)
   ((string? #f) ly:score? list?)
   (for-each
    (lambda (tempo)
      (ly:book-process
       (apply
        ly:make-book
        $defaultpaper
        $defaultheader
        (list score))
       $defaultpaper
       #{
         \midi {
           \tempo 4 = $tempo
         }
       #}
       (format #f "~a_~a"
         (or name "midi")
         tempo)))
    tempolist))

\layout {
  \context {
    \Voice
    beamExceptions = #'()
    \override BreathingSign.text =
    \markup { \musicglyph "scripts.lvarcomma" }
    \override Stem.neutral-direction = #down
    \override Script.outside-staff-priority = #'()
    \override Script.padding = #1
    \override Tie.thickness = #1
    \override PhrasingSlur.thickness = #3
    \override Rest.voiced-position = #0
    \override MultiMeasureRest.expand-limit = #3
    \override TextSpanner.dash-period = #1
    \override TextSpanner.dash-fraction = #0.5
    \override TextSpanner.bound-details.left.text = #"rit."
    \override TextSpanner.bound-details.right.text =
    \markup { \draw-line #'(0 . -1) }
  }
  \context {
    \Lyrics
    \override VerticalAxisGroup.staff-affinity = #CENTER
  }
  \context {
    \Staff
    printPartCombineTexts = ##f
    beamExceptions = #'()
    \override BreathingSign.text =
    \markup { \musicglyph "scripts.lvarcomma" }
    \override InstrumentName.font-features = #'("smcp")
  }
  \context {
    \Score
    \override VerticalAxisGroup.remove-first = ##t
    skipBars = ##f
    \override MetronomeMark.font-size = #1
    \override MetronomeMark.font-shape = #'caps
    \override BarLine.thick-thickness = 5
    barNumberVisibility = #all-bar-numbers-visible
    \override Timing.beamExceptions = #'()
    \override BarNumber.color = #(rgb-color 0.7 0.7 0.7)
    \override BarNumber.layer = #-200
    \override BarNumber.padding = #0.4
    \override BarNumber.outside-staff-priority =#'()
    \override BarNumber.after-line-breaking = ##f
    \override BarNumber.font-size = #-1
    \override BarNumber.font-series = #'bold
    \override BarNumber.self-alignment-X = #0
    \override BarNumber.break-visibility = #end-of-line-invisible
  }
  \context {
    \ChordNames
    chordNameLowercaseMinor = ##f
    \remove Staff_performer
    chordRootNamer = #germanChords
    \override ChordName.font-name = #"Orator10 BT"
    chordNoteNamer = #(chord-name->german-markup #f)
    \override ChordName.X-offset =
    #ly:self-alignment-interface::aligned-on-x-parent
    \override ChordName.self-alignment-X = #CENTER
    \override ChordName.font-name = #"Arial Narrow"
    \override ChordName.layer = #2
    \override ChordName.font-size = #-0.5
    noChordSymbol = ##f
  }
}

#(define-markup-command (text-fromproperty layout props text-1 symbol text-2)
   (markup? symbol? markup?)
   #:category other
   (let ((m (chain-assoc-get symbol props)))
     (if (markup? m)
         ;; prevent infinite loops by clearing the interpreted property:
         (interpret-markup
          layout
          (cons (list (cons symbol `(,property-recursive-markup ,symbol))) props)
          (make-concat-markup (list text-1 m text-2)))
         empty-stencil)))

\paper {
  #(include-special-characters)
  indent = #0
  ragged-right = ##f
  ragged-last = ##f
  ragged-bottom = ##f
  ragged-last-bottom = ##f
  print-all-headers = ##f
  print-page-number = ##f
  scoreTitleMarkup = ##f
  bookTitleMarkup =
  \markup {
    %\override #'(baseline-skip . 1)
    \column \override #'(baseline-skip . 1) {
      \fill-line {
        \huge \larger \larger \bold
        \center-column {
          \fromproperty #'header:title
          " "
        }
      }
      \fill-line
      {
        \bold
        \center-column {
          \fromproperty #'header:subtitle
          " "
        }
      }
      \fill-line
      {
        \center-column {
          \fromproperty #'header:subsubtitle
          " "
        }
      }
      \fontsize #-1.5 {
        \fill-line {
          "Notensatz: lilypond.miraheze.org" \fromproperty #'header:composer
        }
        \fill-line {
          ""  \text-fromproperty "Originaltonart: " #'header:key "-Dur"
        }
      }
    }
  }
}