Re: hbracket question

[Ben]

On 2/14/2019 6:35 PM, Aaron Hill wrote:

On 2019-02-14 3:07 pm, Ben wrote:

Hi all,

Is it possible to adjust the length of the shorter vertical line of
\hbracket when you use it as markup?

I've attached a screenshot to show the point of the bracket I'm asking
about. Thanks!

\version "2.19.82"
\relative c' {
  R1*3
  c1^\markup {
    \hbracket {
      \line \pad-around #0.2 {
        My markup
      }
    }
  }
}

No, the amount of protrusion is hard-coded for \hbracket.

However, you can create your own markup command and call bracketify-stencil yourself:

%%%%
\version "2.19.82"
#(define-markup-command (custom-bracket layout props arg) (markup?)
  #:properties ((thickness 0.1) (protrusion 0.25) (padding 0.1))
  (bracketify-stencil (interpret-markup layout props arg)
    Y thickness protrusion padding))
#(define-markup-command (custom-hbracket layout props arg) (markup?)
  #:properties ((thickness 0.1) (protrusion 0.25) (padding 0.1))
  (bracketify-stencil (interpret-markup layout props arg)
    X thickness protrusion padding))

\markup {
  \hbracket Hello
  \custom-hbracket Hello
  \override #'(thickness . 0.2)
  \override #'(protrusion . 0.5)
  \override #'(padding . 0.3)
  \custom-hbracket Hello

  \bracket Hello
  \custom-bracket Hello
  \override #'(thickness . 0.2)
  \override #'(protrusion . 0.5)
  \override #'(padding . 0.3)
  \custom-bracket Hello
}
%%%%

-- Aaron Hill

_______________________________________________
lilypond-user mailing list
address@hidden
https://lists.gnu.org/mailman/listinfo/lilypond-user

Thanks Aaron! This works great.

On 2/14/2019 6:35 PM, Thomas Morley wrote:

Am Fr., 15. Feb. 2019 um 00:11 Uhr schrieb Ben <address@hidden>:

Hi all,

Is it possible to adjust the length of the shorter vertical line of \hbracket when you use it as markup?

No, it's all hardcoded.

But you can redefine it:

#(define-markup-command (hbracket-harm layout props arg)
  (markup?)
  #:category graphic

  #:properties ((thickness 1)
                (height 0.25))
  "
@cindex placing horizontal brackets around text

Draw horizontal brackets around @var{arg}.

@lilypond[verbatim,quote]
\\markup {
  \\hbracket {
    \\line {
      one two three
    }
  }
}
@end lilypond"

  (let ((th (* (ly:output-def-lookup layout 'line-thickness)
               thickness))
        (m (interpret-markup layout props arg)))
    (bracketify-stencil m X th height th)))

\relative c' {
  R1*3
  c1^\markup {
      \override #'(thickness . 2)
      \override #'(height . 1)
    \hbracket-harm {
      \line \pad-around #0.2 {
        My markup
      }
    }
  }
}


Probably rename it ;)


Best,
  Harm

Harm,

Thank you for making this for me, I'll probably rename it yes ;) Works beautifully!