From e82c90ef55c039111ae5e6247ef6acbc4ef72226 Mon Sep 17 00:00:00 2001 From: David Kastrup Date: Wed, 9 Sep 2015 17:29:52 +0200 Subject: [PATCH] Issue 4601/2: Let \shape use grob-transformer like \offset does --- ly/music-functions-init.ly | 12 +++++------- 1 file changed, 5 insertions(+), 7 deletions(-) diff --git a/ly/music-functions-init.ly b/ly/music-functions-init.ly index fe270aef98..e976cb6644 100644 --- a/ly/music-functions-init.ly +++ b/ly/music-functions-init.ly @@ -1616,15 +1616,11 @@ control-point. If @var{item} is a string, the result is @code{\\once\\override} for the specified grob type. If @var{item} is a music expression, the result is the same music expression with an appropriate tweak applied.") - (define (shape-curve grob) + (define (shape-curve grob coords) (let* ((orig (ly:grob-original grob)) (siblings (if (ly:spanner? grob) (ly:spanner-broken-into orig) '())) - (total-found (length siblings)) - (function (assoc-get 'control-points - (reverse (ly:grob-basic-properties grob)))) - (coords (function grob))) - + (total-found (length siblings))) (define (offset-control-points offsets) (if (null? offsets) coords @@ -1647,7 +1643,9 @@ appropriate tweak applied.") (if (>= total-found 2) (helper siblings offsets) (offset-control-points (car offsets))))) - (once (propertyTweak 'control-points shape-curve item))) + (once (propertyTweak 'control-points + (grob-transformer 'control-points shape-curve) + item))) shiftDurations = #(define-music-function (dur dots arg) -- 2.39.2