input/manual/pitches-headword.ly

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