]> git.newer.systems - net-clarity.git/commitdiff
mvm 4 (eyk)
authorTucker Johnson <tucker@newer.systems>
Sun, 28 Jan 2024 13:32:57 +0000 (08:32 -0500)
committerTucker Johnson <tucker@newer.systems>
Sun, 28 Jan 2024 13:32:57 +0000 (08:32 -0500)
book.ly
manuscripts/IV-piano.ly
parts/III-clarinet-part.ly [deleted file]
parts/part.ly [deleted file]
variables/scripts.ly

diff --git a/book.ly b/book.ly
index b9be5ea4d53ebce626ebefcc63757d638e66b5ae..cec338fa29cc5ceb32ca8ab7181e13ff77428196 100644 (file)
--- a/book.ly
+++ b/book.ly
@@ -86,7 +86,6 @@
           \remove Text_mark_engraver
           \override RehearsalMark.break-visibility = #begin-of-line-invisible
           \override BarNumber.font-size = #1
-          \override SpacingSpanner.base-shortest-duration = #(ly:make-moment 1/2)
           \override Hairpin.to-barline = ##f
           \override Staff.pedalSustainStyle = #'mixed
         }
index a126a17444535265756c19120accaf8d8706edc7..efd7a24b82c4efa14c0a92ffd1d574ee550e5573 100644 (file)
   \consists Text_mark_engraver
 }
 <<
+
   \override PianoStaff.Arpeggio.arpeggio-direction = #UP
+
   \new Staff = "u" \with { \consists "Merge_rests_engraver" }
   {
     \set PianoStaff.connectArpeggios = ##t
-    \override DynamicLineSpanner.staff-padding = \phds
     \accidentalStyle piano
-    <<
-      \relative {
-        \numericTimeSignature
-        \tempo \markup { "Giusto e giocoso" } 4=104
-        \time 5/4 R1*5/4 | %1
-        \time 4/4 r16 bes'8.~( 2~ 8 f'8~ | %2
-        f2~ 8 ges8~ 4 | %3
-        ees4~ 8) 16( aes,16~ 2~ | %4
-        8) r8 r4 r4 r16 cis8.~( | %5
-        1~ | %6
-        \time 5/4 4~ 16 c8.~ 16 g'8.~ 2) | %7
-        \time 4/4 R1 | %8
-        r2 r4 r16 d16( e8 | %9
-        b1~ | %10
-        4~ 8) 8~( 8. a16~ 4~ | %11
-        4)
 
-      }
-    >>
+    \relative {
+      \numericTimeSignature
+      \tempo \markup { "Giusto e giocoso" } 4=104
+      \time 5/4 R1*5/4 | %001
+      \time 4/4 r16 bes'8.~(^\p^\markup { \tiny \italic "cantabile" } 2~ 8 f'8~ | %002
+      f2~ 8 ges8~ 4 | %003
+      ees4~ 8) 16( aes,16~ 2~ | %004
+      8) r8 r4 r4 r16 cis8.~(^\< | %005
+      1~ | %006
+      \time 5/4 4~ 16 c8.~ 16 g'8.~^\mp 2) | %007
+      \time 4/4 R1 | %008
+      r2 r4 r16 d16(^\pp e8 | %009
+      b1~ | %010
+      4~ 8) 8~(^\mf 8. a16~ 4~ | %011
+      4) r8. d16(^\> a4~ 8 bes8 | %012
+      c1)^\mp | %013
+      r4 g'2( f8^\< e8~ | %014
+      e8 fis16 dis16 b8 gis'8 cis,2~^\mf | %015
+      cis2) r4 r8 b8(~ | %016
+      b8. cis16 f8 d8~ d8 ees8~ ees4~ | %017
+      ees8) r8 a16(^\f gis8.~  gis4) g8 e8 | %018
+      c4-- r16 bes8.~^\mp bes16 bes16-. r8 r4 | %019
+      r4 r16 ges'8.~^\mf ges4~ ges8 ges8--^\f | %020
+      \override DynamicLineSpanner.staff-padding = \phds
+      \time 3/4 ges8-.\f r8 r4\pp r4 | %021
+      fis,8.-- g16~->\mf\> g8 bes16-. c16-. e,16-. gis8( cis16)-.\p | %022
+      r8 d16(\< a16 b4)\mf b8 dis,8~\> | %023
+      dis4 dis8-- r8 f8[-.\mp r16 f16]-. | %024
+      r8 a8-. r16\< cis16( e,8 b'8. fis16 | %025
+      bes16\f ees8.~ ees8 d8~ d4~ | %026
+      d8) r8 aes4 f'8-. c16-.\> g16-. | %027
+      <<
+        {
+          \time 5/8 R1*5/8 | %028
+        }
+        {
+          \time 5/8 s4 s8. s8.\mp
+        }
+      >>
+      f'16(\< bes,8.) g16[( d'16 fis16 e16 cis'16 a16]) | %029
+      \time 2/8 \tuplet 3/2 { <ees ees'>8->\f\>^\markup { "molto rit." } <aes, aes'>8-> <b b'>8-> } |%030
+      \time 3/4 <c c'>4\mf
+
+    }
+
   }
+
   \new Staff = "d" \with { \consists "Merge_rests_engraver" }
   {
     \clef bass
     \set Staff.pedalSustainStyle = #'mixed
     \accidentalStyle piano
     \override Score.SpacingSpanner.strict-grace-spacing = ##t
-    \override DynamicLineSpanner.staff-padding = \phds
-    \relative {
-        \numericTimeSignature
-        \tempo \markup { "Giusto e giocoso" } 4=104
-        \time 5/4 r16 f'16-. aes,8 r8 fis8-. dis'8[-. r16 cis16]-. r4 r4 | %1
-        \time 4/4 b8-. r8 a8-. c,8-. g'8-. e16-. d16-. r8. bes'16-. | %2
-        cis16-. gis8-. b16-. r8. a16-. r4 r16 e'16-. r8 | %3
-        r16 d16-. g,16-. c16-. r4 bes16-. ees,16 f8-. ges8-. r8 | %4
-        b16-. a-. g8-. g8 e'8-. cis[-. r16 d16]-. c8-. r8 | %5
-        \clef treble ees16-. f8-. fis16-. gis8-. ais8( b)-. c16( d16~ 16 e a,
-        g16~ | %6
-        \time 5/4 g8. ges16~ 8 f8~ 2.) | \clef bass %7
-        \time 4/4 r8 cis16-. dis16-. r16  ais16-.[ \set stemLeftBeamCount = #1
-        \set stemRightBeamCount = #1 r16 gis16]-. r16 a16[-. \set
-        stemLeftBeamCount = #1 \set stemRightBeamCount = #1 r16 b16]-. e,-.
-        d'8-. des16-. | %8
-        fis,16( aes8. g16)-. f-. ees8-. c16-. bes8-. a16-. r4 | %9
-        r4 r16 des16-. g-. ges-. bes,8-. ees8( d8. c16~ | %10
-        16 b8.~ 4) r8 gis8-. r8 e'8-. | %11
-        r8. f16-. cis8-. fis8-. r16 b8.( e16 ees8.~ | %12
-        16 f8 g16 d8-.) a-. r16 bes,16-. c8-. r16 des16-. ees-. f16-. | %13
 
-      }
+    \relative {
+      \numericTimeSignature
+      \tempo \markup { "Giusto e giocoso" } 4=104
+      \time 5/4 r16 f'16-.^\pp aes,16-. r16 r8 fis16-. r16 dis'16[-. r8 cis16]-. r4 r4 | %001
+      \time 4/4 b8-.^\markup { \tiny \parenthesize \italic "sempre stacatiss." } r8 a8-. c,8-. g'8-. e16-. d16-. r8. bes'16-. | %002
+      cis16-.^\< gis8-. b16-. r8. a16-. r4 r16 e'16-. r8 | %003
+      r16 d16-. g,16-. c16-.^\p r4 bes16-.^\> ees,16-. f8-. ges8-. r8 | %004
+      b16-. a-. g8-.\pp r8 e'8-. cis[-. r16 d16]-. c8-. r8 | %005
+      \clef treble ees16-. f8-. fis16-. gis8-. ais8( b)-. c16(^\< d16~ 16 e a, g16~ | %006
+      \time 5/4 g8. ges16~ 8 f8~\mp 2.) | \clef bass %007
+      \time 4/4 r8 cis16-.^\pp dis16-. r16  ais16-.[ \set stemLeftBeamCount = #1 \set stemRightBeamCount = #1 r16 gis16]-. r16 a16[-. \set stemLeftBeamCount = #1 \set stemRightBeamCount = #1 r16 b16]-. e,-. d'8-. des16-. | %008
+      fis,16(^\mp aes8. g16)-. f-.^\pp^\< ees8-. c16-. bes8-. a16-.^\mp r4 | %009
+      r4 r16 des16-.^\pp g-. ges-. bes,8-. ees8(^\< d8. c16~ | %010
+      16 b8.~\mp 4) r8 gis8-.^\pp r8 e'8-. | %011
+      r8. f16-. cis8-. fis8-. r16 b8.(^\< e16 ees8.~ | %012
+      16 f8 g16^\mf d8-.) a-.^\p r16 bes,16-. c8-. r16 des16-. ees-. f16-. | %013
+      ges-. aes-. r8 r8. b16-. e-. c8-. d16-. r16 a16-. r8 | %014
+      r2 r16 bes16-. r8 r16 g16-.^\< aes-. bes-. | %015
+      r16 c,-. des-. f-. ees8-. r8 d-. e-. fis16-. g8.(^\mf | %016
+      a,2) b8.( g'16~ 8) bes,16-.^\p e-. | %017
+      r16 ges[-. \set stemLeftBeamCount = #1 \set stemRightBeamCount = #1 r16 c,]-. r8. des16-. ees,2~^\mf | %018
+      8. a16(^\> d8 f8~ 16 b16)-.^\p r8 r8. fis,16-.^\< | %019
+      g16-. c16-. d16-. e16-. a16-. bes8.--^\mf r16 ees,16[-.^\< r16 f16]-. aes8[-. r16 ces16]-. | %020
+      \override Staff.Hairpin.stencil = ##f
+      \override Staff.DynamicText.stencil = ##f
+      \time 3/4 des8-.\f r8 a16-.\pp gis16-. f8-. b,16( cis8.) |  %021
+      d8.-- <ees ees,>16~->\mf <ees ees,>2 | %022
+      r8 fis16(\mp\< c16 g8~\mf <g e'>8~ <g e'>16) bes8(\> f16 | %023
+      cis8 gis'8 fis16 b,8-.) c16( d8-.)\mp bes16-. e16-. | %024
+      r16 g16[-. \set stemLeftBeamCount = #1 \set stemRightBeamCount = #1 r16 ees16]-. a,4(\< aes4 | %025
+      g16\f c8.~ c8) f16_(~ <f a'>16~ <f bes a'>4~ | %026
+      <f bes a'>16) cis'16( dis8~ <dis e,>8.) fis,16-. d'8-.\> r8 | %027
+      \time 5/8 a'16-. e16-. r8 b16[-. \set stemRightBeamCount = #1 fis16-. \set stemLeftBeamCount = #1 \set stemRightBeamCount = #1 r16 cis16]-.\p r8 | %028
+      c16[(\< ees8.]~ ees8) <bes bes'>4-> | %029
+      \time 2/8 <f f'>8[->\f\> <d' d'>8]-> | %030
+      \time 3/4 <g, g'>4\mf
     }
+
+  }
+
 >>
diff --git a/parts/III-clarinet-part.ly b/parts/III-clarinet-part.ly
deleted file mode 100644 (file)
index 506a580..0000000
+++ /dev/null
@@ -1,163 +0,0 @@
-% net-clarity project
-
-\new Staff \with {
-  \override DynamicLineSpanner.staff-padding = \sods
-  \consists Text_mark_engraver
-}
-\transpose bes c' \relative {
-  \compressEmptyMeasures
-  \numericTimeSignature
-  \clef treble
-  \tempo \markup { "Lento, poco rubato" } 4=50
-  \time 5/4 R1*5/4 | %1
-  \time 4/4 R1 | %2
-  \time 5/4 R1*5/4*3
-  \time 4/4 R1 | %6
-  <<
-    { \time 3/4 s4 s4 s4 }
-    \new CueVoice { \cueClef "bass" r4 a8( <a e>8~ 4) }
-  >>
-  \cueClefUnset
-  \omit Score.BarNumber
-
-  \sectionLabel \markup { \box \number 8 }
-
-  \time 4/4  d4(\pp\< c2.~ | %8
-  \undo \omit Score.BarNumber
-  \time 3/4 c8)\mp r8 r4 r8 ees8~-> | %9
-  \time 7/8 4. b4(\> e |
-  \time 3/4 cis'2)\p r8 g8(\< |
-  \time 7/8 a4. ges,2)\mp |
-  \time 4/4 r8^\markup { "poco accel." } f4.~\p\< 8 ges8_( aes'4~ |
-  aes8) r8 c,4~-> c8 b8~->\f \tuplet 3/2 { 8 d8_(\> g8 } \bar "||"
-  \omit Score.BarNumber
-
-  \sectionLabel \markup { \box \number 15 }
-
-  \tempo "Piu Mosso" 4=65
-  fis'2~\mf 8) r8 r8 des8(\> |
-  \undo \omit Score.BarNumber
-  ees,1 |
-  aes2.)\mp r8. f'16~(\mf |
-  1\> |
-  bes,1)\p |
-  r2 a'2~(\mp |
-  a4 e,2.) |
-  \time 3/4 gis,4.(\<^\markup { "rit." } fis'8 cis'4)\f \bar "||"
-  \omit Score.BarNumber
-
-  \sectionLabel \markup { \box \number 23 }
-
-  \tempo "A tempo" 4=50
-  r8 f,,4(\p ees8 bes'4~\< |
-  \undo \omit Score.BarNumber
-  8) a4( d8 g,[ c8~]\mf |
-  8) r8 r8 b8( e,4~ |
-  \time 4/4 e4) fis4.(\f cis'8~\> 8.[ ees16] |
-  bes2)\mf aes4(\mp f4~ |
-  2) r4 d'4~ |
-  4 e,8[(\< g] a[ b] c4~\f \bar "||"
-  \omit Score.BarNumber
-
-  \sectionLabel \markup { \box \number 30 }
-
-  \tempo \markup {
-    \concat {
-      \rhythm { \tuplet 3/2 { 8 } }
-      " = "
-      \rhythm { { 8 } }
-    }
-  } 4 = 75
-  \time 7/4 1) r2. |
-  \undo \omit Score.BarNumber
-  R1*7/4*3
-  \time 4/4
-  <<
-    { s2 s4 \tuplet 5/4 { r8. ees'16(\ff\> aes) } }
-    \new CueVoice { \tuplet 3/2 { f,8_( bes4~ } 16) a( cis d e8) fis16 g s4 }
-  >>
-  f'2.~\mf 8 r8 |
-  \omit Score.BarNumber
-
-  \sectionLabel \markup { \box \number 36 }
-
-  bes,1-- |
-  \undo \omit Score.BarNumber
-  R1 |
-  fis'2.--\f r4 |
-  R1 |
-  cis2.--\mf r4 |
-  b8(\mp e,~ 2\< g4~ |
-  4) \tuplet 3/2 { c4( a d~\f\> } 4) |
-  fis,2\! r8 f(\p bes,4~ |
-  8)[\< c8]( a' d,~\> 2) |
-  g8( ees~\! 2) e4~ |
-  e4. cis'8(\f gis8 b8~ 4) |
-  fis16( a d,8~ 4) f(^\markup { "rit." } ees8.) fes,16_( \bar "||"
-  \omit Score.BarNumber
-
-  \sectionLabel \markup { \box \number 48 }
-
-  \tempo 4=50
-  des'1\> \bar "||"
-  \undo \omit Score.BarNumber
-  \tempo \markup {
-    \concat {
-      \rhythm { \tuplet 3/2 { 8 } }
-      " = "
-      \rhythm { { 8 } }
-    }
-  } 4 = 75
-  aes4\mf bes2.~ |
-  bes2~\> 8)\p r8 r4 |
-  \time 3/4 r4 r4 r8 c8~\f |
-  \time 4/4 c2.\> g4(\mp |
-  \time 3/4 b2.~\< |
-  \time 4/4 8)\mf r8 r4 r2^\markup { "rit." } \bar "||"
-  \omit Score.BarNumber
-
-  \sectionLabel \markup { \box \number 55 }
-
-  \tempo "A tempo" 4=50
-  r8 f,8~(\pp^\markup { \tiny \italic "lontano; sotto voce" } 2. |
-  \undo \omit Score.BarNumber
-  des'2. ees4~ |
-  8) r8 r4 r2 |
-  R1 |
-  \time 3/4 r4 bes2( |
-  ges4 aes2) |
-  R1*3/4
-  \omit Score.BarNumber
-
-  \sectionLabel \markup { \box \number 62 }
-
-  R1*3/4
-  \undo \omit Score.BarNumber
-  \time 4/4 R1
-  \time 3/4 R1*3/4
-  \time 4/4 R1
-  \time 3/4 R1*3/4
-  \time 4/4 R1
-  \time 3/4 R1*3/4
-  \time 4/4 R1
-  \time 3/4 R1*3/4
-  \time 4/4 R1 |
-  \omit Score.BarNumber
-
-  \sectionLabel \markup { \box \number 72 }
-
-  \tuplet 3/2 { c8_(\p\<^\markup { \tiny \italic "fioritura" } b' e~ } 4)\mf \tuplet 3/2 { g,8(\> d a~ } 4~\p |
-  \undo \omit Score.BarNumber
-  8) fis4( g8~ 4 cis4~ |
-  \time 3/4 8)[ r16 cis16(]\< aes'4 c,4 |
-  \time 7/8 f bes d4.~\mf |
-  \time 3/4 8) r8 b8(\> e, a,4~\! |
-  \time 7/8 8)[ r8 aes'8(]\> des,[ ges,8~] 4~\p |
-  \time 3/4 8) r8 r4 r4 |
-  \time 4/4 r8 d'8(\mf g,2) r4 |
-  \time 5/4 r8 a8~ 2 r2 |
-  ees'2.\p r2 |
-  \time 4/4 r4 r8 bes8~(\mp\> 8 f4.~ |
-  \time 5/8 8 c'8~\p 2~ 2) |
-  r4 r8 e8(\pp b'4~ b2)\fermata \bar "|."
-}
diff --git a/parts/part.ly b/parts/part.ly
deleted file mode 100644 (file)
index ddd107c..0000000
+++ /dev/null
@@ -1,61 +0,0 @@
-% parts
-\book {
-  \header {
-    tagline = ##f
-  }
-%  \bookpart {
-%    \tocItem \markup { "I. " \bold "Largo; Allegro moderato" }
-%    \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)
-%        }
-%      }
-%    }
-%  }
-  \bookpart {
-    \tocItem \markup { "III. " \bold "Chiaro; calma" }
-    \score {
-      \header {
-        title = \markup { \fontsize #1 \xtitle }
-        subtitle = \markup { \medium \italic \xsub }
-        composer = \xcomp
-        poet = \markup { \xinst }
-        piece = \markup { \large "III." \bold "Chiaro; calma" }
-      }
-      <<
-        \include "parts/III-clarinet-part.ly"
-      >>
-      %\midi { }
-      \layout {
-        \context {
-          \Score
-          \remove Text_mark_engraver
-          \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
-          \override Staff.pedalSustainStyle = #'mixed
-        }
-        \context {
-          \Staff
-        }
-      }
-    }
-  }
-}
index 5b1d41987dce7ba0e38c1c06f72137e6c246197b..272d1dd92bbfda9dc5e4636b44c9c2a7ab9ac5b0 100644 (file)
@@ -1,4 +1,21 @@
 % project
+
+
+doubleSeparator = \markup {
+  \left-column {
+  \vcenter \combine
+  \beam #2.0 #0.3 #0.5
+  \raise #0.7 \beam #2.0 #0.3 #0.5
+  }
+  \hspace #98
+  \right-column {
+  \vcenter \combine
+  \beam #2.0 #0.3 #0.5
+  \raise #0.7 \beam #2.0 #0.3 #0.5
+  }
+}
+
+
 to-internal-ts =
 #(define-scheme-function
   (top partial bottom)