make spanned_rank_iv() const; add Spanner::spanned_time() method

1 files changed, 27 insertions, 1 deletions

diff --git a/lily/spanner.cc b/lily/spanner.cc
index e1fe55efe1..8a1e9e62c9 100644
--- a/lily/spanner.cc
+++ b/lily/spanner.cc
@@ -14,6 +14,7 @@
 #include "stencil.hh"
 #include "system.hh"
 #include "warn.hh"
+#include "moment.hh"
 
 Grob *
 Spanner::clone () const
@@ -145,7 +146,7 @@ Spanner::set_my_columns ()
 }
 
 Interval_t<int>
-Spanner::spanned_rank_iv ()
+Spanner::spanned_rank_iv () const
 {
   Interval_t<int> iv (0, 0);
 
@@ -156,6 +157,31 @@ Spanner::spanned_rank_iv ()
   return iv;
 }
 
+Interval_t<Moment>
+Spanner::spanned_time () const
+{
+  Interval_t<Moment> iv;
+
+  Direction d = LEFT;
+  do
+    {
+      if (spanned_drul_[d] && spanned_drul_[d]->get_column ())
+	iv[d] = robust_scm2moment (spanned_drul_[d]->get_column ()->get_property ("when"),
+				  iv[d]);
+    }
+  while (flip (&d) != LEFT);
+
+  do
+    {
+      if (!spanned_drul_[d] || !spanned_drul_[d]->get_column ())
+	iv[d] = iv[-d];
+    }
+  while (flip (&d) != LEFT);
+  
+  
+  return iv;
+}
+
 Item *
 Spanner::get_bound (Direction d) const
 {