From: Tucker Johnson Date: Sat, 30 Sep 2023 20:22:56 +0000 (-0400) Subject: work X-Git-Url: https://git.newer.systems/?a=commitdiff_plain;h=e1a0f832a9fb12d8d7666f1dfeee0f95a14d3b50;p=net-clarity.git work --- diff --git a/book.ly b/book.ly index 6148d31..4f1492d 100644 --- a/book.ly +++ b/book.ly @@ -1,4 +1,4 @@ -%river sonata project +% Net Clarity project \book { \outcover \pageBreak @@ -11,31 +11,53 @@ \header { tagline = ##f } - - \score { - \header { - title = \markup { \fontsize #1 \xtitle } - subtitle = \markup { \medium \italic \xsub } - composer = \xcomp - poet = \markup { \xinst } + \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) + } + } } - << - \include "manuscripts/clarinet.ly" - \include "manuscripts/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 "Lento, poco Rubato" } + \score { + \header { + piece = \markup { \large \bold "III. " } + } + << + \include "manuscripts/III-clarinet.ly" + \include "manuscripts/III-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) + } } } } - - \markup { \null } \pageBreak \backcover diff --git a/manuscripts/I-clarinet.ly b/manuscripts/I-clarinet.ly new file mode 100644 index 0000000..13160a1 --- /dev/null +++ b/manuscripts/I-clarinet.ly @@ -0,0 +1,36 @@ +% river project + +\new Staff \with { + instrumentName = \markup { clarinet in \concat { \bold "B" \tiny \flat " " } } + shortInstrumentName = \markup { cl } + \override DynamicLineSpanner.staff-padding = \phds +} +\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 | +} diff --git a/manuscripts/I-piano.ly b/manuscripts/I-piano.ly new file mode 100644 index 0000000..12a668e --- /dev/null +++ b/manuscripts/I-piano.ly @@ -0,0 +1,110 @@ +% clarity project + +\new PianoStaff \with { + instrumentName = \markup { "piano " } +} +<< + \set PianoStaff.connectArpeggios = ##t + \override PianoStaff.Arpeggio.arpeggio-direction = #UP + \new Staff = "u" \with { \consists "Merge_rests_engraver" } + { + \accidentalStyle piano + << + \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 + \accidentalStyle piano + \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/manuscripts/III-clarinet.ly b/manuscripts/III-clarinet.ly new file mode 100644 index 0000000..5d3adbc --- /dev/null +++ b/manuscripts/III-clarinet.ly @@ -0,0 +1,24 @@ +% river project + +\new Staff \with { + instrumentName = \markup { clarinet in \concat { \bold "B" \tiny \flat " " } } + shortInstrumentName = \markup { cl } + \override DynamicLineSpanner.staff-padding = \phds +} +\relative { + \numericTimeSignature + \clef treble + \tempo "Lento, poco rubato" 4=50 + \time 5/4 R1*5/4 | + \time 4/4 R1 | + \time 5/4 R1*5/4 | + R1*5/4 | + R1*5/4 | + \time 4/4 R1 | + \time 3/4 R1*3/4 | + \time 4/4 d'4(\mp c2.~ | + \time 3/4 c8) r8 r4 r8 dis8~ | + \time 7/8 4. b4( e | + \time 3/4 cis'2) r8 g8( | + \time 7/8 a4. ges,2) | +} diff --git a/manuscripts/III-piano.ly b/manuscripts/III-piano.ly new file mode 100644 index 0000000..f202be1 --- /dev/null +++ b/manuscripts/III-piano.ly @@ -0,0 +1,67 @@ +% clarity project + +\new PianoStaff \with { + instrumentName = \markup { "piano " } +} +<< + \set PianoStaff.connectArpeggios = ##t + \override PianoStaff.Arpeggio.arpeggio-direction = #UP + \new Staff = "u" \with { \consists "Merge_rests_engraver" } + { + \clef bass + \accidentalStyle piano + << + \relative { + \numericTimeSignature + \tempo "Lento, poco rubato" 4=50 + \time 5/4 r8 f8~\mp 2~ f4. gis8( | + \time 4/4 2.) 4~ | + \time 5/4 4 b8( e,~ e2.) | + r4 4( 2.) | + r4 2~ 4. cis'8( | + \time 4/4 4 2.) | + \time 3/4 r4 a8( ~ 4) | + \clef treble + \time 4/4 d'4( 2.) | + \time 3/4 r8 f8~ 4~ 8 dis8( | + \time 7/8 gis4.) b,4(~ 4) | + \time 3/4 cis'4.( d,8~ 8)[ g]( | + \time 7/8 a4. ges,8~ ~ 4) | + \time 4/4 r8 f8 fis cis'~ cis bes aes' ees~ | + 2 r4 \tuplet 3/2 { r8 a, e'} | + r2 \tuplet 3/2 { r8 c'4~-> } 8 \clef bass e,,8 | + 1~\arpeggio | + 1 | + } + >> + } + \new Staff = "d" \with { \consists "Merge_rests_engraver" } + { + \clef bass + \set Staff.pedalSustainStyle = #'mixed + \accidentalStyle piano + \override Score.SpacingSpanner.strict-grace-spacing = ##t + \relative { + \numericTimeSignature + \numericTimeSignature + \tempo "Lento, poco rubato" 4=50 + \time 5/4 c8(~^\p ~ 1) | + \time 4/4 a8(~ ~ 2.) | + \time 5/4 fis4. cis'8(~ 2.) | + ees,8(~ 4~ 8~ 2.) | + c'8(~ 4~ 8~ 2 d'4) | + \time 4/4 a,8(~ ~ 2.) | + \time 3/4 fis8(~ ~ 2) | + \time 4/4 ees8~( ~ 2.) | + \time 3/4 c'8~( 8~ 2) | + \time 7/8 a8~([ ~ ] 2) | + \time 3/4 b8~( ~ 2) | + \time 7/8 bes8~([ ~ ~] 2) | + \time 4/4 \tuplet 3/2 { d,8( 4~ } 4) \tuplet 3/2 { c,8( 4~ } 4) | + \tuplet 3/2 { des,8( 4~ } 4) \tuplet 3/2 { ees8( 4~ } 4) | + b,2~->^\mf \tuplet 3/2 { 8 a'4~-> } 8 r8 | + 1~\arpeggio | + 1 | + } + } +>> diff --git a/manuscripts/clarinet.ly b/manuscripts/clarinet.ly deleted file mode 100644 index 13160a1..0000000 --- a/manuscripts/clarinet.ly +++ /dev/null @@ -1,36 +0,0 @@ -% river project - -\new Staff \with { - instrumentName = \markup { clarinet in \concat { \bold "B" \tiny \flat " " } } - shortInstrumentName = \markup { cl } - \override DynamicLineSpanner.staff-padding = \phds -} -\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 | -} diff --git a/manuscripts/piano.ly b/manuscripts/piano.ly deleted file mode 100644 index 12a668e..0000000 --- a/manuscripts/piano.ly +++ /dev/null @@ -1,110 +0,0 @@ -% clarity project - -\new PianoStaff \with { - instrumentName = \markup { "piano " } -} -<< - \set PianoStaff.connectArpeggios = ##t - \override PianoStaff.Arpeggio.arpeggio-direction = #UP - \new Staff = "u" \with { \consists "Merge_rests_engraver" } - { - \accidentalStyle piano - << - \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 - \accidentalStyle piano - \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 | - } - } ->>