X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=input%2Fregression%2Fbeam-cross-staff-slope.ly;h=27942fdb853c77c309850578c3f8fcf7a1092f29;hb=3644a6921a6dcde268d46459cdf062672ed992f4;hp=901baaf0ae7d8974fbecaf9db672a5d09972265d;hpb=70048d99398924e7ca0eb481925145ec243700c5;p=lilypond.git

diff --git a/input/regression/beam-cross-staff-slope.ly b/input/regression/beam-cross-staff-slope.ly
index 901baaf0ae..27942fdb85 100644
--- a/input/regression/beam-cross-staff-slope.ly
+++ b/input/regression/beam-cross-staff-slope.ly
@@ -1,33 +1,31 @@
-#(ly:set-option 'old-relative)
-\version "1.9.4"
+\version "2.7.39"
 \header {
-    texidoc = "Cross staff  (kneed) beams don't cause extreme slopes."
+    texidoc = "Cross staff  (kneed) beams do not cause extreme slopes."
 }
 
-\score {
-    \notes\context PianoStaff <<
-    \context Staff = up
-    \relative c'' <<
-        {
-	    \stemDown
-            f16( \> d b\! \translator Staff = down \stemUp
-            \clef treble g ~ < g e>8)
-	    
-	     e[ \translator Staff = up
-	    \stemDown
-	    e e]
-	    \translator Staff = down
-	    \stemUp
-	    e8.[
-		\translator Staff = up
-	    \stemDown
-	    e8.]
-	    
-	} \\
-    >>
-    \context Staff = down {
-        \time 3/8 \clef bass s4.*3 }
-    >>
-    \paper { raggedright = ##t}
-}
+\layout { ragged-right = ##t}
+
+\context PianoStaff <<
+  \new Staff = "up"
+  \relative c'' <<
+    {
+      \stemDown
+      f16( d b \change Staff = down \stemUp
+      \clef treble g ~ < g e>8)
+      
+      e[ \change Staff = up
+	 \stemDown
+	 e e]
+      \change Staff = down
+      \stemUp
+      e8.[
+	\change Staff = up
+	\stemDown
+	e8.]
+      
+    } \\
+  >>
+  \new Staff = "down" {
+    \time 3/8 \clef bass s4.*3 }
+>>