J.S. Bach: Partita 1 BWV825 - Praeludium

Signed-off-by: Davide Madrisan <[email protected]>

CHANGELOG.md

@@ -8,6 +8,7 @@ The format is based on [Keep a Changelog](https://keepachangelog.com/en/1.0.0/).
 ### Added
 
 - J.S. Bach: Neun kleine Praludien BWV924-932: Praeambulum BWV924,924a,925-928,930
+- J.S. Bach: Partita 1 BWV825
 
 ## [v47] - 2024-02-10
 

lyinit/templates/part-four-voices.ly

@@ -4,12 +4,9 @@ Global = {
   \include "../global.ly"
 }
 
-staffLower = { \change Staff = "lower" }
-staffUpper = { \change Staff = "upper" }
-
 Soprano = \context Voice = "one" \relative c' {
   \voiceOne
-  \stemNeutral
+  \stemUp
   \override MultiMeasureRest.staff-position = #0
   \override Rest.staff-position = #0
   %1

src/johann-sebastian-bach/partitas/BWV825/JS-Bach-BWV830-Partita-1.ly

@@ -0,0 +1,104 @@
+\version "2.25.12"
+
+#(ly:set-option 'relative-includes #t)
+
+\include "./covercolor.ly"
+
+\header {
+  tagline = ##f
+}
+
+\paper {
+  #(set-paper-size "a4")
+  annotate-spacing = ##f
+  binding-offset = 0\mm
+  bottom-margin = 5\mm
+  first-page-number = 0
+  indent = 0.0
+  inner-margin = 10\mm
+% last-bottom-spacing.padding = #2
+  left-margin = 10\mm
+  line-width = 18.4\cm
+  markup-system-spacing =
+     #'((basic-distance . 2)
+        (minimum-distance . 1)
+        (padding . 2)
+        (stretchability . 24))
+  outer-margin = 20\mm
+  print-all-headers = ##t
+  ragged-last-bottom = ##f
+  ragged-bottom = ##f
+  right-margin = 10\mm
+  system-system-spacing =
+     #'((basic-distance . 2)
+        (minimum-distance . 1)
+        (padding . 2)
+        (stretchability . 24))
+  top-margin = 10\mm
+  top-markup-spacing.basic-distance = 0
+  top-system-spacing.basic-distance = 1
+}
+
+\bookpart {
+  \header {
+    maintainer      = "Davide Madrisan"
+    maintainerEmail = "[email protected]"
+  }
+
+  \include "./header.ily"
+  \header {
+    title = ##f
+    composer = ##f
+  }
+
+  \markup {
+    \with-dimensions #'(0 . 0) #'(0 . 0)
+    \with-color \coverColor
+    \filled-box #'(-200 . 200) #'(-200 . 200) #0
+  }
+  \markup {
+    \fill-line {
+      \center-column {
+        \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\null
+        \line { \abs-fontsize #40 \bold "Partita I" }
+        \null\null
+        \line { \abs-fontsize #20 "BWV 825" }
+        \null\null\null
+        \null\null\null
+        \fill-line { \abs-fontsize #20 "For Piano or Harpsichord" }
+        \null\null\null
+        \null\null\null
+      }
+    }
+  }
+
+  \include "./logo.ly"
+
+  \markup {
+    \fill-line {
+      \center-column {
+        \null\null\null\null
+        \fill-line {
+          \abs-fontsize #10 "Based on: Muzgiz, Moscow"
+        }
+        \null\null
+      }
+    }
+  }
+}
+
+\include "./parts/bach-partita-1-1-praeludium.ly"
+\pageBreak
+%\include "./parts/bach-partita-1-2-allemande.ly"
+%\include "./parts/bach-partita-1-3-corrente.ly"
+%\include "./parts/bach-partita-1-4-sarabande.ly"
+%\include "./parts/bach-partita-1-5-menuet-1.ly"
+%\include "./parts/bach-partita-1-5-menuet-2.ly"
+%\include "./parts/bach-partita-1-6-giga.ly"

src/johann-sebastian-bach/partitas/BWV825/Makefile.am

@@ -0,0 +1,29 @@
+## the Free Software Foundation, either version 3 of the License, or
+## (at your option) any later version.
+##
+## This program is distributed in the hope that it will be useful,
+## but WITHOUT ANY WARRANTY; without even the implied warranty of
+## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+## GNU General Public License for more details.
+##
+## You should have received a copy of the GNU General Public License
+## along with this program.  If not, see <http://www.gnu.org/licenses/>.
+
+SUFFIXES = .in
+.in:; @echo "Generating $@...";\
+	sed "s,@rgb_color@,$(RGB_COLOR),g;" \
+	$< > $@
+
+%: %.ly
+	$(LILYPOND) --pdf --output $@ $<
+
+BUILT_SOURCES = covercolor.ly
+
+EXTRA_DIST = JS-Bach-BWV830-Partita-1.ly \
+
+all: $(BUILT_SOURCES) JS-Bach-BWV830-Partita-1
+
+clean-local:
+	 -rm -f $(BUILT_SOURCES)
+	 -rm -f *.midi parts/*.midi
+	 -rm -f *.pdf parts/*.pdf

src/johann-sebastian-bach/partitas/BWV825/covercolor.ly.in

@@ -0,0 +1 @@
+coverColor = #(rgb-color @rgb_color@)   % lavender blue

src/johann-sebastian-bach/partitas/BWV825/global.ly

@@ -0,0 +1,3 @@
+% Draw a box round the bar number(s)
+\override Score.BarNumber.stencil
+  = #(make-stencil-boxer 0.1 0.25 ly:text-interface::print)

src/johann-sebastian-bach/partitas/BWV825/header.ily

@@ -0,0 +1,65 @@
+\header {
+  composer = "Johann Sebastian Bach (1685-1750)"
+  date = ""
+
+  footer = "Mutopia-2024/02/17"
+
+  lastupdated = "2024 February 17"
+  license = "Creative Commons Attribution-ShareAlike 4.0"
+  maintainerEmail = "[email protected]"
+  maintainerWeb = "https://github.com/madrisan/open-scores"
+
+  % Extra Mutopia Information
+  mutopiacomposer = "BachJS"
+  mutopiacopyright = "Creative Commons Attribution-ShareAlike 4.0"
+  mutopiainstrument = "Harpsichord, Piano"
+  mutopiamaintainer = "Davide Madrisan"
+  mutopiaopus = "BWV 825"
+  mutopiatitle = "Partita I"
+
+  opus = "BWV 825"
+  title = "Partita I"
+  source = "Muzgiz, Moscow"
+  style = "Baroque"
+
+  copyright = \markup {
+    \override #'(font-name . "DejaVu Sans, Bold")
+    \override #'(baseline-skip . 0)
+    \right-column {
+      \with-url #"http://www.MutopiaProject.org" {
+        \abs-fontsize #9  "Mutopia "
+        \concat {
+	  \abs-fontsize #12
+	  \with-color \coverColor "ǀ"
+	  \abs-fontsize #9 "Project "
+        }
+      }
+    }
+    \override #'(font-name . "DejaVu Sans, Bold")
+    \override #'(baseline-skip . 0 )
+    \center-column {
+      \abs-fontsize #11.9
+      \with-color #grey
+      \bold { "ǀ" "ǀ" }
+    }
+    \override #'(font-name . "DejaVu Sans,sans-serif")
+    \override #'(baseline-skip . 0)
+    \column {
+      \abs-fontsize #8
+      \concat {
+        "Typeset using " \with-url #"http://www.lilypond.org" "LilyPond " ©" 2022-2024 ""by " \maintainer " — " \footer
+      }
+      \concat {
+	\concat {
+	  \abs-fontsize #8 {
+	    \with-url #"http://creativecommons.org/licenses/by-sa/40/"
+	               "Creative Commons Attribution ShareAlike 4.0 International License"
+		       " — free to distribute, modify, and perform"
+          }
+	}
+	\abs-fontsize #13 \with-color \coverColor "ǀ"
+      }
+    }
+  }
+  tagline = ##f
+}

src/johann-sebastian-bach/partitas/BWV825/logo.ly

@@ -0,0 +1,24 @@
+\markup {
+  \fill-line {
+    \center-column {
+      \fill-line { \abs-fontsize #20 \smallCaps "lavender" }
+      \fill-line {
+        \abs-fontsize #12
+        \concat {
+          \draw-line #'(-3 . 0)
+          \smallCaps " b l u e "
+          \draw-line #'(-3 . 0)
+        }
+      }
+      \fill-line { \abs-fontsize #9 \smallCaps "Open Scores" }
+      \null
+      \fill-line { \abs-fontsize #10 "Engraved by Davide Madrisan" }
+      \fill-line {
+        \with-url #"https://github.com/madrisan/open-scores/" {
+          \abs-fontsize #10
+          \typewriter "https://github.com/madrisan/open-scores/"
+        }
+      }
+    }
+  }
+}