input/manual/pitches-headword.ly

   1 \version "2.11.34"
   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 \paper {
  11   #(define dump-extents #t)
  12   indent = 0\mm
  13   ragged-right = ##t
  14   line-width = 16\cm
  15   force-assignment = #""
  16   line-width = #(- line-width (* mm  3.000000))
  17 }
  18
  19 \layout {
  20    \context {
  21       \Score
  22       \override SpacingSpanner #'base-shortest-duration =
  23          #(ly:make-moment 1 20)
  24    }
  25 }
  26
  27 \new PianoStaff <<
  28
  29    % RH Staff
  30    \new Staff <<
  31
  32       % RH Voice 1
  33       \new Voice {
  34          \set Score.currentBarNumber = #34
  35          \voiceOne
  36          gs''2 ( ^ \markup \italic { dolce e molto ligato }
  37          fs''4
  38          e''4
  39          |
  40          ds''2
  41          cs''2 )
  42          |
  43          ds''2 (
  44          e''4
  45          fs''4
  46          |
  47          <gs'' e''>2
  48          <fs'' ds''>2 )
  49          |
  50          \oneVoice
  51          \clef bass
  52          <gs' e' b>2 (
  53          <fs' ds' a>4
  54          <e' cs' gs>4
  55          |
  56          <ds' bs fs>2
  57          <cs' a e>2 )
  58          |
  59          \voiceOne
  60          b2 %(
  61          cs'4
  62          ds'4
  63          |
  64          \clef treble
  65          <e' gs>4 %)
  66       }
  67
  68       % RH Voice 2
  69       \new Voice {
  70          \voiceTwo
  71          \override Staff.DynamicLineSpanner #'staff-padding = #2.5
  72          <e'' b'>2 \p
  73          <ds'' a'>4
  74          <cs'' gs'>4
  75          |
  76          <bs' fs'>2
  77          e'2
  78          |
  79          \once \override TextScript #'staff-padding = #2.5
  80          <b'! a'>2 _ \markup \italic { cresc. }
  81          b'4
  82          <e'' cs''>4
  83          |
  84          b'2. ( \sf \>
  85          a'4 )
  86          |
  87          \clef bass
  88          s1 \p
  89          |
  90          s1
  91          |
  92          <gs e>4 (
  93          <a fs>2. )
  94          |
  95          s4
  96       }
  97
  98    >>
  99
 100    % LH Staff
 101    \new Staff {
 102       \override Staff.SustainPedalLineSpanner #'staff-padding = #5
 103       <gs' e'>2 ( \sustainDown
 104       <fs' ds' b>4 \sustainUp
 105       <e' cs'>4
 106       |
 107       <ds' bs gs>2
 108       <cs' a>2 ) \sustainDown
 109       |
 110       \clef bass
 111       \slurDown
 112       <ds' b! a fs>2 ( \sustainUp
 113       <e' b gs>4
 114       <fs' cs' a>4 \sustainDown
 115       |
 116       \clef treble
 117       \voiceOne
 118       <<
 119          {
 120             <gs' e'>2
 121             <fs' ds'>2 )
 122          }
 123          \new Voice {
 124             \voiceTwo
 125             b1 \sustainUp
 126          }
 127       >>
 128       \oneVoice
 129       |
 130       %\break
 131       \clef bass
 132       <gs e>2 (
 133       <fs ds b,>4
 134       <e cs>4
 135       |
 136       <ds bs, gs,>2
 137       <cs a,>2 ) \sustainDown
 138       |
 139       <b,! b,,!>1 ( \sustainUp
 140       |
 141       <e e,>4 )
 142    }
 143
 144 >>