Documentation/snippets/new/pitches-headword.ly

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