Issue 3942: Scale slurs and ties when using \magnifyMusic.

[lilypond.git] / input / regression / magnifyMusic-stem-beam-spacing.ly

diff --git a/input/regression/magnifyMusic-stem-beam-spacing.ly b/input/regression/magnifyMusic-stem-beam-spacing.ly
index 2ca15238a00a5db49423a4ef313049963e8a204b..135cfd9e8deb773232a64145d2e3c73ff0f915a9 100644 (file)
--- a/input/regression/magnifyMusic-stem-beam-spacing.ly
+++ b/input/regression/magnifyMusic-stem-beam-spacing.ly
@@ -1,22 +1,32 @@
 \version "2.19.8"
 
 \header {
-  texidoc = "Stem lengths, beam spacing/thickness, and horizontal
-spacing should be scaled along with notation size when using the
-@code{\magnifyMusic} command."
+  texidoc = "Stem length/thickness, beam spacing/thickness, and
+horizontal spacing should be scaled along with notation size when
+using the @code{\magnifyMusic} command.  Stems can get thicker
+than the default, but not thinner."
 }
 
-\layout { ragged-right = ##t }
-
-\relative <<
-  { \repeat unfold 7 { g'32[ a b c] } }
-  {
-    \magnifyMusic 0.50 { s8_"50%" }
-    \magnifyMusic 0.63 { s }
-    \magnifyMusic 0.80 { s }
-    \magnifyMusic 1.00 { s_"100%" }
-    \magnifyMusic 1.26 { s }
-    \magnifyMusic 1.59 { s }
-    \magnifyMusic 2.00 { s_"200%" }
+\score {
+  \new Voice {
+    \omit Staff.TimeSignature
+    \time 7/8
+    <<
+      { \repeat unfold 7 \relative { g'32[ a b c] } }
+      {
+        \magnifyMusic 0.50 s8
+        \magnifyMusic 0.63 s
+        \magnifyMusic 0.80 s
+        \magnifyMusic 1.00 s
+        \magnifyMusic 1.26 s
+        \magnifyMusic 1.59 s
+        \magnifyMusic 2.00 s
+      }
+    >>
+  }
+  \addlyrics {
+    "50%" _ _ _ _ _ _ _ _ _ _ _
+    "100%" _ _ _ _ _ _ _ _ _ _ _
+    "200%" _ _ _
   }
->>
+}