From 968e0f9d80ab269f874cf3fc31657667cadf9f04 Mon Sep 17 00:00:00 2001
From: Tucker Johnson <tucker@newer.systems>
Date: Sat, 27 Apr 2024 21:25:01 -0400
Subject: [PATCH] stemlets

---
 book.ly                  | 60 +++++++++++++++++++---------------------
 manuscripts/III-piano.ly |  3 +-
 manuscripts/IV-piano.ly  |  4 ++-
 3 files changed, 33 insertions(+), 34 deletions(-)

diff --git a/book.ly b/book.ly
index 5f02d77..d35e419 100644
--- a/book.ly
+++ b/book.ly
@@ -13,42 +13,38 @@
     tagline = ##f
   }
 
-%  \bookpart {
-%   \tocItem \markup { "I. " }
-%   \score {
-%     \header {
-%       title = \markup { \fontsize #1 \xtitle }
-%       subtitle = \markup { \medium \italic \xsub }
-%       composer = \xcomp
-%       poet = \markup { \xinst }
-%       piece = \markup { \large \bold "I. " }
-%     }
-%     <<
-%       \include "manuscripts/I-clarinet.ly"
-%       \include "manuscripts/I-piano.ly"
-%     >>
-%     %\midi { }
-%     \layout {
-%       \context {
-%         \Score
-%         \override RehearsalMark.break-visibility = #begin-of-line-invisible
-%         \override BarNumber.font-size = #1
-%         \override SpacingSpanner.base-shortest-duration = #(ly:make-moment 1/8)
-%         \override Hairpin.to-barline = ##f
-%         \override Staff.pedalSustainStyle = #'mixed
-%       }
-%     }
-%   }
-% }
-
   \bookpart {
-    \tocItem \markup { "III. " \parenthesize \italic "to Amber Lucas" }
-    \score {
-      \header {
+   \tocItem \markup { "I. " }
+   \score {
+     \header {
        title = \markup { \fontsize #1 \xtitle }
        subtitle = \markup { \medium \italic \xsub }
        composer = \xcomp
        poet = \markup { \xinst }
+       piece = \markup { \large \bold "I. " }
+     }
+     <<
+       \include "manuscripts/I-clarinet.ly"
+       \include "manuscripts/I-piano.ly"
+     >>
+     %\midi { }
+     \layout {
+       \context {
+         \Score
+         \override RehearsalMark.break-visibility = #begin-of-line-invisible
+         \override BarNumber.font-size = #1
+         \override SpacingSpanner.base-shortest-duration = #(ly:make-moment 1/8)
+         \override Hairpin.to-barline = ##f
+         \override Staff.pedalSustainStyle = #'mixed
+       }
+     }
+   }
+ }
+
+  \bookpart {
+    \tocItem \markup { "III. " \parenthesize \italic "to Amber Lucas" }
+    \score {
+      \header {
         piece = \markup { \large \bold "III. " \parenthesize \italic "to Amber Lucas"  }
       }
       <<
@@ -64,7 +60,6 @@
           \override BarNumber.font-size = #1
           \override SpacingSpanner.base-shortest-duration = #(ly:make-moment 1/16)
           \override Hairpin.to-barline = ##f
-          \override Staff.pedalSustainStyle = #'mixed
         }
         \context {
           \Staff
@@ -94,6 +89,7 @@
           \override SpacingSpanner.base-shortest-duration = #(ly:make-moment 1/10)
           \override BarNumber.font-size = #1
           \override Hairpin.to-barline = ##f
+          \override Stem.stemlet-length = #0.75
         }
         \context {
           \Staff
diff --git a/manuscripts/III-piano.ly b/manuscripts/III-piano.ly
index 6740cdb..ff240a7 100644
--- a/manuscripts/III-piano.ly
+++ b/manuscripts/III-piano.ly
@@ -147,10 +147,11 @@
       }
     >>
   }
+
   \new Staff = "d" \with { \consists "Merge_rests_engraver" }
   {
     \clef bass
-    \set Staff.pedalSustainStyle = #'mixed
+    \set Staff.pedalSustainStyle = #'bracket
     \override Score.SpacingSpanner.strict-grace-spacing = ##t
     \override DynamicLineSpanner.staff-padding = \phds
     \relative {
diff --git a/manuscripts/IV-piano.ly b/manuscripts/IV-piano.ly
index 153789d..e5ae812 100644
--- a/manuscripts/IV-piano.ly
+++ b/manuscripts/IV-piano.ly
@@ -329,7 +329,9 @@
 
       \numericTimeSignature
       \tempo 4=104
-      \time 5/4 r16[ f'16-.^\pp aes,16-. r16] r8[ ges16-. r16] ees'16[-. r16 r16 des16]-. r4 r4 | %001
+      \override Rest.staff-position = #0
+      \time 5/4 \override Staff.Beam.positions = #'(-4 . -4) r16[ f'16-.^\pp aes,16-. r16] r8[ ges16-. r16]  ees'16[-. r16 r16 des16]-. r4 r4 | %001
+      \revert Staff.Beam.positions
       \time 4/4 b8-.
       \footnote \markup "*" #'(0.01 . 0.01) \markup \tiny "*Maintain 16th note length for staccato notes."
       ^\markup { \tiny { \italic { "sempre staccatiss." } } }
-- 
2.39.5