Documentation/snippets/new/pitches-headword.ly

   1 \version "2.14.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 % NR 1.1 Pitches
  11
  12 \header {
  13   lsrtags = "headwords"
  14   texidoc = ""
  15   doctitle = "headword"
  16 }
  17
  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 >>