From 68c233145f5ce968edb7b1f78317ab6a6e7e1c0c Mon Sep 17 00:00:00 2001
From: Tucker Johnson <tucker@newer.systems>
Date: Fri, 10 May 2024 18:50:01 -0400
Subject: [PATCH] work

---
 book.ly                    | 75 +++++++++++++++++++++++++-------------
 eng-files/paper.ly         |  2 +-
 manuscripts/II-clarinet.ly | 28 ++++++++++++++
 manuscripts/II-piano.ly    | 44 ++++++++++++++++++++++
 4 files changed, 122 insertions(+), 27 deletions(-)
 create mode 100644 manuscripts/II-clarinet.ly
 create mode 100644 manuscripts/II-piano.ly

diff --git a/book.ly b/book.ly
index d35e419..662d0e4 100644
--- a/book.ly
+++ b/book.ly
@@ -14,32 +14,55 @@
   }
 
   \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
-       }
-     }
-   }
- }
+    \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
+        }
+      }
+    }
+  }
+
+   \bookpart {
+    \tocItem \markup { "II. " }
+    \score {
+      \header {
+        piece = \markup { \large \bold "II. " }
+      }
+      <<
+        \include "manuscripts/II-clarinet.ly"
+        \include "manuscripts/II-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/16)
+          \override Hairpin.to-barline = ##f
+        }
+      }
+    }
+  }
+
 
   \bookpart {
     \tocItem \markup { "III. " \parenthesize \italic "to Amber Lucas" }
diff --git a/eng-files/paper.ly b/eng-files/paper.ly
index e342fc3..7efebaa 100644
--- a/eng-files/paper.ly
+++ b/eng-files/paper.ly
@@ -75,7 +75,7 @@
     \center-column {
       \fill-line {
         \left-column { \concat { "                                " "       " \bold \fromproperty #'toc:text } }
-        \right-column { \concat { \fromproperty #'toc:page "                                " "       " } }
+        \right-column { \concat { \tiny \number { \fromproperty #'toc:page } "                                " "       " } }
       }
     }
   }
diff --git a/manuscripts/II-clarinet.ly b/manuscripts/II-clarinet.ly
new file mode 100644
index 0000000..1ba90ec
--- /dev/null
+++ b/manuscripts/II-clarinet.ly
@@ -0,0 +1,28 @@
+% net clarity project
+
+\new Staff \with {
+  instrumentName = \markup { clarinet in \concat { \bold "B" \tiny \flat " " } }
+  shortInstrumentName = \markup { cl }
+  \override DynamicLineSpanner.staff-padding = \sods
+  fontSize = #-2
+  \override StaffSymbol.staff-space = #(magstep -2)
+  \consists Text_mark_engraver
+}
+%\transpose bes c'
+\relative {
+  \tempo 4=114
+  \time 2/4 bes4(\mf d,8\> a'8~\p |
+  a8 cis'~ 8) r8 |
+  r4 ges8(\< f,8~ |
+  f16)[\mf r16 c'8](\> e'4\p\< |
+  \after 4 \mf ees,,2) |
+  \tuplet 3/2 { g''4(\> b, gis\p } |
+  ais16\< cis,16 a'8~ a8)\mf d,8~(\p |
+  d4. f'8\< |
+  ges,,4~\mf ges8) r8 |
+  \after 4. \< g''2~(\p |
+  g8 aes,,8~\mf aes4) |
+  e8(\> c''4\p\< b16\> dis16)\! |
+
+
+}
diff --git a/manuscripts/II-piano.ly b/manuscripts/II-piano.ly
new file mode 100644
index 0000000..fac0609
--- /dev/null
+++ b/manuscripts/II-piano.ly
@@ -0,0 +1,44 @@
+% net clarity project
+
+\new PianoStaff \with {
+  instrumentName = \markup { "piano " }
+  shortInstrumentName = \markup { "pno " }
+  \consists Text_mark_engraver
+}
+<<
+  \set PianoStaff.connectArpeggios = ##t
+  \override PianoStaff.Arpeggio.arpeggio-direction = #UP
+  \new Staff = "u" \with { \consists "Merge_rests_engraver" }
+  \relative {
+    \ottava #1 dis''''4.(\mf c,8~ |
+    c8) \ottava #0 r8 g4~ |
+    g4 r4 |
+    \ottava #1 \tuplet 3/2 { bes''8-.[ \ottava #0 r8 f,8(] } d,4) |
+    r2 |
+    r2 |
+    r2 |
+    \ottava #1 e''4. gis,8~ |
+    gis4 r8 b8( \ottava #0 |
+    \clef bass fis,,,2~  |
+    fis8 \clef treble a''8~ 4) |
+    d4.\p cis,8\mf |
+
+  }
+  \new Staff = "d" \with { \consists "Merge_rests_engraver" }
+  \relative {
+    \clef bass
+    b,,2\p |
+    r4 \ottava #-1 e,4~( |
+    e4 gis |
+    a8-.) \ottava #0 r8 r4 |
+    des'8~ <des ges,>8~ 4~ |
+    8 r8 r4 |
+    c2 |
+    r2 |
+    r8 ees,8( g,-.) r8 |
+    f2~ |
+    8 bes'8~ 4 |
+    r2 |
+
+  }
+>>
-- 
2.39.5