]> git.newer.systems - net-clarity.git/commitdiff
work
authorTucker Johnson <tucker@newer.systems>
Sat, 30 Sep 2023 20:22:56 +0000 (16:22 -0400)
committerTucker Johnson <tucker@newer.systems>
Sat, 30 Sep 2023 20:22:56 +0000 (16:22 -0400)
book.ly
manuscripts/I-clarinet.ly [new file with mode: 0644]
manuscripts/I-piano.ly [new file with mode: 0644]
manuscripts/III-clarinet.ly [new file with mode: 0644]
manuscripts/III-piano.ly [new file with mode: 0644]
manuscripts/clarinet.ly [deleted file]
manuscripts/piano.ly [deleted file]

diff --git a/book.ly b/book.ly
index 6148d31f485559ac63434a08eacbbdde4935f0a1..4f1492d5970de6d94a8ab62ccb91957e38a5052a 100644 (file)
--- a/book.ly
+++ b/book.ly
@@ -1,4 +1,4 @@
-%river sonata project
+% Net Clarity project
 \book {
   \outcover
   \pageBreak
   \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 (file)
index 0000000..13160a1
--- /dev/null
@@ -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 (file)
index 0000000..12a668e
--- /dev/null
@@ -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 <f aes>2) { \stemDown des'8^( } |
+         <aes des>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
+         <c c'>2^\pp <ees c'> | <ees g> <d g> |
+         \time 3/2
+         <des g>1~ 4 \afterGrace r4 { g8_( } |
+         <g c>2) \afterGrace <f c'> { ges8_( } <f c'>2) |
+         \time 3/4
+         \afterGrace 15/16 <ees c'>2. { d8_( } |
+         \time 5/8
+         <d b'>2) <e cis'>8
+         \time 2/2
+         <ees g c>2 <gis b>2~ |
+         \afterGrace 15/16 1\fermata { ees'8( } |
+         <ees g,>1) |
+         \afterGrace 15/16 <bes g>1\fermata { \stemDown c8( } |
+         \stemUp <aes c>2) <ees c'> |
+         \time 3/8
+         <fis b>4 <e c'>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 <d~ b'>2 |
+      d2 bes'2 |
+      ees1\fermata |
+    }
+  }
+>>
diff --git a/manuscripts/III-clarinet.ly b/manuscripts/III-clarinet.ly
new file mode 100644 (file)
index 0000000..5d3adbc
--- /dev/null
@@ -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 (file)
index 0000000..f202be1
--- /dev/null
@@ -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 <fis cis'>2.) <ais dis>4~ |
+        \time 5/4 4 b8( e,~ e2.) |
+        r4 <g d'>4( <a c>2.) |
+        r4 <f bes>2~ 4. cis'8( |
+        \time 4/4 <fis, gis~>4 <gis dis'>2.) |
+        \time 3/4 r4 a8( <e b'>~ 4) |
+        \clef treble
+        \time 4/4 d'4( <c g'>2.) |
+        \time 3/4 r8 f8~ <f bes,>4~ 8 dis8( |
+        \time 7/8 gis4.) b,4(~ <b e>4) |
+        \time 3/4 cis'4.( d,8~ 8)[ g]( |
+        \time 7/8 a4. ges,8~ <ges c>~ 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 |
+        <d g>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 <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.) |
+        c'8(~ <c g'>4~ <c g' d'>8~ <c g' d'~>2 d'4) |
+        \time 4/4 a,8(~ <a e'>~ <a e' b'>2.) |
+        \time 3/4 fis8(~ <fis cis'>~ <fis cis' gis'>2) |
+        \time 4/4 ees8~( <ees bes'>~ <ees bes' f'>2.) |
+        \time 3/4 c'8~( <c g'>8~ <c g' d'>2) |
+        \time 7/8 a8~([ <a cis>~ <a cis~ fis~>] <cis fis>2) |
+        \time 3/4 b8~( <b gis'>~ <b gis' e'>2) |
+        \time 7/8 bes8~([ <bes ees>~ <bes ees f'>~] 2) |
+        \time 4/4 \tuplet 3/2 { d,8( <b' g'>4~ } 4) \tuplet 3/2 { c,8( <a' e'>4~ } 4) |
+        \tuplet 3/2 { des,8( <aes' f'>4~ } 4) \tuplet 3/2 { ees8( <bes' ges'>4~ } 4) |
+        b,2~->^\mf \tuplet 3/2 { 8 a'4~-> } 8 r8 |
+        <bes, f'>1~\arpeggio |
+        1 |
+      }
+    }
+>>
diff --git a/manuscripts/clarinet.ly b/manuscripts/clarinet.ly
deleted file mode 100644 (file)
index 13160a1..0000000
+++ /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 (file)
index 12a668e..0000000
+++ /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 <f aes>2) { \stemDown des'8^( } |
-         <aes des>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
-         <c c'>2^\pp <ees c'> | <ees g> <d g> |
-         \time 3/2
-         <des g>1~ 4 \afterGrace r4 { g8_( } |
-         <g c>2) \afterGrace <f c'> { ges8_( } <f c'>2) |
-         \time 3/4
-         \afterGrace 15/16 <ees c'>2. { d8_( } |
-         \time 5/8
-         <d b'>2) <e cis'>8
-         \time 2/2
-         <ees g c>2 <gis b>2~ |
-         \afterGrace 15/16 1\fermata { ees'8( } |
-         <ees g,>1) |
-         \afterGrace 15/16 <bes g>1\fermata { \stemDown c8( } |
-         \stemUp <aes c>2) <ees c'> |
-         \time 3/8
-         <fis b>4 <e c'>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 <d~ b'>2 |
-      d2 bes'2 |
-      ees1\fermata |
-    }
-  }
->>