(fill_pages): New method. Try to cramp or

[lilypond.git] / input / test / force-hshift.ly

diff --git a/input/test/force-hshift.ly b/input/test/force-hshift.ly
index b6f97fd182a783f7858b2a87e2bc5d5111ef7ff5..f3c3d6c3065fe12dfe956e321f51a350910d0ada 100644 (file)
--- a/input/test/force-hshift.ly
+++ b/input/test/force-hshift.ly
@@ -1,24 +1,22 @@
-\version "1.3.117";
+
+\version "2.1.30"
+\header {
+    texidoc="@cindex Force hshift
+Horizontal shift (@code{hshift}) can be forced in order to avoid collisions. " }
+
 \score { 
-  \context Voice \notes\relative c {
-    
-       \context Staff <
-               \context Voice = VA {
-                       \property Voice.NoteColumn \override #'forced-hshift = #0.1
-                       \stemUp
-                       \property Voice.NoteColumn \override #'horizontal-shift = #1
-                       <g' d'>
+     \notes\relative c'
+       \context Staff << {
+                       <d g>
+                       <d g>
+               } \\ {
+                       <b f'>
+\once \override NoteColumn  #'force-hshift = #1.7
+                       <b f'>
                }
-               \context Voice = VB {
-                       \stemDown
-                       \property Voice.NoteColumn \override #'horizontal-shift = #1
-                       \property Voice.NoteColumn \override #'forced-hshift = #-0.1
-                       <bes f'>
-               }
-       >
-  }
+       >> 
   \paper {
-    linewidth=-1.0;
+    raggedright = ##t
   }  
-  \midi { }
 }
+