*** empty log message ***

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

diff --git a/input/test/beam-control.ly b/input/test/beam-control.ly
index ce8f13e055af0d495587ceba50314bb503f08530..1f31ae3b26c638602f56df2ddcd361f64fdda332 100644 (file)
--- a/input/test/beam-control.ly
+++ b/input/test/beam-control.ly
@@ -1,25 +1,26 @@
-\version "1.3.146"
 
+\version "2.1.7"
+\header{
+    texidoc="@cindex Beam Position Control
+
+Beam positions may be controlled manually, by setting @code{positions} in 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] 
+    \context Voice \notes\relative c {
+       %% from upper staffline (position 4) to centre (position 0)
+       \property Voice.Beam \override #'positions = #'(2 . 0)
+        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]
+       %% from center to one above centre (position 2)
+       \property Voice.Beam \override #'positions = #'(0 . 1)
+        c[ c]
        
+       %% normal beam-algorithm
+       \property Voice.Beam \revert #'positions
+       \property Voice.Beam \revert #'positions
+        c[ e]  e[ c]
   }
-  \paper { }  
-  \midi { }
+\paper{raggedright = ##t}
 }
+