input/regression/alter-broken.ly

   1 \version "2.19.21"
   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 {
  16   d''4-\alterBroken #'positions #'((3 . 3) (5 . 5))
  17     -\alterBroken #'color #'((0 0 1) (1 0 0))
  18     -\alterBroken #'dash-definition #'( ((0 1 0.4 0.75))
  19                                         ((0 0.5 0.4 0.75) (0.5 1 1 1)) )
  20     -(
  21   d' b g
  22   \break
  23   d d' b g)
  24   \alterBroken #'padding #'(1 3) Staff.OttavaBracket
  25   % Spaces in spanner's name are disregarded.
  26   \alterBroken #'style #'(line dashed-line) Staff.OttavaBracket
  27   \ottava #1
  28   % It is possible to use procedures as arguments.
  29   c-\alterBroken Hairpin.stencil #`(
  30       ,ly:hairpin::print
  31       ,(lambda (grob)
  32         (ly:stencil-rotate (ly:hairpin::print grob) -5 0 0)))
  33     \<
  34   d e
  35   % Since `NoteHead' is not the name of a spanner, the following has no
  36   % effect on layout.  A warning (suppressed here) is issued.
  37   \alterBroken #'color #`(,red ,blue) NoteHead
  38   \once\alterBroken #'color #`(() ,blue) Tie
  39   \once\alterBroken #'control-points #'(
  40      ((1 . 3) (2 . 4) (3 . 4) (4 . 3))
  41      ((3 . 3) (4 . 4) (5 . 4) (6 . 3))
  42     ) Tie
  43   f~
  44   \break
  45   f c a f\!
  46   \ottava #0
  47 }