you can tweak it more -- it's adapted from what i use
I also use tupslurU when i need them on top
tupslurD = {
\override TupletBracket.stencil = #ly:slur::print
\override TupletBracket.direction = #DOWN
\override TupletBracket.thickness = #3
\override TupletBracket.positions = #'(-4 . -3.5)
\override TupletBracket.X-positions = #'(0 . 5)
\override TupletBracket.rotation = #'(9 1 0)
\override TupletNumber.whiteout = ##f
\override TupletNumber.layer = #4
\override TupletBracket.layer = #1
\override TupletBracket.X-offset = #1
\override TupletNumber.X-offset = #3.2
\override TupletNumber.Y-offset = #(lambda (grob) (+ .2
(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) 1 4 1)) (- (car pos) 1.2))
(cons (+ (car x-pos) (* (interval-length x-pos) 1 2 1 1/2 )) (- (cdr pos)
.7))
(cons (cdr x-pos) (cdr pos)))))
}
\relative c '{
c8
\tupslurD
\once \override TupletBracket.X-positions = #'(0 . 5.4)
\tuplet 3/2 {d16 e fis}
c8 \tuplet 3/2 {d16 e fis}
}
Stephen
_______________________________________________
lilypond-user mailing list
[email protected]
https://lists.gnu.org/mailman/listinfo/lilypond-user
