J.S. Bach: Die Kunst der Fuge (BWV 1080) - list of subjects: minor fixes

Signed-off-by: Davide Madrisan <[email protected]>
madrisan · Mar 8, 2024 · 84871a5 · 84871a5
1 parent c911286
commit 84871a5
Show file tree

Hide file tree

Showing 3 changed files with 15 additions and 8 deletions.
diff --git a/src/johann-sebastian-bach/die-kunst-der-fuge-BWV1080/header.ily b/src/johann-sebastian-bach/die-kunst-der-fuge-BWV1080/header.ily
@@ -4,9 +4,9 @@
   composer = "Johann Sebastian Bach (1685-1750)"
   date = "1740 (or 1742) until 1750"
 
-  footer = "Mutopia-2024/02/08"
+  footer = "Mutopia-2024/03/08"
 
-  lastupdated = "2024 Feb 8"
+  lastupdated = "2024 Mar 8"
   license = "Creative Commons Attribution-ShareAlike 4.0"
   maintainerEmail = "[email protected]"
   maintainerWeb = "https://github.com/madrisan/open-scores"

diff --git a/src/johann-sebastian-bach/die-kunst-der-fuge-BWV1080/list-of-subjects.ly b/src/johann-sebastian-bach/die-kunst-der-fuge-BWV1080/list-of-subjects.ly
@@ -22,7 +22,7 @@ CommonSubjectII = {
 }
 CommonSubjectIII = {
   \commonSettings
-  | d''2^\markup \abs-fontsize #8 \italic { "main subject in inversion" }
+  | d''2^\markup \abs-fontsize #8 \italic { "main subject in inversion form" }
     a
   | c e | f e4 d | cis2~ cis8 a b cis | d4 s
 }
@@ -34,9 +34,10 @@ CommonSubjectIV = {
 }
 CommonSubjectV = {
   \commonSettings
-  | d'2^\markup \abs-fontsize #8 \italic  { "14-notes version of the main subject" }
-    \once\override Stem.length = #6 a'4. g8
-  | f4. e8 d2 | cis d4. e8 | f2~ f8 g f e | d4 s
+  | \red d'2^\markup \abs-fontsize #8 \italic  { "14-notes version of the main subject" }
+    \once\override Stem.length = #6 \red a'4. g8
+  | \red f4. e8 \red d2 | \red cis \red d4. \red e8 | \red \red f2~ \red f8 \red g \red f \red e
+  | \red d4 s
 }
 
 CommonSubjectVI = {
@@ -106,7 +107,7 @@ SubjectXIFirst = {
       "first subject (inversion of VIII.3)"
     }
     d' a' g
-  | r f e d | r cis d e | r f8 g f4 e | d4 s % s2
+  | r f e d | r cis d e | r f8 g f4 e | d4 s
 }
 SubjectXISecond = {
   \commonSettings

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
@@ -2,7 +2,13 @@ greyTextColor = #(x11-color "dimgray")
 lightGrey = #(x11-color 'grey65)
 middleGrey = #(x11-color 'grey45)
 
-red = \once\override NoteHead.color = #(x11-color 'red)
+red = {
+  \once\override Accidental.color = #(x11-color 'red)
+  \once\override NoteHead.color = #(x11-color 'red)
+  %\once\override Stem.color = #(x11-color 'red)
+  %\once\override Flag.color = #(x11-color 'black)
+  %\once\override Staff.LedgerLineSpanner.color = #(x11-color 'red)
+}
 
 staffLower = { \change Staff = "lower" }
 staffUpper = { \change Staff = "upper" }