Documentation/snippets/pitches-headword.ly

   1 % DO NOT EDIT this file manually; it is automatically
   2 % generated from Documentation/snippets/new
   3 % Make any changes in Documentation/snippets/new/
   4 % and then run scripts/auxiliar/makelsr.py
   5 %
   6 % This file is in the public domain.
   7 %% Note: this file works from version 2.13.36
   8 \version "2.14.0"
   9 \include "english.ly"
  10 #(set-global-staff-size 15)
  11 \paper {
  12   ragged-right = ##t
  13   line-width = 17\cm
  14   indent = 0\cm
  15 }
  16
  17 % NR 1.1 Pitches
  18
  19 \header {
  20   lsrtags = "headwords"
  21   texidoc = ""
  22   doctitle = "headword"
  23 } % begin verbatim
  24
  25
  26
  27 % L. v. Beethoven
  28 % Piano sonata 21 - Dem Grafen von Waldstein Gewidmet
  29 % chorale at measures 34 - 40+
  30
  31 \new PianoStaff <<
  32
  33   % RH Staff
  34   \new Staff <<
  35
  36     % RH Voice 1
  37     \new Voice {
  38       \set Score.currentBarNumber = #34
  39       \voiceOne
  40       gs''2 ( ^ \markup \italic { dolce e molto ligato }
  41       fs''4
  42       e''4
  43       |
  44       ds''2
  45       cs''2 )
  46       |
  47       ds''2 (
  48       e''4
  49       fs''4
  50       |
  51       <gs'' e''>2
  52       <fs'' ds''>2 )
  53       |
  54       \oneVoice
  55       \clef bass
  56       <gs' e' b>2 (
  57       <fs' ds' a>4
  58       <e' cs' gs>4
  59       |
  60       <ds' bs fs>2
  61       <cs' a e>2 )
  62       |
  63       \voiceOne
  64       b2 %(
  65       cs'4
  66       ds'4
  67       |
  68       \clef treble
  69       <e' gs>4 %)
  70       r4 r2
  71     }
  72
  73     % RH Voice 2
  74     \new Voice {
  75       \voiceTwo
  76       \override Staff.DynamicLineSpanner #'staff-padding = #2.5
  77       <e'' b'>2 \p
  78       <ds'' a'>4
  79       <cs'' gs'>4
  80       |
  81       <bs' fs'>2
  82       e'2
  83       |
  84       \once \override TextScript #'staff-padding = #2.5
  85       <b'! a'>2 _ \markup \italic { cresc. }
  86       b'4
  87       <e'' cs''>4
  88       |
  89       b'2. ( \sf \>
  90       a'4 )
  91       \clef bass
  92       | \break
  93       s1 \p
  94       |
  95       s1
  96       |
  97       <gs e>4 (
  98       <a fs>2. )
  99       |
 100       s4
 101       r4 r2
 102     }
 103
 104   >>
 105
 106   % LH Staff
 107   \new Staff {
 108     \override Staff.SustainPedalLineSpanner #'staff-padding = #5
 109     <gs' e'>2 ( \sustainOn
 110     <fs' ds' b>4 \sustainOff
 111     <e' cs'>4
 112     |
 113     <ds' bs gs>2
 114     <cs' a>2 ) \sustainOn
 115     |
 116     \clef bass
 117     \slurDown
 118     <ds' b! a fs>2 ( \sustainOff
 119     <e' b gs>4
 120     <fs' cs' a>4 \sustainOn
 121     |
 122     \clef treble
 123     \voiceOne
 124     <<
 125       {
 126         <gs' e'>2
 127         <fs' ds'>2 )
 128       }
 129       \new Voice {
 130         \voiceTwo
 131         b1 \sustainOff
 132       }
 133     >>
 134     \oneVoice
 135     |
 136     %\break
 137     \clef bass
 138     <gs e>2 (
 139     <fs ds b,>4
 140     <e cs>4
 141     |
 142     <ds bs, gs,>2
 143     <cs a,>2 ) \sustainOn
 144     |
 145     <b,! b,,!>1 ( \sustainOff
 146     |
 147     <e e,>4 )
 148     r4 r2
 149   }
 150
 151 >>