- int s_i=specs_l_->rel_stem_dir_i_;
- if (s_i && stem_l_)
- dir_i_ = stem_l_->dir_i_ * s_i;
- else {
- dir_i_ =specs_l_->staff_dir_i_;
+ SCM s = get_elt_property ("molecule");
+ assert (gh_pair_p (s));
+
+ SCM key = gh_car (s);
+ if (key == ly_symbol2scm ("feta"))
+ {
+ return lookup_l ()->afm_find ("scripts-" +
+ ly_scm2string (index_cell (gh_cdr (s), d)));
+ }
+ else if (key == ly_symbol2scm ("accordion"))
+ {
+ return lookup_l ()->accordion (s, paper_l()->get_var("interline"));