(define (parenthesize-elements grob . rest)
(let*
- (
- (refp (if (null? rest)
+ ((refp (if (null? rest)
grob
(car rest)))
(elts (ly:grob-object grob 'elements))
(lp (ly:font-get-glyph font "accidentals.leftparen"))
(rp (ly:font-get-glyph font "accidentals.rightparen"))
(padding (ly:grob-property grob 'padding 0.1)))
-
+
(ly:stencil-add
(ly:stencil-translate-axis lp (- (car x-ext) padding) X)
(ly:stencil-translate-axis rp (+ (cdr x-ext) padding) X))
(define-public (fall::print spanner)
(let*
- ((delta (ly:grob-property spanner 'delta-position))
+ ((delta-y (* 0.5 (ly:grob-property spanner 'delta-position)))
(left-span (ly:spanner-bound spanner LEFT))
(right-span (ly:spanner-bound spanner RIGHT))
(thickness (* (ly:grob-property spanner 'thickness)
rcurveto
,(/ dx 3)
0
- ,dx ,(* 0.66 delta)
- ,dx ,delta
+ ,dx ,(* 0.66 delta-y)
+ ,dx ,delta-y
))))
)
(ly:make-stencil
exp
(cons 0 dx)
- (cons (min 0 delta)
- (max 0 delta)))))
+ (cons (min 0 delta-y)
+ (max 0 delta-y)))))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; grace spacing
(x x)
(y y)))))
-
- (fold moment-min #f (map get-difference (iota (1- (ly:grob-array-length cols)))))))
+ (fold moment-min #f (map get-difference
+ (iota (1- (ly:grob-array-length cols)))))))