+
+void
+Dot_column::add_head (Grob * me, Grob *rh)
+{
+ Grob * d = unsmob_grob (rh->get_grob_property ("dot"));
+ if (d)
+ {
+ Side_position_interface::add_support (me,rh);
+
+ Pointer_group_interface::add_grob (me, ly_symbol2scm ("dots"), d);
+ d->add_offset_callback (Dot_column::force_shift_callback_proc , Y_AXIS);
+ Axis_group_interface::add_element (me, d);
+ }
+}
+
+
+
+
+ADD_INTERFACE (Dot_column, "dot-column-interface",
+ "Interface that groups dots so they form a column",
+ "collision-done direction stem");
+