- Paper_def* p= me->paper_l ();
- Real arc_height = gh_scm2double (me->get_elt_property("arch-height")) ;
-
- SCM at = gh_list (ly_symbol2scm ("bracket"),
- me->get_elt_property ("arch-angle"),
- me->get_elt_property ("arch-width"),
- gh_double2scm (arc_height),
- me->get_elt_property ("bracket-width"),
- gh_double2scm (height),
- me->get_elt_property ("arch-thick"),
- me->get_elt_property ("bracket-thick"),
- SCM_UNDEFINED);
-
- Real h = height + 2 * arc_height;
- Box b (Interval (0, 1.5), Interval (-h/2, h/2));
- Molecule mol (b, at);
- mol.align_to (X_AXIS, CENTER);
- return mol;
-}
+ SCM fam = scm_cons (ly_symbol2scm ("font-encoding"),
+ ly_symbol2scm ("fetaMusic"));