(BendAfter
. (
(stencil . ,bend::print)
(BendAfter
. (
(stencil . ,bend::print)
(thickness . 2.0)
(meta . ((class . Spanner)
(interfaces . (spanner-interface
(thickness . 2.0)
(meta . ((class . Spanner)
(interfaces . (spanner-interface
left-span X)
X))
(common-y (ly:grob-common-refpoint spanner left-span Y))
left-span X)
X))
(common-y (ly:grob-common-refpoint spanner left-span Y))
+ (minimum-length (ly:grob-property spanner 'minimum-length 0.5))
+
(left-x (+ padding
(max (interval-end (ly:grob-robust-relative-extent
left-span common X))
(left-x (+ padding
(max (interval-end (ly:grob-robust-relative-extent
left-span common X))
(interval-end (ly:grob-robust-relative-extent dots common X))
-10000) ;; TODO: use real infinity constant.
)))
(interval-end (ly:grob-robust-relative-extent dots common X))
-10000) ;; TODO: use real infinity constant.
)))
- (right-x (- (interval-start
- (ly:grob-robust-relative-extent right-span common X))
- padding))
+ (right-x (max (- (interval-start (ly:grob-robust-relative-extent right-span common X))
+ padding)
+ (+ left-x minimum-length)))
(self-x (ly:grob-relative-coordinate spanner common X))
(dx (- right-x left-x))
(exp (list 'path thickness
(self-x (ly:grob-relative-coordinate spanner common X))
(dx (- right-x left-x))
(exp (list 'path thickness