Re: hbracket question

2019-02-14 Thread 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
lilypond-user@gnu.org
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 :

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!




___
lilypond-user mailing list
lilypond-user@gnu.org
https://lists.gnu.org/mailman/listinfo/lilypond-user

Re: hbracket question

2019-02-14 Thread Thomas Morley 
Am Fr., 15. Feb. 2019 um 00:11 Uhr schrieb Ben :
>
> 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

___
lilypond-user mailing list
lilypond-user@gnu.org
https://lists.gnu.org/mailman/listinfo/lilypond-user

Re: hbracket question

2019-02-14 Thread Aaron Hill 

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
lilypond-user@gnu.org
https://lists.gnu.org/mailman/listinfo/lilypond-user

hbracket question

2019-02-14 Thread Ben 

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
  }
    }
  }
}




___
lilypond-user mailing list
lilypond-user@gnu.org
https://lists.gnu.org/mailman/listinfo/lilypond-user