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