input/regression/beam-shortened-lengths.ly

   1
   2 \version "2.7.13"
   3
   4 \header{
   5   texidoc="Beams in unnatural direction, have shortened stems, but do not look too short."
   6 }
   7 \layout{ raggedright = ##t }
   8
   9
  10 \relative c'{
  11   \override Beam  #'positions =
  12   #(ly:make-simple-closure
  13     (ly:make-simple-closure
  14      (list chain-grob-member-functions
  15       `(,cons 0 0)
  16       Beam::calc_least_squares_positions
  17       Beam::slope_damping
  18       Beam::shift_region_to_valid
  19     )))
  20
  21   \stemUp
  22   f'4  f8[ f]  f16[ f]  f32[ f]  f64[ f]  f128[ f]
  23 }
  24