Re: Custom bar line

[Br. Samuel Springuel]

Thanks Harm, based on what you did I was able to develop the following 
which got me what I was looking for:

\version "2.19.52"

#(define ((make-custom-tick-bar-line x y) grob extent)
  "Draw a tick bar line."
  (let* ((staff (ly:staff-symbol-staff-space grob))
         (staff-line-thickness (ly:staff-symbol-line-thickness grob))
         (height (interval-end extent)))
    (bar-line::draw-filled-box
      (cons 0 (+ x staff-line-thickness))
      (cons (- height staff x) (+ height staff x))
      staff-line-thickness
      extent
      grob)))

#(add-bar-glyph-print-procedure "'" (make-custom-tick-bar-line 0.1 0.1))

#(define ((make-custom-half-bar-line x y) grob extent)
  "Draw a half bar line."
  (let* ((half-staff (* 1/2 (ly:staff-symbol-staff-space grob)))
         (staff-line-thickness (ly:staff-symbol-line-thickness grob))
         (height (interval-end extent)))
    (bar-line::draw-filled-box
      (cons 0 (+ x staff-line-thickness))
      (cons (- height (* 7 half-staff) x) (- height half-staff x))
      staff-line-thickness
      extent
      grob)))

#(add-bar-glyph-print-procedure "/" (make-custom-half-bar-line 0.1 0.1))

#(define-bar-line "/" "/" #f #f)

{
    R1
    \bar "'"
    R
    \bar "/"
    R
}
--
✝✝✝✝✝✝✝✝✝✝✝✝✝✝✝✝✝✝✝✝✝✝✝✝✝
Br. Samuel, OSB
St. Anselm’s Abbey
Washington, DC
(R. Padraic Springuel)

PAX ☧ ΧΡΙΣΤΟΣ