Re: override TupletNumber . Custom text

[Pavel Roskin]

On Thu, 9 Feb 2012 19:50:24 +0100
jakob lund <address@hidden> wrote:

> 9. feb. 2012 19.25 skrev Pavel Roskin <address@hidden>:
> > On Thu, 9 Feb 2012 17:15:50 +0100
> > Nils <address@hidden> wrote:
> >
> >> Hello,
> >>
> >> I like to work with full tuplet numbers because it makes it clear
> >> which version of quintuplet is meant (2:5 or 4:5).
> >>
> >> Since I don't like errors, however 'traditional' they may have
> >> become, I would like to change the "3:2" of a triplet in a more
> >> correct "2/3".
> >>
> >> How can I get this format into
> >>
> >> \override TupletNumber #'text = [...]   %old:
> >> #tuplet-number::calc-fraction-text
> 
> The original function is defined in scm/output-lib.scm, and can be
> modified easily:

Once I sent my reply, I realized that the poster was asking for
something more automatic.  So I started with
tuplet-number::calc-fraction-text and
tuplet-number::append-note-wrapper and reduced them to this:

{
  #(define ((tuplet-fraction) grob)
    (let ((ev (event-cause grob)))
      (markup
        (format #f "~a/~a"
          (ly:event-property ev 'numerator)
          (ly:event-property ev 'denominator)))))
  \override TupletNumber #'text = #(tuplet-fraction)
  \times 2/3 { c'4 e' g' }
}

-- 
Regards,
Pavel Roskin