-
- // todo -> use result of articulation-to-scriptdef directly as basic prop list.
- Grob *p =new Item (get_property ("Script"));
- scripts_[i].script_ = p;
- art = ly_cdr (art);
-
- scripts_[i].description_ = art;
-
- p->set_grob_property ("script-molecule", ly_car (art));
-
- art = ly_cdr (art);
- art = ly_cdr (art);
- SCM relative_stem_dir = ly_car (art);
- art = ly_cdr (art);
-
- SCM force_dir = l->get_mus_property ("direction");
- if (ly_dir_p (force_dir) && !to_dir (force_dir))
- force_dir = ly_car (art);
-
- art = ly_cdr (art);
- int priority = gh_scm2int (ly_car (art));
-
- SCM s = p->get_grob_property ("script-priority");
- if (gh_number_p (s))
- priority = gh_scm2int (s);
-
- /*
- Make sure they're in order of user input by adding index i.
- Don't use the direction in this priority. Smaller means closer
- to the head.
- */
- priority += i;
-
- if (ly_dir_p (force_dir) && to_dir (force_dir))
- p->set_grob_property ("direction", force_dir);
- else if (to_dir (relative_stem_dir))
- p->set_grob_property ("side-relative-direction", relative_stem_dir);
-
-
- Side_position_interface::set_axis (p, Y_AXIS);
- p->set_grob_property ("script-priority", gh_int2scm (priority));
-
-
- announce_grob (p, l->self_scm());
+
+ SCM preset = p->get_property_data (sym);
+ if (val == SCM_EOL
+ || scm_call_1 (type, preset) == SCM_BOOL_F)
+ p->set_property (sym, val);
+ }
+
+ if (!priority_found)
+ {
+ p->set_property ("script-priority",
+ scm_from_int (index));