%******************************************************
% Inspirational header for Unfretted Strings section  %
% of Lilypond Documentation.  This passage is taken   %
% from Beethoven's String Quartet in E-flat major,    % 
% Op. 127, 2nd movement, measures 47-5?.  %
% ****************************************************%

%\version "2.11.61"

#(set-global-staff-size 15)
\paper{
 ragged-end=##t
 line-width=17\cm
 indent=0\cm
}

\layout {
 \context { \Score
   \remove "Bar_number_engraver"
   \override PaperColumn #'keep-inside-line = ##t
   \override NonMusicalPaperColumn #'keep-inside-line = ##t
 }
}

%*************** MACROS ******************%

piucresc = \markup { \italic { \fontsize #+2.0 "più  cresc." }}
pococresc = \markup { \italic { \fontsize #+2.0 "poco cresc." }}


vlnOne = \relative c' {
  \key aes \major
  \time 4/4
  \set Staff.midiInstrument = "violin"

  g16 g'8_\pococresc g32( aes bes16-.) bes8 bes32( c  % 47
\stemUp
  des16-.) es,-. es'-. es32( f 	% 47
\stemNeutral
  g16-.) bes8( c32 des | 	% 47

  es8-.) r r aes,16( es32 des c16) es8( f32 ges   % 48
  ges16-.)_\piucresc ges ~ ges32( aes bes c)	| % 48
    

}

vlnTwo = \relative c'' {
  \key aes \major
  \time 4/4
  \set Staff.midiInstrument = "violin"

  es16_\pococresc es,8 es32( f g16-.) g8 g32( aes  % 47
  bes16-.) g'8 g32( aes bes16-.) g8( aes32 bes	|  % 47

  c8-.) aes16([ es32 des] c8-.) aes' ~ 	% 48
  aes16 c8( des32 es) es16-._\piucresc es, ~ es32( f ges ges-.) | % 48


}

vlnTwoDyn = {

}

vla = \relative c' {
  \key aes \major
  \time 4/4
  \clef "alto"
  \set Staff.midiInstrument = "viola"
  <bes es>16_\pococresc g bes g des' es, des' es,   % 47
  <es des'>8 r r des''16( c32 bes 		  | % 47
%\override Beam #'auto-knee-gap = #6 
\stemDown
  aes16) \stemUp c,,8 c32( es aes16-.) 	% 48
\stemNeutral
  c8[ c32( des] es8-.)   		% 48
  aes16([ f32 des)] c16(_\piucresc aes32 c,) es'16( c32 aes)  | % 48


}

vlaDyn = {

}

vc = \relative c {
  \key aes \major
  \time 4/4
  \clef "bass"
  \set Staff.midiInstrument = "cello"
  
  es16_\pococresc des' es, des' es, des' es, des'   % 47
  es,16 r es'16( des32 bes es,16-.) r r8 	  | % 47

  r16 aes8 aes32( bes c16-.) es8[ es32( f] 	% 48
  ges8-.) r16 aes,16 ~ 				% 48
  aes32(_\piucresc es  c aes) aes16( ges32 es) | % 48

}
vcDyn = {

}


%%%%%%%%%%%%%%%% Score Block %%%%%%%%%%%%%%%%%%%%%%

\score {

  << % creates new grand staff
    \new StaffGroup = "strings" <<
    
      \context Staff = "violinOne" \vlnOne <<
	\override Staff.VerticalAxisGroup #'minimum-Y-extent = #'(-2 . 2)
      >>
      \context Staff = "violinTwo" <<
	\override Staff.VerticalAxisGroup #'minimum-Y-extent = #'(-1 . 1)
        \context Voice = "violin 2" { \vlnTwo }
        \context Voice = "violin 2 dynamics" { \vlnTwoDyn }
      >>
      \new Staff = "viola" <<
	\override Staff.VerticalAxisGroup #'minimum-Y-extent = #'(-1 . 1)
        \context Voice = "viola" { \vla }
        \context Voice = "viola dynamics" { \vlaDyn }
      >>
      \new Staff = "cello" <<
	\override Staff.VerticalAxisGroup #'minimum-Y-extent = #'(-1 . 1)
        \context Voice = "cello" { \vc }
        \context Voice = "cello dynamics" { \vcDyn }
      >>
    >> % end of "strings" staffgroup

  >> % end of grand staff

  \layout {
    \context { \Staff
    %  \override VerticalAxisGroup #'minimum-Y-extent = #'(-4 . 4)
    }
    \context {
      \Score
      \override TimeSignature #'stencil = ##f
      \override BarNumber #'padding = #3
      \override RehearsalMark #'padding = #2
        skipBars = ##t
    } % context \Score \overrides end
  } % layout end

  \midi { 
    \context {
      \Score
      tempoWholesPerMinute = #(ly:make-moment 120 4)
    }
  }

} % score end