\version "2.19.24"
\language "deutsch"
\include "notation-snippets/shaping-bezier-curves/shapeII.ily"
#(set-global-staff-size 16)

\paper {
  %annotate-spacing = ##t
  #(set-paper-size "a5" 'landscape)
}

%{
shapeII =
#(define-music-function (all-specs item) (list? symbol-list-or-music?)
   (propertyTweak 'color red item))
%}
global =
#(define-music-function (p mus) ((ly:pitch? #{ f #}) ly:music?)
   #{
     \new Voice
     \relative $p {
       \key d \minor
       \time 4/4
       $mus
     }
   #})

right = \global {
  \oneVoice <a=' c d a'>4 r r2

  <<
    {
      \voiceOne
      d=''2\rest d8\rest g, as c
    }
    \new Voice {
      \voiceTwo
      s4 s8 d, es g f <as f>
    }
    \new Voice {
      \voiceThree
      b,=8\rest as b d
    }
  >>
  \oneVoice <f as h f'>4 r r r8 c
  <<
    {
      \voiceTwo
      d f es d es4 d8 a'
    }
    \new Voice {
      \voiceOne
      r4 r8 g a c b a
    }
  >>
  \voiceOne
  \shapeII #'((h 0 1.2)(p 30 0.4)(p 30 0.4)(h)) Slur
  d4. d8( cis4) r8 d8-\shapeII #'((()(p 30 0.4)(p 30 0.4)(0 . -.8))
                                  (()())) (

  cis4) r8 d8%{-\shapeII #'((h 0 1.5)())%} ( cis4) r8 d8(
  cis4) \shapeII #'((h 0 1.2)(p 30 0.4)(p 30 0.4)(h)) Slur r8 g'( fis4) r8 g(
  fis4) r8 g( fis4) r8 g-\tweak control-points #ly:slur::calc-control-points (
  fis4) r8 fis \revert Slur.control-points

  \oneVoice
  <<
    {
      g b as g~

      g f es d~  d g f es~
      \slurUp es d c h  r g'( f es~
      es) d( as g~  g) es'( d c~
      c) b( a g)  r d'( c b~

      b) a( es d~  d) b'( a g~
      g) f( e d~  d) f e d
    }
    {
      g es' d b~

      b as g f~  f g as g~
      g f es d  s g h g~
      g f d f~  f es f es~
      es e s s  s g es d~

      d
    }
    {
      b'=' g' f es~

      es d b <as^~>  as <b es> d <b^~>
      b h s f  s <c' es> d s
      s2  s8 <c g> h g~
      g g e e  s b' a s

      s2  s8 <g d> fis d~
      d d s4  s cis8 s
    }
    \new Voice {
      \change Staff = "left"
      \voiceOne
      \autoBeamOff
      \crossStaff {
        s2

        s1*3
        s4 a8 b  s2

        s8 c a c_~  c b c b~
        b h cis h  s a g f
      }
    }
  >>
}

left = \global {
  \clef bass
  \voiceOne
  <<
    {
      <d=' c a fis>4 r c\rest r8 \tweak Stem.length 7.5 es,=
      f-\offset positions #'(.2 . .5) [ as g] s s2
    }
    \new Voice {
      \voiceThree s2 d,=8\rest b=,-\offset positions #'(-1 . -1) [ c es]
      d-\offset positions #'(-1.1 . -.8) [ c b as'] \voiceOne g b h c
    }
  >>
  <h= as f d>4 r r8 g a c

  b a g2 fis4
  \change Staff = "right" \voiceTwo r8 d' es <f d>
  <g e> <b g> <a f> <g e>~ <g e> <b g> <a f> <g~ e~>
  <g e> <b g> <a f> <g e>~
  <<
    {
      \voiceFour <g e> <b g> <a f> <b g>
      <c a> <es c> <d b> <c a>~ <c a> <es c> <d b> <c~ a~>
      <c a> <es c> <d b> <c a>~ <c a> <es c> <d b> <c as>
    }
    \new Voice {
      \voiceTwo s4 r8 es,='( d4) r8 es(
      d4) r8 es( d4) r8 es(
      d4)
    }
  >>
  s2
  s1*6
}

pedal = \global {
  \voiceTwo
  fis,=,4 r8 fis g b a g

  f d g f es es' f es
  d,4 r8 d' es g f es
  d4 r8 b c a d c
  \oneVoice b d' c b a4 r8 b(

  a4) r8 b(  a4) r8 b(
  a4) r r2
  R1
  r4 r8 d,, es2

  f g
  as g
  h c
  cis d

  fis g
  gis a
}


\score {
  \new PianoStaff = "Manual" \with {
    \consists #Span_stem_engraver
  } <<
    \new Staff = "right" \right
    \new Staff = "left" << \left \\ \pedal >>
  >>
  \layout {
    \context {
      \Voice
      \override Tie.minimum-length = 3
    }
  }
}