From: Tucker Johnson Date: Sun, 28 Jan 2024 13:32:57 +0000 (-0500) Subject: mvm 4 (eyk) X-Git-Url: https://git.newer.systems/?a=commitdiff_plain;h=6aa20e98482b6bc0c96252331ad1959343fbaf2a;p=net-clarity.git mvm 4 (eyk) --- diff --git a/book.ly b/book.ly index b9be5ea..cec338f 100644 --- 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 } diff --git a/manuscripts/IV-piano.ly b/manuscripts/IV-piano.ly index a126a17..efd7a24 100644 --- a/manuscripts/IV-piano.ly +++ b/manuscripts/IV-piano.ly @@ -6,60 +6,106 @@ \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 { 8->\f\>^\markup { "molto rit." } 8-> 8-> } |%030 + \time 3/4 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.-- 16~->\mf 2 | %022 + r8 fis16(\mp\< c16 g8~\mf 8~ 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_(~ 16~ 4~ | %026 + 16) cis'16( dis8~ 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) 4-> | %029 + \time 2/8 8[->\f\> 8]-> | %030 + \time 3/4 4\mf } + + } + >> diff --git a/parts/III-clarinet-part.ly b/parts/III-clarinet-part.ly deleted file mode 100644 index 506a580..0000000 --- a/parts/III-clarinet-part.ly +++ /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( 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 index ddd107c..0000000 --- a/parts/part.ly +++ /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 - } - } - } - } -} diff --git a/variables/scripts.ly b/variables/scripts.ly index 5b1d419..272d1dd 100644 --- a/variables/scripts.ly +++ b/variables/scripts.ly @@ -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)