From: Han-Wen Nienhuys <hanwen@xs4all.nl>
Date: Mon, 4 Aug 2008 02:11:51 +0000 (-0300)
Subject: Fix #573.
X-Git-Tag: release/2.11.55-1~1
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=061183c4e77fc71e25268f0b815f502cd8a8c48a;p=lilypond.git

Fix #573.

Make full-length brackets end at column, rather than the extent.
---

diff --git a/lily/tuplet-bracket.cc b/lily/tuplet-bracket.cc
index dde38da22d..f6dea51ba3 100644
--- a/lily/tuplet-bracket.cc
+++ b/lily/tuplet-bracket.cc
@@ -231,17 +231,14 @@ Tuplet_bracket::calc_control_points (SCM smob)
 	  /*
 	    We're connecting to a column, for the last bit of a broken
 	    fullLength bracket.
-	    
-	    TODO: make padding tunable?
 	  */
-	  Real padding = 1.0;
+	  Real padding =
+	    robust_scm2double(me->get_property("full-length-padding"), 1.0);
 
 	  if (bounds[d]->break_status_dir ())
 	    padding = 0.0;
-	  
-	  x_span[d]
-	    = robust_relative_extent (bounds[d], commonx, X_AXIS) [LEFT]
-	    - padding;
+
+	  x_span[d] = bounds[d]->relative_coordinate(commonx, X_AXIS) - padding;
 	}
     }
   while (flip (&d) != LEFT);
@@ -782,6 +779,7 @@ ADD_INTERFACE (Tuplet_bracket,
 	       "direction "
 	       "edge-height "
 	       "edge-text "
+	       "full-length-padding "
 	       "gap "
 	       "positions "
 	       "note-columns "
diff --git a/scm/define-grob-properties.scm b/scm/define-grob-properties.scm
index 7e57b5e8a7..aef125d32c 100644
--- a/scm/define-grob-properties.scm
+++ b/scm/define-grob-properties.scm
@@ -294,6 +294,7 @@ value 0.25.
 
 
     ;; ugh: double, change.
+     (full-length-padding ,number? "How much padding to use at the right side of a full-length tuplet bracket.")
      (full-size-change ,boolean? "Don't make a change clef smaller.")
 
      (gap ,ly:dimension? "Size of a gap in a variable symbol.")