\version "2.12.3"

\include "english.ly"

\paper {
 #(set-paper-size "a4")
}

global = {
 \key d \major
 \numericTimeSignature
 \time 4/4
}

right = \relative c' {
 \global
 s1
 r4 <b a' d>8 <b a' d> <b a' d>4 r8 <b a' d>8
 <b a' d>4 <b a' d> r2
}

leftUp = \relative c'' {
 \global
 \change Staff = "right"
 \times 2/3 { <b, b'>8 ( <d d'>8 <e e'>8 ~ }

 % It's the last tie in this line that I want to see,
 % crossing to the lower staff.

 \set doubleSlurs = ##t
 <e e'>4 ~ <e e'>8. <d d'>16 <e e'>4 ) (
 \change Staff = "left"
 \voiceOne 
 <e e'>1 ) ~ <e e'>1
}

leftDown = \relative c'' {
 \global
 d,1 ~ \voiceTwo d ~ d
}

\score {
 \new PianoStaff
 <<
   \new Staff = "right" { \right }
   \new Staff = "left" << \leftUp \leftDown >>
 >>
 \layout {
   \context {
     \RemoveEmptyStaffContext
     % need to hide the left-hand staff when not used
     % may need to move this into staves later?
     \override VerticalAxisGroup #'remove-first = ##t
   }
 }
}