-MAKE_SCHEME_CALLBACK (System_start_delimiter, after_line_breaking, 1);
-
-SCM
-System_start_delimiter::after_line_breaking (SCM smob)
-{
- Spanner *me = dynamic_cast<Spanner *> (unsmob_grob (smob));
-
- SCM gl = me->get_property ("glyph");
- if (ly_is_equal (gl, scm_makfrom0str ("bar-line")))
- {
- int count = 0;
- Paper_column *left_column = me->get_bound (LEFT)->get_column ();
-
-#if 1 /* slur-script.ly test */
- /*
- Get all coordinates, to trigger Hara kiri.
- */
- extract_grob_set (me, "elements", elts);
- Grob *common = common_refpoint_of_array (elts, me, Y_AXIS);
-
- for (int i = elts.size (); i--;)
- {
- Spanner *staff = dynamic_cast<Spanner *> (elts[i]);
- if (!staff
- || staff->get_bound (LEFT)->get_column () != left_column)
- continue;
-
- Interval v = staff->extent (common, Y_AXIS);
-
- if (!v.is_empty ())
- count++;
- }
-
- if (count <= 1)
- me->suicide ();
-#endif
- }
- return SCM_UNSPECIFIED;
-}
-