- Real max_corr =0.0;
- for (SCM s = me->get_grob_property ("right-items");
- gh_pair_p (s); s = gh_cdr (s))
- {
- Grob * g = unsmob_grob (gh_car (s));
- max_corr = max_corr >? next_note_correction (me, g, bar_size);
- for (SCM t = g->get_grob_property ("elements");
- gh_pair_p (t); t = gh_cdr (t))
- max_corr = max_corr >? next_note_correction (me, unsmob_grob (gh_car (t)), bar_size);
-
- }
- return max_corr;
-}