input/regression/alter-broken.ly

   1 \version "2.16.0"
   2
   3 \header {
   4   texidoc = "The command @code{\\alterBroken} may be used to override the
   5 pieces of a broken spanner independently.  The following example demonstrates
   6 its usage with a variety of data types."
   7 }
   8
   9 \layout {
  10   ragged-right = ##t
  11 }
  12
  13 #(ly:expect-warning (_ "not a spanner name"))
  14
  15 \relative c'' {
  16   \alterBroken Slur #'positions #'((3 . 3) (5 . 5))
  17   \alterBroken Slur #'color #'((0 0 1) (1 0 0))
  18   \alterBroken Slur #'dash-definition #'( ((0 1 0.4 0.75))
  19                                           ((0 0.5 0.4 0.75) (0.5 1 1 1)) )
  20   d4( d' b g
  21   \break
  22   d d' b g)
  23   \alterBroken "Staff.OttavaBracket" #'padding #'(1 3)
  24   % Spaces in spanner's name are disregarded.
  25   \alterBroken "Staff . OttavaBracket" #'style #'(line dashed-line)
  26   \ottava #1
  27   % It is possible to use procedures as arguments.
  28   \alterBroken Hairpin #'stencil #`(
  29     ,ly:hairpin::print
  30     ,(lambda (grob)
  31       (ly:stencil-rotate (ly:hairpin::print grob) -5 0 0)))
  32   c\< d e
  33   % Since `NoteHead' is not the name of a spanner, the following has no
  34   % effect on layout.  A warning (suppressed here) is issued.
  35   \alterBroken NoteHead #'color #`(,red ,blue)
  36   \alterBroken Tie #'color #`(() ,blue)
  37   \alterBroken Tie #'control-points #'(
  38      ((1 . 3) (2 . 4) (3 . 4) (4 . 3))
  39      ((3 . 3) (4 . 4) (5 . 4) (6 . 3))
  40     )
  41   f~
  42   \break
  43   f c a f\!
  44   \ottava #0
  45 }