From: Joe Neeman <joeneeman@gmail.com>
Date: Sat, 30 May 2009 01:35:28 +0000 (-0700)
Subject: Fix 739.
X-Git-Tag: release/2.12.3-1~94
X-Git-Url: https://git.donarmstrong.com/lilypond.git?a=commitdiff_plain;h=b0bf0c0939ab52bbd51ec95bf5e1e723986fb544;p=lilypond.git

Fix 739.

Ensure that bends always go left-to-right.
(cherry picked from commit 567779897a8e8bf635b2388b86e68cf71af26a6d)
---

diff --git a/scm/define-grobs.scm b/scm/define-grobs.scm
index 4187a386d3..e8b65da9ed 100644
--- a/scm/define-grobs.scm
+++ b/scm/define-grobs.scm
@@ -363,6 +363,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 53a5773d0f..b82ffa2c4c 100644
--- a/scm/output-lib.scm
+++ b/scm/output-lib.scm
@@ -540,6 +540,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))
@@ -550,9 +552,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