- SCM smobbed_staff_bar = gh_car (elts);
- Grob *staff_bar = unsmob_grob (smobbed_staff_bar);
- Interval ext = staff_bar->extent (refp, Y_AXIS);
- if (ext.empty_b ())
- continue;
-
- if (!prev_extent.empty_b ())
- {
- Interval l(prev_extent [UP],
- ext[DOWN]);
-
- Molecule interbar
- = Bar::compound_barline (staff_bar, glyph_str, l.length());
- interbar.translate_axis (l.center (), Y_AXIS);
- span_bar_mol.add_molecule (interbar);
- }
+ Grob *bar = elements[i];
+ Interval ext = Bar_line::bar_y_extent (bar, refp);
+ if (Grob *staff = Staff_symbol_referencer::get_staff_symbol (bar))
+ ext.unite (staff->extent (refp, Y_AXIS));
+ if (ext.is_empty ())
+ continue;
+
+ extents.push_back (ext);
+ make_span_bar.push_back (to_boolean (bar->get_property ("allow-span-bar")));
+ model_bar = bar;
+ }
+
+ if (!model_bar)
+ model_bar = me;
+
+ Stencil span_bar;
+ for (vsize i = 1; i < extents.size (); i++)
+ {
+ Interval prev_extent = extents[i - 1];
+ Interval ext = extents[i];
+ if (!prev_extent.is_empty ())
+ {
+ Interval l (prev_extent [UP],
+ ext[DOWN]);
+
+ if (l.is_empty () || !make_span_bar[i])
+ {
+ /* There is overlap between the bar lines. Do nothing. */
+ }
+ else
+ {
+ Stencil interbar = Bar_line::compound_barline (model_bar,
+ glyph_string,
+ l,
+ false);
+ span_bar.add_stencil (interbar);
+ }
+ }