release: 1.3.142

[lilypond.git] / input / test / ac-extra-voice.ly

diff --git a/input/test/ac-extra-voice.ly b/input/test/ac-extra-voice.ly
index ca1dc4e8b0dcd70559825a093718eb5a264adfba..07277383f7f3846efa01e64b130e713bb3a58fd2 100644 (file)
--- a/input/test/ac-extra-voice.ly
+++ b/input/test/ac-extra-voice.ly
@@ -1,4 +1,6 @@
-
+%
+% TODO: what's this?
+%
 
 
 global =  \notes {
@@ -39,18 +41,14 @@ accompany =  \notes \relative c{
                \context Staff=down <
                        \global
                        \clef bass;
-                       \autochange Staff \accompany
+                       \autochange Staff \context Voice \accompany
                >
        >
 
        \paper {
-               gourlay_maxmeasures = 4.;
                indent = 8.\mm;
                textheight = 295.\mm;
 
-               % ugly is beautiful
-               slur_beautiful = 5.0;
-
                \translator{ 
                        \PianoStaffContext
                        defaultBarType = #"" 
@@ -63,8 +61,9 @@ accompany =  \notes \relative c{
                        defaultBarType = #"" 
                        \remove "Time_signature_engraver";
 
-                       slurVerticalDirection = #1
-                       verticalDirection = -1
+                       Slur \override #'direction = #1
+
+                       
                        autoBeamSettings \override #'(end * * * *)  = #(make-moment 1 2)
                }
        }