\version "2.15.33"
#(define ((alter-lv-tie-curve offsets) grob) (let ((coords (ly:semi-tie::calc-control-points grob))) (define (add-offsets coords offsets) (if (null? coords) '() (cons (cons (+ (caar coords) (car offsets)) (+ (cdar coords) (cadr offsets))) (add-offsets (cdr coords) (cddr offsets))))) (add-offsets coords offsets))) \relative c'' { \override LaissezVibrerTie #'control-points = #(lambda (grob) (if (= UP (ly:grob-property grob 'direction)) ((alter-lv-tie-curve '(0 0 0.75 0.7 2.25 0.7 3 0)) grob) ((alter-lv-tie-curve '(0 0 0.75 -0.7 2.25 -0.7 3 0)) grob))) <c f,>1\laissezVibrer <f, c'>\laissezVibrer } Nick
<<attachment: lv.png>>
_______________________________________________ lilypond-user mailing list lilypond-user@gnu.org https://lists.gnu.org/mailman/listinfo/lilypond-user