--- /dev/null
+\version "2.17.30"
+
+\header {
+ texidoc = "Bends should not be effected by the full width of a
+@code{NonMusicalPaperColumn}. The bends should have identical X
+spans in the two examples.
+"
+}
+
+music = \repeat unfold 16 { c''4\bendAfter #-4 }
+sixteens = \repeat unfold 64 { c'16 }
+
+\new Score {
+ << \music \sixteens >>
+}
+
+\new Score \with {
+ currentBarNumber = #200
+ barNumberVisibility = #(every-nth-bar-number-visible 1)
+ \override BarNumber.break-visibility = #end-of-line-invisible
+} {
+ << \music \sixteens >>
+}
return ly_interval2scm (ext);
}
+LY_DEFINE (ly_generic_bound_extent, "ly:generic-bound-extent",
+ 2, 0, 0, (SCM grob, SCM common),
+ "Determine the extent of @var{grob} relative to @var{common} along"
+ " the X axis, finding its extent as a bound when it a has"
+ " @code{bound-alignment-interfaces} property list set and"
+ " otherwise the full extent.")
+{
+ LY_ASSERT_SMOB (Grob, grob, 1);
+ LY_ASSERT_SMOB (Grob, common, 2);
+
+ Interval ext = Axis_group_interface::generic_bound_extent (unsmob_grob (grob), unsmob_grob (common), X_AXIS);
+ return ly_interval2scm (ext);
+}
+
LY_DEFINE (ly_axis_group_interface__add_element, "ly:axis-group-interface::add-element",
2, 0, 0, (SCM grob, SCM grob_element),
"Set @var{grob} the parent of @var{grob-element} on all axes of"
(left-x (+ padding
(max
- (interval-end (ly:grob-robust-relative-extent
- left-span common X))
+ (interval-end (ly:generic-bound-extent
+ left-span common))
(if
(and dots
(close
(ly:grob-robust-relative-extent dots common X))
(- INFINITY-INT)))))
(right-x (max (- (interval-start
- (ly:grob-robust-relative-extent right-span common X))
+ (ly:generic-bound-extent right-span common))
padding)
(+ left-x minimum-length)))
(self-x (ly:grob-relative-coordinate spanner common X))