Documentation/snippets/new/text-headword.ly

   1 \version "2.14.0"
   2 \include "english.ly"
   3 #(set-global-staff-size 15)
   4 \paper {
   5   line-width = 16\cm
   6   indent = 0\cm
   7 }
   8
   9
  10 \header {
  11   lsrtags = "headwords"
  12   texidoc = ""
  13   doctitle = "headword"
  14 }
  15
  16 % NR 1.8 Text
  17
  18 % L. v. Beethoven, Op. 110
  19 % Piano sonata 31
  20 % measures 1 - 7
  21
  22 \layout {
  23   \context {
  24     \Score
  25     \override SpacingSpanner #'base-shortest-duration =
  26     #(ly:make-moment 1 20)
  27   }
  28 }
  29
  30 \new PianoStaff <<
  31
  32   % RH staff
  33   \new Staff {
  34     \clef treble
  35     \key af \major
  36     \time 3/4
  37
  38     \once \override TextScript #'staff-padding = #4
  39     <c'' af'>4. (
  40     _ \markup { \dynamic p \italic { con amabilità } }
  41     <af' ef'>8 )
  42     <af' ef'>8. [
  43     <af' ef'>16 ]
  44
  45     |
  46
  47     <df'' g'>4
  48     <bf' g'>2
  49     _ \markup { \italic { ten. } }
  50
  51     |
  52
  53     <<
  54
  55       \new Voice {
  56         \voiceOne
  57         ef''4. (
  58         df''8 [ )
  59         ef'' (
  60         f'' ) ]
  61
  62         |
  63
  64         \once \override TextScript #'staff-padding = #4
  65         ef''8. (
  66         _ \markup { \italic { tranqu. } }
  67         d''16 )
  68         df''8 \trill \fermata
  69         _ \markup { \italic { ten. } }
  70       }
  71
  72       \new Voice {
  73         \voiceTwo
  74         af'4.
  75         af'8 [
  76         af'8
  77         af'8 ]
  78
  79         |
  80
  81         g'4
  82         g'8
  83       }
  84
  85     >>
  86
  87     \oneVoice
  88     \once \override TextScript #'staff-padding = #4
  89     df''32
  90     _ \markup { \italic dolce }
  91     c''32
  92     df''32
  93     ef''32
  94     \acciaccatura { df''[ ef'' ] }
  95     f''8
  96     ef''16
  97     df''16
  98
  99     |
 100     \break
 101     \overrideProperty "Score.NonMusicalPaperColumn"
 102     #'line-break-system-details #'((alignment-distances . (12)))
 103
 104     c''4. (
 105     ^ \markup \italic { cantabile, con intimissimo sentimento,
 106       ma sempre molto dolce e semplice }
 107     ef''4
 108     af''8 )
 109
 110     |
 111
 112     af''4 (
 113     g''2 )
 114
 115     |
 116
 117     bf''4. (
 118     g''4
 119     ef''8 )
 120
 121     |
 122   }
 123
 124   % LH
 125   \new Staff {
 126     \clef bass
 127     \key af \major
 128     \time 3/4
 129
 130     <ef af,>4. (
 131     <ef c>8 )
 132     <ef c>8. [
 133     <ef c>16 ]
 134
 135     |
 136
 137     <ef bf,>4
 138     <ef df>2 ^ \markup { \italic ten. }
 139
 140     |
 141
 142     <<
 143
 144       \new Voice {
 145         \voiceOne
 146         ef8 [ (
 147         af8
 148         c'8
 149         bf8 )
 150         c'8 ( \staccato
 151         df'8 ]  ) \staccato
 152
 153         |
 154
 155         bf4
 156         bf8 ^ \markup { \italic ten. }
 157       }
 158
 159       \new Voice {
 160         \voiceTwo
 161         c4. (
 162         f8 [ )
 163         ef8 ( \staccato
 164         df8 ] ) \staccato
 165
 166         |
 167
 168         ef4
 169         ef8 \fermata
 170       }
 171
 172     >>
 173
 174     \oneVoice
 175     r8
 176     r4
 177     \clef treble
 178
 179     |
 180
 181     \override Staff.SustainPedalLineSpanner #'outside-staff-priority = #1000
 182     \override Staff.SustainPedalLineSpanner #'staff-padding = #7
 183     \once \override TextScript #'padding = #2
 184     af16 \sustainOn
 185     ^ \markup \italic { non staccato }
 186     _ \markup \italic { molto \concat { \dynamic { p } , } sempre tranquillo
 187       ed egualmente, non rubato }
 188     <ef' c'>16
 189     <ef' c'>16
 190     <ef' c'>16
 191     af16
 192     <ef' c'>16
 193     <ef' c'>16
 194     <ef' c'>16
 195     af16 \sustainOn
 196     <ef' c'>16
 197     <ef' c'>16
 198     <ef' c'>16
 199
 200     |
 201
 202     bf16 \sustainOn
 203     <ef' df'>16
 204     <ef' df'>16
 205     <ef' df'>16
 206     bf16 \sustainOn
 207     <ef' df'>16
 208     <ef' df'>16
 209     <ef' df'>16
 210     bf16
 211     <ef' df'>16
 212     <ef' df'>16
 213     <ef' df'>16
 214
 215     |
 216
 217     \override Staff.SustainPedalLineSpanner #'staff-padding = #4
 218     df'16 \sustainOn
 219     <bf' g' ef'>16
 220     <bf' g' ef'>16
 221     <bf' g' ef'>16
 222     df'16
 223     <bf' g' ef'>16
 224     <bf' g' ef'>16
 225     <bf' g' ef'>16
 226     df'16 \sustainOn
 227     <bf' g' ef'>16
 228     <bf' g' ef'>16
 229     <bf' g' ef'>16
 230
 231     |
 232   }
 233
 234 >>