-MAKE_SCHEME_CALLBACK (Axis_group_interface, calc_pure_relevant_items, 1);
-SCM
-Axis_group_interface::calc_pure_relevant_items (SCM smob)
-{
- Grob *me = unsmob_grob (smob);
-
- extract_grob_set (me, "pure-relevant-grobs", elts);
-
- vector<Grob*> relevant_items;
- for (vsize i = 0; i < elts.size (); i++)
- if (Item *it = dynamic_cast<Item*> (elts[i]))
- relevant_items.push_back (it);
-
- vector_sort (relevant_items, Item::less);
-
- SCM items_scm = Grob_array::make_array ();
- unsmob_grob_array (items_scm)->set_array (relevant_items);
- return items_scm;
-}
-
-MAKE_SCHEME_CALLBACK (Axis_group_interface, calc_pure_relevant_spanners, 1);
-SCM
-Axis_group_interface::calc_pure_relevant_spanners (SCM smob)
-{
- Grob *me = unsmob_grob (smob);
-
- extract_grob_set (me, "pure-relevant-grobs", elts);
-
- vector<Grob*> relevant_spanners;
- for (vsize i = 0; i < elts.size (); i++)
- if (dynamic_cast<Spanner*> (elts[i]))
- relevant_spanners.push_back (elts[i]);
-
- SCM spanners_scm = Grob_array::make_array ();
- unsmob_grob_array (spanners_scm)->set_array (relevant_spanners);
- return spanners_scm;
-}
-