From 9cd5223ebb6785f022e41e09dc23b58666218f67 Mon Sep 17 00:00:00 2001 From: Tucker Johnson Date: Mon, 9 Jun 2025 07:31:40 -0400 Subject: [PATCH] first mvm --- manuscripts/I-clarinet.ly | 43 ++++-------- manuscripts/I-piano.ly | 130 +++++++++++------------------------ manuscripts/oldI-clarinet.ly | 44 ++++++++++++ manuscripts/oldI-piano.ly | 110 +++++++++++++++++++++++++++++ net-clarity.ly | 112 +++++++++++++++--------------- 5 files changed, 263 insertions(+), 176 deletions(-) create mode 100644 manuscripts/oldI-clarinet.ly create mode 100644 manuscripts/oldI-piano.ly diff --git a/manuscripts/I-clarinet.ly b/manuscripts/I-clarinet.ly index d09ae75..f9b535f 100644 --- a/manuscripts/I-clarinet.ly +++ b/manuscripts/I-clarinet.ly @@ -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 | } diff --git a/manuscripts/I-piano.ly b/manuscripts/I-piano.ly index 3c8e14e..1e74ea2 100644 --- a/manuscripts/I-piano.ly +++ b/manuscripts/I-piano.ly @@ -4,107 +4,57 @@ 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 2) { \stemDown des'8^( } | - 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) 8( } \tuplet 3/2 { 8 4) } 4 | + c,4( bes2) 8( 8) | + 4 4 4. fis8~ | + fis8 e4 f8 4 4 | + 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 8 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 - 2^\pp | | - \time 3/2 - 1~ 4 \afterGrace r4 { g8_( } | - 2) \afterGrace { ges8_( } 2) | - \time 3/4 - \afterGrace 15/16 2. { d8_( } | - \time 5/8 - 2) 8 - \time 2/2 - 2 2~ | - \afterGrace 15/16 1\fermata { ees'8( } | - 1) | - \afterGrace 15/16 1\fermata { \stemDown c8( } | - \stemUp 2) | - \time 3/8 - 4 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 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 index 0000000..3df8129 --- /dev/null +++ b/manuscripts/oldI-clarinet.ly @@ -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 index 0000000..12d48bb --- /dev/null +++ b/manuscripts/oldI-piano.ly @@ -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 2) { \stemDown des'8^( } | +% 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 +% 2^\pp | | +% \time 3/2 +% 1~ 4 \afterGrace r4 { g8_( } | +% 2) \afterGrace { ges8_( } 2) | +% \time 3/4 +% \afterGrace 15/16 2. { d8_( } | +% \time 5/8 +% 2) 8 +% \time 2/2 +% 2 2~ | +% \afterGrace 15/16 1\fermata { ees'8( } | +% 1) | +% \afterGrace 15/16 1\fermata { \stemDown c8( } | +% \stemUp 2) | +% \time 3/8 +% 4 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 2 | +% d2 bes'2 | +% ees1\fermata | +% } +% } +>> diff --git a/net-clarity.ly b/net-clarity.ly index ad03a90..8df205d 100644 --- a/net-clarity.ly +++ b/net-clarity.ly @@ -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 { -- 2.39.5