Re: Slur as TupletBracket

[Thomas Morley]

Hi Mke

2011/10/21 address@hidden <address@hidden>

i <3 hacks

\version "2.15.12"

\relative c'' {

 \override TupletBracket #'stencil = #ly:slur::print

 \override TupletBracket #'direction = #UP

 \override TupletNumber #'whiteout = ##t

 \override TupletNumber #'layer = #2

 \override TupletBracket #'layer = #1

 \override TupletNumber #'Y-offset = #(lambda (grob) (+ 0.5 (ly:tuplet-number::calc-y-offset grob)))

 \override TupletBracket #'control-points =

#(lambda (grob)

  (let ((x-pos (ly:grob-property grob 'X-positions))

        (pos (ly:grob-property grob 'positions)))

    (list (cons (car x-pos) (car pos))

          (cons (+ (car x-pos) (/ (interval-length x-pos) 3)) (+ (car pos) 0.5))

          (cons (+ (car x-pos) (* (interval-length x-pos) 2/3)) (+ (cdr pos) 0.5))

          (cons (cdr x-pos) (cdr pos)))))

\repeat unfold 10 \times 2/3 { a4 b4 c }

}

To be messed with to your heart's content :)

This'll only work in one of the more recent development versions, as X-positions is a new addition to LilyPond.

Cheers,

MS

Hi Mike,

I tested your suggestion with "2.15.13" and  get this warning:

In procedure car in _expression_ (car x-pos):
atest.ly:13:17: Wrong type (expecting pair): ()

Searching 'X-positions gives no result, even in define-grob-properties.scm.

Am I missing something?

Harm