summary |
shortlog |
log |
commit | commitdiff |
tree
raw |
patch |
inline | side by side (from parent 1:
435633c)
`connected-shape-min-max' assumes that the path will start at point
'(0 . 0), so we want to decouple this, permitting the origin to start
anywhere.
(cons (min-max-crawler min cddr possible-extrema)
(min-max-crawler max cddr possible-extrema)))))
(cons (min-max-crawler min cddr possible-extrema)
(min-max-crawler max cddr possible-extrema)))))
-(define (connected-shape-min-max pointlist)
+(define (connected-shape-min-max origin pointlist)
(define (line-part-min-max x1 x2)
(list (min x1 x2) (max x1 x2)))
(define (line-part-min-max x1 x2)
(list (min x1 x2) (max x1 x2)))
(apply line-min-max x)))
(map (lambda (x y)
(append (list (cadr (reverse x)) (car (reverse x))) y))
(apply line-min-max x)))
(map (lambda (x y)
(append (list (cadr (reverse x)) (car (reverse x))) y))
- (append (list (list 0 0))
(reverse (cdr (reverse pointlist)))) pointlist))))
(define-public (make-connected-shape-stencil pointlist thickness
(reverse (cdr (reverse pointlist)))) pointlist))))
(define-public (make-connected-shape-stencil pointlist thickness
boolean arguments that specify if the shape should be connected or filled,
respectively."
boolean arguments that specify if the shape should be connected or filled,
respectively."
- (let* ((boundlist (connected-shape-min-max pointlist)))
+ ;; a connected shape path must begin at point '(0 . 0)
+ (let* ((origin (list 0 0))
+ (boundlist (connected-shape-min-max origin pointlist)))
(ly:make-stencil
`(connected-shape
',pointlist
(ly:make-stencil
`(connected-shape
',pointlist