Hi Mke
2011/10/21 [email protected] <[email protected]>
> 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
_______________________________________________
lilypond-user mailing list
[email protected]
https://lists.gnu.org/mailman/listinfo/lilypond-user
