- else if (gh_symbol_p (type)
- && type == ly_symbol2scm ("trill"))
- {
- SCM alist_chain = Font_interface::font_alist_chain (me);
- SCM style_chain = scm_list_n (gh_cons (ly_symbol2scm ("font-family"),
- ly_symbol2scm ("music")),
- SCM_UNDEFINED);
-
- Font_metric *fm = Font_interface::get_font (me,
- scm_list_n (style_chain,
- alist_chain,
- SCM_UNDEFINED));
- Molecule m = fm->find_by_name ("scripts-trill-element");
- do
- mol.add_at_edge (X_AXIS, RIGHT, m, 0);
- while (m.extent (X_AXIS).length ()
- && mol.extent (X_AXIS).length ()
- + m.extent (X_AXIS).length () < dx);
-
- /*
- FIXME: should center element on x/y
- */
- mol.translate_axis (m.extent (X_AXIS).length () / 2, X_AXIS);
- mol.translate_axis (-(mol.extent (Y_AXIS)[DOWN]
- + mol.extent (Y_AXIS).length ())/2, Y_AXIS);
- }
- return mol;