From 7c13faa0dc0293b11531cc634ac4d45a6d74752a Mon Sep 17 00:00:00 2001 From: Tucker Johnson Date: Sun, 10 Aug 2025 22:27:26 -0400 Subject: [PATCH] rough draft --- manuscripts/I-clarinet.ly | 58 ++++++--- manuscripts/I-piano.ly | 263 +++++++++++++++++++++++++++++++++++--- net-clarity.ly | 239 +++++++++++++++++----------------- 3 files changed, 410 insertions(+), 150 deletions(-) diff --git a/manuscripts/I-clarinet.ly b/manuscripts/I-clarinet.ly index 5323b58..a177263 100644 --- a/manuscripts/I-clarinet.ly +++ b/manuscripts/I-clarinet.ly @@ -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 } diff --git a/manuscripts/I-piano.ly b/manuscripts/I-piano.ly index 60f5699..f5ef459 100644 --- a/manuscripts/I-piano.ly +++ b/manuscripts/I-piano.ly @@ -4,39 +4,266 @@ 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 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 4~ | %022 + \time 2/2 2 r2\shortfermata | %023 + \time 5/4 r4 ges,4 ees'2 | %024 + 2 4 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 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~ | - 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 2\(\p | %001 + | %002 + \time 3/2 1~ 4\) r4 | %003 + \grace g8~ 2\( \grace ges8( 2) | %004 + \time 5/4 2~ 2.\) | %005 + \grace d8~ 1\( 4 | %006 + \time 2/2 2 ~ | %007 + 1\)\shortfermata | %008 + \grace ees'8~ 1\( | %009 + 1\)\shortfermata | %010 + \time 5/4 \grace c8~ 2.\( 2~ | %011 + \time 2/2 2 ~ | %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~ 2 + << + { + \voiceOne + des2 | %015 + } + \new Voice { + \voiceTwo + g,4( f4) | %015(b) + } + >> + \oneVoice + 1\)\fermata | %016 + 1\( | %017 + \time 7/4 2. 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 2 + << + { + \voiceOne + \grace d8~ d2 c4 + } + \new Voice{ + \voiceTwo + 2. + } + >> + \oneVoice + 4 | %20 + \time 2/2 1\)\shortfermata | %021 + \time 3/2 2.\( \grace f8~ 4 2~ | %022 + \time 2/2 2 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 + 2 | %027 + 1 | %028 + \time 3/2 \grace e8~ 2 1 | %029 + \time 5/4 2 2 4 | %030 + \time 2/2 2.\shortfermata 4 | %31 + << + { + \voiceOne + \time 3/2 c'2 + } + \new Voice { + \voiceTwo + c,4( c'4) + } + >> + \oneVoice + \grace g'8~ 1 | %032 + \time 2/2 2 2 | %033 + 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. 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 + + } } >> diff --git a/net-clarity.ly b/net-clarity.ly index 815f50e..572eb53 100644 --- a/net-clarity.ly +++ b/net-clarity.ly @@ -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 { -- 2.39.5