\version "2.12.2"

measIu = {
    \tupletUp
    \times 2/3 {
        \times 2/3 {
            \override NoteHead #'color = #red
            d'4^\ff r8
        }
        r8
    }
}

measIl = {
    \tupletDown
    \override NoteHead #'color = #red
    <<
        {
            \voiceOne
            \override NoteHead #'color = #red
%            \times 2/3 {
                es4*2/3^\f
                s8*2/3
%            }
        }
        \new Voice {
            \voiceTwo
            \override NoteHead #'color = #red
%            \once\override TupletNumber #'text = #tuplet-number::calc-fraction-text
            \times 2/3 {
                f,4~_\f
                \times 2/3 {
                    f,16 r8
                }
            }
        }
    >>
}

measIIu = {
    \tupletUp
    \times 4/5 {
        \override NoteHead #'color = #blue
        b'''16[^\mf
        a''16.~^\ff
        }
    \times 4/5 {
        \override NoteHead #'color = #blue
        a''32
        \override NoteHead #'color = #red
        d'''8^\ff
        }
    \times 4/5 {
        \override NoteHead #'color = #blue
        r16. << g''16] aes'''16]^\p >>
    }
}

measIIl = {
    \tupletUp
    \clef treble
    \times 4/5 {
        \override NoteHead #'color = #blue
        r16.[ gis'16~_\f
        }
    \times 4/5 {
        gis'32
        \override NoteHead #'color = #red
        c'8_pp
        }
    \times 4/5 {
        cis''16.
        \override NoteHead #'color = #blue
        fis'16]_\p
    }
}

measIIIu = {
    \tupletUp
%    \once\override TupletNumber #'text = #tuplet-number::calc-fraction-text
 %   \tweak #'direction #down
    \tweak #'text #tuplet-number::calc-fraction-text
    \times 3/4 {
        \tweak #'padding #4.0
        \times 4/5 {
            \override NoteHead #'color = #red
            \change Staff = lower
            <<
                d''8[\laissezVibrer
                es'8[\laissezVibrer_\pp\sustainOn
            >>
            \change Staff = upper
            f''32^\f\laissezVibrer
         }
         \override NoteHead #'color = #blue
         b''32^\ff\laissezVibrer
         a'16.^\ff\laissezVibrer
         gis''8^\ff\laissezVibrer
         \change Staff = lower
         \clef bass
         \override NoteHead #'color = #red
         cis'8]_\pp    \sustainOff
    }
}

measIIIl = {
    s4 s8
}

measIVu = {
  <<
       {
           \voiceOne
           s2
       }
       \new Voice {
           \voiceTwo
           \override NoteHead #'color = #red
           \change Staff = upper
           \tupletUp
           c'4.~_\p
           \times 4/5 {
               c'32 r8
           }
       }
   >>
}

measIVl = {
    \override NoteHead #'color = #red
    \tupletDown
    d,4.~_\mf
    \times 4/5 {
        d,32 r8
    }
}

measVu = {
    \tupletUp
%    \once\override TupletNumber #'text = #tuplet-number::calc-fraction-text
%    \tweak #'direction #down
    \tweak #'text #tuplet-number::calc-fraction-text
    \times 6/7 {
%       \tweak #'padding #4.0
        \override NoteHead #'color = #blue
        \change Staff = lower
        <<
            aes,32[\laissezVibrer
            fis'32[\laissezVibrer_\pp\sustainOn
        >>
        \change Staff = upper
%        \tweak #'direction #down
        \clef bass
        g16.^\ff\laissezVibrer
        \override NoteHead #'color = #red
        f16.~^\ff
    }
}

measVl = {
    s8 s16
}

measVIu = {
    \tupletUp
%    \once\override TupletNumber #'text = #tuplet-number::calc-fraction-text
%    \tweak #'direction #down
    \tweak #'text #tuplet-number::calc-fraction-text
    \times 6/7 {
        f16.\laissezVibrer
        d32^\f\laissezVibrer
        \change Staff = lower
%       \tweak #'direction #up
        es,8.]_\p
        \sustainOff
    }
}

measVIl = {
    s8 s16
}

%% \paper {
%%      between-system-padding = 1.5\cm
%% }

\score {
    \new PianoStaff <<
        \new Staff = "upper" {
            #(set-accidental-style 'dodecaphonic)
            \clef treble
            \time 2/8
        }
        \new Staff = "lower" {
            #(set-accidental-style 'dodecaphonic)
            \clef bass
            \time 2/8
            \set Staff.pedalSustainStyle = #'mixed
        }
        \context Staff = upper
        \new Voice {
            \override TupletBracket #'padding = #2
            \autoBeamOff
            \measIu
             \time 3/8
             \measIIu
             \measIIIu
             \time 4/8
             \measIVu
             \time 6/32
             \measVu
             \measVIu
        }
        \context Staff = lower
        \new Voice {
            \override TupletBracket #'padding = #2
            \autoBeamOff
            \measIl
             \time 3/8
             \measIIl
             \measIIIl
             \time 4/8
             \measIVl
             \time 6/32
             \measVl
             \measVIl
        }
    >>
}