(if (< width 0)
(- width)
0))
+ ;; X value farthest from baseline on outside of curve
+ (outer-x (+ base-x width))
+ ;; X extent of bezier sandwich centerline curves
+ (x-extent (ordered-cons base-x outer-x))
(bottom-y (interval-start y-extent))
(top-y (interval-end y-extent))
(if (< width 0)
half-thickness
(- half-thickness))))
- (x-extent (ordered-cons base-x outer-control-x))
;; Vertical distance between a control point
;; and the end point it connects to.
(set! stencil (ly:stencil-add outer inner))
stencil))
-
-(define-public (fontify-text font-metric text)
- "Set TEXT with font FONT-METRIC, returning a stencil."
- (let* ((b (ly:text-dimension font-metric text)))
- (ly:make-stencil
- `(text ,font-metric ,text) (car b) (cdr b))))
-
-(define-public (fontify-text-white scale font-metric text)
- "Set TEXT with scale factor SCALE"
- (let* ((b (ly:text-dimension font-metric text))
- ;;urg -- workaround for using ps font
- (c `(white-text ,(* 2 scale) ,text)))
- ;;urg -- extent is not from ps font, but we hope it's close
- (ly:make-stencil c (car b) (cdr b))))
-
(define-public (stencil-with-color stencil color)
(ly:make-stencil
(list 'color color (ly:stencil-expr stencil))