- Grob *last = 0;
- for (SCM s = ss; scm_is_pair (s); s = scm_cdr (s))
- {
- Grob *g = unsmob_grob (scm_car (s));
- if (last)
- {
- SCM outside_staff = last->get_property ("outside-staff-priority");
- if (scm_is_number (outside_staff))
- {
- /* we allow the outside-staff-priority ordering to override the
- script-priority ordering */
- if (!scm_is_number (g->get_property ("outside-staff-priority")))
- g->set_property ("outside-staff-priority",
- scm_from_double (scm_to_double (outside_staff) + 0.1));
- }
- else
- Side_position_interface::add_support (g, last);
- }
-
- last = g;
- }
+ Grob *g = 0; // current grob in list
+ Grob *last = 0; // previous grob in list
+ SCM initial_outside_staff = SCM_EOL; // initial outside_staff_priority of current grob
+ SCM last_initial_outside_staff = SCM_EOL; // initial outside_staff_priority of previous grob
+
+ // loop over all grobs in script column (already sorted by script_priority)
+ for (SCM s = ss; scm_is_pair (s);
+ s = scm_cdr (s), last = g, last_initial_outside_staff = initial_outside_staff)
+ {
+ g = unsmob<Grob> (scm_car (s));
+ initial_outside_staff = g->get_property ("outside-staff-priority");
+ if (last) //not the first grob in the list
+ {
+ SCM last_outside_staff = last->get_property ("outside-staff-priority");
+ /*
+ if outside_staff_priority is missing for previous grob,
+ use all the scripts so far as support for the current grob
+ */
+ if (!scm_is_number (last_outside_staff))
+ for (SCM t = ss; !scm_is_eq (t, s); t = scm_cdr (t))
+ Side_position_interface::add_support (g, unsmob<Grob> (scm_car (t)));
+ /*
+ if outside_staff_priority is missing or is equal to original
+ outside_staff_priority of previous grob, set new
+ outside_staff_priority to just higher than outside_staff_priority
+ of previous grob in order to preserve ordering.
+ */
+ else if ((!scm_is_number (initial_outside_staff))
+ || (fabs (scm_to_double (initial_outside_staff)
+ - robust_scm2double (last_initial_outside_staff, 0)) < 0.001))
+ g->set_property ("outside-staff-priority",
+ scm_from_double (scm_to_double (last_outside_staff) + 0.1));
+ }
+ }