(control-points ,list? "List of offsets (number pairs) that form
control points for the tie, slur, or bracket shape. For B@'eziers,
this should list the control points of a third-order B@'ezier curve.")
+ (corner-radius ,number? "The diameter of a blot, in rounded
+boxes. If set to #0, the corners will we completely sharp; default is
+#1. If set to a too big value, it will be ignored and the shortest
+edges of the box will be drawn as semicircles."
(damping ,number? "Amount of beam slope damping.")
(dash-fraction ,number? "Size of the dashes, relative to
makes possible to define another shape for the corners (default is 1).
@lilypond[quote,verbatim,fragment,relative=2]
-c^\markup{ \rounded-box Overtura }
+c^\\markup{ \\rounded-box Overtura }
c,8. c16 c4 r
@end lilypond"
(let* ((th (*
(ideal-blot (min blot (/ min-ext 2)))
(ideal-thickness (min thickness (/ min-ext 2)))
(outer (ly:round-filled-box
- (interval-widen xext ideal-thickness)
- (interval-widen yext ideal-thickness)
- ideal-blot))
- (inner (ly:make-stencil (list 'color (x11-color 'white) (ly:stencil-expr (ly:round-filled-box
- (cons (+ (car xext) ideal-thickness) (- (cdr xext) ideal-thickness))
- (cons (+ (car yext) ideal-thickness) (- (cdr yext) ideal-thickness))
- (- ideal-blot (* ideal-thickness 2))))))))
+ (interval-widen xext ideal-thickness)
+ (interval-widen yext ideal-thickness)
+ ideal-blot))
+ (inner (ly:make-stencil (list 'color (x11-color 'white)
+ (ly:stencil-expr (ly:round-filled-box
+ xext yext (- ideal-blot ideal-thickness)))))))
(set! stencil (ly:stencil-add outer inner))
stencil))