* input/test/beam-control.ly: Update

diff --git a/ChangeLog b/ChangeLog
index 538939adc08a5277ef6a90006c03a1887b8eb307..6a745192dcd7914ee8bb53c34dca0fc059269707 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,6 @@
 2002-08-19  Jan Nieuwenhuizen  <janneke@gnu.org>
 
+       * input/test/beam-control.ly: 
        * input/test/bar-script-visibility.ly: Update.
 
        * lily/music.cc (internal_set_mus_property): [!NDEBUG] Remove, use

diff --git a/input/test/beam-control.ly b/input/test/beam-control.ly
index e0e86b4ef5327fc0b5ad748a396714d65272d6e0..265db74a4df1027ff8cfb4b8393c437cb7021415 100644 (file)
--- a/input/test/beam-control.ly
+++ b/input/test/beam-control.ly
@@ -1,25 +1,20 @@
 \version "1.5.68"
-
+\header{
+    texidoc="Controlling beam positions."
+}
 \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
+    \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
+       %% from center to one above centre (position 2)
+       \property Voice.Beam \override #'positions = #'(0 . 1)
        [c c]
        
-       % normal beam-algorithm
-       \property Voice.beamHeight = ##f
-       \property Voice.beamVerticalPosition = ##f
+       %% normal beam-algorithm
+       \property Voice.Beam \revert #'positions
+       \property Voice.Beam \revert #'positions
        [c e] [e c]
-       
   }
-  \paper { }  
-  \midi { }
 }