\version "2.1.7"

\include "english.ly"
\include "paper16.ly"

%% voiceX stuff
csRHDown = { \translator Staff = "lower" \voiceOne }
csRevRH = { \translator Staff = "upper" \oneVoice }
csLHUp = { \translator Staff = "upper" \voiceTwo }
csRevLH = { \translator Staff = "lower" \oneVoice }


rh = \notes \relative c'
{
    \key c \major
    \clef treble
    \time 2/4
    
    %% reference (no bug)
    d,16 cs d f~ f fs g8
    d'16 cs d f~ f fs g8
    d'16 cs d f~ f e f fs
    g8 r4. \break
    <c, e c'>4~ <c e c'>16 <g b>( <fs a>-.) <f af> \break

    %% bug
    \csRHDown d,16 cs d f~ f fs g8
    \csRevRH d'16 cs d f~ f fs g8
    \voiceOne d'16 cs d f~ f e f fs
    g8 r4. \oneVoice \break
    <c, e c'>4~ <c e c'>16 <g b>( <fs a>-.) <f af>
}


lh = \notes \relative c
{
    \key c \major
    \clef bass

    %% reference (no bug)
    d,16 cs d f~ f fs g8
    d'16 cs d f~ f fs g8
    d'16 cs d f~ f e f fs
    g8 r4. r4*2

    %% bug
    \voiceTwo d,,16 cs d f~ f fs g8 \oneVoice
    d'16 cs d f~ f fs g8
    \csLHUp d'16 cs d f~ f e f fs
    g8 r4. \csRevLH r4*2
}


\score 
{
    \context PianoStaff
    <<
        %\pianoAccidentals
        
        \property PianoStaff.instrument = #"Piano"
        \context Staff = upper
        << 
            \property Staff.Beam \override #'damping = #2
            \rh
        >>
        \context Staff = lower
        <<
            \property Staff.Beam \override #'damping = #2
            \lh
        >>
    >>

    \paper 
    {
        \translator 
        {
            \type "Engraver_group_engraver"
            \name Dynamics
            \consists "Output_property_engraver"
            
            minimumVerticalExtent = #'(-1 . 1)
            pedalSustainStrings = #'("Ped." "*Ped." "*")
            pedalUnaCordaStrings = #'("una corda" "" "tre corde")
            
            \consists "Piano_pedal_engraver"
            \consists "Script_engraver"
            \consists "Dynamic_engraver"
            \consists "Text_engraver"
            
            %TextScript \override #'font-relative-size = #1
            TextScript \override #'font-shape = #'italic
            DynamicText \override #'extra-offset = #'(0 . 2)
            Hairpin \override #'extra-offset = #'(0 . 2)
            
            \consists "Skip_event_swallow_translator"
            \consistsend "Axis_group_engraver"
        }
        \translator
        {
            \PianoStaffContext
            \accepts Dynamics
            VerticalAlignment \override #'forced-distance = #9
        }
        papersize = "letter"
        linewidth = 427.05\pt  % 6.5in #3 staff / 1.10
        indent = 36.135\pt  % 1.0in
        raggedright = ##t
    }
}