Documentation/snippets/pitches-headword.ly

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