Keyboard headword

Keyboard headword.

\version "2.24"

% M. Ravel, Sonatine (1905)
% End of first movement

\include "english.ly"

\layout {
  \context {
    \Score
    \remove "Bar_number_engraver"
  }
}

fermataLong = \markup {
  \override #'(direction . 1)
  \override #'(baseline-skip . 2) {
    \dir-column {
      \fermata
      \text \italic \center-align long
    }
  }
}

\new PianoStaff <<
  \set PianoStaff.connectArpeggios = ##t
  \new Staff {
    \time 2/4
    \key fs \major
    <<
      \new Voice {
        \voiceOne
        \textMark \markup {
          \override #'(baseline-skip . 2.4) \column {
            \line \bold { Un peu retenu }
            \line \italic { très expressif } } }
        fs''8( es''16 cs'' as'4) |
        fs''8( es''16 cs'' as'4) |
        fs''8( es''16 cs'' as'8 cs''8) |
      }
      \new Voice {
        \voiceTwo
        gs'8\rest \offset Y-offset #-3 \ppp fs'4( es'8) |
        gs'8\rest fs'4( es'8) |
        gs'8\rest fs'4( es'8) |
      }
    >>
    \clef bass
    \override TextSpanner.bound-details.left.text = "rall."
      \override TextSpanner.bound-details.right.text = "a tempo"
      <b! es'>4(\startTextSpan
      \override Script.stencil =
        #(lambda(grob)
           (grob-interpret-markup grob fermataLong))
      <ds' as'>8)\fermata \noBeam
      \clef treble
      <as fs'>8^(
               \tweak to-barline ##f
                 \tweak after-line-breaking ##f
                 \tweak endpoint-alignments #'(-1 . 0) ^\>
               \stopTextSpan |
    <gs b cs'>4.\!)
      <as fs'>8^(
               \tweak to-barline ##f
                 \tweak after-line-breaking ##f
                 \tweak endpoint-alignments #'(-1 . 0) ^\> |
    <gs b cs'>4.\!)
    <<
      \new Voice {
        \voiceOne
        <as fs'>8( |
        \override TextSpanner.bound-details.left.text =
          "ral  -   -   len   -   -   tan   -   -   do"
          \override TextSpanner.bound-details.right.text =
            \markup \larger \upright \bold "Lent"
        cs'8\<\startTextSpan b16 cs'
          d'8\tweak to-barline ##f \> e'16 fs' |
        <as! cs' gs'>4.)\! s8 |
        r8 <cs'' as'' cs'''>4\arpeggio
          e''16(\stopTextSpan fs''16 |
        \voiceTwo
        <as'! cs'' gs''>2) |
      }
      \new Voice {
        \voiceTwo
        s8 |
        <gs b>4 <fs bs>4 |
        s4. <a bs e'>8^(^> \tweak to-barline ##f _\> |
        <as! cs' gs'>4.)\!
        <a' bs'>8\tweak X-offset #-4 \ppp \tweak to-barline ##f \> |
        s8\!
          \voiceOne
          \ottava #1
          \once \override PianoStaff.Arpeggio.padding = #0.8
          <cs''' as''' cs''''>4. \arpeggio \fermata
          \ottava #0
          \bar "|."
      }
    >>
  }

  \new Staff <<
    \key fs \major
    \clef bass
    \new Voice {
      \voiceOne
      ds'4-- cs'4-- |
      ds'4-- cs'4-- |
      ds'4-- cs'4-- |
      r8 \clef treble <b' cs''>8[ \clef bass <es b cs'>8]\fermata
        s8^\tweak Y-offset #3 \pp |
      fs8\rest \clef treble <b' cs''>4-- s8 |
      fs8\rest \clef treble <b' cs''>4-- s8 |
      s2 |
      ds8\rest \clef treble <as' cs''>4 \clef bass s8 |
      s8 \clef treble <as'>4 \arpeggio \clef bass s8 |
      s8 \clef treble <as''>4. \arpeggio \fermata |
    }
    \new Voice {
      \voiceTwo
      ds'8[( <ds bs> cs' <ds as>]) |
      ds'8[( <ds bs> cs' <ds as>]) |
      ds'8[( <ds bs> cs' <ds as>]) |
      \set Staff.pedalSustainStrings = #'("P" "" "")
        <cs, gs, ds>4.\sustainOn \fermata
        <fs, cs>8(\sustainOff
                  \tweak to-barline ##f
                    \tweak after-line-breaking ##f _\> |
      <e, b,>4.)\! \clef bass
        <fs, cs>8( \tweak to-barline ##f
                     \tweak after-line-breaking ##f _\> |
      <e, b,>4.)\! \clef bass <fs, cs>8( |
      <e, b,>4 <d, a,> |
      <fs,, cs,>4.) <a, e>8( |
      <fs, cs>4.) <a e'>8^( |
      <fs cs'>2) |
    }
  >>
>>

\paper {
  system-system-spacing.padding = #4
}