pmacs3/code_examples/song.ly

%% Generated by lilypond-book.py
%% Options: [quote,alt=[image of music],indent=0\mm]
\include "lilypond-book-preamble.ly"


% ****************************************************************
% Start cut-&-pastable-section
% ****************************************************************



\paper {
  #(define dump-extents #t)
  
  line-width = 160\mm - 2.0 * 0.4\in
  indent = 0\mm
  force-assignment = #""
  line-width = #(- line-width (* mm  3.000000))
}

\layout {
  
}



% ****************************************************************
% ly snippet:
% ****************************************************************
\sourcefilename "pitches-headword.ly"
\sourcefileline 0
\version "2.12.0"
\include "english.ly"
#(set-global-staff-size 15)
\paper{
  ragged-right=##t
  line-width=17\cm
  indent=0\cm
}
  
\layout {
  \context { \Score
    \override PaperColumn #'keep-inside-line = ##t
    \override NonMusicalPaperColumn #'keep-inside-line = ##t
  }
}

% NR 1.1 Pitches

% L. v. Beethoven 
% Piano sonata 21 - Dem Grafen von Waldstein Gewidmet
% chorale at measures 34 - 40+

\new PianoStaff <<

   % RH Staff
   \new Staff <<

      % RH Voice 1
      \new Voice {
         \set Score.currentBarNumber = #34
         \voiceOne
         gs''2 ( ^ \markup \italic { dolce e molto ligato }
         fs''4
         e''4
         |
         ds''2
         cs''2 )
         |
         ds''2 (
         e''4
         fs''4
         |
         <gs'' e''>2
         <fs'' ds''>2 )
         |
         \oneVoice
         \clef bass
         <gs' e' b>2 (
         <fs' ds' a>4
         <e' cs' gs>4
         |
         <ds' bs fs>2
         <cs' a e>2 )
         |
         \voiceOne
         b2 %(
         cs'4
         ds'4
         |
         \clef treble
         <e' gs>4 %)
         r4 r2
      }

      % RH Voice 2
      \new Voice {
         \voiceTwo
         \override Staff.DynamicLineSpanner #'staff-padding = #2.5
         <e'' b'>2 \p
         <ds'' a'>4
         <cs'' gs'>4
         |
         <bs' fs'>2
         e'2
         |
         \once \override TextScript #'staff-padding = #2.5
         <b'! a'>2 _ \markup \italic { cresc. }
         b'4
         <e'' cs''>4
         |
         b'2. ( \sf \>
         a'4 ) 
         \clef bass
         | \break
         s1 \p
         |
         s1
         |
         <gs e>4 (
         <a fs>2. )
         |
         s4
         r4 r2
      }

   >>

   % LH Staff
   \new Staff {
      \override Staff.SustainPedalLineSpanner #'staff-padding = #5
      <gs' e'>2 ( \sustainOn
      <fs' ds' b>4 \sustainOff
      <e' cs'>4
      |
      <ds' bs gs>2
      <cs' a>2 ) \sustainOn
      |
      \clef bass
      \slurDown
      <ds' b! a fs>2 ( \sustainOff
      <e' b gs>4
      <fs' cs' a>4 \sustainOn
      |
      \clef treble
      \voiceOne
      <<
         {
            <gs' e'>2
            <fs' ds'>2 )
         }
         \new Voice {
            \voiceTwo
            b1 \sustainOff
         }
      >>
      \oneVoice
      |
      %\break
      \clef bass
      <gs e>2 ( 
      <fs ds b,>4
      <e cs>4
      |
      <ds bs, gs,>2
      <cs a,>2 ) \sustainOn
      |
      <b,! b,,!>1 ( \sustainOff
      |
      <e e,>4 )
      r4 r2
   }

>>



% ****************************************************************
% end ly snippet
% ****************************************************************