J.S. Bach: Die Kunst der Fuge (BWV1080) - add the structure of the fu…

…gues Signed-off-by: Davide Madrisan <[email protected]>
madrisan · Oct 7, 2024 · ba132be · ba132be
1 parent e2951df
commit ba132be
Show file tree

Hide file tree

Showing 4 changed files with 371 additions and 1 deletion.
diff --git a/src/johann-sebastian-bach/die-kunst-der-fuge-BWV1080/JS-Bach-BWV1080-Die-Kunst-der-Fuge.ly b/src/johann-sebastian-bach/die-kunst-der-fuge-BWV1080/JS-Bach-BWV1080-Die-Kunst-der-Fuge.ly
@@ -123,9 +123,13 @@ Subject = \relative {
 
 \include "./index.ly"
 \pageBreak
+
 \include "./list-of-subjects.ly"
 \pageBreak
 
+\include "./structure-of-the-fugues.ly"
+\pageBreak
+
 \include "./parts/01-contrapunctus-I.ly"
 \pageBreak
 \include "./parts/02-contrapunctus-II.ly"

diff --git a/src/johann-sebastian-bach/die-kunst-der-fuge-BWV1080/Makefile.am b/src/johann-sebastian-bach/die-kunst-der-fuge-BWV1080/Makefile.am
@@ -53,7 +53,8 @@ EXTRA_DIST = JS-Bach-BWV1080-Die-Kunst-der-Fuge.ly \
 	     parts/15-canon-in-hypodiapason.ly \
 	     parts/16-canon-alla-decima.ly \
 	     parts/17-canon-alla-duodecima.ly \
-	     parts/18-canon-in-hypodiatessaron.ly
+	     parts/18-canon-in-hypodiatessaron.ly \
+	     structure-of-the-fugues.ly
 
 all: $(BUILT_SOURCES) JS-Bach-BWV1080-Die-Kunst-der-Fuge
 

diff --git a/src/johann-sebastian-bach/die-kunst-der-fuge-BWV1080/index.ly b/src/johann-sebastian-bach/die-kunst-der-fuge-BWV1080/index.ly
@@ -36,6 +36,17 @@
   }
 }
 
+\markup \column \abs-fontsize #11 {
+  \pad-around #0.4
+  \override #'(line-width . 95)
+  \line {
+    \hspace #3.2
+    \page-link #3 {
+      \fill-with-pattern #1 #RIGHT . "Structure of the Fuges" \page-ref #'ListOfSubjects "000" "4"
+    }
+  }
+}
+
 \markup \column \abs-fontsize #11 {
   \pad-around #2
   \abs-fontsize #12 \smallCaps \bold { \concat { \char ##x23AF " Contrapuncti" } }