From: David Kastrup <dak@gnu.org>
Date: Sat, 27 Oct 2012 19:08:17 +0000 (+0200)
Subject: Change input/regression/alter-broken.ly to include tweak-like usage
X-Git-Tag: release/2.17.6-1~8
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=54f7187cb95349fb08d359d36b0105ecaa102d15;p=lilypond.git

Change input/regression/alter-broken.ly to include tweak-like usage

Also change override-like usage for ties to \once\alterBroken as the
control point manipulations are unlikely to be desirable for more than
a single occurence.
---

diff --git a/input/regression/alter-broken.ly b/input/regression/alter-broken.ly
index 14fa489c6c..14652297e6 100644
--- a/input/regression/alter-broken.ly
+++ b/input/regression/alter-broken.ly
@@ -13,11 +13,12 @@ its usage with a variety of data types."
 #(ly:expect-warning (_ "not a spanner name"))
 
 \relative c'' {
-  \alterBroken #'positions #'((3 . 3) (5 . 5)) Slur
-  \alterBroken #'color #'((0 0 1) (1 0 0)) Slur
-  \alterBroken #'dash-definition #'( ((0 1 0.4 0.75))
-                                          ((0 0.5 0.4 0.75) (0.5 1 1 1)) ) Slur
-  d4( d' b g
+  d4-\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 #'padding #'(1 3) Staff.OttavaBracket
@@ -25,16 +26,17 @@ its usage with a variety of data types."
   \alterBroken #'style #'(line dashed-line) Staff.OttavaBracket
   \ottava #1
   % It is possible to use procedures as arguments.
-  \alterBroken #'stencil #`(
-    ,ly:hairpin::print
-    ,(lambda (grob)
-      (ly:stencil-rotate (ly:hairpin::print grob) -5 0 0))) Hairpin
-  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 #'color #`(,red ,blue) NoteHead
-  \alterBroken #'color #`(() ,blue) Tie
-  \alterBroken #'control-points #'(
+  \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