Merge branch 'master' of ssh+git://git.sv.gnu.org/srv/git/lilypond

[lilypond.git] / lily / paper-column.cc

diff --git a/lily/paper-column.cc b/lily/paper-column.cc
index 53dfd4a906a2b907baeb59ced8b2ae998bcd3a7e..ba5b36b13e114062f6d9fc79d80dc6e510c98e07 100644 (file)
--- a/lily/paper-column.cc
+++ b/lily/paper-column.cc
@@ -8,6 +8,7 @@
 
 #include "paper-column.hh"
 
+#include "break-align-interface.hh"
 #include "moment.hh"
 #include "paper-score.hh"
 #include "warn.hh"
@@ -157,6 +158,25 @@ Paper_column::minimum_distance (Grob *left, Grob *right)
   return max (0.0, skys[LEFT].distance (skys[RIGHT]));
 }
 
+Interval
+Paper_column::break_align_width (Grob *me)
+{
+  Grob *p = me->get_parent (X_AXIS);
+
+  if (is_musical (me))
+    {
+      me->programming_error ("tried to get break-align-width of a non-musical column");
+      return Interval (0, 0) + me->relative_coordinate (p, X_AXIS);
+    }
+
+  Grob *align = Pointer_group_interface::find_grob (me, ly_symbol2scm ("elements"),
+                                                   Break_alignment_interface::has_interface);
+  if (!align)
+    return Interval (0, 0) + me->relative_coordinate (p, X_AXIS);
+
+  return align->extent (p, X_AXIS);
+}
+
 /*
   Print a vertical line and  the rank number, to aid debugging.
 */