input/manual/pitches-headword.ly

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