]> git.newer.systems - net-clarity.git/commitdiff
first mvm
authorTucker Johnson <tucker@newer.systems>
Mon, 9 Jun 2025 11:31:40 +0000 (07:31 -0400)
committerTucker Johnson <tucker@newer.systems>
Mon, 9 Jun 2025 11:31:40 +0000 (07:31 -0400)
manuscripts/I-clarinet.ly
manuscripts/I-piano.ly
manuscripts/oldI-clarinet.ly [new file with mode: 0644]
manuscripts/oldI-piano.ly [new file with mode: 0644]
net-clarity.ly

index d09ae75c2a0f5fc8ba47bc9faeef656d0ded06c8..f9b535ff39edb8f3d85e0f9b8415e0a0274fc05d 100644 (file)
@@ -4,37 +4,20 @@
   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 Largo 2=92
-  \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 Allegro 4=120
+  \time 4/4
+  \partial 4 d''8( e8 |
+  ees2) f8( ges8) ges,4 |
+  f8( e8 ees2.) |
+  f'4 f8( ees8) ees4.( cis8 |
+  b2) ees2 |
+  ees1 |
 }
index 3c8e14e4d92c76a92a368ea6d007a1965b00ee44..1e74ea28b75d4710a1cb5a3b225d8dec3e2af7fc 100644 (file)
   instrumentName = \markup { "piano " }
   shortInstrumentName = \markup { "pno " }
   \consists Text_mark_engraver
+  \consists Metronome_mark_engraver
 }
 <<
   \set PianoStaff.connectArpeggios = ##t
+  \override PianoStaff.VoiceFollower.bound-details = #'((right (padding . 3)) (left (padding . 3)))
   \override PianoStaff.Arpeggio.arpeggio-direction = #UP
-  \new Staff = "u" \with { \consists "Merge_rests_engraver" }
+  \new Staff = "u" \with {
+    \consists "Merge_rests_engraver"
+    \override DynamicLineSpanner.staff-padding = \phds
+  }
   {
-    <<
-      \relative { \numericTimeSignature
-      \tempo Largo 2=92
-      \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 |
-      }
-    >>
+    \set Staff.ottavationMarkups = #ottavation-ordinals
+    \relative {
+      \tempo Allegro 4=120
+      \time 4/4
+      \partial 4 b8( cis8 |
+      c4) \tuplet 3/2 { c8( ees8) <des aes'>8( } \tuplet 3/2 { <bes' des>8 <aes f'>4) } <d fis>4 |
+      c,4( bes2) <fis' b>8(  <e cis'>8) |
+      <a d>4 <ees bes'>4 <aes c>4. fis8~ |
+      fis8 e4 f8 <aes c,>4 <g bes,>4 |
+      <aes c,>1 |
+
+    }
+  }
+  \new Staff = "d" \with {
+    \consists "Merge_rests_engraver"
   }
-  \new Staff = "d" \with { \consists "Merge_rests_engraver" }
   {
     \clef bass
-    \set Staff.pedalSustainStyle = #'mixed
-    \override Score.SpacingSpanner.strict-grace-spacing = ##t
-    \relative { \numericTimeSignature
+    \set Staff.ottavationMarkups = #ottavation-ordinals
+    \set Staff.pedalSustainStyle = #'bracket
+    \override DynamicLineSpanner.staff-padding = \phds
+    \relative {
+      \tempo Allegro 4=120
+      \partial 4 <fis, d'>8 <a g'>8 |
+      aes8 ees'8 \tuplet 3/2 { aes8( c8) bes8~ } bes4 \tuplet 3/2 { b8( fis8 d8 } |
+      \tuplet 3/2 { a4) g'8( } \tuplet 3/2 { g,4) g'8( } aes2) |
+      bes4  g4 aes4. a8_~ |
       <<
-       \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 |
-       }
+        {
+          \voiceTwo
+          a4 d,4
+        }
+        \new Voice {
+          \voiceOne
+          b'2
+        }
       >>
       \oneVoice
-      g,2 <d~ b'>2 |
-      d2 bes'2 |
-      ees1\fermata |
+      ees4 ees,4 |
+      aes1 |
     }
   }
 >>
diff --git a/manuscripts/oldI-clarinet.ly b/manuscripts/oldI-clarinet.ly
new file mode 100644 (file)
index 0000000..3df8129
--- /dev/null
@@ -0,0 +1,44 @@
+% root = ../net-clarity.ly
+
+\new Staff \with {
+  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)
+  \consists Text_mark_engraver
+}
+%\transpose bes c'
+\relative {
+%  \numericTimeSignature
+%  \clef treble
+%  \tempo Largo 2=92
+%  \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 |
+\clef treble
+\partial 4
+d8 e8 |
+
+}
diff --git a/manuscripts/oldI-piano.ly b/manuscripts/oldI-piano.ly
new file mode 100644 (file)
index 0000000..12d48bb
--- /dev/null
@@ -0,0 +1,110 @@
+% root = ../net-clarity.ly
+
+\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 { \numericTimeSignature
+%      \tempo Largo 2=92
+%      \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 |
+%      }
+%    >>
+  }
+  \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 |
+%    }
+%  }
+>>
index ad03a906942b2c75ca09d3ce0e0c6b332ce4c882..8df205d0e7484e83800949a63f362dd1c8e07b3b 100644 (file)
@@ -165,60 +165,95 @@ clarinetMagstep = #(magstep -2)
     tagline = "test"
   }
 
+  \bookpart {
+    \header {
+      title = \markup { \fontsize #1 \xtitle }
+      subtitle = \markup { \medium \italic \xsub }
+      composer = \xcomp
+      poet = \markup { \xinst }
+      piece = \markup { \large \bold "I. " }
+    }
+    \tocItem \markup { "I. " \bold "Largo - Allegro moderato" }
+    \score {
+      <<
+        \include "manuscripts/I-clarinet.ly"
+        \include "manuscripts/I-piano.ly"
+      >>
+      \midi { }
+      \layout {
+        \context {
+          \Score
+          \override RehearsalMark.break-visibility = #begin-of-line-invisible
+          \override SpacingSpanner.base-shortest-duration = #(ly:make-moment 1/16)
+          \override Hairpin.to-barline = ##f
+        }
+      }
+    }
+  }
+
 %  \bookpart {
 %    \header {
 %      title = \markup { \fontsize #1 \xtitle }
 %      subtitle = \markup { \medium \italic \xsub }
 %      composer = \xcomp
 %      poet = \markup { \xinst }
-%      piece = \markup { \large \bold "I. " }
 %    }
-%    \tocItem \markup { "I. " \bold "Largo - Allegro moderato" }
+%    \tocItem \markup { "II. " \bold "Vivace" }
 %    \score {
+%      \header {
+%        piece = \markup { \large \bold "II. " }
+%      }
 %      <<
-%        \include "manuscripts/I-clarinet.ly"
-%        \include "manuscripts/I-piano.ly"
+%        \removeWithTag #'part \include "manuscripts/II-clarinet.ly"
+%        \removeWithTag #'part \include "manuscripts/II-piano.ly"
 %      >>
 %      %\midi { }
 %      \layout {
 %        \context {
 %          \Score
-%          \override RehearsalMark.break-visibility = #begin-of-line-invisible
-%          \override SpacingSpanner.base-shortest-duration = #(ly:make-moment 1/8)
-%          \override Hairpin.to-barline = ##f
+%          \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" }
+%    \tocItem \markup { "III." \bold "Lento, poco rubato" \parenthesize \italic "to Amber Lucas" }
 %    \score {
 %      \header {
-%        piece = \markup { \large \bold "II. " }
+%        piece = \markup { \large \bold "III. " \parenthesize \italic "to Amber Lucas"  }
 %      }
 %      <<
-%        \removeWithTag #'part \include "manuscripts/II-clarinet.ly"
-%        \removeWithTag #'part \include "manuscripts/II-piano.ly"
+%        \removeWithTag #'part \include "manuscripts/III-clarinet.ly"
+%        \removeWithTag #'part \include "manuscripts/III-piano.ly"
 %      >>
 %      %\midi { }
 %      \layout {
 %        \context {
 %          \Score
-%          \remove Text_mark_engraver
 %          \remove Mark_engraver
-%          \override SpacingSpanner.base-shortest-duration = #(ly:make-moment 1/20)
+%          \remove Text_mark_engraver
+%          \override SpacingSpanner.base-shortest-duration = #(ly:make-moment 1/16)
 %        }
 %        \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)
@@ -234,41 +269,6 @@ clarinetMagstep = #(magstep -2)
 %    }
 %  }
 
-  \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))
-        }
-      }
-    }
-  }
-
 %  \bookpart {
 %    \tocItem \markup { "IV. " \bold "Allegro energico" }
 %    \score {