]> git.newer.systems - net-clarity.git/commitdiff
rough draft
authorTucker Johnson <tucker@newer.systems>
Mon, 11 Aug 2025 02:27:26 +0000 (22:27 -0400)
committerTucker Johnson <tucker@newer.systems>
Mon, 11 Aug 2025 02:27:26 +0000 (22:27 -0400)
manuscripts/I-clarinet.ly
manuscripts/I-piano.ly
net-clarity.ly

index 5323b58d6c0304ed98e978184ab7ea3e2230ac9e..a1772633fe6230056fddbbd7fb76143610ca14f2 100644 (file)
@@ -4,26 +4,50 @@
   instrumentName = \markup { clarinet in \concat { \bold "B" \tiny \flat " " } }
   shortInstrumentName = \markup { cl }
   \override DynamicLineSpanner.staff-padding = \sods
-  fontSize = #-1
-  \override StaffSymbol.staff-space = #(magstep -1)
+  fontSize = \clarinetFont
+  \override StaffSymbol.staff-space = \clarinetMagstep
   \consists Text_mark_engraver
-}
+  \consists Mark_engraver
+  \RemoveEmptyStaves
+ }
 %\transpose bes c'
 \relative {
-  \numericTimeSignature
   \clef treble
-  \tempo 4=114
-  g'8. aes16( ees8)-. r8 f8. ges16( d16 e8) a,16~ |
-  a4. b16( bes des8)-. ees16( d c8)-. r8 |
-  \time 3/4 r16 g'16( ais b~ b4) \tuplet 3/2 { r8 des8( c) } |
-  \time 4/4 a4.( gis8)-. r8 b( e c) |
-  \tuplet 3/2 { d8( ees, des } e8)-. a16( f) g( fis) gis( e ees8)-. ees16( d |
-  \time 3/4 \tuplet 3/2 { bes8) c( aes) } cis16( a b8)-. b16( e f) g( |
-  \time 4/4 \tuplet 3/2 { fis8) ees( cis } d8) d16( bes g8-.) r8 r8 a16( fis) |
-  \time 3/4 \tuplet 3/2 { fis8( aes c } b-.) r8 \tuplet 3/2 { e8( f) b( } |
-  \time 3/4 d16[) c( ees) des]( \tuplet 3/2 { f8 aes)-. ges8( } bes16[ a e8])-. |
-  \time 2/4 \tuplet 3/2 { r8 g8( f } ees16)-. d( c bes)-. |
-  \time 4/4 a,8.-> e''16( fis cis8)-. b'16( gis ais dis,8)-. r4 |
-  \tuplet 3/2 { g,4_( f8 } c'8)-. r8 \tuplet 3/2 { d4( b8 } e8)-. r8 |
+  \numericTimeSignature
+  \tempo "Grave" 2 = 36
+  \time 2/2 f'2--\pp f2-- | %001
+  f2-- f2-- | %002
+  \time 3/2 f2-- \breathe \tuplet 3/2 { e4( fis a,~ } a4 d,4~ | %003
+  d1) \breathe d4~ d16 cis''8.~ | %004
+  \time 5/4 cis8 b'8~ b4~ b8 b8( c4 g4~ | %005
+  g2) \tuplet 3/2 { aes4( ees bes) } r4 | %006
+  \time 2/2 r4 f4( e4 fis | %007
+  a,1)\shortfermata | %008
+  a2( d,2~ | %009
+  d1)\shortfermata | %010
+  \time 5/4 \grace s8 r4 cis''4( b'4 bes2) | %011
+  \time 2/2 \tuplet 3/2 { r4 c4( g4~ } g2) | %012
+  \time 5/4 aes2( ees2.~ | %013
+  \time 2/2 ees8) r8 r4 r2 | %014
+  R1 | %015
+  R1\fermata  | %016
+  r2 d2~ | %017
+  \time 7/4 d4 e4( fis4 a,2.)\shortfermata r4 | %018
+  \time 2/2 \grace s8 des4( ees bes f'4~ | %019
+  \time 3/2 f2.) r4 r2 | %020
+  \time 2/2 r1\shortfermata | %021
+  \time 3/2 c2. c4( g'4 f4~ | %022
+  \time 2/2 \tuplet 3/2 { f4) e( fis } a,2)\shortfermata | %023
+  \time 5/4 g,4( b des bes'2) | %024
+  d4( c ees4~ ees2)\fermata \breathe | %025
+  d,4( e2 ees4) g8( c, | %026
+  \time 2/2 aes'4) ges2( bes4 | %027
+  a2) cis4( e) | %028
+  \time 3/2 \grace s8 g1. \breathe | %029
+  \time 5/4 cis,4( dis fis2) c4( | %030
+  \time 2/2 g2.)\shortfermata a4( | %031
+  \time 3/2 aes4 bes8) f8( e1) | %032
+  \time 2/2 d2-- d2-- | %033
+  b1\fermata \bar "|." %034
 
   }
index 60f569913025ac5aa2691b10985fe18330dde812..f5ef45916e378d0995a2f4931512a791d3c7317c 100644 (file)
   instrumentName = \markup { "piano " }
   shortInstrumentName = \markup { "pno " }
   \consists Text_mark_engraver
+
 }
 <<
   \set PianoStaff.connectArpeggios = ##t
   \override PianoStaff.Arpeggio.arpeggio-direction = #UP
+  \new Staff = "u1" \with { \consists "Merge_rests_engraver" }
+  {
+    \relative { \numericTimeSignature
+      \time 2/2 R1 | %001
+      R1 | %002
+      \time 3/2 R1*3/2 | %003
+      R1*3/2 | %004
+      \time 5/4 r4 a''4( e f2) | %005
+      R1*5/4 | %006
+      \time 2/2 R1 | %007
+      r1\shortfermata | %008
+      R1 | %009
+      r1\shortfermata | %010
+      \time 5/4 \grace s8 R1*5/4 | %011
+      \time 2/2 <b, fis'>2 r2 | %012
+      \time 5/4 des2~ des2.~ | %013
+      \time 2/2 des8 r8 r4 r2 | %014
+      R1 | %015
+      r1\fermata | %016
+      R1 | %017
+      \time 7/4 r2. r2.\shortfermata r4 | %018
+      \time 2/2 \grace s8 R1 | %019
+      \time 3/2 R1*3/2 | %020
+      \time 2/2 r1\shortfermata | %021
+      \time 3/2 r2. r4 r4 <bes' des,>4~ | %022
+      \time 2/2 2 r2\shortfermata | %023
+      \time 5/4 r4 ges,4 <aes f'> ees'2 | %024
+      <bes f'>2 <fis b>4 <gis a,>2\fermata | %025
+      r2.
+      <<
+        {
+          \voiceOne
+          r4 des'4 | %026
+        }
+        \new Voice {
+          \voiceTwo
+          aes2 | %026(b)
+        }
+      >>
+      \oneVoice
+      \time 2/2 r2 \tuplet 3/2 { r4 f4( ees) } | %027
+      r4 r4 <fis ais>4( gis) | %028
+      \time 3/2 \grace s8 r2 f1 | %029
+      \time 5/4 gis1 bes4 | %030
+      \time 2/2 R1 | %031
+      \time 3/2 r2 \tuplet 3/2 { r4 r4 ges4( } \tuplet 3/2 { ees' des aes) } | %032
+      \time 2/2 R1 | %033
+      R1\fermata \bar "|." %034
+
+    }
+  }
+
   \new Staff = "u" \with { \consists "Merge_rests_engraver" }
   {
     \relative { \numericTimeSignature
-      R1 |
-      c'''2. \tuplet 3/2 { a8( gis cis~ } |
-      \time 3/4 cis4.) fis,16( e \tuplet 3/2 { f8) d( ees) } |
-      \time 4/4 f4( bes,) \tuplet 3/2 { fis8( g4~ } g4~ |
-      <g b>1) |
-      \time 3/4 R1*3/4 |
-      \time 4/4 R1 |
-      \time 3/4 R1*3/4 |
-      R1*3/4 |
+      \clef bass
+      \tempo "Grave" 2=36
+      \time 2/2 <c c'>2\(\p <ees c'> | %001
+      <ees g> <d g> | %002
+      \time 3/2 <des g>1~ 4\) r4 | %003
+      \grace g8~ <g c>2\( <f c'> \grace ges8( <f c'>2) | %004
+      \time 5/4 <ees c'>2~ 2.\)  | %005
+      \grace d8~ <d b'>1\( <e cis'>4 | %006
+      \time 2/2 <ees g c>2 <gis b>~ | %007
+      1\)\shortfermata | %008
+      \grace ees'8~ <ees g,>1\( | %009
+      <g, bes>1\)\shortfermata | %010
+      \time 5/4 \grace c8~ <c aes>2.\( <ees, c'>2~ | %011
+      \time 2/2 2 <e c'>~ | %012
+      \time 5/4 4\) r4 r2. | %013
+      <<
+        {
+          \voiceOne
+          \time 2/2 c'4(\( bes) aes2 | %014
+        }
+        \new Voice {
+          \voiceTwo
+          \time 2/2 e2 \grace f8~ f2 | %014(b)
+        }
+      >>
+      \oneVoice
+      \grace des'8~ <des aes>2
+     <<
+        {
+          \voiceOne
+          des2 | %015
+        }
+        \new Voice {
+          \voiceTwo
+          g,4( f4) | %015(b)
+        }
+      >>
+      \oneVoice
+      <c' ees,>1\)\fermata | %016
+      <c ees,>1\( | %017
+      \time 7/4 <c ees,>2. <c ees,>2.~\)\shortfermata 4 | %018
+      <<
+        {
+          \voiceOne
+          \time 2/2 \grace s8 e1\( | %019
+        }
+        \new Voice {
+          \voiceTwo
+          \time 2/2 \grace g,8^~ g4( gis2.) | %019
+        }
+      >>
+      \oneVoice
+      \time 3/2 <e' g,>2
+      <<
+        {
+          \voiceOne
+          \grace d8~ d2 c4
+        }
+        \new Voice{
+          \voiceTwo
+          <ees, f>2.
+        }
+      >>
+      \oneVoice
+      <e c'>4 | %20
+      \time 2/2 <d b' cis>1\)\shortfermata | %021
+      \time 3/2 <g ees'>2.\( \grace f8~ <f d'>4 <ees c'>2~ | %022
+      \time 2/2 2 <d b'>2~\)\shortfermata | %023
+      \time 5/4 1 r4 | %024
+      r2. r2\fermata | %025
+      <<
+        {
+          \voiceOne
+          c'2. c2~ | %026
+          \time 2/2 c4 d
+        }
+        \new Voice {
+          \voiceTwo
+          g,2 fis4 f2 | %026(b)
+          e2
+        }
+      >>
+      \oneVoice
+      <e cis'>2 | %027
+      <d c'>1 | %028
+      \time 3/2 \grace e8~ <e c'>2 <d c'>1 | %029
+      \time 5/4 <d b'>2 <d a'>2 <ees aes>4 | %030
+      \time 2/2 <d b'>2.\shortfermata <d cis'>4 | %31
+      <<
+        {
+          \voiceOne
+          \time 3/2 c'2
+        }
+        \new Voice {
+          \voiceTwo
+          c,4( c'4)
+        }
+      >>
+      \oneVoice
+      \grace g'8~ <g b,>1 | %032
+      \time 2/2 <g a,>2 <f a,>2 | %033
+      <e g,>1\fermata \bar "|." | %034
+
     }
   }
+
   \new Staff = "d" \with { \consists "Merge_rests_engraver" }
   {
     \clef bass
     \relative {
-      R1 |
-      R1 |
-      \time 3/4 R1*3/4 |
-      \time 4/4 R1 |
-      R1 |
-      \time 3/4 R1*3/4 |
-      \time 4/4 R1 |
-      \time 3/4 R1*3/4 |
-      R1*3/4 |
+      \time 2/2 aes,2\( aes | %001
+      bes bes | %002
+      \time 3/2 ces1~ 4\) r4 | %003
+      aes2\( aes bes | %004
+      \time 5/4 bes~ bes2.\) | %005
+      fis1\( a4 | %006
+      \time 2/2 bes2 d~ | %007
+      d1\)\shortfermata | %008
+      f,1\( | %009
+      e1\)\shortfermata | %010
+      \time 5/4 \grace s8 ges2.\( f2~ | %011
+      \time 2/2 f2 d2~ | %012
+      \time 5/4 d4\) r4 r2. | %013
+      \time 2/2 g2\(
+      <<
+        {
+          \voiceOne
+          b4( a)  | %014
+        }
+        \new Voice {
+          \voiceTwo
+          d,2 | %014(b)
+        }
+      >>
+      \oneVoice
+      fis4( e) bes'2~ | %015
+      bes1\)\fermata | %016
+      bes1~\( | %017
+      \time 7/4 bes2. des,2.\)(\shortfermata d4) | %018
+      \time 2/2 \grace s8 b'2\( fis4( a4 | %019
+      \time 3/2 b2) bes4( ges4 a4) gis4( | %020
+      \time 2/2 fis1)\)\shortfermata | %021
+      \time 3/2 bes2.\( \grace a8~ a4 aes2~ | %022
+      \time 2/2 aes2\) r2\shortfermata | %023
+      \time 5/4 R1*5/4 | %024
+      r2. r2\fermata | %025
+      b2 a4 bes2 | %026
+      \time 2/2 b2 a2 | %027
+      g1 | %028
+      \time 3/2 \grace s8 a2 bes1 | %029\
+      \time 5/4 fis4 e2. f4 | %030
+      \time 2/2 e2.\shortfermata fis4 | %031
+      \time 3/2 ees4( d4~ d2.) bes'4 | %032
+      \time 2/2 bes2 bes2 | %033
+      c1\fermata \bar "|." %034
+
     }
 
+  }
 
+  \new Staff = "d2"
+  {
+    \relative {
+      \numericTimeSignature
+      \clef bass
+      \time 2/2 R1 | %001
+      R1 | %002
+      \time 3/2 R1*3/2 | %003
+      R1*3/2 | %004
+      \time 5/4 R1*5/4 | %005
+      R1*5/4 | %006
+      \time 2/2 R1 | %007
+      R1 | %008
+      R1 | %009
+      R1 | %010
+      \time 5/4 \grace s8 R1*5/4 | %011
+      \time 2/2 a,,2 r2 | %012
+      \time 5/4 R1*5/4 | %013
+      \time 2/2 R1 | %014
+      R1 | %015
+      r1\fermata | %016
+      R1 | %017
+      \time 7/4 r2. r2.\shortfermata r4 | %018
+      \time 2/2 \grace s8 R1 | %019
+      \time 3/2 R1*3/2 | %020
+      \time 2/2 r1\shortfermata | %021
+      \time 3/2 R1*3/2 | %022
+      \time 2/2 R1 | %023
+      \time 5/4 c2.~ \tuplet 3/2 { c4 e4 a4 } | %024
+      g2. <e cis'>2\fermata | %025
+      R1*5/4 | %026
+      \time 2/2 R1 | %027
+      r4 b2. | %028
+      \time 3/2 \grace s8 R1*3/2 | %029
+      \time 5/4 R1*5/4 | %030
+      \time 2/2 R1*2/2 | %031
+      \time 3/2 R1*3/2 | %032
+      \time 2/2 R1 | %033
+      R1\fermata \bar "|." %034
+
+    }
   }
 >>
index 815f50ef8ba499f69e1b88827941de4f17906d6c..572eb53c88f5dddfd8e7786a0c2cd6812a05fad3 100644 (file)
@@ -173,140 +173,149 @@ clarinetMagstep = #(magstep -2)
       poet = \markup { \xinst }
       piece = \markup { \large \bold "I. " }
     }
-    \tocItem \markup { "I. " \bold "Largo - Allegro moderato" }
+    \tocItem \markup { "I. " \bold "Grave" }
     \score {
       <<
         \include "manuscripts/I-clarinet.ly"
         \include "manuscripts/I-piano.ly"
       >>
-      \midi { }
+      %\midi { }
       \layout {
         \context {
           \Score
+          \RemoveEmptyStaves
           \override RehearsalMark.break-visibility = #begin-of-line-invisible
           \override SpacingSpanner.base-shortest-duration = #(ly:make-moment 1/16)
           \override Hairpin.to-barline = ##f
         }
+        \context {
+          \Staff
+          \override VerticalAxisGroup.remove-first = ##t
+        }
+        \context {
+          \PianoStaff
+          \remove Keep_alive_together_engraver
+        }
       }
     }
   }
 
-%  \bookpart {
-%    \header {
-%      title = \markup { \fontsize #1 \xtitle }
-%      subtitle = \markup { \medium \italic \xsub }
-%      composer = \xcomp
-%      poet = \markup { \xinst }
-%    }
-%    \tocItem \markup { "II. " \bold "Vivace" }
-%    \score {
-%      \header {
-%        piece = \markup { \large \bold "II. " }
-%      }
-%      <<
-%        \removeWithTag #'part \include "manuscripts/II-clarinet.ly"
-%        \removeWithTag #'part \include "manuscripts/II-piano.ly"
-%      >>
-%      %\midi { }
-%      \layout {
-%        \context {
-%          \Score
-%          \remove Text_mark_engraver
-%          \remove Mark_engraver
-%          \override SpacingSpanner.base-shortest-duration = #(ly:make-moment 1/20)
-%        }
-%        \context {
-%          \Staff
-%          \override OttavaBracket.outside-staff-priority = 200
-%          $(remove-grace-property 'Voice 'Stem 'direction)
-%          \override VerticalAxisGroup.default-staff-staff-spacing =
-%            #'((basic-distance . 10)
-%               (minimum-distance . 9)
-%               (padding . 2)
-%               (stretchability . 10))
-%          \override StaffGrouper.staff-staff-spacing =
-%            #'((basic-distance . 9)
-%               (minimum-distance . 5)
-%               (padding . 1)
-%               (stretchability . 1))
-%        }
-%      }
-%    }
-%  }
+  \bookpart {
+    \header {
+      title = \markup { \fontsize #1 \xtitle }
+      subtitle = \markup { \medium \italic \xsub }
+      composer = \xcomp
+      poet = \markup { \xinst }
+    }
+    \tocItem \markup { "II. " \bold "Vivace" }
+    \score {
+      \header {
+        piece = \markup { \large \bold "II. " }
+      }
+      <<
+        \removeWithTag #'part \include "manuscripts/II-clarinet.ly"
+        \removeWithTag #'part \include "manuscripts/II-piano.ly"
+      >>
+      %\midi { }
+      \layout {
+        \context {
+          \Score
+          \remove Text_mark_engraver
+          \remove Mark_engraver
+          \override SpacingSpanner.base-shortest-duration = #(ly:make-moment 1/20)
+        }
+        \context {
+          \Staff
+          \override OttavaBracket.outside-staff-priority = 200
+          $(remove-grace-property 'Voice 'Stem 'direction)
+          \override VerticalAxisGroup.default-staff-staff-spacing =
+            #'((basic-distance . 10)
+               (minimum-distance . 9)
+               (padding . 2)
+               (stretchability . 10))
+          \override StaffGrouper.staff-staff-spacing =
+            #'((basic-distance . 9)
+               (minimum-distance . 5)
+               (padding . 1)
+               (stretchability . 1))
+        }
+      }
+    }
+  }
 
-%  \bookpart {
-%    \tocItem \markup { "III." \bold "Lento, poco rubato" \parenthesize \italic "to Amber Lucas" }
-%    \score {
-%      \header {
-%        piece = \markup { \large \bold "III. " \parenthesize \italic "to Amber Lucas"  }
-%      }
-%      <<
-%        \removeWithTag #'part \include "manuscripts/III-clarinet.ly"
-%        \removeWithTag #'part \include "manuscripts/III-piano.ly"
-%      >>
+  \bookpart {
+    \tocItem \markup { "III." \bold "Lento, poco rubato" \parenthesize \italic "to Amber Lucas" }
+    \score {
+      \header {
+        piece = \markup { \large \bold "III. " \parenthesize \italic "to Amber Lucas"  }
+      }
+      <<
+        \removeWithTag #'part \include "manuscripts/III-clarinet.ly"
+        \removeWithTag #'part \include "manuscripts/III-piano.ly"
+      >>
       %\midi { }
-%      \layout {
-%        \context {
-%          \Score
-%          \remove Mark_engraver
-%          \remove Text_mark_engraver
-%          \override SpacingSpanner.base-shortest-duration = #(ly:make-moment 1/16)
-%        }
-%        \context {
-%          \Staff
-%          \override VerticalAxisGroup.default-staff-staff-spacing =
-%            #'((basic-distance . 10)
-%               (minimum-distance . 9)
-%               (padding . 2)
-%               (stretchability . 10))
-%          \override StaffGrouper.staff-staff-spacing =
-%            #'((basic-distance . 9)
-%               (minimum-distance . 5)
-%               (padding . 1)
-%               (stretchability . 1))
-%        }
-%      }
-%    }
-% }
+      \layout {
+        \context {
+          \Score
+          \remove Mark_engraver
+          \remove Text_mark_engraver
+          \override SpacingSpanner.base-shortest-duration = #(ly:make-moment 1/16)
+        }
+        \context {
+          \Staff
+          \override VerticalAxisGroup.default-staff-staff-spacing =
+            #'((basic-distance . 10)
+               (minimum-distance . 9)
+               (padding . 2)
+               (stretchability . 10))
+          \override StaffGrouper.staff-staff-spacing =
+            #'((basic-distance . 9)
+               (minimum-distance . 5)
+               (padding . 1)
+               (stretchability . 1))
+        }
+      }
+    }
+ }
 
-%  \bookpart {
-%    \tocItem \markup { "IV. " \bold "Allegro energico" }
-%    \score {
-%      \header {
-%        piece = \markup { \large \bold "IV." }
-%      }
-%      <<
-%        \removeWithTag #'part \include "manuscripts/IV-clarinet.ly"
-%        \include "manuscripts/IV-piano.ly"
-%      >>
-%      %\midi { }
-%     \layout {
-%        \context {
-%          \Score
-%          \remove Text_mark_engraver
-%          \remove Mark_engraver
-%          \override TextSpanner.bound-details.left-broken.text = " "
-%          \override SpacingSpanner.base-shortest-duration = #(ly:make-moment 1/10)
-%          \override Stem.stemlet-length = #0.75
-%        }
-%        \context {
-%          \Staff
-%          \RemoveEmptyStaves
-%          \consists Mark_engraver
-%          \override VerticalAxisGroup.default-staff-staff-spacing =
-%            #'((basic-distance . 10)
-%               (minimum-distance . 9)
-%               (padding . 2)
-%               (stretchability . 10))
-%          \override StaffGrouper.staff-staff-spacing =
-%            #'((basic-distance . 9)
-%               (minimum-distance . 5)
-%               (padding . 1)
-%               (stretchability . 1))
-%        }
-%      }
-%    }
-%  }
+  \bookpart {
+    \tocItem \markup { "IV. " \bold "Allegro energico" }
+    \score {
+      \header {
+        piece = \markup { \large \bold "IV." }
+      }
+      <<
+        \removeWithTag #'part \include "manuscripts/IV-clarinet.ly"
+        \include "manuscripts/IV-piano.ly"
+      >>
+      %\midi { }
+     \layout {
+        \context {
+          \Score
+          \remove Text_mark_engraver
+          \remove Mark_engraver
+          \override TextSpanner.bound-details.left-broken.text = " "
+          \override SpacingSpanner.base-shortest-duration = #(ly:make-moment 1/10)
+          \override Stem.stemlet-length = #0.75
+        }
+        \context {
+          \Staff
+          \RemoveEmptyStaves
+          \consists Mark_engraver
+          \override VerticalAxisGroup.default-staff-staff-spacing =
+            #'((basic-distance . 10)
+               (minimum-distance . 9)
+               (padding . 2)
+               (stretchability . 10))
+          \override StaffGrouper.staff-staff-spacing =
+            #'((basic-distance . 9)
+               (minimum-distance . 5)
+               (padding . 1)
+               (stretchability . 1))
+        }
+      }
+    }
+  }
   \pageBreak
   \markup {
     \fill-line {