Skip to content

Commit

Permalink
J.S. Bach: Die Kunst der Fuge (BWV 1080) - mark and colourize subject…
Browse files Browse the repository at this point in the history 
…s in Fugue VI

Signed-off-by: Davide Madrisan <d.madrisan@proton.me>
  • Loading branch information
@madrisan
madrisan committed Mar 10, 2024
1 parent 4d5f85e commit 6057401
Show file tree
Hide file tree
Showing 2 changed files with 64 additions and 61 deletions.
2 changes: 1 addition & 1 deletion src/johann-sebastian-bach/die-kunst-der-fuge-BWV1080/index.ly
View file
Original file line number Diff line number Diff line change
Expand Up @@ -49,7 +49,7 @@
"four-voice fugue on principal subject in inversion, employing counter-subjects"
}
\markup \indexItem #22 "Contrapunctus V" "21" "fugue with many stretto entries"
\markup { \indexItem #25 "Contrapunctus VI [per Diminutionem] in Stylo Francese" "24"
\markup { \indexItem #26 "Contrapunctus VI [per Diminutionem] in Stylo Francese" "25"
"fugue with many stretto entries a 4 in Stylo Francese"
}
\markup { \indexItem #32 "Contrapunctus VII per per Augmentationem et Diminutionem" "31"
Expand Down
123 changes: 63 additions & 60 deletions src/johann-sebastian-bach/die-kunst-der-fuge-BWV1080/parts/06-contrapunctus-VI.ly
View file
Original file line number Diff line number Diff line change
Expand Up @@ -4,32 +4,32 @@ Global = {
\include "../global.ly"
}

greyTextColor = #(x11-color "dimgray")
\include "../macros.ly"

Soprano = \context Voice = "one" \relative c'' {
\voiceOne
%1
| R1
| a'4 d,8. e16 f8. g16 a4
| \highlightSubjectInv { a'4^\markup \scale #'(1 . -1) \subject #'(2.5 . 0) #1 d,8. e16 f8. g16 a4
| bes a8. g16 f4~ f16 e f g
| a8.[ g16] f e d c bes4\trill a~
| \unHighlightSubject a8.[ } g16] f e d c bes4\trill a~
%5
| a8. b16 c4~ c8. b16 cis8. d16
| e4~ e16 f e d cis4 d8. e16
| f8.[ e16 f8. d16] e2~
| e8.[ d16 c8. b16] a8.[ a'16 g8. f16]
| e4 r r2
%10
| r a,4 e'8. d16
| r \highlightSubject { a,4^\markup \subject #'(0 . 0) #1 e'8. d16
| c8. b16 a4 gis a8. b16
| c4~ c16 d c b a2~
| c4~ c16 d c b \unHighlightSubject a2~ }
| a4.~ a32 a bes c d2~
| d4.~ d32 d e f g2~
%15
| g8.[ f32 e] f8.[ g16] a8.[ g32 f] e8. fis16
| g4 r a d,8. e16
| g4 r \highlightSubjectInv { a^\markup \scale #'(1 . -1) \subject #'(2.2 . 0) #1 d,8. e16
| f8. g16 a4 bes a8. g16
| f4~ f16 e f g a4 r
| f4~ f16 e f g a4 } r
| \override MultiMeasureRest.staff-position = #8
R1*2
%21
Expand All @@ -54,11 +54,11 @@ Soprano = \context Voice = "one" \relative c'' {
| g8~[ g32 e' f g] f8.[ e16] d8.[ c16] bes4
| a8 r r4 r2
%35
| d2 g,4. a8
| \highlightSubjectInv { d2^\markup \scale #'(1 . -1) \subject #'(0 . 0) #1 g,4. a8
| bes4. c8 d2
| ees d4. c8
| bes2~ bes8. a16 bes8. c16
| d4~ d16 ees d c bes d ees f g4~
| \unHighlightSubject d4~ } d16 ees d c bes d ees f g4~
%40
| g16[ aes g f] ees d c bes! a!8.\trill[ g32 f] bes4~
| bes16[ a g a] bes c d e! f8.[ ees16] d c bes a
Expand All @@ -80,20 +80,20 @@ Soprano = \context Voice = "one" \relative c'' {
%55
| d8. c16 bes4~ bes8. e,16 a8. g16
| f8. fis16 g8. a16 bes8. b16 cis8. d16
| e4 a8.[ g16] f8. e16 d4
| \highlightSubject { e4^\markup \subject #'(0 . 0) #1 a8.[ g16] f8. e16 d4
| cis d8. e16 f4~ f16 g f e
| d4 r r2
| d4 } r r2
| \override MultiMeasureRest.staff-position = #4
R1*2
| s1*2
%64
| r2 a2
| r2 \highlightSubjectInv { a2^\markup \scale #'(1 . -1) \subject #'(0 . 0) #1
%65
| \once\override NoteColumn.force-hshift = #0.5 d,4.
e8 f4. g8
| a2 bes
| a4. g8 f2~
| f8.[ e16 f8. g16] a2~
| f8.[ e16 f8. g16] \unHighlightSubject a2~ }
| a8~[ a32 d, e f] g2.~
%70
| g8~[ g32 c, d e] f4~ f8. d16 g8. f16
Expand Down Expand Up @@ -126,18 +126,18 @@ Soprano = \context Voice = "one" \relative c'' {
Alto = \context Voice = "two" \relative c' {
\voiceTwo
| R1*2 %1 to 2
| r2 d4 a'8. g16
| r2 \highlightSubject { d4_\markup \subject #'(1.5 . 0) #1 a'8. g16
| f8. e16 d4 cis d8. e16
%5
| f4~ f16 g f e d4 e8. f16
| f4~ f16 g f e d4 } e8. f16
| g4 f~ f8.[ e16 f8. g16]
| a2~ a8.[ b16] c8~[ c32 b a gis]
| a2 e'4. d8
| \highlightSubject { a2_\markup \subject #'(-2 . 0) #1 e'4. d8
| c4. b8 a2
%10
| gis a4. b8
| c2~ c8.[ d16 c8. b16]
| a4~ a8. gis16 a4.~ a32 g f e
| \unHighlightSubject a4~ } a8. gis16 a4.~ a32 g f e
| f2~ f4.~ f32 f g a
| bes2~ bes8.[ b16] d8[ cis32 b cis d]
%15
Expand All @@ -153,27 +153,27 @@ Alto = \context Voice = "two" \relative c' {
| g8. e16 f4~ f8.[ e16 f8. g16]
| a4 d g, r
%25
| f2 c'4. bes8
| \highlightSubject { f2_\markup \subject #'(1 . 0) #1 c'4. bes8
| a4. g8 f2
| e f4. g8
| a2~ a8.[ bes16 a8. g16]
| f2~ f8.[ d16 g8. f16]
| \unHighlightSubject f2~ } f8.[ d16 g8. f16]
%30
| e2~ e8.[ c16 f8. e16]
| d2. cis4
| a'4 d,8.[ e16] f8.[ g16] a4
| \highlightSubjectInv { a'4_\markup \scale #'(1 . -1) \subject #'(-1.6 . 0) #1 d,8.[ e16] f8.[ g16] a4
| bes a8. g16 f4~ f16 e f g
| a8.[ bes16 c8. d16] g,8. ees'16 a,8.[ bes32 c]
| \unHighlightSubject a8.[ } bes16 c8. d16] g,8. ees'16 a,8.[ bes32 c]
%35
| fis,8. a16 d,4~ d8.[ d16 e8. fis16]
| g8.[ fis16 g8. a16] bes8.[ c32 d] c16 bes a g
| c8.[ bes32 a] bes8.[ fis16] g8.[ a32 bes] e,8. fis16
| g4 r r2
| R1*3
%42
| f4 bes,8.[ c16] d8. ees16 f4
| \highlightSubjectInv { f4_\markup \scale #'(1 . -1) \subject #'(1 . 0) #1 bes,8.[ c16] d8. ees16 f4
| g f8. ees16 d4~ d16 c d e
| f8. c16 f2 e16 d e fis
| \unHighlightSubject f8. } c16 f2 e16 d e fis
%45
| g8. d16 g2 f8~[ f32 a bes c]
| d4 g,2 f8. d16
Expand All @@ -190,18 +190,19 @@ Alto = \context Voice = "two" \relative c' {
%55
| a8. d,16 g8. f16 e8. d16 cis4
| d2~ d16[ d e f] e d cis b
| cis4~ cis16 a b cis d8. e16 f8. g16 a2 \stemUp d,4. e8
| cis4~ cis16 a b cis d8. e16 f8. g16
\highlightSubjectInv { a2_\markup \scale #'(1 . -1) \subject #'(1.3 . 0) #1 \stemUp d,4. e8
| f4. g8 a2
%60
| bes a4. g8
| f2^~ f8. e16 f8. g16
| a4~ a16 c, d e f[ g f e] d f g a
| \unHighlightSubject a4~ } a16 c, d e f[ g f e] d f g a
| bes[ c bes a] g g, a bes c[ d c bes] a bes a g
| f8~ f32 a b cis] \stemDown d4~ d8. cis!16 d8. e16
%65
| f4 r d a'8. g16
| f4 r \highlightSubject { d^\markup \subject #'(0 . 0) #1 a'8. g16
| f8. e16 d4 cis d8. e16
| f4~ f16 g f e d8. a16 bes8. c16
| f4~ f16 g f e \unHighlightSubject d8. } a16 bes8. c16
| d2~ d8.[ a16 d8. c16]
| bes8. a16 bes4~ bes8. g16 c8. bes16
%70
Expand All @@ -212,9 +213,9 @@ Alto = \context Voice = "two" \relative c' {
| f8. g16 e8. g16 g8~[ g32 g fis e] fis8. a16
%75
| d,8.[ c16 bes8. ees16] a,8~[ a32 a' bes c] bes16 a g fis
| g8. d16 e8. fis16 g4 d'8. c16
| g8. d16 e8. fis16 \highlightSubject { g4_\markup \subject #'(1 . 0) #1 d'8. c16
| bes8. a16 g4 fis g8. a16
| bes4~ bes16 c bes a g4~ g16 a g fis
| bes4~ bes16 c bes a \unHighlightSubject g4~ } g16 a g fis
| \once\override NoteColumn.force-hshift = #0.4 e8
r r8.
\once\override NoteColumn.force-hshift = #0.4 g16 a2
Expand All @@ -223,9 +224,9 @@ Alto = \context Voice = "two" \relative c' {
Tenor = \context Voice = "three" \relative c' {
\voiceThree
| s1*6
| d4 a8. b16 c8. d16 e4
| \highlightSubjectInv { d4^\markup \scale #'(1 . -1) \subject #'(2.5 . 0) #1 a8. b16 c8. d16 e4
| f e8. d16 c4~ c16 b c d
| e2. d4~
| \unHighlightSubject e2. } d4~
%10
| d8.[ b16 e8. d16] c8.[ d16 c8. b16]
| a8. e'16~ e8. dis16 e8. b16 c8. gis16
Expand All @@ -234,7 +235,7 @@ Tenor = \context Voice = "three" \relative c' {
| g8~[ g32 d' e f] g8.[ f16] e8.[ f16] e8.[ d16]
%15
| cis4 a~ a r
| d2
| \highlightSubject { d2^\markup \subject #'(2.2 . 0) #1
\change Staff = "upper"
\stemDown
a'4. g8
Expand All @@ -246,42 +247,42 @@ Tenor = \context Voice = "three" \relative c' {
\stemDown
f2_~ f8. g16 f8. e16
%20
| d4 d\rest c2
| d4 } d\rest \highlightSubjectInv { c2_\markup \scale #'(1 . -1) \subject #'(1.2 . 0) #1
| \change Staff = "lower"
\stemUp
f,4. g8 a4. bes8
| c2 d
| c4. bes8 a2~
| a8.[ g16 a8. b16] c4 r
| a8.[ g16 a8. b16] c4 } r
%25
| \override MultiMeasureRest.staff-position = #8
R1
| c4 f,8.[ g16] a8.[ bes16] c4
| \highlightSubjectInv { c4^\markup \scale #'(1 . -1) \subject #'(0 . 0) #1 f,8.[ g16] a8.[ bes16] c4
| des c8. bes16 a4~ a16 g a bes
| c4~ c16 b c d e4 r
| \unHighlightSubject c4~ } c16 b c d e4 r
%30
| \override MultiMeasureRest.staff-position = #6
R1
| \override MultiMeasureRest.staff-position = #8
R1
| d,2 a'4. g8
| \highlightSubject { d,2^\markup \subject #'(2.4 . 0) #1 a'4. g8
| f4. e8 d2
| cis d4. e8
| f2~ f8.[ g16 f8. ees16]
%35
| d8. fis16 g8. a16 bes4 c
| \unHighlightSubject d8. } fis16 g8. a16 bes4 c
| d~ d16 c bes a g4 r
| r2 d'4 g,8. a16
| r2 \highlightSubjectInv { d'4^\markup \scale #'(1 . -1) \subject #'(2.4 . 0) #1 g,8. a16
| bes8. c16 d4 ees d8. c16
| bes4~ bes16 a bes c d4~ d16 g, a b
| bes4~ bes16 a bes c \unHighlightSubject d4~ } d16 g, a b
%40
| c4 r r2
| R1
| s1*6
| d,4 a'8. g16 f8. e16 d4
| \highlightSubject { d,4^\markup \subject #'(2.2 . 0) #1 a'8. g16 f8. e16 d4
| cis d8. e16 f4~ f16 g f e
%50
| d8.[ cis16 d8. e16] f8 r r4
| \unHighlightSubject d8.[ } cis16 d8. e16] f8 r r4
| r8 r32 e fis gis a4~ a8 r r4
| r2 r8 r32 d, e fis g4~
| g8 r r4 r2
Expand All @@ -293,19 +294,19 @@ Tenor = \context Voice = "three" \relative c' {
| \stemUp a r
\change Staff = "upper"
\stemDown
d a'8. g16
\highlightSubject { d_\markup \subject #'(-2 . 0) #1 a'8. g16
| f8. e16 d4 cis d8. e16
%60
| f4_~ f16 a g f e f e d cis4
| f4_~ f16 a g f \unHighlightSubject e } f e d cis4
| d8. a16 d8~[ d32 c bes a] bes8. g16 c4_~
| c a\rest a2\rest
| a\rest
\change Staff = "lower"
\stemUp
f4 c'8. bes16
\highlightSubject { f4^\markup \subject #'(2 . 0) #1 c'8. bes16
| a8. g16 f4 e f8. g16
%65
| a4~ a16 bes a g f[ g f e] d8. a'16
| a4~ a16 bes a g \unHighlightSubject f[ } g f e] d8. a'16
| d8. c16 bes8. a16 g8 r r4
| r16 e f g a4~ a16 bes a g f4~
| f16 e d cis d2 r8. d16
Expand All @@ -315,10 +316,10 @@ Tenor = \context Voice = "three" \relative c' {
| g4 r8 r16 e a8.[ g16 f8. c'16]
| d8.[ c16 bes8. a16] g4. r16 g
| g4 r8 a a r r8. bes16
| a8.[ bes16] a8 r a4 d8. c16
| a8.[ bes16] a8 r \highlightSubject { a4^\markup \subject #'(2.2 . 0) #1 d8. c16
%75
| bes8. a16 g4 fis g8. a16
| bes4~ bes16 c bes a g4. a8
| bes4~ bes16 c bes a \unHighlightSubject g4. } a8
| bes8.[ c16 d8. bes16] c8.[ a16 bes8. c16]
| d8~[ d32 d, e fis] g8. a16 bes8. c16 d c bes a
| \stemUp
Expand All @@ -332,16 +333,18 @@ Tenor = \context Voice = "three" \relative c' {
Bass = \context Voice = "four" \relative c {
\voiceFour
%1
| d2_\markup \italic \tiny \with-color #greyTextColor {
\ieyeglasses
"In Contrapunctus 6 there are 14 entries of the subject rectus and 14 entries inversus"
}
| \highlightSubject { d2
%_\markup \italic \tiny \with-color #greyTextColor {
% \ieyeglasses
% "In Contrapunctus 6 there are 14 entries (15?) of the subject rectus and 14 (13?) entries inversus"
%}
^\markup \subject #'(0 . 0) #1
a'4. g8
| f4. e8 d2
| cis d4. e8
| f2~ f8.[ g16 f8. e16]
%5
| \stemUp d8.[ d,16 e8. f16] g8.[ a16 g8. f16]
| \stemUp \unHighlightSubject d8.[ } d,16 e8. f16] g8.[ a16 g8. f16]
| e8.[ e'16 f8. g16] \stemNeutral a8.[ bes16 a8. g16]
| f4 d a'2~
| a1~
Expand All @@ -351,14 +354,14 @@ Bass = \context Voice = "four" \relative c {
| a8. g!16 f4 e2
| R1*3
%15
| a4 d,8. e16 f8. g16 a4
| \highlightSubjectInv { a4_\markup \scale #'(1 . -1) \subject #'(0 . 0) #1 d,8. e16 f8. g16 a4
| bes a8. g16 f4~ f16 e f g
| a2 c,4\rest c8\rest bes'!
| a2 } c,4\rest c8\rest bes'!
| a8. g16 f4~ f8~[ f32 g f e] d4
| r8 r32 d e f \tieUp g4~ g8~[ g32 e f g] a8. g16
%20
| f8. d16 g8. f16 e8~[ e32 c d e] f8. ees16
| d8. c16 d8. e!16 f8. e16 f8. g16
| \once\override NoteColumn.force-hshift = #0.4 d8. c16 d8. e!16 f8. e16 f8. g16
| a4~ a8~[ a32 f g a] bes8. a16 g8. f16
| e!8. c16 \tieDown f4~ f8.[ g16 f8. e16]
| d2 c8~[ c32 g' a bes] c8. bes16
Expand All @@ -376,9 +379,9 @@ Bass = \context Voice = "four" \relative c {
| f8.[ g16 a8. bes16] c2~
%35
| c4. c8 bes4. a8
| g4 d'8. c16 bes8. a16 g4
| \highlightSubject { g4_\markup \subject #'(1.3 . 0) #1 d'8. c16 bes8. a16 g4
| fis g8. a16 bes4~ bes16 c bes a
| g8 g'~ g~[ g32 f ees d] c8. f16 g8. a16
| \unHighlightSubject g8 } g'~ g~[ g32 f ees d] c8. f16 g8. a16
| bes8. a16 g4~ g8. f16 ees4~
%40
| ees8. d16 c8. d16 ees[ g f ees] d c bes a
Expand All @@ -389,12 +392,12 @@ Bass = \context Voice = "four" \relative c {
%45
| g8.[ g'16 f8. e16] d8~[ d32 a' b cis] d8. c16
| \stemDown bes8.[ a16 bes8. g16] a4 d,\rest
| \stemUp a2 d,4. e8
| \stemUp \highlightSubjectInv { a2_\markup \scale #'(1 . -1) \subject #'(0 . 0) #1 d,4. e8
| \stemDown f4. g8 a2
| bes a4. g8
%50
| f2~ f8.[ e16 f8. g16]
| a2~ a8~[ a32 c b a] g8~[ g32 a g f]
| \unHighlightSubject a2~ } a8~[ a32 c b a] g8~[ g32 a g f]
| e8.[ d16 e8. f16] g2~
| g8~[ g32 bes a g] f8~[ f32 g f e] d8.[ c16 d8. e16]
| f2~ f8 r r4
Expand Down

0 comments on commit 6057401

Please sign in to comment.