Hi Brent,
Unless I am totally missing the point, this was discussed on the list a couple of years ago, and a simple solution provided oin LSR 957. Is the following not what you want?
Andrew
====
% LSR 957
#(define-markup-command (openBracket layout props heitgh) (number?)
(interpret-markup layout props
(markup #:line (#:with-dimensions (cons 0 0) (cons 0 0)
(#:path 0.25
(list (list (quote moveto) 0 0)
(list (quote lineto) -1 0)
(list (quote lineto) -1 (* heitgh -1))
(list (quote lineto) 0 (* heitgh -1))))))))
#(define-markup-command (closeBracket layout props heitgh) (number?)
(interpret-markup layout props
(markup #:line (#:with-dimensions (cons 0 0) (cons 0 0)
(#:path 0.25
(list (list (quote moveto) 1.3 0)
(list (quote lineto) 2.3 0)
(list (quote lineto) 2.3 (* heitgh -1))
(list (quote lineto) 1.3 (* heitgh -1))))))))
%%%
upper = {
c''4 4^\markup\openBracket #14 4^\markup\closeBracket #14 4
}
lower = {
\clef bass
c4 4 4 4
}
\score {
<<
\new Staff {
\upper
}
\new Staff {
\lower
}
>>
\layout {
}
}
====