From 35e5577e962cbfe8126d0cfc4b32ff1b5cb7fff0 Mon Sep 17 00:00:00 2001
From: Tucker Johnson <tucker@newer.systems>
Date: Mon, 4 Aug 2025 08:12:36 -0400
Subject: [PATCH] sketching

---
 manuscripts/I-clarinet.ly |  39 +++++-------
 manuscripts/I-piano.ly    | 127 ++++++++++++--------------------------
 2 files changed, 52 insertions(+), 114 deletions(-)

diff --git a/manuscripts/I-clarinet.ly b/manuscripts/I-clarinet.ly
index 01cac98..0971a94 100644
--- a/manuscripts/I-clarinet.ly
+++ b/manuscripts/I-clarinet.ly
@@ -12,30 +12,19 @@
 \relative {
   \numericTimeSignature
   \clef treble
-  \tempo Largo 2=64
-  \time 2/2
-  f'2--\p  f-- |
-  f-- f--  |
-  \time 3/2
-  f-- \tuplet 3/2 { e4( fis a,~ } 4  d,4~ |
-  d1) r4 cis''4~ |
-  \time 3/4
-  8 b'8~ \tuplet 3/2 { b4 b8( } \tuplet 3/2 { c8 g4~ }  |
-  \time 5/8
-  g8) aes( ees bes) r8 |
-  \time 2/2
-  f2~ \tuplet 3/2 { f4 e( fis } |
-  a,1)\fermata |
-  a1-- |
-  d1--\fermata |
-  cis'4( b') bes2 |
-  \time 3/8
-  \tuplet 3/2 { c8( g,4~ } 8~ |
-  \time 1/4
-  \tuplet 3/2 { g8 aes4) } |
-  \time 2/2
-  r2 \tuplet 3/2 { e4( fis a,~ } |
-  a8) r8 r4 r2 |
-  R1\fermata |
+  \tempo 4=114
+  \time 5/4 \tuplet 3/2 { e''8( dis cis) } fis16( ais,8) b16( gis8)-. r8 c16( d8) a16~ a16 g'8( f16) |
+  \time 4/4 \tuplet 3/2 { bes,8(  ees4-.) } r16 fis,16( g a) b( c d-.) e( \tuplet 3/2 { des8) f( aes) } |
+  \tuplet 3/2 { ees8-> g( bes) } r8 c8~ c2 |
+  \tuplet 3/2 { cis4( a) b~ } b4 d4 |
+  \time 5/8 aes8( f c a e) |
+  \time 4/4 \tuplet 5/4 { d4 b4 g8~ } g2~ |
+  \time 5/4 g2. \tuplet 6/4 { bes''16( aes ges f ees des } b!4) |
+  \time 4/4 d8( g~ g8.) aes16( f c8) ees16( bes ges8) a16( |
+  cis16 e) g8-. g16( b  d8~ 4.) ees8( |
+  \tuplet 3/2 { des8 c) bes( } \tuplet 3/2 { aes ges f) } a,8. e'16~ e8 b8~ |
+  b2 b8 dis16( fis cis gis f8) |
+  e16( c a8) d8. f,16~ 16 bes8.
+
 
 }
diff --git a/manuscripts/I-piano.ly b/manuscripts/I-piano.ly
index cb2a574..82e8303 100644
--- a/manuscripts/I-piano.ly
+++ b/manuscripts/I-piano.ly
@@ -10,101 +10,50 @@
   \override PianoStaff.Arpeggio.arpeggio-direction = #UP
   \new Staff = "u" \with { \consists "Merge_rests_engraver" }
   {
+    \relative { \numericTimeSignature
+    \time 5/4 R1*5/4 |
+    \time 4/4 R1 |
+    \tuplet 3/2 { r8 g'4~ } g4~ \tuplet 3/2 { g8 g4~ } g4~ |
     <<
-      \relative { \numericTimeSignature
-      \tempo Largo 2=64
-      \time 2/2
-      s1 | s1
-      \time 3/2
-      s2 s2 s2 |
-      s2 s2 s2 |
-      \time 3/4
-      \tuplet 3/2 { r8 r8 a''8( } \tuplet 3/2 { e f4~ } f4) |
-      \time 5/8
-      s4 s4 s8 |
-      \time 2/2
-      s1 |
-      s1 |
-      s1 |
-      s1 |
-      s1 |
-      \time 3/8
-      s8 s8 s8 |
-      \time 1/4
-      \tuplet 3/2 { r8 des4\fermata } |
-      \time 2/2 \clef bass
-      <<
-	\relative {
-	  \voiceOne
-	  c'4 bes s2 |
-	  s2  des2 |
-	}
-	\new Voice \relative {
-	  \afterGrace 12/16 e2 { \stemDown f8( } \afterGrace 15/16 <f aes>2) { \stemDown des'8^( } |
-	  <aes des>2) g4 f |
-	}
-      >>
-      \oneVoice
-      c,1\fermata |
+      {
+        \voiceTwo
+        \tuplet 3/2 { g8 g4~ } g4~ g4
+      }
+      \new Voice {
+        \voiceOne
+        s4 \tuplet 3/2 { r8 b4~ } b4
       }
     >>
+    \oneVoice
+    <d, g b>~\arpeggio |
+    \time 5/8 4 4.\arpeggio |
+    \time 4/4 <d b' fis'>2\arpeggio 2\arpeggio |
+    \time 5/4 2\arpeggio 2\arpeggio 4~\arpeggio |
+    \time 4/4 4 2\arpeggio 4~\arpeggio |
+    8 8~\arpeggio 4 2\arpeggio |
+    2\arpeggio 2\arpeggio |
+    2\arpeggio 2\arpeggio |
+    d r2 |
+
+    }
   }
   \new Staff = "d" \with { \consists "Merge_rests_engraver" }
   {
-    \clef bass
-    \set Staff.pedalSustainStyle = #'mixed
-    \override Score.SpacingSpanner.strict-grace-spacing = ##t
     \relative { \numericTimeSignature
-      <<
-	\relative {
-	  \voiceOne
-	  \time 2/2
-	  <c c'>2^\pp <ees c'> | <ees g> <d g> |
-	  \time 3/2
-	  <des g>1~ 4 \afterGrace r4 { g8_( } |
-	  <g c>2) \afterGrace <f c'> { ges8_( } <f c'>2) |
-	  \time 3/4
-	  \afterGrace 15/16 <ees c'>2. { d8_( } |
-	  \time 5/8
-	  <d b'>2) <e cis'>8
-	  \time 2/2
-	  <ees g c>2 <gis b>2~ |
-	  \afterGrace 15/16 1\fermata { ees'8( } |
-	  <ees g,>1) |
-	  \afterGrace 15/16 <bes g>1\fermata { \stemDown c8( } |
-	  \stemUp <aes c>2) <ees c'> |
-	  \time 3/8
-	  <fis b>4 <e c'>8~ |
-	  \time 1/4
-	  4 |
-	}
-	\new Voice \relative { \numericTimeSignature
-	  \voiceTwo
-	  \time 2/2
-	  aes,2 aes | bes bes |
-	  \time 3/2
-	  ces1~ 4 r4 |
-	  aes2 aes bes |
-	  \time 3/4
-	  bes2. |
-	  \time 5/8
-	  fis2 a8
-	  \time 2/2
-	  bes2 d2~ |
-	  1 |
-	  f,1 |
-	  e1 |
-	  ges2 f2 |
-	  \time 3/8
-	  a,4 d8~ |
-	  \time 1/4
-	  d4 |
-	}
-     >>
-      \oneVoice
-      g,2 <d~ b'>2 |
-      d2 bes'2 |
-      ees1\fermata |
-    }
+    \clef bass
+    R1*5/4 |
+    r4 <fis g>2 4~ |
+    4 2 4~ |
+    4 2 4~\arpeggio |
+    4 4.\arpeggio |
+    <g, g'>2\arpeggio 2\arpeggio |
+    2\arpeggio 2\arpeggio 4~\arpeggio |
+    4 2\arpeggio 4~\arpeggio |
+    8 8~\arpeggio 4 2\arpeggio |
+    2\arpeggio 2\arpeggio |
+    2\arpeggio 2\arpeggio |
+    2 2 |
+  }
+
   }
 >>
-- 
2.39.5