%% Generated by lilypond-book
%% Options: [exampleindent=10.16\mm,indent=0\mm,line-width=160\mm,paper-height=845.047\pt,paper-width=597.508\pt,papersize='(cons (* 597.508 pt) (* 845.047 pt)),quote]
\include "lilypond-book-preamble.ly"


% ****************************************************************
% Start cut-&-pastable-section
% ****************************************************************

#(ly:set-option 'eps-box-padding 3.000000)



\paper {
  #(set-paper-size '(cons (* 597.508 pt) (* 845.047 pt)))
  indent = 0\mm
  line-width = 160\mm
  % offset the left padding, also add 1mm as lilypond creates cropped
  % images with a little space on the right
  line-width = #(- line-width (* mm  3.000000) (* mm 1))
  line-width = 160\mm - 2.0 * 10.16\mm
  % offset the left padding, also add 1mm as lilypond creates cropped
  % images with a little space on the right
  line-width = #(- line-width (* mm  3.000000) (* mm 1))
}

\layout {
  
}




% ****************************************************************
% ly snippet:
% ****************************************************************
\sourcefilename "snippets/pitches-headword.ly"
\sourcefileline 0
%% DO NOT EDIT this file manually; it was automatically
%% generated from the LilyPond Wiki
%% (https://wiki.lilypond.community).
%%
%% Make any changes in the Wiki itself, or in
%% `Documentation/snippets/new/`, then run
%% `scripts/auxiliar/makelsr.pl`.
%%
%% This file is in the public domain.

\version "2.24.0"

\header {
%% Translation of GIT committish: af28c5f89c915fdf795739a1e2dd437c726d7f61
  texidoces = "
Encabezamiento de alturas.
"

  doctitlees = "Encabezamiento de alturas"

  categories = "Headword"

  texidoc = "
Pitches headword.
"

  doctitle = "Pitches headword"
} % begin verbatim


% L. v. Beethoven
% Piano sonata 21 op. 53 - "à Monsieur Comte de Waldstein"
% first movement, measures 34 - 41

\include "english.ly"

\new PianoStaff <<
  \new Staff = "right hand" <<
    \new Voice = "right hand voice 1" {
      \set Score.currentBarNumber = 34
      \voiceOne gs''2(^\markup \italic "dolce e molto ligato" fs''4 e'' |
      ds''2 cs'') |
      ds''2( e''4 fs'' |
      <gs'' e''>2 <fs'' ds''>) \clef bass |

      \oneVoice <gs' e' b>2( <fs' ds' a>4 <e' cs' gs> |
      <ds' bs fs>2 <cs' a e>) |
      \voiceOne b2\tweak height-limit 7
                  \tweak positions #'(6 . 2) ( cs'4 ds' \clef treble |
      <e' gs>4) r4 r2 |
    }

    \new Voice = "right hand voice 2" {
      \voiceTwo <e'' b'>2 <ds'' a'>4 <cs'' gs'> |
      <bs' fs'>2 e' |
      <b'! a'>2 b'4 <e'' cs''> |
      b'2.( a'4) \clef bass | \break

      s1 |
      s1 |
      <gs e>4( <a fs>2.) |
      s4 r4 r2 |
    }
  >>

  \new Dynamics {
    s1*2\p |
    s1\tweak style #'none \cresc |
    s1\sf\> |

    s1*4\p |
  }

  \new Staff = "left hand" {
    \override Staff.SustainPedalLineSpanner.staff-padding = 6
    <gs' e'>2(\sustainOn <fs' ds' b>4\sustainOff <e' cs'> |
    <ds' bs gs>2 <cs' a>)\sustainOn \clef bass |
    <ds' b! a fs>2_(\sustainOff
      <e' b gs>4 <fs' cs' a>\sustainOn \clef treble |
    << { \voiceOne <gs' e'>2 <fs' ds'>) }
       \new Voice { \voiceTwo b1\sustainOff } >> \clef bass |

    \oneVoice <gs e>2( <fs ds b,>4 <e cs> |
    <ds bs, gs,>2 <cs a,>)\sustainOn |
    <b,! b,,!>1(\sustainOff |
    <e e,>4) r4 r2 |
  }
>>



% ****************************************************************
% end ly snippet
% ****************************************************************
