From de402a1731261db03564371bc7d9c0b3ddad9125 Mon Sep 17 00:00:00 2001 From: Joe Neeman Date: Fri, 29 May 2009 18:35:28 -0700 Subject: [PATCH] Fix 739. Ensure that bends always go left-to-right. --- scm/define-grobs.scm | 1 + scm/output-lib.scm | 8 +++++--- 2 files changed, 6 insertions(+), 3 deletions(-) diff --git a/scm/define-grobs.scm b/scm/define-grobs.scm index 3c22c9a202..1a03e9df5b 100644 --- a/scm/define-grobs.scm +++ b/scm/define-grobs.scm @@ -373,6 +373,7 @@ (BendAfter . ( (stencil . ,bend::print) + (minimum-length . 0.5) (thickness . 2.0) (meta . ((class . Spanner) (interfaces . (spanner-interface diff --git a/scm/output-lib.scm b/scm/output-lib.scm index fdd5253115..f9b920f37d 100644 --- a/scm/output-lib.scm +++ b/scm/output-lib.scm @@ -587,6 +587,8 @@ centered, X==1 is at the right, X == -1 is at the left." left-span X) X)) (common-y (ly:grob-common-refpoint spanner left-span Y)) + (minimum-length (ly:grob-property spanner 'minimum-length 0.5)) + (left-x (+ padding (max (interval-end (ly:grob-robust-relative-extent left-span common X)) @@ -597,9 +599,9 @@ centered, X==1 is at the right, X == -1 is at the left." (interval-end (ly:grob-robust-relative-extent dots common X)) -10000) ;; TODO: use real infinity constant. ))) - (right-x (- (interval-start - (ly:grob-robust-relative-extent right-span common X)) - padding)) + (right-x (max (- (interval-start (ly:grob-robust-relative-extent right-span common X)) + padding) + (+ left-x minimum-length))) (self-x (ly:grob-relative-coordinate spanner common X)) (dx (- right-x left-x)) (exp (list 'path thickness -- 2.39.2