-#(ly:set-option 'old-relative)
-\version "1.9.1"
+\version "2.12.0"
-\header{
- texidoc="Beamed stems have standard lengths if possible."
- }
+\header {
+ texidoc = "Beamed stems have standard lengths if possible. Quantization
+is switched off in this example."
+}
-\score{
- \notes\relative c'{
- \property Voice.Beam \set #'position-callbacks =
- #`(,Beam::least_squares
- ,Beam::check_concave
- ,Beam::slope_damping)
+\relative c' {
+ \override Beam #'positions =
+ #(ly:make-simple-closure
+ (ly:make-simple-closure
+ (list chain-grob-member-functions
+ `(,cons 0 0)
+ ly:beam::calc-least-squares-positions
+ ly:beam::slope-damping
+ ly:beam::shift-region-to-valid
+ )))
- f4 f8[ f] f16[ f] f32[ f] f64[ f] f128[ f]
- }
- \paper{ raggedright = ##t}
-}
+ f4 f8[ f] f16[ f] f32[ f] f64[ f] f128[ f]
+}