\version "2.12.0"
\include "english.ly"
#(set-global-staff-size 15)
\paper{
  ragged-right=##t
  line-width=17\cm
  indent=0\cm
}

\layout {
  \context { \Score
    \override PaperColumn #'keep-inside-line = ##t
    \override NonMusicalPaperColumn #'keep-inside-line = ##t
  }
}

% NR 1.5 Simultaneous notes

% L. v. Beethoven, Op. 111
% Piano sonata 32
% Movt II - Arietta - Adagio molto semplice e cantabile
% measures 108 - 118

\layout {
   \context {
      \Score
      \override SpacingSpanner #'base-shortest-duration =
         #(ly:make-moment 1 18)
      \override NonMusicalPaperColumn #'line-break-system-details =
         #'((alignment-offsets . (0 -12)))
   }
}

trillflat =
  \once \override TrillSpanner #'(bound-details left text) =
    #(markup #:translate-scaled '(-0.05 . -1)
             #:concat (#:musicglyph "scripts.trill"
                       #:translate '(-0.5 . 1.9) #:fontsize -7 #:flat))


\new PianoStaff <<

   % RH
   \new Staff <<
      \clef treble
      \key c \major
      \time 9/16
      \set Score.currentBarNumber = #108

      % RH voice 1
      \new Voice {

         \voiceOne
         s4.
         s8.

         |

         s4.
         a''8 \p \> [ (
         g''16 ] )

         |

         g''4.
         af''8 [ (
         g''16 ] )

         |

         g''8. [
         g''8.
         g''8. \pp ]

         |

         g''8. [
         af''8.
         af''8. ]

         |

         af''8. [
         af''8.
         af''8. ]

         |
         \break

         \trillflat
         af''4. \startTrillSpan
         ~
         af''8.
         ~

         |

         af''4.
         ~
         af''8.
         ~

         |

         \oneVoice
         <af'' d''>8. [
         a''8. \p \<
         bf''8. ]
         ~

         |

         bf''8. [
         b''8.
         c'''8. ]
         ~

         \bar "||"

         \key ef \major
         c'''8. [
         cs'''8. \f ] \stopTrillSpan
         r8.

      }

      % RH voice 2
      \new Voice {
         \voiceTwo
         \override Voice.TrillSpanner #'direction = #down
         d''4. \f \startTrillSpan
         ~
         d''8.
         ~

         |

         d''4.
         ~
         d''8.
         ~

         |

         d''8. \stopTrillSpan
         \trillflat
         d''4. \startTrillSpan
         ~

         |

         d''4.
         ~
         d''8.
         ~

         |

         d''4.
         ~
         d''8.
         ~

         |

         d''4.
         ~
         d''8. \stopTrillSpan
         ~

         |

         \trillflat
         d''4. \startTrillSpan
         ~
         d''8.
         ~

         |

         d''4.
         ~
         d''8.
         ~

         |

         \once \override NoteColumn #'ignore-collision = ##t
         \once \override NoteHead #'transparent = ##t
         \once \override Dots #'transparent = ##t
         \once \override Stem #'transparent = ##t
         d''8. \stopTrillSpan
         s4.

         |

         s8.
         s8.

      }

   >>

   % LH staff
   \new Staff {
      \clef bass
      \key c \major
      \time 9/16
      
      r8.
      r8.
      <c! c,!>8 [ (
      <g, g,,>16 ] )

      |

      <g, g,,>4.
      \clef treble
      c''8 [ (
      b'16 ] )

      |

      b'4.
      c''8 [ (
      b'16 ] )

      |

      b'8. [
      b'8.
      b'8. ]

      |

      b'8. [
      bf'8. ]
      \clef bass
      <f f,>8 [ (
      <bf, bf,,>16 ] )

      |

      <bf, bf,,>4.
      \clef treble
      f'8 [ (
      bf16 ] )

      |

      <<

         \new Voice {
            \voiceOne
            \override Voice.TrillSpanner #'direction = #up
            f'4. \startTrillSpan
            ~
            f'8.
            ~

            |

            f'4.
            ~
            f'8.
            ~

            |

            f'8. \stopTrillSpan
         }

         \new Voice {
            \voiceTwo
            \override Voice.TrillSpanner #'direction = #down
            bf8. [
            bf8.
            bf8. ]

            |

            bf8. [
            bf8.
            bf8. ]

            |

            bf8.
         }

      >>

      \oneVoice
      r8.
      r8.

      |

      r8.
      r8.
      r8.
      \clef bass

      |

      \key ef \major
      r8.
      r8.
      r8.
         
   }
   
>>
