|
From: | Stephen MacNeil |
Subject: | Re: Replacing TupletBracket with Slur |
Date: | Thu, 16 Apr 2015 23:16:53 -0400 |
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}
}
[Prev in Thread] | Current Thread | [Next in Thread] |