input/manual/pitches-headword.ly

   1 \version "2.11.38"
   2 \include "english.ly"
   3
   4 % NR 1.1 Pitches
   5
   6 % L. v. Beethoven
   7 % Piano sonata 21 - Dem Grafen von Waldstein Gewidmet
   8 % chorale at measures 34 - 40+
   9
  10 \new PianoStaff <<
  11
  12    % RH Staff
  13    \new Staff <<
  14
  15       % RH Voice 1
  16       \new Voice {
  17          \set Score.currentBarNumber = #34
  18          \voiceOne
  19          gs''2 ( ^ \markup \italic { dolce e molto ligato }
  20          fs''4
  21          e''4
  22          |
  23          ds''2
  24          cs''2 )
  25          |
  26          ds''2 (
  27          e''4
  28          fs''4
  29          |
  30          <gs'' e''>2
  31          <fs'' ds''>2 )
  32          |
  33          \oneVoice
  34          \clef bass
  35          <gs' e' b>2 (
  36          <fs' ds' a>4
  37          <e' cs' gs>4
  38          |
  39          <ds' bs fs>2
  40          <cs' a e>2 )
  41          |
  42          \voiceOne
  43          b2 %(
  44          cs'4
  45          ds'4
  46          |
  47          \clef treble
  48          <e' gs>4 %)
  49       }
  50
  51       % RH Voice 2
  52       \new Voice {
  53          \voiceTwo
  54          \override Staff.DynamicLineSpanner #'staff-padding = #2.5
  55          <e'' b'>2 \p
  56          <ds'' a'>4
  57          <cs'' gs'>4
  58          |
  59          <bs' fs'>2
  60          e'2
  61          |
  62          \once \override TextScript #'staff-padding = #2.5
  63          <b'! a'>2 _ \markup \italic { cresc. }
  64          b'4
  65          <e'' cs''>4
  66          |
  67          b'2. ( \sf \>
  68          a'4 )
  69          \clef bass
  70          | \break
  71          s1 \p
  72          |
  73          s1
  74          |
  75          <gs e>4 (
  76          <a fs>2. )
  77          |
  78          s4
  79       }
  80
  81    >>
  82
  83    % LH Staff
  84    \new Staff {
  85       \override Staff.SustainPedalLineSpanner #'staff-padding = #5
  86       <gs' e'>2 ( \sustainDown
  87       <fs' ds' b>4 \sustainUp
  88       <e' cs'>4
  89       |
  90       <ds' bs gs>2
  91       <cs' a>2 ) \sustainDown
  92       |
  93       \clef bass
  94       \slurDown
  95       <ds' b! a fs>2 ( \sustainUp
  96       <e' b gs>4
  97       <fs' cs' a>4 \sustainDown
  98       |
  99       \clef treble
 100       \voiceOne
 101       <<
 102          {
 103             <gs' e'>2
 104             <fs' ds'>2 )
 105          }
 106          \new Voice {
 107             \voiceTwo
 108             b1 \sustainUp
 109          }
 110       >>
 111       \oneVoice
 112       |
 113       %\break
 114       \clef bass
 115       <gs e>2 (
 116       <fs ds b,>4
 117       <e cs>4
 118       |
 119       <ds bs, gs,>2
 120       <cs a,>2 ) \sustainDown
 121       |
 122       <b,! b,,!>1 ( \sustainUp
 123       |
 124       <e e,>4 )
 125    }
 126
 127 >>