input/regression/quote-overrides.ly

   1 \version "2.13.5"
   2
   3 \header {
   4   texidoc = "The @code{\\quoteDuring} command shall also quote correctly all
   5   @code{\\override}, @code{\\once \\override}, @code{\\revert}, @code{\\set},
   6   @code{\\unset} and @code{\\tweak} events. The first line contains the
   7   original music, the second line quotes the whole music and should look
   8   identical.
   9
  10   By default, not all events are quoted. By setting the quoted event types to
  11   @code{'(StreamEvent)}, everything should be quoted."
  12 }
  13
  14 mus = \relative c' {
  15   % Acciaccaturas contain a slur and  \override Stem #'stroke-style
  16   % Thus, we're checking \override here
  17   c4 \acciaccatura d8 c4
  18   % Checking \set and \unset
  19   \set fontSize = #6 f
  20   \unset fontSize f |
  21
  22   \set autoBeaming = ##f
  23   % Checking \once \override
  24   \once \override Stem #'thickness = #8.0 d8
  25   % Checking two overrides
  26   \override Stem #'thickness = #8.0 \override Stem #'stroke-style = "grace"
  27   d8
  28   % reverting one of them
  29   \revert Stem #'thickness d8
  30   % and the other
  31   \revert Stem #'stroke-style c8
  32
  33   % checking tweaks
  34   c2-\tweak #'color #red ->
  35 }
  36 \addQuote "music" \mus
  37
  38 \new Score \with { quotedEventTypes = #'(StreamEvent) }
  39 { <<
  40   \new Staff \mus
  41   \new Voice { \quoteDuring #"music" s1*2 }
  42 >> }