+ Grob *me = unsmob_grob (element_smob);
+ (void) axis;
+ assert (scm_to_int (axis) == Y_AXIS);
+ me = me->get_parent (X_AXIS);
+
+ if (!to_boolean (me->get_property ("positioning-done")))
+ {
+ me->set_property ("positioning-done", SCM_BOOL_T);
+
+ do_shifts (me);
+ }
+ return scm_make_real (0.0);
+}
+
+MAKE_SCHEME_CALLBACK (Dot_column, side_position, 2);
+SCM
+Dot_column::side_position (SCM element_smob, SCM axis)
+{
+ Grob *me = unsmob_grob (element_smob);
+ (void) axis;
+ assert (scm_to_int (axis) == X_AXIS);
+
+ Grob *stem = unsmob_grob (me->get_property ("stem"));
+ if (stem
+ && !Stem::get_beam (stem)
+ && Stem::duration_log (stem) > 2
+ && !Stem::is_invisible (stem))
+ {
+ /*
+ trigger stem end & direction calculation.
+
+ This will add the stem to the support if a flag collision happens.
+ */
+ Stem::stem_end_position (stem);
+ }
+ return Side_position_interface::aligned_side (element_smob, axis);
+}
+
+struct Dot_position
+{
+ int pos_;
+ Direction dir_;
+ Grob *dot_;
+ bool extremal_head_;
+
+ Dot_position ()
+ {
+ dot_ = 0;
+ pos_ = 0;
+ dir_ = CENTER;
+ }
+};
+
+typedef std::map<int, Dot_position> Dot_configuration;
+
+/*
+ Value CFG according.
+*/
+int
+dot_config_badness (Dot_configuration const &cfg)
+{
+ int t = 0;
+ for (Dot_configuration::const_iterator i (cfg.begin ());
+ i != cfg.end (); i++)
+ {
+ int p = i->first;
+ int demerit = sqr (p - i->second.pos_) * 2;
+
+ int dot_move_dir = sign (p - i->second.pos_);
+ if (i->second.extremal_head_)
+ {
+ if (i->second.dir_
+ && dot_move_dir != i->second.dir_)
+ demerit += 3;
+ else if (dot_move_dir != UP)
+ demerit += 2;
+ }
+ else if (dot_move_dir != UP)
+ demerit += 1;
+
+ t += demerit;
+ }
+
+ return t;