\version "2.18.2"
\include "./color.ily"

\score {
  \new PianoStaff <<
    \set PianoStaff.connectArpeggios = ##t
    \new Staff = "up" {
      <<
        \relative c' {
          \key d \major \changeColors \colorOne

          \override Stem.direction = #DOWN < \deadNote d16 d'>\arpeggio
          \change Staff = "down" \changeColor \colorOneThree g32
          \changeColor \colorOne fis e16 g

          \change Staff = "up" \shiftOff \once \override NoteColumn.force-hshift = #-.3 fis\arpeggio
          \change Staff = "down" \shiftOn  d32 e fis16 a

          \change Staff = "up" \shiftOff \once \override NoteColumn.force-hshift = #-.3 g\arpeggio
          \change Staff = "down" \shiftOn b32 a g16 fis

          \change Staff = "up" e\arpeggio
          \once \override NoteColumn.force-hshift = #.4 \changeColor \colorOneThree a32
          \changeColor \colorOne g fis16
          \once \override NoteColumn.force-hshift = #-1 e
        }
        \\
        \relative c''' {
          \key d \major \changeColors \colorTwo

          \override Stem.direction = #UP b16\arpeggio b b b

          a\arpeggio a a a

          b\arpeggio b b b

          cis\arpeggio ^\markup { \small \italic { "L.H." } } cis,
          \once \override NoteColumn.force-hshift =#-.6 cis
          \changeColor \colorTwoThree cis
        }
        \\
        \relative c'' {
          \key d \major \changeColors \colorThree

          \once \override NoteColumn.force-hshift = #.4 g16\arpeggio
          \change Staff = "down" \changeColor \colorOneThree g
          \changeColor \colorThree g
          \change Staff = "up" \override Stem.direction = #DOWN d'

          \once \override NoteColumn.force-hshift = #.6 d\arpeggio
          d d d

          \once \override NoteColumn.force-hshift = #.6 d\arpeggio
          d
          \change Staff = "down" \override Stem.direction = #UP b b

          \change Staff = "up" \autoBeamOff \shiftOff a\arpeggio
          \shiftOn \once \override NoteColumn.force-hshift = #.4 \changeColor \colorOneThree a
          \override Stem.direction = #DOWN \shiftOff \once \override NoteColumn.force-hshift = #.4 \changeColor \colorThree e'
          \changeColor \colorTwoThree cis
        }
      >>
    }
    \new Staff = "down" {
      \relative c {
        \clef "bass" \key d \major
        g4 d g a\arpeggio
      }
    }
  >>
}