+ dots.sort (compare_position);
+ for (int i = dots.size (); i--;)
+ if (!dots[i]->is_live ())
+ dots.del (i);
+
+ Dot_configuration cfg;
+ for (int i =0;i < dots.size (); i++)
+ {
+ Dot_position dp;
+ dp.dot_ = dots[i];
+
+ Grob * note = dots[i]->get_parent (Y_AXIS);
+ if (note)
+ {
+ Grob *stem = unsmob_grob (note->get_property ("stem"));
+ if (stem)
+ dp.extremal_head_ = Stem::first_head (stem) == note;
+ }
+
+ int p = Staff_symbol_referencer::get_rounded_position (dp.dot_);
+ dp.pos_= p;
+
+ if (dp.extremal_head_)
+ dp.dir_ = to_dir (dp.dot_->get_property ("direction"));
+
+ remove_collision (cfg, p);
+ cfg[p] = dp;
+ if (Staff_symbol_referencer::on_staffline (dp.dot_, p))
+ remove_collision (cfg, p);
+ }
+
+ for (Dot_configuration::const_iterator i (cfg.begin ());
+ i != cfg.end (); i++)
+ {
+ Staff_symbol_referencer::set_position (i->second.dot_, i->first);
+ }
+
+ return SCM_UNSPECIFIED;
+}
+
+void
+Dot_column::add_head (Grob * me, Grob *rh)
+{
+ Grob * d = unsmob_grob (rh->get_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);
+ }