Re: vertical half-brackets

[Jacques Menu]

Thanks Dan!

JM

> Le 31 mai 2022 à 20:19, delfink . <delfink@me.com> a écrit :
> 
> 
>> On May 31, 2022, at 4:39 AM, Werner LEMBERG <wl@gnu.org> wrote:
>> 
>> 
>> * Has someone coded this already?  I couldn't find code in the LSR.
>> 
> 
> I don't know if this is still the most ideal way, but it works. Someone on 
> this list coded all of this many years ago ... unfortunately, I'm unable to 
> remember who it was to give them proper attribution. I use this snippet all 
> the time to make various brackets in organ music. (The bracket names are my 
> own; I wanted to use something clear & descriptive.) The #s at the end of the 
> lines dictate the size (length) of the brackets. Like any markup, fine-tune 
> the positioning of the brackets with something like \once \override 
> TextScript.Y-offset = #5
> 
> The only drawback is when there is competing markup which needs to be 
> positioned separately ... getting that worked out takes some creativity.
> 
> Hope this helps.
> 
> — Dan
> 
> 
> \version "2.23.6"
> 
> %%% SINGLE BRACKET SNIPPET: 
> 
> #(define-markup-command (topNotchOpenBracket 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) -1 (* heitgh -1))))))))
> 
> #(define-markup-command (bottomNotchOpenBracket 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 0)
>        (list (quote lineto) -1 0)
>        (list (quote lineto) -1 (* heitgh -1))
>        (list (quote lineto) 0 (* heitgh -1))))))))
> 
> #(define-markup-command (topNotchCloseBracket 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) 2.3 (* heitgh -1))))))))
> 
> #(define-markup-command (bottomNotchCloseBracket 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) 2.3 0)
>        (list (quote lineto) 2.3 0)
>        (list (quote lineto) 2.3 (* heitgh -1))
>        (list (quote lineto) 1.3 (* heitgh -1))))))))
> 
> #(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))))))))
> 
> \score {
>  \new Staff { \relative c' {
>    a4_\markup\openBracket #6 
>    a4^\markup\closeBracket #6
>    s4
>    <c e g c>4^\markup\topNotchOpenBracket #7
>    s4
>    <e g c e>4^\markup\topNotchCloseBracket #6 
>    s4
>    <g c e g>4^\markup\bottomNotchOpenBracket #8
>    s4
>    <c e g c>4^\markup\bottomNotchCloseBracket #6
>               }
>  }
> }
> <test-bracket.ly><test-bracket.pdf>
>