release: 1.3.146

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

diff --git a/input/test/follow-thread.ly b/input/test/follow-thread.ly
index e58e1c91f8d71217dc407e8208820ab4dab06d8e..aa9de31a8c8d9d39bef874410727b0295f3ee71a 100644 (file)
--- a/input/test/follow-thread.ly
+++ b/input/test/follow-thread.ly
@@ -1,37 +1,30 @@
+
 \header{
 texidoc="
 Theads can be traced automagically when they switch staffs by setting
-property @code{followThread}.
-";
+property @code{followVoice}.
+"
 }
-% followThread: connect note heads with line when thread switches staff 
-
-\score{
-    \context PianoStaff <
-        \context Staff=one \notes\relative c''{
-           \context Thread
-%{         
-            d,
-           \translator Staff=two
-           c
 
-           b
-           \translator Staff=one
-           a'
-%}
-           [c,8
-           \translator Staff=two
-           c]
-           s2.
+\version "1.3.146"
+% followVoice: connect note heads with line when thread switches staff 
 
-       }
-       \context Staff=two { \clef bass; \skip 1*2; }
-    >
-    \paper{
-        linewidth = 90.\mm;
-       \translator {
-           \ScoreContext
-           followThread = ##t
-       }
+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 { linewidth = -1. } 
+
+\score {
+  \notes\relative c \fragment
+  \paper { }  
 }