3 \header { texidoc = "New bar line glyphs can be defined in Scheme."
6 \paper { ragged-right = ##t }
9 #(define (make-coda-sign-bar-line grob extent)
10 (let ((stencil (ly:font-get-glyph (ly:grob-default-font grob)
14 #(add-bar-glyph-print-procedure "0" make-coda-sign-bar-line)
16 \defineBarLine "0" #'("0" "" "")
19 \relative \new StaffGroup <<
21 c'4 c \bar "0" c c \bar "0" \break