part

diff --git a/book.ly b/book.ly
index beddd7a58511113d85c61c651ceee0be83f88712..643b1c54f258d89a33afdf9fcfd01a43c8a271d6 100644 (file)
--- 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 df1d4070171973d97eab39b27de4c8950974cdb8..22287d46b8652085a6a5f20d464e2ec8ed844e56 100644 (file)
--- 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 d28bae175923e38c71e0870122dacc9569c0eeb7..9ce04cc6d1ee15a3060e8f7dc545947919860688 100644 (file)
--- 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 6b3659f25c018958cfb0484d2a650e3789ce36e8..632616a9ed67cfb4dd60349134009d4bfe120133 100644 (file)
--- 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 <fis cis'>2.) <ais dis>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. <g, g'>8 <d' d'> |
-        <a' a'>4. <cis, cis'>8 <gis' gis'>4~ \tuplet 3/2 { 8 <dis dis'>8 <e e'> } |
-        <fis fis'>2. b8( c,~ |
-        4) f2~ 8 aes( |
-        <ges des'>2. <ees bes'>4) |
+        ais,2.--\f_\markup { \italic \tiny "maestoso" } <g, g'>8 <d' d'> |
+        <a' a'>4.\arpeggio <cis, cis'>8 <gis' gis'>4~\ff\arpeggio \tuplet 3/2 { 8 <dis dis'>8\> <e e'> } |
+        <fis fis'>2.\mf\arpeggio b8( c,~ |
+        4) f2~ 8 aes(\> |
+        <ges des'>2. <ees bes'>4)\mp |
         r8 \clef bass <des,, aes'>8~\arpeggio 2. |
         r8 <bes f'>8~\arpeggio 2. |
-        r2 r8 \clef treble \ottava #1 <ees''' aes>4.~( |
+        r2 r8 \clef treble \ottava #1 <ees''' aes>4.~(\p |
         4 <cis e b'>2.) |
-        r8 <bes ges'>8~ 2 \ottava #0 r8 <d,, a>8~ |
-        1 \clef bass |
-        \stemUp <bes, g'>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 <bes ges'>8~ 2 \ottava #0 r8 \clef bass <d,, a>8~\mf |
+        <d a c,>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(\< |
         <fis cis'>2.) <bes ees>4~ |
-        8 b8( e,2.) |
-        r4 <g d'>4( <a c>2) |
-        \time 3/4 r4 <f bes>4. cis'8 |
-        <fis, gis~>4 <gis dis'>2 |
-        r4 r8 a8( <b e,>4) | \clef treble
-        r4 c8~ <c g'>~ <c g' d'>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 <ges f' bes>2.( <ees aes des>4) |
+        8 b8( e,2.)\mf |
+        r4\> <g d'>4( <a c>2)\mp |
+        \time 3/4 r4\< <f bes>4. cis'8 |
+        <fis, gis~>4\mf <gis dis'>2 |
+        r4\> r8 a8( <b e,>4) | \clef treble
+
+        \sectionLabel \markup { \box \number 62 }
+
+        r4 c8~ <c g'>~ <c g' d'>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 <ges, f' bes>2.(\arpeggio\mp <ees aes des>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~ <b e,>2 |
-        r2 gis8~ <gis cis>~ 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~ <b e,>2 |
+        r2 gis8~\mp <gis cis>~ 2 |
         \time 4/4 fis2 r2 |
-        \time 5/4 r4 g4~ 8~ <g d>~ 2 |
-        a2.~ 2 \bar "|."
+        \time 5/4 r4 g4~\p 8~ <g d'>~ 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(~ <c g'>~ <c g' d'>1) |
+        \tempo \markup { "Lento, poco rubato" } 4=50
+        \time 5/4 c8(~ \offset Y-offset -2 _\markup { \italic "con" \musicglyph #"pedal.Ped" } <c g'>~ <c g' d'>1) |
         \time 4/4 a8(~ <a e'>~ <a e' b'>2.) |
         \time 5/4 fis4. cis'8_(~ <cis gis'>2.) |
         ees,8(~ <ees bes'>4~ <ees bes' f'>8~ 2.) |
@@ -169,6 +190,7 @@
         \time 4/4 a,8~( <a d>~ <a d b'>2.) |
         g8~( <g e'>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~ <dis fis,>~ <dis fis, b,>4.~ } 2 |
+        \tuplet 5/4 { dis'8~_\markup { \parenthesize { \concat { \italic "con " \musicglyph #"pedal.Ped" } } } <dis fis,>~ <dis fis, b,>4.~ } 2 |
+        \undo \omit Score.BarNumber
         <c, e'>2\arpeggio \tuplet 3/2 { d8~ <d bes'>~ <d bes' f'>~ } 4 |
         <d a'>2.~ 8 des8~ |
         4 <c g' d'>2.\arpeggio |
         <a e' b'>1\arpeggio |
-        fis1 |
+        \ottava #-1 fis1 |
         ees1 |
-        g2~ 8 r8 r4 |
+        g2~ 8 \ottava #0 r8 r4 |
         R1 |
         R1 |
-        \tuplet 3/2 { c'4~ <c f,,>8~ } 2. |
-        \stemDown ees,,4. \stemNeutral b'''16( gis \tuplet 3/2 { e8) a,( d } fis,16) c'( f, des) |
-        a'4~ <a e'>~ <a e' b'>2~ |
-        4 d4.~ <d g,>4. |
-        c,1 |
-        \time 3/4 ees4.~ <ees bes'>~ |
+        \tuplet 3/2 { r8 r8 \ottava #-1 f8~ } 2. |
+        \omit Score.BarNumber
+        <ees bes'>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 <a e'>~ <a e' b'>2~ |
+        \undo \omit Score.BarNumber
+        4 d4.~\sustainOff\sustainOn <d g,>4.~ |
+        <d g, c,>1 |
+        \time 3/4 ees,4.~\sustainOff\sustainOn <ees bes'>~ |
         \time 4/4 <ees bes' f'>1 |
-        \time 3/4 fis4.~ <fis cis'>~ |
+        \time 3/4 fis4.~\sustainOff\sustainOn <fis cis'>~ |
+        \omit Score.BarNumber
         \time 4/4 <fis cis' gis'>1 |
-        c'8~ <c g'>~ <c g' d'>2. |
+
+        \sectionLabel \markup { \box \number 55 }
+
+        c'8~\sustainOff <c g'>~_\markup { \parenthesize { \concat { \italic "con " \musicglyph #"pedal.Ped" } } } <c g' d'>2. |
+        \undo \omit Score.BarNumber
         a8~ <a e'>~ <a e' b'>2. |
         fis4 cis'8~ <cis gis'>8~ 2 |
         ees,8~ <ees bes'>4~ <ees bes' f'>8~ 2 |
         \time 3/4 c'8~ <c g'>4~ <c g' d'~>8 d'4 |
         a,8~ <a e'>~ <a e' b'>2 |
+        \omit Score.BarNumber
         fis8~ <fis cis'>~ <fis cis' gis'>2 |
+
+        \sectionLabel \markup { \box \number 62 }
+
         ees8~ <ees bes'>~ <ees bes' f'>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 <a,, d g>4 <b c, e,>2 |
-        cis,16~ <cis gis'>~ <cis gis' fis'>8~ 4 ees16~ <ees bes'>~ <ees bes' f'>8~ 4~ |
-        8 b8( a'4~ <a e'>2) |
-        \time 3/4 bes,8~ <bes f'>~ <bes f' d'>2 |
-        \time 7/8 c8~ <c g'>8~ 4 ees'4. |
-        \time 3/4 fis,8~ <fis cis'>4~ <fis cis' gis'>8~ 4 |
+        \omit Score.BarNumber
+        \time 4/4 r4_\markup { \parenthesize { \concat { \italic "con " \musicglyph #"pedal.Ped" } } } <a,, d g>4 \once \override PianoStaff.Arpeggio.arpeggio-direction = #DOWN <b c, e,>2\arpeggio |
+
+
+        \sectionLabel \markup { \box \number 72 }
+        \override DynamicLineSpanner.staff-padding = \ds
+
+        cis,16~ <cis gis'>~ <cis gis' fis'>8~ 4 ees16~ <ees bes'>_~ <ees bes' f'>8~ 4~ |
+        \undo \omit Score.BarNumber
+        8 b8(^\p a'4~ <a e'>2) |
+        \time 3/4 bes,8~^\< <bes f'>~ <bes f' d'>2 |
+        \time 7/8 c8~[ <c g'>8~] 4 ees'4.^\mf |
+        \time 3/4 fis,8~\> <fis cis'>4~ <fis cis' gis'>8~ 4 |
         \time 7/8 b,8~ <b a'>4~ <b a' e'>2 |
-        \time 3/4 c'8~ <c g'>~ <c g' d'>2 |
+        \time 3/4 c'8~\p <c g'>~ <c g' d'>2 |
         \time 4/4 ees,8~ <ees bes'>4~ <ees bes' f'>8~ 2 |
         \time 5/4 gis4. cis8~ <cis fis>2. |
         b8~ <b e>4.~ <b e a>2. |
         \time 4/4 d4~ <d g> c2 |
-        \time 5/4 f,8~ <f bes>8~ 4~ 8~ <f bes ges'>8~ 2 |
-        cis'4~ <cis gis'>~ 8~ <cis gis' dis'>8~ 2 \bar "|."
+        \time 5/4 f,8~\pp <f bes>8~ 4~ 8~ <f bes ges'>8~ 2 |
+        cis'4~ <cis gis'>~ 8~ <cis gis' dis'>8~ 2\fermata \bar "|."
       }
     }
 >>

diff --git a/parts/III-clarinet-part.ly b/parts/III-clarinet-part.ly
new file mode 100644 (file)
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( <a e>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 (file)
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 ba8d8027e451f6f825f4a5a01c5ff48d75d0a09c..5b1d41987dce7ba0e38c1c06f72137e6c246197b 100644 (file)
--- 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))))