From 5722cfff4eb359a6fdc53e9dff3ba684a31fb830 Mon Sep 17 00:00:00 2001 From: Tucker Johnson Date: Fri, 1 Dec 2023 14:19:53 -0500 Subject: [PATCH] part --- book.ly | 12 ++- eng-files/paper.ly | 5 +- manuscripts/III-clarinet.ly | 90 +++++++++++------- manuscripts/III-piano.ly | 185 ++++++++++++++++++++++-------------- parts/III-clarinet-part.ly | 163 +++++++++++++++++++++++++++++++ parts/part.ly | 61 ++++++++++++ variables/scripts.ly | 50 +++++++++- 7 files changed, 456 insertions(+), 110 deletions(-) create mode 100644 parts/III-clarinet-part.ly create mode 100644 parts/part.ly diff --git a/book.ly b/book.ly index beddd7a..643b1c5 100644 --- a/book.ly +++ b/book.ly @@ -37,10 +37,14 @@ % } % } \bookpart { - \tocItem \markup { "III. " \bold "Lento, poco Rubato;" \italic "Calma" } + \tocItem \markup { "III. " \bold "Chiaro; calma" } \score { \header { - piece = \markup { \large \bold "III. " } + title = \markup { \fontsize #1 \xtitle } + subtitle = \markup { \medium \italic \xsub } + composer = \xcomp + poet = \markup { \xinst } + piece = \markup { \large "III." \bold "Chiaro; calma" } } << \include "manuscripts/III-clarinet.ly" @@ -50,12 +54,16 @@ \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/8) \override Hairpin.to-barline = ##f \override Staff.pedalSustainStyle = #'mixed } + \context { + \Staff + } } } } diff --git a/eng-files/paper.ly b/eng-files/paper.ly index df1d407..22287d4 100644 --- a/eng-files/paper.ly +++ b/eng-files/paper.ly @@ -1,6 +1,7 @@ -%sonata project +% clarity project %------paper-block------ \paper { + line-width = 120 first-page-number = -1 print-page-number = ##f oddHeaderMarkup = \markup { \tiny { " " } } @@ -26,7 +27,7 @@ #:roman "Junicode" #:sans "syne" )) - max-systems-per-page = #7 + max-systems-per-page = #8 system-system-spacing = #'((basic-distance . 5) (minimum-distance . 5) diff --git a/manuscripts/III-clarinet.ly b/manuscripts/III-clarinet.ly index d28bae1..9ce04cc 100644 --- a/manuscripts/III-clarinet.ly +++ b/manuscripts/III-clarinet.ly @@ -4,13 +4,14 @@ instrumentName = \markup { clarinet in \concat { \bold "B" \tiny \flat " " } } shortInstrumentName = \markup { cl } \override DynamicLineSpanner.staff-padding = \sods - fontSize = #-2 - \override StaffSymbol.staff-space = #(magstep -2) + fontSize = #-3 + \override StaffSymbol.staff-space = #(magstep -3) + \consists Text_mark_engraver } \transpose bes c' \relative { \numericTimeSignature \clef treble - \tempo \markup { "Lento, poco rubato;" \italic "calma" } 4=50 + \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 @@ -65,21 +66,28 @@ R1*7/4 | R1*7/4 | R1*7/4 | - \time 4/4 r2 r4 \tuplet 5/4 { r8. ees''16( aes,) } | - f'2.~ 8 r8 | - bes,1 | + \time 4/4 r2 r4 \tuplet 5/4 { r8. ees'16(\ff\> aes) } | + f'2.~\mf 8 r8 | + + \sectionLabel \markup { \box \number 36 } + + bes,1-- | R1 | - fis'2.~ 8 r8 | + fis'2.--\f r4 | R1 | - cis2. r4 | - b8( e,~ 2 g4~ | - 4) \tuplet 3/2 { c4( a d~ } 4) | - fis,2~ 8 f( bes,4~ | - 8)[ c8]( a' d,~ 2) | - g8( ees~ 2) e4~ | - e4. cis'8( gis8 b8~ 4) | - fis16( a d,8~ 4) f(^\markup { "rit." } dis8.) e,16( | \tempo 4=50 - cis'1) | + 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( | + + \sectionLabel \markup { \box \number 48 } + + \tempo 4=50 + des'1\> | \tempo \markup { \concat { \rhythm { \tuplet 3/2 { 8 } } @@ -87,19 +95,26 @@ \rhythm { { 8 } } } } 4 = 75 - aes4( bes2.~ | - bes2~) 8 r8 r4 | - \time 3/4 r4 r4 r8 c8~ | - \time 4/4 c2. g4( | - \time 3/4 b2.~ | - \time 4/4 8) r8 r4 r2^\markup { "rit." } | \tempo 4=50 - r8 f,8~( 2. | - cis'2. ees4~ | + 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 { "molto rit." } | + + \sectionLabel \markup { \box \number 55 } + + \tempo "A tempo" 4=50 + r8 f,8~(\pp^\markup { \tiny \italic "lontano; sotto voce" } 2. | + des'2. ees4~ | 8) r8 r4 r2 | R1 | \time 3/4 r4 bes2( | - fis4 gis2) | + ges4 aes2) | R1*3/4 + + \sectionLabel \markup { \box \number 62 } + R1*3/4 \time 4/4 R1 \time 3/4 R1*3/4 @@ -110,17 +125,20 @@ \time 4/4 R1 \time 3/4 R1*3/4 \time 4/4 R1 | - \tuplet 3/2 { c8( b' e~ } 4) \tuplet 3/2 { g,8( d a~ } 4~ | + + \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 | 8) fis4( g8~ 4 cis4~ | - \time 3/4 8)[ r16 cis16(] aes'4 c,4 | - \time 7/8 f bes d4.~ | - \time 3/4 8) r8 b8( e, a,4~ | - \time 7/8 8) r8 gis'8( cis, fis,8~ 4~ | + \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( g,2. | - \time 5/4 8 a8~ 2) r2 | - dis2.~ 2 | - \time 4/4 r4 r8 bes8~( 8 f4.~ | - \time 5/8 8 c'8~ 2~ 2) | - r4 r8 e8( b'2.) | + \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 | } diff --git a/manuscripts/III-piano.ly b/manuscripts/III-piano.ly index 6b3659f..632616a 100644 --- a/manuscripts/III-piano.ly +++ b/manuscripts/III-piano.ly @@ -3,19 +3,20 @@ \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" } { \clef bass + \set PianoStaff.connectArpeggios = ##t \override DynamicLineSpanner.staff-padding = \phds \accidentalStyle piano << \relative { \numericTimeSignature - \tempo \markup { "Lento, poco rubato;" \italic "calma" } 4=50 + \tempo \markup { "Lento, poco rubato" } 4=50 \time 5/4 r8\p_\markup { \tiny \italic "legato" } f8~^\markup { \tiny \italic "piu" \dynamic f } 2~ f4. gis8( | \time 4/4 2.) 4~-> | \time 5/4 4\mp\> b8( e,~ e2.)\p | @@ -55,32 +56,41 @@ des1 \bar "||" \sectionLabel \markup { \box \number 30 } + \tempo \markup { + \concat { + \rhythm { \tuplet 3/2 { 8 } } + " = " + \rhythm { { 8 } } + } + } 4 = 75 - \time 7/4 r2 r4 \tuplet 3/2 { r4 f'8~(^\markup { \tiny \italic "piu" \dynamic f \tiny \italic "misterioso" } } \tuplet 3/2 { 4 bes,8 } \tuplet 3/2 { ees4) aes,4( des4 } | - fis,1~ 4) \tuplet 3/2 { r8 fis4->(~ } 4 | + \time 7/4 r2 r4 \tuplet 3/2 { r4 f'8~(^\markup { \tiny \italic "piu" \dynamic f \tiny \italic "misterioso" } } \tuplet 3/2 { 4 ais,8 } \tuplet 3/2 { dis4 gis,4 cis4) } | + fis,1~ 4 \tuplet 3/2 { r8 fis4->(~ } 4 | b1) r4 \tuplet 3/2 { r4 e4( d } | - c2~ \tuplet 3/2 { 4 a8 } g2.) g4-> | - \time 4/4 \tuplet 3/2 { f8( bes4~ } 16) a( cis d e8) fis16( g \tuplet 5/4 { b8) c,16( ees aes) } | - f'2.~ 8 r8 | + c2~ \tuplet 3/2 { 4 a8 } g2.) g4-- | + \time 4/4 \tuplet 3/2 { f8_(\mf bes4~ } 16) a(\< cis d e8) fis16( g \tuplet 5/4 { b8)\ff\> c,16( ees aes) } | + f'2.~\mf 8 r8 | \sectionLabel \markup { \box \number 36 } + \set PianoStaff.connectArpeggios = ##f - - ais,2. 8 | - 4. 8 4~ \tuplet 3/2 { 8 8 } | - 2. b8( c,~ | - 4) f2~ 8 aes( | - 2. 4) | + ais,2.--\f_\markup { \italic \tiny "maestoso" } 8 | + 4.\arpeggio 8 4~\ff\arpeggio \tuplet 3/2 { 8 8\> } | + 2.\mf\arpeggio b8( c,~ | + 4) f2~ 8 aes(\> | + 2. 4)\mp | r8 \clef bass 8~\arpeggio 2. | r8 8~\arpeggio 2. | - r2 r8 \clef treble \ottava #1 4.~( | + r2 r8 \clef treble \ottava #1 4.~(\p | 4 2.) | - r8 8~ 2 \ottava #0 r8 8~ | - 1 \clef bass | - \stemUp 4. \clef treble \stemNeutral des''16( c \tuplet 3/2 { aes4)^\markup { "rit." } bes8( } g8) b8 | \tempo 4 = 50 - r2 \tuplet 3/2 { dis8 fis, dis' } \tuplet 3/2 { fis, dis' fis, } | + r8 8~ 2 \ottava #0 r8 \clef bass 8~\mf | + 1 | + g,4. \clef treble des''16(\> c \tuplet 3/2 { aes4)^\markup { "rit." } bes8( } g8) b8 | + \sectionLabel \markup { \box \number 48 } + \tempo 4 = 50 + r2\mp \tuplet 3/2 { r8 fis\ppp\< dis' } \tuplet 3/2 { fis, dis' fis, } | \tempo \markup { \concat { \rhythm { \tuplet 3/2 { 8 } } @@ -88,42 +98,53 @@ \rhythm { { 8 } } } } 4 = 75 - dis'8 fis, dis' fis, dis' fis, dis' fis, | - f' a, f' a, f' a, f' a, | - \time 3/4 d a d a d a | - d a d a d a d a | - \time 3/4 d e, d' e, d' e, | - d' e, d' e, d' e, d \clef bass e, | \tempo 4 = 50 - r8 f8~ 2 8 aes8( | + dis'8\mp\< fis, dis' fis, dis' fis, dis' fis, | + f'\mf\> a, f' a, f' a, f' a, | + \time 3/4 d\< a d a d a | + d\f\> a d a d a d a | + \time 3/4 d\< e, d' e, d' e, | + d'\mf\> e, d' e, d'^\markup { "molto rit." } e, d \clef bass e, | + + \sectionLabel \markup { \box \number 55 } + + \tempo "A tempo" 4 = 50 + r8\p f8~^\markup { \tiny \italic "piu" \dynamic f } 2~ 8 aes8(\< | 2.) 4~ | - 8 b8( e,2.) | - r4 4( 2) | - \time 3/4 r4 4. cis'8 | - 4 2 | - r4 r8 a8( 4) | \clef treble - r4 c8~ ~ 4~ | - \time 4/4 8 f'8~ 2 f8( ees | - \time 3/4 bes'2.) | - \time 4/4 r8 bes8~( 4 aes4.) e8( | - \time 3/4 b'2.) | - \time 4/4 r8 fis8~( 4 cis'2 | - \time 3/4 a2.) | - \time 4/4 r8 g8~( 4 d'2 | - \time 3/4 c,2.) | - \time 4/4 2.( 4) | + 8 b8( e,2.)\mf | + r4\> 4( 2)\mp | + \time 3/4 r4\< 4. cis'8 | + 4\mf 2 | + r4\> r8 a8( 4) | \clef treble + + \sectionLabel \markup { \box \number 62 } + + r4 c8~ ~ 4~\pp | + \time 4/4 8 f'8~\<_\markup { \italic \tiny "semplicemente" } 2 f8( ees | + \time 3/4 bes'2.)\p | + \time 4/4 r8 bes8~(\< 4 aes4.) e8( | + \time 3/4 b'2.)\mp | + \time 4/4 fis8~(\< 4 cis'2 a8~ | + \time 3/4 a2.)\mf | + \time 4/4 r8\< g8~( 4 d'2 | + \time 3/4 c2.)\f | + \time 4/4 2.(\arpeggio\mp 4) | + + \sectionLabel \markup { \box \number 72 } + \override DynamicLineSpanner.staff-padding = \ds + R1 | R1 | \time 3/4 R1*3/4 | \time 7/8 R1*7/8 | \time 3/4 R1*3/4 | \time 7/8 R1*7/8 | \clef bass - \time 3/4 r8 f,4( bes8 ees4) | - \time 4/4 r2 r8 c,8~ 4~ | - \time 5/4 8 r8 r4 r8 b'8~ 2 | - r2 gis8~ ~ 2 | + \time 3/4 r8 f,4(\mf bes8 ees4) | + \time 4/4 r2 r8 c,8~-> 4~ | + \time 5/4 4 r4 r8 b'8~ 2 | + r2 gis8~\mp ~ 2 | \time 4/4 fis2 r2 | - \time 5/4 r4 g4~ 8~ ~ 2 | - a2.~ 2 \bar "|." + \time 5/4 r4 g4~\p 8~ ~ 2 | + a2.~ 2\fermata \bar "|." } >> } @@ -136,8 +157,8 @@ \override DynamicLineSpanner.staff-padding = \phds \relative { \numericTimeSignature - \tempo \markup { "Lento, poco rubato;" \italic "calma" } 4=50 - \time 5/4 c8(~ ~ 1) | + \tempo \markup { "Lento, poco rubato" } 4=50 + \time 5/4 c8(~ \offset Y-offset -2 _\markup { \italic "con" \musicglyph #"pedal.Ped" } ~ 1) | \time 4/4 a8(~ ~ 2.) | \time 5/4 fis4. cis'8_(~ 2.) | ees,8(~ 4~ 8~ 2.) | @@ -169,6 +190,7 @@ \time 4/4 a,8~( ~ 2.) | g8~( 4.~ 8) c'4. | \tuplet 3/2 { r8^\pp^\<\sustainOn bes8 ges } \tuplet 3/2 { bes ges bes } \tuplet 3/2 { ges^\!^\> bes ges } \tuplet 3/2 { bes ges bes } | + \omit Score.BarNumber \tuplet 3/2 { r8^\p^\<\sustainOff\sustainOn aes8 f } \tuplet 3/2 { aes f aes } \tuplet 3/2 { f aes f } \tuplet 3/2 { aes f aes } | \sectionLabel \markup { \box \number 30 } @@ -177,6 +199,7 @@ \relative { \voiceOne \time 7/4 a8[^\mf^\>\sustainOff\sustainOn c, a' c, a' c,^\!^\< a' c,] a'[ c, a' c, a' c,] | + \undo \omit Score.BarNumber g'8[^\mf^\>\sustainOff\sustainOn b, g' b, g' b,^\!^\< g' b,] g'[ b, g' b, g' b,] | ges'8[ aes,^\f^\>\sustainOff\sustainOn ges' aes, ges' aes, ges' aes,] ges'[^\!^\< aes, ges' aes, ges' aes,] | f'8[^\f^\>\sustainOff\sustainOn bes, f' bes, f' bes, f' bes,] f'[ bes, f']^\mp r8 r4 | @@ -191,59 +214,83 @@ >> \oneVoice \time 4/4 \tuplet 3/2 { b,,8(\sustainOff fis'4~ } 16) g( aes ees' c8) bes16( d \tuplet 5/4 { f8) e16( a cis,) } | + \omit Score.BarNumber gis2.~ 8 r8 | \sectionLabel \markup { \box \number 36 } - \tuplet 5/4 { dis'8~ ~ 4.~ } 2 | + \tuplet 5/4 { dis'8~_\markup { \parenthesize { \concat { \italic "con " \musicglyph #"pedal.Ped" } } } ~ 4.~ } 2 | + \undo \omit Score.BarNumber 2\arpeggio \tuplet 3/2 { d8~ ~ ~ } 4 | 2.~ 8 des8~ | 4 2.\arpeggio | 1\arpeggio | - fis1 | + \ottava #-1 fis1 | ees1 | - g2~ 8 r8 r4 | + g2~ 8 \ottava #0 r8 r4 | R1 | R1 | - \tuplet 3/2 { c'4~ 8~ } 2. | - \stemDown ees,,4. \stemNeutral b'''16( gis \tuplet 3/2 { e8) a,( d } fis,16) c'( f, des) | - a'4~ ~ 2~ | - 4 d4.~ 4. | - c,1 | - \time 3/4 ees4.~ ~ | + \tuplet 3/2 { r8 r8 \ottava #-1 f8~ } 2. | + \omit Score.BarNumber + 4. \ottava #0 b'''16( gis \tuplet 3/2 { e8) a,( d } fis,16) c'( f, des) | + + \sectionLabel \markup { \box \number 48 } + + a'4~\sustainOn ~ 2~ | + \undo \omit Score.BarNumber + 4 d4.~\sustainOff\sustainOn 4.~ | + 1 | + \time 3/4 ees,4.~\sustainOff\sustainOn ~ | \time 4/4 1 | - \time 3/4 fis4.~ ~ | + \time 3/4 fis4.~\sustainOff\sustainOn ~ | + \omit Score.BarNumber \time 4/4 1 | - c'8~ ~ 2. | + + \sectionLabel \markup { \box \number 55 } + + c'8~\sustainOff ~_\markup { \parenthesize { \concat { \italic "con " \musicglyph #"pedal.Ped" } } } 2. | + \undo \omit Score.BarNumber a8~ ~ 2. | fis4 cis'8~ 8~ 2 | ees,8~ 4~ 8~ 2 | \time 3/4 c'8~ 4~ 8 d'4 | a,8~ ~ 2 | + \omit Score.BarNumber fis8~ ~ 2 | + + \sectionLabel \markup { \box \number 62 } + ees8~ ~ 2 | + \undo \omit Score.BarNumber \time 4/4 r4 \tuplet 3/2 { r8 c''4~\sustainOn } \tuplet 3/2 { 4 d,8~ } 4 | \time 3/4 g,,2. | \time 4/4 a2~\sustainOff \tuplet 3/2 { 4 cis'8~ } 4\sustainOn | \time 3/4 fis'2. | - \time 4/4 r4\sustainOff \tuplet 3/2 {r8 b,4~\sustainOn } \tuplet 3/2 { 4 e,,8~ } 4 | + \time 4/4 r4\sustainOff\sustainOn \tuplet 3/2 {r8 b,4~ } \tuplet 3/2 { 4 e,,8~ } 4 | \time 3/4 gis,2. | \time 4/4 bes4~\sustainOff\sustainOn \tuplet 3/2 { 8 ees'4~ } 2 | \time 3/4 f'2.\sustainOff | - \time 4/4 r4 4 2 | - cis,16~ ~ 8~ 4 ees16~ ~ 8~ 4~ | - 8 b8( a'4~ 2) | - \time 3/4 bes,8~ ~ 2 | - \time 7/8 c8~ 8~ 4 ees'4. | - \time 3/4 fis,8~ 4~ 8~ 4 | + \omit Score.BarNumber + \time 4/4 r4_\markup { \parenthesize { \concat { \italic "con " \musicglyph #"pedal.Ped" } } } 4 \once \override PianoStaff.Arpeggio.arpeggio-direction = #DOWN 2\arpeggio | + + + \sectionLabel \markup { \box \number 72 } + \override DynamicLineSpanner.staff-padding = \ds + + cis,16~ ~ 8~ 4 ees16~ _~ 8~ 4~ | + \undo \omit Score.BarNumber + 8 b8(^\p a'4~ 2) | + \time 3/4 bes,8~^\< ~ 2 | + \time 7/8 c8~[ 8~] 4 ees'4.^\mf | + \time 3/4 fis,8~\> 4~ 8~ 4 | \time 7/8 b,8~ 4~ 2 | - \time 3/4 c'8~ ~ 2 | + \time 3/4 c'8~\p ~ 2 | \time 4/4 ees,8~ 4~ 8~ 2 | \time 5/4 gis4. cis8~ 2. | b8~ 4.~ 2. | \time 4/4 d4~ c2 | - \time 5/4 f,8~ 8~ 4~ 8~ 8~ 2 | - cis'4~ ~ 8~ 8~ 2 \bar "|." + \time 5/4 f,8~\pp 8~ 4~ 8~ 8~ 2 | + cis'4~ ~ 8~ 8~ 2\fermata \bar "|." } } >> diff --git a/parts/III-clarinet-part.ly b/parts/III-clarinet-part.ly new file mode 100644 index 0000000..506a580 --- /dev/null +++ b/parts/III-clarinet-part.ly @@ -0,0 +1,163 @@ +% 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 new file mode 100644 index 0000000..ddd107c --- /dev/null +++ b/parts/part.ly @@ -0,0 +1,61 @@ +% 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 ba8d802..5b1d419 100644 --- a/variables/scripts.ly +++ b/variables/scripts.ly @@ -1,4 +1,4 @@ -% river project +% project to-internal-ts = #(define-scheme-function (top partial bottom) @@ -24,3 +24,51 @@ fractionalTime = } \time #(to-internal-ts top partial bottom) #}) + + +#(define ((flared-tie coords) grob) + + (define (pair-to-list pair) + (list (car pair) (cdr pair))) + + (define (normalize-coords goods x y dir) + (map + (lambda (coord) + ;(coord-scale coord (cons x (* y dir))) + (cons (* x (car coord)) (* y dir (cdr coord)))) + goods)) + + (define (my-c-p-s points thick) + (make-connected-path-stencil + points + thick + 1.0 + 1.0 + #f + #f)) + + ;; outer let to trigger suicide + (let ((sten (ly:tie::print grob))) + (if (grob::is-live? grob) + (let* ((layout (ly:grob-layout grob)) + (line-thickness (ly:output-def-lookup layout 'line-thickness)) + (thickness (ly:grob-property grob 'thickness 0.1)) + (used-thick (* line-thickness thickness)) + (dir (ly:grob-property grob 'direction)) + (xex (ly:stencil-extent sten X)) + (yex (ly:stencil-extent sten Y)) + (lenx (interval-length xex)) + (leny (interval-length yex)) + (xtrans (car xex)) + (ytrans (if (> dir 0)(car yex) (cdr yex))) + (uplist + (map pair-to-list + (normalize-coords coords lenx (* leny 2) dir)))) + + (ly:stencil-translate + (my-c-p-s uplist used-thick) + (cons xtrans ytrans))) + '()))) + +#(define flare-tie + (flared-tie '((0 . 0)(0.1 . 0.2) (0.9 . 0.2) (1.0 . 0.0)))) -- 2.39.5