input/regression/bar-line-define-bar-glyph.ly

   1 \version "2.19.21"
   2
   3 \header { texidoc = "New bar line glyphs can be defined in Scheme."
   4         }
   5
   6 \paper { ragged-right = ##t }
   7
   8
   9 #(define (make-coda-sign-bar-line grob extent)
  10    (let ((stencil (ly:font-get-glyph (ly:grob-default-font grob)
  11                                      "scripts.coda")))
  12         stencil))
  13
  14 #(add-bar-glyph-print-procedure "0" make-coda-sign-bar-line)
  15
  16 \defineBarLine "0" #'("0" "" "")
  17
  18
  19 \relative \new StaffGroup <<
  20   \new Staff {
  21     c'4 c \bar "0" c c \bar "0" \break
  22     c1
  23   }
  24   \new Staff {
  25     c4 c c c
  26     c1
  27   }
  28 >>