sonata-op111.ly

%===========================================================================
%    Piano Sonata Op.111 - II. Arietta, in C Major (L.v.Beethoven)
%===========================================================================
%
%--- Notes -----------------------------------------------------------------
%
%  * test
%
%---------------------------------------------------------------------------
%
%--- Author ----------------------------------------------------------------
%
%    (C) 2016, Michiel Sikma <[email protected]>
%    Licensed under CC BY-SA 4.0.
%
%---------------------------------------------------------------------------


FILENAME = "sonata-op111-ii"
AUTHORS = "M.Sikma"
HEADERS-DIR = "./includes/"

\version "2.18.2"
\language "english"
\include "includes/ms.ily"
\include-header

% Main time signature.
section-one = {
  \key c \major
  \time 9/16
  \partial 8.
  \tempo "Adagio molto semplice e cantabile"
}

\book {
  \paper {
    markup-system-spacing = #'((padding . 4))
    bookTitleMarkup = \markup {
      \column {
        \override #'(baseline-skip . 5.0)
        \fill-line {
          \fontsize #7.2
          \pad-markup #3
          \fromproperty #'header:title
        }
        \fill-line {
          \fromproperty #'header:dedication
        }
        \fill-line {
          \composed
        }
        \fill-line {
          \large \bold
          \fromproperty #'header:subtitle
        }
        \fill-line {
          \smaller \bold
          \fromproperty #'header:subsubtitle
        }
        \fill-line {
          \fromproperty #'header:poet
          { \large \bold \fromproperty #'header:instrument }
          \fromproperty #'header:composer
        }
        \fill-line {
          \fromproperty #'header:meter
          \fromproperty #'header:arranger
        }
      }
    }
  }
  \score {
    \new PianoStaff \with {
      \override StaffGrouper.staff-staff-spacing =
        #'((basic-distance . 9)
           (minimum-distance . 7)
           (padding . 1.0)
           (stretchability . 5))
    } <<
      \set PianoStaff.connectArpeggios = ##t
      %---------------------------------------------------------------------
      %    Right hand
      %---------------------------------------------------------------------
      \new Staff = "right" \with {
        midiInstrument = "acoustic grand"
      } {
        \clef treble \relative c'' {
          \section-one

          %-----------------------------------------------------------------
          %    Variation 1, part 1
          %-----------------------------------------------------------------
          <<
            \new Voice {
              \voiceOne
              \repeat volta 2 {
                \relative c'' {
                  c8 \p g16 |
                  g4. d'8 g,16 |
                  g4. g8. |
                  g8.-[ e' c] |
                  c8.-[ b <b g>] |
                  c8.-[ e g] |
                  g8.-[ f d8 c16] |
                  b8.-[ c d8 g,16] |
                }
              }
              \alternative {
                {
                  \relative c'' {
                    \set Timing.measureLength = #(ly:make-moment 6/16)
                    g4.
                  }
                }
                {
                  \relative c'' {
                    \set Timing.measureLength = #(ly:make-moment 9/16)
                    g4. e8.
                  }
                }
              }
            }
            \new Voice {
              \voiceTwo
              \relative c' {
                e8. |
                e8.-[ f8. d8.] |
                d8.-[ e f] |
                s8. e8.-[ g] |
                e8.-[ d d] |
                g4.\< g8.\! |
                a4.\> a8-[ <d, a'>16]\! |
                <d g>8.-[ <c g'> <d g>8 d16]~ |
                d8-[\< d16^(\! <c e>8\> <b f'>16)\!] |
                d8-[\<\repeatTie <c e>16^(\! <b f'>8\> <c e>16)]\! s8. |
              }
            }
          >>

          %-----------------------------------------------------------------
          %    Variation 1, part 2
          %-----------------------------------------------------------------
          <<
            \new Voice {
              \voiceOne
              \repeat volta 2 {
                \relative c'' {
                  c4. \p c8 b16
                }
              }
            }
            \new Voice {
              \voiceTwo
              \relative c' {
                e4. e8.
              }
            }
          >>
        }
      }

      %---------------------------------------------------------------------
      %    Left hand
      %---------------------------------------------------------------------
      \new Staff = "left" \with {
        midiInstrument = "acoustic grand"
      } {
        \clef bass \relative c, {
          \section-one

          %-----------------------------------------------------------------
          %    Variation 1, part 1
          %-----------------------------------------------------------------
          <<
            \new Voice {
              \voiceOne
              \repeat volta 2 {
                \relative c, {
                  <c g'>8. |
                  <c g'>8.-[ <d g> <b g'>] |
                  <b g'>8.-[ <c g'> <d g>] |
                  <e g>8.-[ <c g'> <e g>] |
                  g,8.-[ g' g8 f16 ] |
                  <e, e'>4. <e e'>8. |
                  <d d'>4. <f f'>8 <fs fs'>16 |
                  g'8.-[ a b8 b16]_~ |
                  b8-[ b16( c8 d16)] |
                  b8-[_\repeatTie c16 d8 c16] e8. |
                }
              }
            }
            \new Voice {
              \voiceTwo
              \relative c, {
                s8. |
                s4. s8. |
                s4. s8. |
                s4. s8. |
                g4.~g8 f16 |
                s4. s8.
                s4. s8. |
                g4. s8. |
              }
            }
          >>

          %-----------------------------------------------------------------
          %    Variation 1, part 2
          %-----------------------------------------------------------------
          <<
            \new Voice {
              \voiceOne
              \repeat volta 2 {
                \relative c {
                  a8.-[ e'8. e8.]
                }
              }
            }
            \new Voice {
              \voiceTwo
              \relative c {
                a4. a8.
              }
            }
          >>
        }
      }
    >>
    \layout {
      \context {
        \Score
        % Set the score to a default note value of one crotchet.
        \override SpacingSpanner.common-shortest-duration = #(ly:make-moment 1/8)
        \consists #Span_stem_engraver
      }
    }
    \midi {
      \tempo 4 = 96
    }
  }
}