Re: Custom bar line

[Thomas Morley]

2016-12-18 2:15 GMT+01:00 Br. Samuel Springuel <address@hidden>:
> How would I define a bar line such that the top is in the middle of the top
> staff space and the bottom in the middle of the bottom staff space (i.e.
> what would be called a divisio minor if I was typesetting Gregorian chant,
> except on a modern 5-line staff).
>
> Also, is there a way to make the tick bar line (i.e. `\bar "'"`) bigger
> (taller) so that it is more visible?


Easiest is to adjust bar-extent for both, you could define a
custom-tick-bar-line as well:

\version "2.19.52"

{
    R1
    \once \override Staff.BarLine.bar-extent = #'(-1.5 . 1.5)
    R
    \once \override Staff.BarLine.hair-thickness = 2.5
    \once \override Staff.BarLine.bar-extent = #'(1.3 . 2.7)
    R
}

#(define ((make-custom-tick-bar-line x y) grob extent)
  "Draw a tick 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 (- x) (+ x staff-line-thickness))
      (cons (- height half-staff x) (+ height half-staff x))
      staff-line-thickness
      extent
      grob)))

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

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

{
    R1
    \bar "'"
    R
    \bar "`"
    R
}

HTH,
  Harm