% Generated by lilypond-book
% Options: [printfilename,texidoc,linewidth]

\paper {
    linewidth = 160 \mm
}
\renameinput "beam-center-slope.ly"

\version "2.2.0"
\header{

    texidoc="Simple beams on middle staffline are allowed to be
    slightly sloped, even if the notes have ledgers.  Beams reaching
    beyond middle line can have bigger slope."

}

\score{
    \notes\relative c'{
	%%\override Staff.Stem  #'beamed-lengths = #'(3.50)
	%%  c8[ d]
	%%  d[ c]
	%% r2
	%% \override Staff.Stem  #'beamed-lengths = #'(3.26)

         a8[^"small slope" b]
         b[ a]

	 c''[ b]
	 b[ c]

	 % baerenreiter test
	 b,,[ c]
	 c[ b]

	 b''[ a]
	 a[ b]

	 c,,[ d]
	 d[ c]
	
	 a''[ g]
	 g[ a]

	 c,,[^"bigger slope" e]
	 e[ c]
	
	 a''[ f]
	 f[ a]
    }
    \paper{
	raggedright = ##t
	indent = 0
    }
}