release: 1.3.146

[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 3f0c131b11bc0d2f38fdbcf95833164d087bcb23..1a5c061a2bcd3c2e18284acf73437882cd48def9 100644 (file)
--- a/input/test/ac-extra-voice.ly
+++ b/input/test/ac-extra-voice.ly
@@ -1,22 +1,28 @@
-global = \notes {
-       \key a \minor;
-       \time 6/4;
-%      \skip 1.*34;
-%      \bar ".|";
+\version "1.3.146"
+%
+% TODO: what's this?
+%
+
+
+global =  \notes {
+       \key a \minor
+       \time 6/4
+%      \skip 1.*34
+%      \bar ".|"
 }
 
-melody = \notes\relative c''{
+melody =  \notes\relative c''{
        r2 r r 
        r2 r r
        r4 a'8-- \< a-- a-- a-- c-- \!b-- a--\> gis f \!e 
        es8 \grace b c r4 r2 r
 }
 
-basloopje = \notes\relative c{
+basloopje =  \notes\relative c{
        d,8(    a' d f a d f d a f d    )a
 }
 
-accompany = \notes \relative c{
+accompany =  \notes \relative c{
        \notes\relative c \basloopje
        \notes\relative c \basloopje
        \notes\relative c \basloopje
@@ -28,25 +34,21 @@ accompany = \notes \relative c{
                \context Staff=up < 
                        \global
                        \context Voice=foo {
-                       \property Voice.verticalDirection = #1
-                       \property Voice.scriptVerticalDirection = #1
+                       \stemUp\slurUp\tieUp
+                       \scriptUp
                        \melody 
                        }
                >
                \context Staff=down <
                        \global
-                       \clef bass;
-                       \autochange Staff \accompany
+                       \clef bass
+                       \autochange Staff \context Voice \accompany
                >
        >
 
        \paper {
-               gourlay_maxmeasures = 4.;
-               indent = 8.\mm;
-               textheight = 295.\mm;
-
-               % ugly is beautiful
-               slur_beautiful = 5.0;
+               indent = 8.\mm
+               textheight = 295.\mm
 
                \translator{ 
                        \PianoStaffContext
@@ -55,18 +57,19 @@ accompany = \notes \relative c{
                \translator{ 
                        \StaffContext
                        % don't auto-generate bars: not a good idea: -> no breakpoints
-                       % barAuto = "0";
+                       % barAuto = "0"
                        % urg defaultBarType = #""
                        defaultBarType = #"" 
-                       \remove "Time_signature_engraver";
+                       \remove "Time_signature_engraver"
+
+                       Slur \override #'direction = #1
 
-                       slurVerticalDirection = #1
-                       verticalDirection = -1
-                       autoBeamSettings \push (end * * * *)  = #(make-moment 1 2)
+                       
+                       autoBeamSettings \override #'(end * * * *)  = #(make-moment 1 2)
                }
        }
        \midi {
-               \tempo 4 = 54;
+               \tempo 4 = 54
        }
 }