Merge with git+ssh://jneem@git.sv.gnu.org/srv/git/lilypond.git

[lilypond.git] / input / test / beam-control.ly

diff --git a/input/test/beam-control.ly b/input/test/beam-control.ly
index f15ddae723d05ffcc261e390ae142225ad66ca7b..f9b7b6d1c7b71f2f584d13c3763c8fb4d3694197 100644 (file)
--- a/input/test/beam-control.ly
+++ b/input/test/beam-control.ly
@@ -1,23 +1,21 @@
+
+\version "2.10.0"
+\header{
+    texidoc="@cindex Beam Position Control
+
+Beam positions may be controlled manually, by overriding the @code{positions} setting of the @code{Beam} grob.
+
+" }
 \score { 
-  \context Voice \notes\relative c {
-    % beam-control.fly
-       
-       % from upper staffline (position 4) to centre (position 0)
-       \property Voice.beamVerticalPosition = #4
-       \property Voice.beamHeight = #-4
-       [c'8 c] 
-       
-       % from center to one above centre (position 2)
-       \property Voice.beamVerticalPosition = #0
-       \property Voice.beamHeight = #2
-       [c c]
-       
-       % normal beam-algorithm
-       \property Voice.beamHeight = ##f
-       \property Voice.beamVerticalPosition = ##f
-       [c e] [e c]
+    \context Voice \relative c {
+       %% from upper staffline (position 4) to centre (position 0)
+       \override Beam  #'positions = #'(2 . 0)
+        c'8[ c] 
        
+       %% from center to one above centre (position 2)
+       \override Beam  #'positions = #'(0 . 1)
+        c[ c]
   }
-  \paper { }  
-  \midi { }
+\layout{ragged-right = ##t}
 }
+