From 4d5f85e093be87eb92cb9eab343aed9a52dbf91a Mon Sep 17 00:00:00 2001 From: Davide Madrisan Date: Sun, 10 Mar 2024 00:02:56 +0100 Subject: [PATCH] J.S. Bach: Die Kunst der Fuge (BWV 1080) - mark and colourize subjects in Fugue V Signed-off-by: Davide Madrisan --- .../die-kunst-der-fuge-BWV1080/macros.ly | 10 +- .../parts/05-contrapunctus-V.ly | 100 +++++++++--------- 2 files changed, 61 insertions(+), 49 deletions(-) diff --git a/src/johann-sebastian-bach/die-kunst-der-fuge-BWV1080/macros.ly b/src/johann-sebastian-bach/die-kunst-der-fuge-BWV1080/macros.ly index 9fd50627..869cacf7 100644 --- a/src/johann-sebastian-bach/die-kunst-der-fuge-BWV1080/macros.ly +++ b/src/johann-sebastian-bach/die-kunst-der-fuge-BWV1080/macros.ly @@ -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?) diff --git a/src/johann-sebastian-bach/die-kunst-der-fuge-BWV1080/parts/05-contrapunctus-V.ly b/src/johann-sebastian-bach/die-kunst-der-fuge-BWV1080/parts/05-contrapunctus-V.ly index 054c3cad..549c228f 100644 --- a/src/johann-sebastian-bach/die-kunst-der-fuge-BWV1080/parts/05-contrapunctus-V.ly +++ b/src/johann-sebastian-bach/die-kunst-der-fuge-BWV1080/parts/05-contrapunctus-V.ly @@ -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~ @@ -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 @@ -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 @@ -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 @@ -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 " @@ -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 @@ -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 @@ -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 @@ -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' { @@ -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 @@ -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" @@ -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~ @@ -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 @@ -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 @@ -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 @@ -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 @@ -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 @@ -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 @@ -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~ @@ -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