From f513c2614aa2064732aa990c9c2bf3cb12530793 Mon Sep 17 00:00:00 2001
From: Davide Madrisan <d.madrisan@proton.me>
Date: Fri, 23 Feb 2024 22:05:40 +0100
Subject: [PATCH] J.S. Bach: Goldberg Variationen - Add the Aria bass line to
 the front page

Signed-off-by: Davide Madrisan <d.madrisan@proton.me>
---
 CHANGELOG.md                                  |  1 +
 .../JS-Bach-BWV988-Goldberg-Variationen.ly    | 66 ++++++++++++++-----
 2 files changed, 51 insertions(+), 16 deletions(-)

diff --git a/CHANGELOG.md b/CHANGELOG.md
index 5c0720fc..d8ab9e0a 100644
--- a/CHANGELOG.md
+++ b/CHANGELOG.md
@@ -14,6 +14,7 @@ The format is based on [Keep a Changelog](https://keepachangelog.com/en/1.0.0/).
 
 - J.S. Bach: Sechs kleine Präludien BWV935 - completely rework pagination
 - J.S. Bach: Die Kunst der Fuge - Bief Notes: better pagination of music snippets
+- J.S. Bach: Goldberg Variationen - Add the Aria bass line to the front page
 
 ## [v47] - 2024-02-10
 
diff --git a/src/johann-sebastian-bach/goldberg-variationen-BWV988/JS-Bach-BWV988-Goldberg-Variationen.ly b/src/johann-sebastian-bach/goldberg-variationen-BWV988/JS-Bach-BWV988-Goldberg-Variationen.ly
index 9d9f136c..0fad928c 100644
--- a/src/johann-sebastian-bach/goldberg-variationen-BWV988/JS-Bach-BWV988-Goldberg-Variationen.ly
+++ b/src/johann-sebastian-bach/goldberg-variationen-BWV988/JS-Bach-BWV988-Goldberg-Variationen.ly
@@ -32,6 +32,26 @@
   top-margin = 8\mm
 }
 
+BassLine = \relative {
+  \time 4/4
+  \key g \major
+  \override Score.BarNumber.break-visibility = ##(#f #f #f)
+  \override Staff.NoteHead.style = #'baroque
+  \once\override TextScript.extra-offset = #'(-4 . -1)
+  \repeat volta 2 {
+    \clef bass
+    | g1 | fis | e | d | b | c | d | g, | g' | fis | e | a | fis | g | a | d,
+  }
+  \break
+  \repeat volta 2 {
+    | \once\override Staff.TextScript.extra-offset = #'(-6 . -2)
+      d'_\markup \italic \small {
+        "bass line of the « Aria » on which the thirty variations are based"
+      }
+    | b | c | b | g | a | b | e, | c | b | a | d | g, | c | d | g, |
+  }
+}
+
 \bookpart {
   \header {
     maintainer      = "Davide Madrisan"
@@ -52,41 +72,55 @@
   \markup {
     \fill-line {
       \center-column {
-        \null\null\null
-        \null\null\null
+        \null\null\null\null
         \line { \abs-fontsize #30 \bold "Johann Sebastian" }
         \null
         \line { \abs-fontsize #80 \bold "Bach" }
         \null
         \fill-line { \draw-hline }
         \null\null
-        \line { \abs-fontsize #40 \bold\italic "Goldberg Variationen" }
-        \null\null\null
-        \line { \abs-fontsize #20 \bold\italic "Clavier Ubung bestehend in einer" }
-        \null
-        \line { \abs-fontsize #20 \bold\italic "Aria mit verschiedenen Verænderungen" }
-        \null
-        \line { \abs-fontsize #20 \bold\italic "vors Clavicimbal mit 2 Manualen" }
+        \line { \abs-fontsize #38 \bold "Goldberg Variationen" }
         \null\null
         \line {
-          \abs-fontsize #16
-          \italic "(Keyboard exercise, consisting of an Aria with diverse variations"
+          \abs-fontsize #14 \bold\italic "Clavier Ubung bestehend in einer Aria mit verschiedenen"
         }
+        \line { \abs-fontsize #14 \bold\italic "Verænderungen vors Clavicimbal mit 2 Manualen" }
         \null
-        \line { \abs-fontsize #16 \italic "for harpsichord with two manuals)" }
-        \null\null\null\null
-        \line { \abs-fontsize #28 \bold "BWV 988" }
+        \line {
+          \abs-fontsize #14
+          \italic "Keyboard exercise, consisting of an Aria with diverse variations"
+        }
+        \line { \abs-fontsize #14 \italic "for harpsichord with two manuals" }
         \null\null\null
+        \line { \abs-fontsize #28 \bold "BWV 988" }
+        \null\null\null\null
       }
     }
   }
 
+  \markup
+    \fill-line {
+      \center-column {
+        \score {
+          <<
+          \new Voice = "subject" \BassLine
+          >>
+          \layout {
+            indent = #0
+            line-width = #150
+            #(layout-set-staff-size 14)
+          }
+        }
+        \combine \null \vspace #4
+      }
+    }
+
   \include "./logo.ly"
 
   \markup {
     \fill-line {
       \center-column {
-        \null\null\null\null
+        \null\null
         \fill-line {
           \abs-fontsize #10 "Based on a previous work of Martin Straeten, J.D. Erickson, and Hajo Dezelski"
         }
@@ -109,7 +143,7 @@
     \hspace #18
     { \bold "Johann Sebastian Bach" } \char ##x2014 "oil canvas Elias Gottlob Haußmann (1746)"
   }
-  \null
+  \null\null
 }
 
 \markup \center-column \abs-fontsize #10 \italic {