input/lsr/scheme/semichoirstaff--choirstaff-with-spanbars-except---type-bars.ly

   1 %%  Do not edit this file; it is auto-generated from LSR!
   2 \version "2.10.12"
   3
   4 \header { texidoc = "
   5 If you wish to typeset \"|.\", etc, style spanbars on a ChoirStaff, you
   6 can add the span_bar_engraver, and instruct it to omit the \"|\"-style
   7 bars. In this example I create a new context, SemiChoirStaff, that does
   8 this.
   9 " }
  10
  11 \version "2.10.12"
  12
  13 mus = { \clef F c d e f c d e f c d e f c d e f \bar "||"  c d e f c d e f c d e f \bar "|." }
  14
  15 \layout {
  16   \context {
  17     \ChoirStaff
  18     \name "SemiChoirStaff"
  19     \consists "Span_bar_engraver"
  20     \override SpanBar #'stencil =
  21     #(lambda (a)
  22       (if (string=? (ly:grob-property a 'glyph-name) "|")
  23        (set! (ly:grob-property a 'glyph-name) ""))
  24       (ly:span-bar::print a))
  25   }
  26   \context {
  27     \Score
  28     \accepts SemiChoirStaff
  29   }
  30 }
  31
  32 \score {
  33   \new SemiChoirStaff {
  34     <<
  35       \new Staff \mus
  36       \new Staff \mus
  37     >>
  38   }
  39 }
  40