- art = gh_cdr (art);
-
- Grob *p =new Item (tg->get_property ("Script"));
- *descr = art;
-
- SCM force_dir = event->get_mus_property ("direction");
- if (ly_dir_p (force_dir) && to_dir (force_dir))
- p->set_grob_property ("direction", force_dir);
-
- copy_property (p, ly_symbol2scm ("script-molecule"), art);
- copy_property (p, ly_symbol2scm ("direction"), art);
- copy_property (p, ly_symbol2scm ("side-relative-direction"), art);