- // compute common refpoint of elements
- Grob *refp = me;
- for (SCM elts = first_elt; gh_pair_p (elts); elts = ly_cdr (elts))
- {
- SCM smobbed_staff_bar = ly_car (elts);
- Grob *staff_bar = unsmob_grob (smobbed_staff_bar);
- refp = staff_bar->common_refpoint (refp, Y_AXIS);
- }
-
- Span_bar::evaluate_glyph(me);
- SCM glyph = me->get_grob_property ("glyph");