* Documentation/user/lilypond-book.itely

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

diff --git a/input/test/beam-control.ly b/input/test/beam-control.ly
index 0c27c6b744e77003aceb9aacaaf1f1b8dc1ac603..a568eeb335fe86fa16175b1660e20ca46d63dfaa 100644 (file)
--- a/input/test/beam-control.ly
+++ b/input/test/beam-control.ly
@@ -1,23 +1,26 @@
+
+\version "1.9.8"
+\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
+    \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 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]
+       %% 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 { }
-}
\ No newline at end of file
+\paper{raggedright = ##t}
+}
+