+ SCM heads = b->get_property ("note-heads");
+ common = common_refpoint_of_list (heads, common, X_AXIS);
+ for (SCM s = heads; scm_is_pair (s); s = scm_cdr (s))
+ {
+ Grob * h = unsmob_grob (scm_car (s));
+ Grob * dots = Rhythmic_head::get_dots (h);
+ if (dots)
+ common = dots->common_refpoint (common, X_AXIS);
+ }