+MAKE_SCHEME_CALLBACK (Separating_group_spanner,set_spacing_rods,1);
+SCM
+Separating_group_spanner::set_spacing_rods (SCM smob)
+{
+ Grob*me = unsmob_grob (smob);
+
+ for (SCM s = me->get_grob_property ("elements"); gh_pair_p (s) && gh_pair_p (ly_cdr (s)); s = ly_cdr (s))
+ {
+ /*
+ Order of elements is reversed!
+ */
+ SCM elt = ly_car (s);
+ Item *r = unsmob_item (elt);
+
+ if (!r)
+ continue;
+
+ Item *rb
+ = dynamic_cast<Item*> (r->find_prebroken_piece (LEFT));
+
+ find_rods (r, ly_cdr (s));
+ if (rb)
+ find_rods (rb, ly_cdr (s));
+ }