Hi Valentin,
I'm speechless, that's absolutely wonderful and useful, thank you so much!
The only comment I have is that the numbers and the ratio symbol are
not Italic, but from your code I cannot understand why.
Cheers,
Lib
On Sat, 29 Jul 2023 at 00:46, Valentin Petzel <valen...@petzel.at> wrote:
>
> Hello Jean, Hello Lib,
>
> in fact rather than constructing a tuplet marking using markup we can directly
> use a real tuplet number in the \rhythm markup:
>
> \rhythm {
> % Change padding of Tuplet to be relative to size of Number,
> % so that distance to bracket does not depend on fontsize
> \override TupletBracket.padding =
> #(lambda (grob)
> (let* ((number (ly:grob-object grob 'tuplet-number))
> (ext (ly:grob-extent number number Y))
> (ext (interval-length ext)))
> (* 0.9 ext)))
> \tuplet 5/4 c8
> }
>
> There is a small additional override that makes the gap between Tuplet and
> note (given by TupletBracket.padding) not depend on the font size (the default
> is fixed at 1.2 staff units). This hat the advantage that we can easily tell
> Lilypond to show a Bracket:
>
> \rhythm {
> % Change padding of Tuplet to be relative to size of Number,
> % so that distance to bracket does not depend on fontsize
> \override TupletBracket.padding =
> #(lambda (grob)
> (let* ((number (ly:grob-object grob 'tuplet-number))
> (ext (ly:grob-extent number number Y))
> (ext (interval-length ext)))
> (* 0.9 ext)))
> \override TupletBracket.bracket-visibility = ##t
> \override TupletBracket.shorten-pair = #'(-1.7 . -1.8)
> \tuplet 5/4 c8
> }
>
> (the shorten-pair is necessary to get a reasonable Bracket on a single note,
> else the tuplet Bracket would END at the left of the note and START at the
> right, which looks quite strange).
>
> Also I’d change the design a bit:
> I’d add some little space between number and note, add some space around the :
> and set the text in upright font rather than italic.
>
> Also instead of handling the spacing by overriding TupletBracket.padding and
> TupletNumber.Y-offset I’d rather change the stencil function of TupletNumber
> to
> properly align things. This way the TupletBracket can still be positioned
> automatically, instead of having to fine tune Bracket padding and Number
> offset:
>
> \override TupletNumber.stencil =
> #(lambda (grob)
> (grob-interpret-markup
> grob
> (markup #:center-align #:translate-scaled '(0 . -0.5) (ly:grob-property
> grob 'text))))
>
> Putting this all together this might look like this:
>
> \new Staff
> {
> \relative c'
> \repeat unfold 5 {
> \override TupletBracket.outside-staff-priority = #0
> \override TupletBracket.bracket-visibility = ##t
> \tuplet 5/4 {
> \override TupletNumber.text = \markup {
> \upright
> \concat {
> 5
> \hspace #0.2
> \magnify #0.5
> \rhythm { c8 }
> " : "
> 4
> \hspace #0.2
> \magnify #0.5
> \rhythm {
> % Change padding of Tuplet to be relative to size of Number,
> % so that distance to bracket does not depend on fontsize
> \override TupletBracket.padding =
> #(lambda (grob)
> (let* ((number (ly:grob-object grob 'tuplet-number))
> (ext (ly:grob-extent number number Y))
> (ext (interval-length ext)))
> (* 0.9 ext)))
> \tuplet 5/4 c8
> }
> }
> }
> \override TupletNumber.stencil =
> #(lambda (grob)
> (grob-interpret-markup
> grob
> (markup #:center-align #:translate-scaled '(0 . -0.5) (ly:grob-
> property grob 'text))))
> \tuplet 5/4 { c8[ c c c c] }
> }
> }
> }
>
>
> Finally I’d pack this code into a function to make changing different such
> texts easier:
>
> #(define* ((tuplet-number::custom-text duration ratio1 ratio2 #:optional
> (additional-overrides (empty-music))) grob)
> (let* ((ev (event-cause grob))
> (den (ly:event-property ev 'denominator))
> (num (ly:event-property ev 'numerator))
> (music1
> #{
> % Change padding of Tuplet to be relative to size of Number,
> % so that distance to bracket does not depend on fontsize
> \override TupletBracket.padding =
> #(lambda (grob)
> (let* ((number (ly:grob-object grob 'tuplet-number))
> (ext (ly:grob-extent number number Y))
> (ext (interval-length ext)))
> (* 0.9 ext)))
> $additional-overrides
> $(if (fraction? ratio1) #{ \tuplet #ratio1 c$duration #} #{
> c$duration #})
> #})
> (music2
> #{
> % Change padding of Tuplet to be relative to size of Number,
> % so that distance to bracket does not depend on fontsize
> \override TupletBracket.padding =
> #(lambda (grob)
> (let* ((number (ly:grob-object grob 'tuplet-number))
> (ext (ly:grob-extent number number Y))
> (ext (interval-length ext)))
> (* 0.9 ext)))
> $additional-overrides
> $(if (fraction? ratio2) #{ \tuplet #ratio2 c$duration #} #{
> c$duration #})
> #}))
> (markup
> #:upright
> #:concat
> (
> (number->string den)
> #:hspace 0.2
> #:magnify 0.5 #:rhythm music1
> " : "
> (number->string num)
> #:hspace 0.2
> #:magnify 0.5 #:rhythm music2
> ))))
>
> This for example is a function of three parameters duration, ratio1, ratio2
> and optionally additional-overrides, where duration is a lilypond duration of
> of the note shown in the text, ratio1 and ratio2 are either a fraction (as
> pair) to represent the fraction of the tuplet in the text, ratio1 for the
> first
> position and ratio2 for the second one, or #f if no such tuplet should be
> printed at the second position, and additional-overrides is some music that is
> inserted before the notes, allowing us to add additional overides or stuff.
> This function will automatically derive the numbers (e.g. 5:4) from the
> tuplet.
>
> E.g the tuplet in this example turns into
>
> \override TupletNumber.text = #(tuplet-number::custom-text #{ 8 #} #f '(5 .
> 4))
>
> (duration is 8th, first note has not tuplet, second has 5/4).
>
> For a showcase example checkout the appended file. Of course this could be
> extended if required: For example instead of a sigle ratio or false the
> function could take a list of ratios to create multiple tuplets.
>
> Cheers,
> Valentin
>
> Am Freitag, 28. Juli 2023, 13:49:59 CEST schrieb Jean Abou Samra:
> > Le vendredi 28 juillet 2023 à 10:57 +0300, Lib Lists a écrit :
> > > The solution was to build the tuplet number text as a markup.
> > > I wonder if there is a way to specify the alignment of the tuplet
> > > number with the tuplet bracket instead of specifying paddings and
> > > offsets as I did.
> >
> > This already looks somewhat better:
> >
> >
> >
> > ```
> > \version "2.25.7"
> >
> > \new Staff
> > {
> > \relative c'
> > \repeat unfold 5 {
> > \override TupletBracket.outside-staff-priority = #0
> > \override TupletBracket.bracket-visibility = ##t
> > \tuplet 5/4 {
> > \override TupletNumber.text = \markup {
> > \concat {
> > "5:4"
> > \magnify #0.5
> > \general-align #Y #DOWN
> > \override #'(baseline-skip . 0)
> > \column { "5" \rhythm { 8 } }
> > }
> > }
> > \override TupletBracket.padding = #0
> > \override TupletNumber.Y-offset = #1.5
> > \tuplet 5/4 { c8[ c c c c] }
> > }
> > }
> > }
> > ```
> >
> > Best,
> >
> > Jean
>
