\version "2.19.16"
\language "english"

tupletBracketOff = \override TupletBracket.bracket-visibility = ##f
hideTimeSignature = \once \override Staff.TimeSignature.stencil = ##f
staffUp = \change Staff = "upper"
staffDown = \change Staff = "lower"
shapeTieOne = \shape #'((0 . 0) (-0.25 . 0) (-0.75 . 0) (-1 . 0)) Tie

subgroupByEights = {
  \set subdivideBeams = ##t
  \set baseMoment = #(ly:make-moment 1/8)
  \set beatStructure = #'(2 2 2)
}

global = {
  \key a \major
  \accidentalStyle piano
  \mergeDifferentlyDottedOn
}

upperStaffTop = \relative c'' {
  \tupletBracketOff
  \hideTimeSignature \time 3/4
  \voiceOne r4 <cs a' cs> ~ q8 r |
  r8 <cs a' cs> ~ q4 r |
  r4 <cs a' cs> r |
  \bar "|."
}

upperStaffBottom = \relative c' {
  \tupletBracketOff
  \hideTimeSignature \time 3/4
  \subgroupByEights
  \autoBeamOn <ds fs>16^. ^\< ^( <cs e>^. ) 
    <e gs>32^- ^\> ^( <ds fs> <cs e>16^. ) \! s2 |
  \acciaccatura { <ds fs>8 } \autoBeamOff <cs e>8^. ^( q8^. ) ~ q2 |
  \autoBeamOn <ds fs>16^. ^( <cs e>^.) <e gs>32^- ^( <ds fs> <cs e>16^. ) s2 |
}

lowerStaffTop = \relative c {
  \staffDown 
  \hideTimeSignature \time 3/4
  \stemDown
  \subgroupByEights
  <fs b>16^. _\< ( <e a>^. ) <gs cs>32^- _\> ( <fs b> <e a>16 ^. ) \!
    << { \staffUp \stemDown \crossStaff <cs' e>2 } 
       \\ 
       { \crossStaff <e, a>2 } 
    >> |
  \acciaccatura { <fs, b>8 } 
  <<
    { 
      s8 \staffUp \once \hide Staff.Flag \stemDown 
      \crossStaff <cs'' e>8^. \crossStaff <cs e>2 
    }
    \\
    { 
      <e, a>8 <e a>8 \laissezVibrer \ottava #-1 a,,,4 \ottava #0 a' \rest
    }
  >> |
  <fs'' b>16^. ( <e a>^. ) <gs cs>32^- ( <fs b> <e a>16 ^. ) 
    << { \staffUp \stemDown \crossStaff <cs' e>2 } 
       \\ 
       { \crossStaff <e, a>2 } 
    >> |
  \bar "|."
}

lowerStaffBottom = \relative c, {
  \hideTimeSignature \time 3/4
  r4 a \rest \ottava #-1 a, \ottava #0 | % -- Why is this ottava spanner so long?
  r4 <e'' a>2 |
  r4 a, \rest \ottava #-1 a, |
}

dynamics = {
  s4 s2 \pp | 
}

upperStaff = {
  \clef treble
  \global
  <<
    \new Voice { \voiceOne \upperStaffTop }
    \new Voice { \voiceTwo \upperStaffBottom }
  >>
}

lowerStaff = {
  \clef bass
  \global
  <<
    \new Voice { \voiceThree \lowerStaffTop }
    \new Voice { \voiceFour \lowerStaffBottom }
  >>
}

\score {
  \new PianoStaff \with {
    \override StaffGrouper.staff-staff-spacing.padding = #5
  } <<
    \new Staff    = "upper" { \upperStaff }
    \new Dynamics = "dyns"  { \dynamics }
    \new Staff    = "lower" { \lowerStaff } 
  >>
  \layout {
    \context {
      \PianoStaff
      \consists #Span_stem_engraver
    }
  }
}