(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 36435a1ac64064bb4b465352497af9bf56d1cc86..500adcd75730fe37925984c010fbb6f619ed40ac 100644 (file)
--- a/input/test/follow-thread.ly
+++ b/input/test/follow-thread.ly
@@ -1,31 +1,30 @@
+#(ly:set-option 'old-relative)
+\version "1.9.1"
+% MERGED: stuff from follow-break.ly to follow-thread.ly
 
-\header{
-texidoc="
-Theads can be traced automagically when they switch staves by setting
-property @code{followVoice}.
-"
-}
-
-\version "1.7.16"
 % 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}. " }
 
-fragment = \notes {
-  \context PianoStaff <
-    \property PianoStaff.followVoice = ##t
-    \property Voice.VoiceFollower \set #'type = #'dashed-line
-    \context Staff \context Voice {
-      c'1
-      \translator Staff=two
-      b2 a
-    }
-    \context Staff=two {\clef bass \skip 1*2}
-  >
-}
-
-\paper { raggedright = ##t} 
 
 \score {
-  \notes\relative c \fragment
-  \paper { }  
+       \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 }
+               >
+       }
+
+  \paper { raggedright = ##t }  
 }
-%% new-chords-done %%
+