X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=input%2Fregression%2Falter-broken.ly;h=b507bd42b1f83a01ec5c04f7379f92ac987e3171;hb=77320a48ed671c658f04256d087880c1701eb746;hp=43dc32dc5d21411aed40843c0eba0adc075fbac9;hpb=26a079ca2393d053315ef8dbef626c897dc9645a;p=lilypond.git

diff --git a/input/regression/alter-broken.ly b/input/regression/alter-broken.ly
index 43dc32dc5d..b507bd42b1 100644
--- a/input/regression/alter-broken.ly
+++ b/input/regression/alter-broken.ly
@@ -1,4 +1,4 @@
-\version "2.16.0"
+\version "2.19.21"
 
 \header {
   texidoc = "The command @code{\\alterBroken} may be used to override the
@@ -12,32 +12,34 @@ its usage with a variety of data types."
 
 #(ly:expect-warning (_ "not a spanner name"))
 
-\relative c'' {
-  \alterBroken Slur #'positions #'((3 . 3) (5 . 5))
-  \alterBroken Slur #'color #'((0 0 1) (1 0 0))
-  \alterBroken Slur #'dash-definition #'( ((0 1 0.4 0.75))
-                                          ((0 0.5 0.4 0.75) (0.5 1 1 1)) )
-  d4( d' b g
+\relative {
+  d''4-\alterBroken #'positions #'((3 . 3) (5 . 5))
+    -\alterBroken #'color #'((0 0 1) (1 0 0))
+    -\alterBroken #'dash-definition #'( ((0 1 0.4 0.75))
+                                        ((0 0.5 0.4 0.75) (0.5 1 1 1)) )
+    -(
+  d' b g
   \break
   d d' b g)
-  \alterBroken "Staff.OttavaBracket" #'padding #'(1 3)
+  \alterBroken #'padding #'(1 3) Staff.OttavaBracket
   % Spaces in spanner's name are disregarded.
-  \alterBroken "Staff . OttavaBracket" #'style #'(line dashed-line)
+  \alterBroken #'style #'(line dashed-line) Staff.OttavaBracket
   \ottava #1
   % It is possible to use procedures as arguments.
-  \alterBroken Hairpin #'stencil #`(
-    ,ly:hairpin::print
-    ,(lambda (grob)
-      (ly:stencil-rotate (ly:hairpin::print grob) -5 0 0)))
-  c\< d e
+  c-\alterBroken Hairpin.stencil #`(
+      ,ly:hairpin::print
+      ,(lambda (grob)
+        (ly:stencil-rotate (ly:hairpin::print grob) -5 0 0)))
+    \<
+  d e
   % Since `NoteHead' is not the name of a spanner, the following has no
   % effect on layout.  A warning (suppressed here) is issued.
-  \alterBroken NoteHead #'color #`(,red ,blue)
-  \alterBroken Tie #'color #`(() ,blue)
-  \alterBroken Tie #'control-points #'(
+  \alterBroken #'color #`(,red ,blue) NoteHead
+  \once\alterBroken #'color #`(() ,blue) Tie
+  \once\alterBroken #'control-points #'(
      ((1 . 3) (2 . 4) (3 . 4) (4 . 3))
      ((3 . 3) (4 . 4) (5 . 4) (6 . 3))
-    )
+    ) Tie
   f~
   \break
   f c a f\!