# 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 Score.RehearsalMark.font-size = #0
\partial 4
\time 3/4
\set Timing.beatStructure = #'(3)
%\mark \markup "Takt 1-4"

}

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
#(include-special-characters)
oddFooterMarkup = ##f
evenFooterMarkup = ##f
%   score-system-spacing = #system-system-spacing
bookTitleMarkup =
\markup {
\override #'(baseline-skip . 2)
\column {
\fill-line {
\huge \larger \larger \bold
\center-column {
}
}
\vspace #.3
\fill-line \bold { \fromproperty #'header:subtitle }
\vspace #1
\fontsize #-1.5 {
\fill-line {
"Notensatz: lilypond.miraheze.org" ""
}
}
}
}
}

\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 Score.RehearsalMark.font-size = #0
\partial 4
\time 3/4
\set Timing.beatStructure = #'(3)
%\mark \markup "Takt 1-4"

}

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
#(include-special-characters)
oddFooterMarkup = ##f
evenFooterMarkup = ##f
%   score-system-spacing = #system-system-spacing
bookTitleMarkup =
\markup {
\override #'(baseline-skip . 2)
\column {
\fill-line {
\huge \larger \larger \bold
\center-column {
}
}
\vspace #.3
\fill-line \bold { \fromproperty #'header:subtitle }
\vspace #1
\fontsize #-1.5 {
\fill-line {
"Notensatz: lilypond.miraheze.org" ""
}
}
}
}
}

\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 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 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.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-page-number = ##f
scoreTitleMarkup = ##f
bookTitleMarkup =
\markup {
%\override #'(baseline-skip . 1)
\column \override #'(baseline-skip . 1) {
\fill-line {
\huge \larger \larger \bold
\center-column {
" "
}
}
\fill-line
{
\bold
\center-column {
" "
}
}
\fill-line
{
\center-column {
" "
}
}
\fontsize #-1.5 {
\fill-line {
}
\fill-line {
""  \text-fromproperty "Originaltonart: " #'header:key "-Dur"
}
}
}
}
}