Documentation/snippets/pitches-headword.ly

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