X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lily%2Fnote-column.cc;h=3f57d3e63c888b09fb564849aa3809b4307366b3;hb=f604d2f2f7f03cbbd43182c14ef20647d16f87d8;hp=380182f85623cd74fca631b1d04a4715bc02fcf1;hpb=474c8729dc274a30558102a015a01fa5882673db;p=lilypond.git

diff --git a/lily/note-column.cc b/lily/note-column.cc
index 380182f856..3f57d3e63c 100644
--- a/lily/note-column.cc
+++ b/lily/note-column.cc
@@ -181,6 +181,20 @@ Note_column::accidentals (Grob *me)
   return acc;
 }
 
+Grob *
+Note_column::dot_column (Grob *me)
+{
+  extract_grob_set (me, "note-heads", heads);
+  for (vsize i = 0; i < heads.size (); i++)
+    {
+      Grob *dots = unsmob_grob (heads[i]->get_object ("dot"));
+      if (dots)
+	return dots->get_parent (X_AXIS);
+    }
+  
+  return 0;
+}
+
 Grob *
 Note_column::arpeggio (Grob *me)
 {