input/regression/tag-multiple.ly

   1 \version "2.19.22"
   2 \header {
   3
   4   texidoc = "The @code{\\removeWithTag} and @code{\\keepWithTag}
   5 commands can name multiple tags to remove or to keep."
   6
   7 }
   8
   9 \layout { ragged-right= ##t }
  10
  11 music =
  12 <<
  13   \tag #'flood \new Voice { \voiceOne \repeat unfold 16 { c'''8 cis'''8 } }
  14   \tag #'highball \new Voice { \voiceThree \repeat unfold 8 { a'4( as') } }
  15   \tag #'buffoon \new Voice { \voiceFour \repeat unfold 2 { f1~ 1 } }
  16 >>
  17
  18 demo =
  19 #(define-music-function (fun syms m)
  20   (ly:music-function? symbol-list? ly:music?)
  21   #{
  22     \new Staff
  23     <<
  24       { \mark #(string-join (map symbol->string syms) "&") \skip 1*4 }
  25       $fun #syms #m
  26     >>
  27   #})
  28
  29 #(set-global-staff-size 16)
  30
  31 \markuplist {
  32   \fill-line { \center-column \fontsize #5 \bold { "\\keepWithTag" } }
  33   \vspace #1
  34 }
  35 \demo #keepWithTag #'(none) \music
  36 \demo #keepWithTag #'(flood highball buffoon) \music
  37 \demo #keepWithTag #'(flood buffoon) \music
  38 \demo #keepWithTag #'(buffoon) \music
  39
  40 \markup \vspace #2
  41
  42 \markuplist {
  43   \fill-line { \center-column \fontsize #5 \bold { "\\removeWithTag" } }
  44   \vspace #1
  45 }
  46 \demo #removeWithTag #'(none) \music
  47 \demo #removeWithTag #'(flood highball buffoon) \music
  48 \demo #removeWithTag #'(flood buffoon) \music
  49 \demo #removeWithTag #'(buffoon) \music