(conv): dashes rule.

[lilypond.git] / input / test / follow-thread.ly

diff --git a/input/test/follow-thread.ly b/input/test/follow-thread.ly
index d22f1fcf9b6ed52486b971cf8936dc33564a743e..500adcd75730fe37925984c010fbb6f619ed40ac 100644 (file)
--- a/input/test/follow-thread.ly
+++ b/input/test/follow-thread.ly
@@ -1,31 +1,30 @@
-% followThread: connect note heads with line when thread switches staff 
+#(ly:set-option 'old-relative)
+\version "1.9.1"
+% MERGED: stuff from follow-break.ly to follow-thread.ly
 
-\score{
-    \context PianoStaff <
-        \context Staff=one \notes\relative c''{
-           \context Thread
-%{         
-            d,
-           \translator Staff=two
-           c
+% followVoice: connect note heads with line when thread switches staff 
+\header{ texidoc="@cindex followVoice Thread
+Theads can be traced automagically when they switch staves by setting
+property @code{followVoice}. " }
 
-           b
-           \translator Staff=one
-           a'
-%}
-           [c,8
-           \translator Staff=two
-           c]
-           s2.
 
+\score {
+       \notes\relative c {
+       \context PianoStaff=ps <
+               \property PianoStaff.followVoice = ##t
+               \context Staff=one \context Voice {
+                       \property Voice.VoiceFollower \set #'style = #'dashed-line
+                       c'1
+                       \translator Staff=two
+                       b2 a
+% these lines from follow-break.ly:
+                       \translator Staff=one
+                       a1
+                   }
+               \context Staff=two {\clef bass \skip 1*3 }
+               >
        }
-       \context Staff=two { \clef bass; \skip 1*2; }
-    >
-    \paper{
-        linewidth = 90.\mm;
-       \translator {
-           \ScoreContext
-           followThread = ##t
-       }
-    }
+
+  \paper { raggedright = ##t }  
 }
+