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 V

Signed-off-by: Davide Madrisan <d.madrisan@proton.me>
  • Loading branch information
@madrisan
madrisan committed Mar 9, 2024
1 parent c4917ef commit 4d5f85e
Show file tree
Hide file tree
Showing 2 changed files with 61 additions and 49 deletions.
10 changes: 9 additions & 1 deletion src/johann-sebastian-bach/die-kunst-der-fuge-BWV1080/macros.ly
View file
Original file line number Diff line number Diff line change
Expand Up @@ -61,11 +61,19 @@ highlightSubject =
highlightSubjectInv =
#(define-music-function (music)
(ly:music?)
"Colour the given note(s) in dark blue"
"Colour the given note(s) in dark green"
#{
\markWithColorExtended #(x11-color 'darkgreen) #music
#})

highlightBACH =
#(define-music-function (music)
(ly:music?)
"Colour the B.A.C.H. notes"
#{
\markWithColorExtended #(x11-color 'darkcyan) #music
#})

red =
#(define-music-function (music)
(ly:music?)
Expand Down
100 changes: 52 additions & 48 deletions src/johann-sebastian-bach/die-kunst-der-fuge-BWV1080/parts/05-contrapunctus-V.ly
View file
Original file line number Diff line number Diff line change
Expand Up @@ -9,24 +9,24 @@ Global = {
Soprano = \context Voice = "one" \relative c'' {
\voiceOne
| s1*6
| d2 a'4. g8
| \highlightSubject { d2^\markup \subject #'(0 . 0) #1 a'4. g8
| f4. e8 d2
| cis d4. e8
%10
| f2~ f8 a g f
| e gis a b c2~
| \unHighlightSubject e } gis a b c2~
| c8 c bes! a bes2~
| bes8 bes a g a2~
| a4 bes! g2~
%15
| g2. f4
| e2 r
| d a4. b8
| \highlightSubjectInv { d^\markup \scale #'(1 . -1) \subject #'(2.5 . 0) #1 a4. b8
| c4. d8 e2
| f e4. d8
%20
| c2~ c8 b c d
| e4 dis~ dis8 fis e dis
| e4 } dis~ dis8 fis e dis
| e d! c b c4. b8
| a2~ a8 bes! a g
| a c d e f g a4~
Expand All @@ -38,21 +38,23 @@ Soprano = \context Voice = "one" \relative c'' {
| a b\rest d2\rest
| R1*3
%33
| r2 c
| r2 \highlightSubjectInv { c^\markup \scale #'(1 . -1) \subject #'(0 . 0) #1
| f,4. g8 a4. bes8
%35
| c2 d
| c4. bes8 a2~
| a8 g a bes c2~
| a8 g a bes \unHighlightSubject c2~ }
| c8 d c bes a4 f'~
| f e2 d4~
%40
| d c2 bes!4~
| bes4.^\markup \italic\tiny \with-color #greyTextColor { "B" }
\once\override Staff.TextScript.extra-offset = #'(0 . 0.2)
a8^\markup \italic\tiny \with-color #greyTextColor { "A" }
c^\markup \italic\tiny \with-color #greyTextColor { "C" }
b^\markup \italic\tiny \with-color #greyTextColor { "H" }
| \highlightBACH {
bes4.^\markup \italic\tiny \with-color #greyTextColor { "B" }
\once\override Staff.TextScript.extra-offset = #'(0 . 0.2)
a8^\markup \italic\tiny \with-color #greyTextColor { "A" }
c^\markup \italic\tiny \with-color #greyTextColor { "C" }
b^\markup \italic\tiny \with-color #greyTextColor { "H" }
}
c4
| fis,8 d
%\shape #'((-1 . 0) (0 . -3) (0 . -2) (0 . -1)) Tie
Expand All @@ -74,12 +76,12 @@ Soprano = \context Voice = "one" \relative c'' {
%55
| d8 e! f4~ f8 g a4
| e8 f g4 d8 e f4
| e2 a4. g8
| \highlightSubject { e2^\markup \subject #'(0 . 0) #1 a4. g8
| f4. e8 d2
| cis d4. e8
%60
| f2~ f8 g f e
| d2. a4~
| \unHighlightSubject d2. } a4~
| a c f,2~
| f8 a g f e2~
| e~ e8 d cis d
Expand All @@ -88,12 +90,12 @@ Soprano = \context Voice = "one" \relative c'' {
| f4. e8 d4 g~
| g8 f e4~ e8 d c4
| f8 e d4 g8 f e4
| a2 d,4. e8
| \highlightSubjectInv { a2^\markup \scale #'(1 . -1) \subject #'(0 . 0) #1 d,4. e8
%70
| f4. g8 a2
| bes a4. g8
| f2~ f8 e f g
| a g f a d,2~
| \unHighlightSubject a } g f a d,2~
| d8 bes c2 bes4
%75
| a2~ a8 d, g bes
Expand Down Expand Up @@ -133,7 +135,7 @@ Alto = \context Voice = "two" \relative c' {
\voiceTwo
\mergeDifferentlyDottedOn
%1
| \stemUp a'2^\markup \italic \tiny \with-color #greyTextColor {
| \stemUp \highlightSubjectInv { a'2^\markup \italic \tiny \with-color #greyTextColor {
\ieyeglasses
\concat {
"14-note version of the subject "
Expand All @@ -146,7 +148,7 @@ Alto = \context Voice = "two" \relative c' {
| \stemNeutral
f2~ f8 e f g
%5
| a bes c4~ c8 bes a bes
| \unHighlightSubject a } bes c4~ c8 bes a bes
| e, f g4~ g8 a f g
| \stemDown a g f e d b cis4
| d2~ d8 e f g
Expand Down Expand Up @@ -174,12 +176,12 @@ Alto = \context Voice = "two" \relative c' {
| c,4 r r2
%25
| R1
| d2 a'4. g8
| \highlightSubject { d2_\markup \subject #'(2 . 0) #1 a'4. g8
| f4. e8 d2
| cis d4. e8
| f2~ f8 g f ees
%30
| d1~
| \unHighlightSubject d1~ }
| d8 ees d c bes2~
| bes~ bes8 d c bes
| a4. a'8 g f g4
Expand Down Expand Up @@ -212,12 +214,12 @@ Alto = \context Voice = "two" \relative c' {
| d4 a~ a8 bes c4~
| c bes2 a4~
| a8 b a gis a4 r
| r2 d,
| r2 \highlightSubject { d,_\markup \subject #'(2 . 0) #1
| a'4. g8 f4. e8
%60
| d2 cis
| d4. e8 f2~~
| f8 g f ees d2~
| f8 g f ees \unHighlightSubject d2~ }
| d~ d8 d c bes
| a2. gis4
%65
Expand All @@ -243,24 +245,24 @@ Alto = \context Voice = "two" \relative c' {
| s1*4
%78
| \stemDown
d,2 a'4. g8
\highlightSubject { d,2_\markup \subject #'(2 . 0) #1 a'4. g8
| f4. e8 d2
%80
| cis d4. e8
| f2~ f8 g f e
| d2. r4
| \unHighlightSubject d2. } r4
| r8 a' bes c d2
| a~ a8 a g4~
%85
| g8 a bes4 a4. g8~
| g e fis4 a4.
| g e \highlightSubject { fis4_\markup \subject #'(1.2 . 0) #1 a4.
\stemDown g8
| fis4. e8 d2
| cis d4. e8
| \voiceOne \stemDown fis2~
fis8 g fis e
%90
| d1
| d1 }
}

Tenor = \context Voice = "three" \relative c' {
Expand All @@ -269,7 +271,7 @@ Tenor = \context Voice = "three" \relative c' {
R1*3
| s1*6
%10
| d2 a4. b8
| \highlightSubjectInv { d2^\markup \scale #'(1 . -1) \subject #'(2.5 . 0) #1 a4. b8
| c4.
\change Staff = "upper"
\stemDown
Expand All @@ -278,7 +280,7 @@ Tenor = \context Voice = "three" \relative c' {
| \change Staff = "lower"
\stemUp
cis2~~ cis8 a b cis
| d2~ d8 d cis b
| \unHighlightSubject d2~ } d8 d cis b
%15
| cis4 d8 e f e f
\change Staff = "upper"
Expand All @@ -291,11 +293,11 @@ Tenor = \context Voice = "three" \relative c' {
| \override MultiMeasureRest.staff-position = #8
R1*2
%20
| \stemUp a,2 e'4. d8
| \stemUp \highlightSubject { a,2^\markup \subject #'(2.5 . 0) #1 e'4. d8
| c4. b8 a2
| gis a4. b8
| c2~ c8 d c bes!
| a2 r8 e' d cis
| a2 } r8 e' d cis
%25
| d2~ d8 cis e4
| a,2. d4~
Expand All @@ -318,20 +320,20 @@ Tenor = \context Voice = "three" \relative c' {
%40
| \override MultiMeasureRest.staff-position = #4
R1
| c2 g4. a8
| \highlightSubjectInv { c2^\markup \scale #'(1 . -1) \subject #'(2.5 . 0) #1 g4. a8
| bes4. c8 d2
| ees d4. c8
| bes2~ bes8 a bes c
%45
| d2~ d8 d c bes
| \unHighlightSubject d2~ } d8 d c bes
| c2~ c8 f, bes4~
| bes a bes r
| r2 f'2
| r2 \highlightSubjectInv { f'2^\markup \scale #'(1 . -1) \subject #'(2.5 . 0) #1
| bes,4. c8 d4. ees8
%50
| f2 g
| f4. ees8 d2~
| d8 c d e! f2~
| d8 c d e! \unHighlightSubject f2~ }
| f4 r f c~
| c8 d ees4~ ees8 f g4
%55
Expand All @@ -345,7 +347,7 @@ Tenor = \context Voice = "three" \relative c' {
\change Staff = "upper"
\stemDown
a'
| bes
| \once\override NoteColumn.force-hshift = #-0.3 bes
\change Staff = "lower"
\stemUp
bes, a8 g a bes
Expand All @@ -361,23 +363,23 @@ Tenor = \context Voice = "three" \relative c' {
%70
| \change Staff = "upper"
\stemDown
a d,4. e8
\highlightSubjectInv { a_\markup \scale #'(1 . -1) \subject #'(0 . 0) #1 d,4. e8
| f4. g8 a2
| bes a4. g8
| f2_~ f8 e fis g
| a g fis a d,4 g_~
| \unHighlightSubject a } g fis a d,4 g_~
%75
| g8 cis, d f bes,2_~
| bes8 a g a
\change Staff = "lower"
\stemUp
f2
| e a4. g8
| \highlightSubject { e^\markup \subject #'(-0.8 . 0) #1 a4. g8
| f4. e8 d2
| cis d4. e8
%80
| f2~ f8 g f e
| d f g a bes2~
| \unHighlightSubject d } f g a bes2~
| bes8 c bes a g bes c d
| ees2 d4 g~
| g f8 e d f e d
Expand All @@ -396,12 +398,12 @@ Tenor = \context Voice = "three" \relative c' {
Bass = \context Voice = "four" \relative c {
\voiceFour
| s1*3
| d2 a'4. g8
| \highlightSubject { d2_\markup \subject #'(0 . 0) #1 a'4. g8
%5
| f4. e8 d2
| cis d4. e8
| f2~ f8 g f e
| d f g a bes2
| \unHighlightSubject d } f g a bes2
| a4. \stemUp a,8 b4. cis8
%10
| \stemDown d4. e8 f4 d
Expand All @@ -416,7 +418,7 @@ Bass = \context Voice = "four" \relative c {
| a'4 f c'2~
| c8 c b a gis2
%20
| a~ a8 g! f4
| \highlightSubject { \unHighlightSubject a~ } a8 g! f4
| e1~
| e2 b\rest
| a' d,4. e8
Expand All @@ -431,12 +433,12 @@ Bass = \context Voice = "four" \relative c {
| bes~ bes8 bes a g
| fis2 g~
| g8 g f! e d4 e
| f2 c'4. bes8
| \highlightSubject { f2_\markup \subject #'(0 . 0) #1 c'4. bes8
| a4. g8 f2
%35
| e f4. g8
| a2~ a8 bes a g
| f2~ f8 a bes c
| \unHighlightSubject f2~ } f8 a bes c
| d2~ d8 e d c
| b d c b a g a b
%40
Expand All @@ -452,12 +454,12 @@ Bass = \context Voice = "four" \relative c {
%45
| g4 f ees2~
| ees8 ees d c d4. ees8
| f2 bes,4. c8
| \highlightSubjectInv { f2_\markup \scale #'(1 . -1) \subject #'(0 . 0) #1 bes,4. c8
| d4. ees8 f2
| g f4. ees8
%50
| d2~ d8 c d ees
| f1~
| \unHighlightSubject f1~ }
| f~
| f4 r r2
| c'4 g~ g8 a bes4~
Expand Down Expand Up @@ -501,14 +503,16 @@ Bass = \context Voice = "four" \relative c {
| bes8 a4 gis8 a4 a,
| \stemUp \tieUp
<< {
a'2 d,4.
\once\override NoteColumn.force-hshift = #0.4
\highlightSubjectInv { a'2^\markup \scale #'(1 . -1) \subject #'(2.5 . 0) #1
d,4.
\stemDown
e8 fis4. \stemDown g8 a2 bes a4. g8
e8 \once\override Dots.extra-offset = #'(0 . 0.4) fis4. \stemDown g8 a2 bes a4. g8
\stemUp
fis2~
\hide Stem
fis8 e fis g
a1\fermata
a1\fermata }
} \new Voice {
\stemDown \tieDown d,2 s d
\once\override Voice.Rest.X-offset = #1
Expand Down

0 comments on commit 4d5f85e

Please sign in to comment.