Added texidoc index.

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

diff --git a/input/test/beam-control.ly b/input/test/beam-control.ly
index ce8f13e055af0d495587ceba50314bb503f08530..13e73881474b5a287baed23619d806aace9dc9b8 100644 (file)
--- a/input/test/beam-control.ly
+++ b/input/test/beam-control.ly
@@ -1,25 +1,24 @@
-\version "1.3.146"
-
+\version "1.7.18"
+% similiar to beam-position, but keep this one.
+\header{
+    texidoc="@cindex Beam Position Control
+Controlling beam positions.
+" }
 \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 { }
+\paper{raggedright = ##t}
 }
+%% new-chords-done %%