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 e6d3f9603f724ac600b97a90ab814b21868d01c4..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
@@ -25,45 +31,45 @@ accompany = \notes \relative c{
 
 \score{
        \notes \context PianoStaff <
-%              \global
                \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;
-
-               % no slur damping
-               slur_slope_damping = 100.0;
+               indent = 8.\mm
+               textheight = 295.\mm
 
+               \translator{ 
+                       \PianoStaffContext
+                       defaultBarType = #"" 
+               }
                \translator{ 
                        \StaffContext
                        % don't auto-generate bars: not a good idea: -> no breakpoints
-                       % barAuto = "0";
-                       % urg defaultBarType = "";
-                       defaultBarType = "empty";
-                       \remove "Time_signature_engraver";
+                       % barAuto = "0"
+                       % urg defaultBarType = #""
+                       defaultBarType = #"" 
+                       \remove "Time_signature_engraver"
+
+                       Slur \override #'direction = #1
 
-                       slurVerticalDirection = 1;
-                       verticalDirection = -1;
-                       beamAutoEnd = "1/2";
+                       
+                       autoBeamSettings \override #'(end * * * *)  = #(make-moment 1 2)
                }
        }
        \midi {
-               \tempo 4 = 54;
+               \tempo 4 = 54
        }
 }