Yes, I need help, sorry.

How would you make a bracket instead of a brace in this function of yours:

braceBar =
#(define-music-function (parser location bracExt)(number?)

      (define ((braceBarLine markup) grob)
        (ly:stencil-combine-at-edge (ly:bar-line::print grob)
          X LEFT (grob-interpret-markup grob markup) 0.4))

      (define braceMarkup
        (make-line-markup
          (list
            (make-with-dimensions-markup '(0 . 0) '(0 . 0)
              (make-translate-markup ;(cons 0 ext)
                        (cons 0 (+ 0.2 (/ braceExt -10)))
                (make-left-brace-markup (+ braceExt 20)))))))
  #{
      \once\override Score.BarLine #'hair-thickness = #'1.6
      \once \override Staff.BarLine #'stencil = #(braceBarLine braceMarkup)
      \bar "|"
      \move
      \once\override Score.RehearsalMark #'self-alignment-X = #LEFT
  #})

Thank you,
Andrea



--
View this message in context: 
http://lilypond.1069038.n5.nabble.com/Midline-system-bracket-tp168813p168816.html
Sent from the User mailing list archive at Nabble.com.

_______________________________________________
lilypond-user mailing list
[email protected]
https://lists.gnu.org/mailman/listinfo/lilypond-user

Reply via email to