Re: Nested tuplet ratio notation

[Lib Lists]

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 <valentin@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
>