From b2d8c6f672ff10594326972db0f0908ef769beec Mon Sep 17 00:00:00 2001 From: Tucker Johnson Date: Fri, 24 Jan 2025 02:00:41 -0500 Subject: [PATCH] cluster --- general/aliases.ly | 26 +++++++++++++++++--- manuscripts/II-clarinet.ly | 26 ++++++++++---------- manuscripts/II-piano.ly | 50 ++++++++++++++++++++++++++------------ net-clarity.ly | 2 +- 4 files changed, 71 insertions(+), 33 deletions(-) diff --git a/general/aliases.ly b/general/aliases.ly index 443f2dd..7bc46ea 100644 --- a/general/aliases.ly +++ b/general/aliases.ly @@ -47,12 +47,30 @@ psubito = #:transparent "f" #:normal-text #:italic "subito" ) ) -niente = -#(make-dynamic-script - (markup - (#:normal-text #:abs-fontsize 10 #:bold "n"))) +niente = #(make-dynamic-script (markup (#:normal-text #:abs-fontsize 10 #:bold "n"))) + + +clusStemA = { + \once \override Stem.length = #11 +} +clusStemB = { + \once \override NoteHead.X-offset = #4 + \once \override Stem.rotation = #'(-33 0 0) + \once \override Stem.length = #9.7 + \once \override Stem.extra-offset = #'(2.65 . 0.4) + \once \override Flag.style = #'no-flag + \once \override Accidental.extra-offset = #'(4 . -.1) +} +clusStemC = { + \once \override NoteHead.X-offset = #4.8 + \once \override Stem.rotation = #'(-37 0 0) + \once \override Stem.length = #12.5 + \once \override Stem.extra-offset = #'(3.2 . 0.7) + \once \override Flag.style = #'no-flag + \once \override Accidental.extra-offset = #'(4.9 . -0.1) +} doubleSeparator = \markup { \left-column { diff --git a/manuscripts/II-clarinet.ly b/manuscripts/II-clarinet.ly index e20da09..6b70cd2 100644 --- a/manuscripts/II-clarinet.ly +++ b/manuscripts/II-clarinet.ly @@ -11,8 +11,7 @@ } %\transpose bes c' \relative { - \tempo "Vivace" 4=168 - \time 2/4 ces'4.\f ees8 | %001 + \tempo "Vivace" 4=168 \time 2/4 ces'4.\f ees8 | %001 \time 6/8 bes'8-. r8 r8 c,4. | %002 \time 3,2,2 7/8 d'4.\> a'8( cis8~\mp 4~ | %003 \time 4/4 cis8) e,,,8 g'8-. r8 r8 aes,8~ aes4 | %004 @@ -124,36 +123,37 @@ ees8) ees8-.\mf \grace e,8^( f'4.)\ff f8-.\> | %092 f8-. f8-. f8-. ges8--\mf\< ges8-. ges( | %093 \time 3 3/8 aes8) \grace f8^( g8\ff a,8~ | %094 - \time 3/4 \ace a8)\startTextSpan \grace aes'8^( bes,8~ bes4.) bes8-. | %095 - bes8-. bes8-. bes8-. bes8-. bes8-.\p \grace ees8^( c8\f | %096 + \time 3/4 \pocAce a8)\startTextSpan \grace aes'8^( bes,8~ bes4.) bes8-.\> | %095 + bes8-. bes8-. bes8-. bes8-. bes8-.\mp \grace ees8^( c8\f | %096 d8-.) r8 d8-. d8-. d8( e8-.) | %097 \grace bes8( f8)\mf f'8-. f8( g8-.) g8-.\< g8( | %098 - \time 3 3/8 a8-.) a8-. a8-. | %099 - \time 4/4 \grace a,8^( ges'8\ff aes8-.) aes8-. aes8( bes-.)\stopTextSpan r8 r4\fermata | %100 + \time 3 3/8 a8-.) a8-. a8-.\stopTextSpan \tempo 4=174 | %099 + \time 3/4 \grace a,8^( ges'8\ff aes8-.) aes8-. aes8( bes-.) r8 | %100 \sectionLabel \markup { \box \number 101 } \omit Score.BarNumber - \tempo "Presto" 4=184 - R1*7 | \undo \omit Score.BarNumber - r2 r4 r8 f,,,8~\niente\< | %108 + \tempo "Prestissimo" 4=232 + \time 4/4 R1*6 | \undo \omit Score.BarNumber + \rit R1\startTextSpan + r2 r4 r8 f,,,8~\niente\<\stopTextSpan | %108 \sectionLabel \markup { \box \number 109 } \omit Score.BarNumber - \tempo "Tempo primo" 4=168 + \tempo 4=200 \time 3/4 f2~ f8 des'8->~\f | \undo \omit Score.BarNumber %109 des4 bes2->~ | %110 bes2\> d,4~\mp | %111 2.~\> | %112 \after 4 \< 2.\niente | %113 c'2.->~\f | %114 - c4. b4.->\> | %115 + \rit c4.\startTextSpan b4.->\> | %115 ees,2.~\p\< | %116 2 f4~\f | %117 - f2. | %118 + \after 2 \stopTextSpan f2. \tempo "Tempo primo" 4=168 | %118 fis4-> a2->~ | %119 4. g4.~-> | %120 g4 aes4->~ aes8 e8~-> | %121 - \rit 2.~\>\startTextSpan | %122 + 2.~\>\startTextSpan | %122 4\p r4 \after 8 \stopTextSpan r4 | %123 \sectionLabel \markup { \box \number 124 } diff --git a/manuscripts/II-piano.ly b/manuscripts/II-piano.ly index 1e97e62..8f94f18 100644 --- a/manuscripts/II-piano.ly +++ b/manuscripts/II-piano.ly @@ -151,45 +151,64 @@ e4)\f e8-. e8-. \stemDown \tuplet 3/2 { \D 8 \U 8 \D 8 } | %093 \time 3/8 \U 8-. r8 r8 | %094 - \time 3/4 \ace e4->\startTextSpan b8-.\mp\< b8-. b8( cis~ | %095 + \time 3/4 \pocAce e4->\startTextSpan b8-.\mp\< b8-. b8( cis~ | %095 cis8) cis8( dis8)\f\< dis8-. dis8-. 8-. | %096 -. ees8-.\ff d8-.\mf\< d8-. d8-. e8-.\f | %097 r4 \tuplet 3/2 { r8 r8 d8 } \tuplet 3/2 { \D 8 \U 8 \D } | %098 - \time 3/8 \U 8-. r8 r8 | %099 - \time 4/4 \grace s8 \tuplet 3/2 { r8 \D ges,8 \U 8 \D 8 } - \tuplet 3/2 { \U 8 \D } \U 8-.\stopTextSpan \ottava #0 r8 r4\fermata \clef bass | %100 + \time 3/8 \U 8-. r8 r8\stopTextSpan \tempo 4=174 | %099 + \time 3/4 \grace s8 \tuplet 3/2 { r8 \D ges,8 \U 8 } + \override NoteColumn.ignore-collision = ##t + << + { + \tuplet 3/2 { \D 8 \U 8 \D } \U 8-. + } + \new Voice { + \override ClusterSpanner.style = #'centered-stairs + \tuplet 3/2 { s8 \U \makeClusters { 32 32 32 } \D s8 } \U s + } + \new Voice { + \override ClusterSpanner.style = #'centered-stairs + \tuplet 3/2 { s8 \U s8 \D \makeClusters { 32 g32 g32 32 } } \U s8 + } + \new Voice { + \override ClusterSpanner.style = #'centered-stairs + \tuplet 3/2 { s8 \U s8 \D s } \U \makeClusters { 32 32 } s32 + } + >> + \override NoteColumn.ignore-collision = ##f + \oneVoice \ottava #0 r8 \clef bass | %100 \sectionLabel \markup { \box \number 101 } \omit Score.BarNumber - \tempo "Presto" 4=184 - \stemNeutral g,,,,,8-.\f r8 ees8( c8) r8 a'8( f'8-.) r8 | \undo \omit Score.BarNumber %101 + \tempo "Prestissimo" 4=232 + \time 4/4 \stemNeutral g,,,,,8-.\ff r8 ees8( c8) r8 a'8( f'8-.) r8 | \undo \omit Score.BarNumber %101 b,,8-- gis'8-. e8-. fis'8 r8 a,,8-. d8( des8 | %102 bes8) r8 aes''8 r8 f,8 ges8-. r4 | %103 g'8( e8) r4 r4 c,8-. r8 | %104 d'8 r8 r4 aes8 bes8( des8) r8 | %105 e,8 dis8-. b8-. r8 r2 | %106 - r4 r8 g'8( fis8) b8 cis,8-. d8-. | %107 - a8-. r8 c'8 r8 bes,8-. r8 ees'8 8-- | %108 + r4 r8 \rit g'8(\startTextSpan fis8) b8 cis,8-. d8-. | %107 + a8-. r8 c'8 r8 bes,8-. r8 ees'8 8--\stopTextSpan | %108 \sectionLabel \markup { \box \number 109 } \omit Score.BarNumber - \tempo "Tempo primo" 4=168 + \tempo 4=200 \time 3/4 r4 r4 r8 8-- | \undo \omit Score.BarNumber %109 r8 e8 4 r4 | %110 r4 g'8 r8 4 | %111 r4 gis8 r8 fis,8-. f'8 | %112 R1*3/4 | %113 4 r4 r4 | %114 - fis8-. r8 a,8 8-- r4 | %115 + fis8-.\startTextSpan r8 a,8 8-- r4 | %115 8-- aes,8-. c8 r8 bes8-. r8 | %116 r4 r4 4 | %117 - r4 r8 b8 dis8 r8 | %118 + r4 r8 b8 dis8 r8\stopTextSpan \tempo "Tempo primo" 4=168 | %118 8-- cis8-. 4 r4 | %119 r4 r8 8-- 8-. r8 | %120 f'4.---> a~---> | %121 << { - \voiceOne \rit a2\startTextSpan r4 | %122 + \voiceOne a2\startTextSpan r4 | %122 } \new Voice { \voiceTwo r4 des,8( bes4) 8-. | %(122) @@ -414,10 +433,11 @@ 8-. r8 8-. 8-. 8-. 8-. | %b097 r4 s8 s8^\mp^\< s4 | %b098 \time 3/8 R1*3/8^\f | %b099 - \time 4/4 \grace s8 s16 s8.^\mf^\< s4 r4^\ff r4\fermata \clef bass | %b100 - \omit Staff.DynamicText \omit Staff.Hairpin + \time 3/4 \grace s8 s16 s8.^\mf^\< s4 r4^\ff \clef bass | %b100 + \omit Staff.Hairpin - \ottava #-1 g,,,,8-.\mp d8---> ees8( c8) bes---> a8( f'8-.) r8 | %b101 + \time 4/4 \ottava #-1 g,,,,8-.^\mf d8---> ees8( c8) bes---> a8( f'8-.) r8 | %b101 + \omit Staff.DynamicText b,8-- gis'8-. e-. fis cis8---> a-. d( des | %b102 bes) c---> aes' ees---> f-. ges-. r4 | %b103 g8( e) r4 r8 b8---> c-. f---> | %b104 diff --git a/net-clarity.ly b/net-clarity.ly index dd8ddb9..9929f56 100644 --- a/net-clarity.ly +++ b/net-clarity.ly @@ -256,7 +256,7 @@ clarinetMagstep = #(magstep -2) \removeWithTag #'part \include "manuscripts/II-clarinet.ly" \removeWithTag #'part \include "manuscripts/II-piano.ly" >> - \midi { } + %\midi { } \layout { \context { \Score -- 2.39.5