source file of the GNU LilyPond music typesetter
- (c) 1999--2002 Han-Wen Nienhuys <hanwen@cs.uu.nl>
+ (c) 1999--2004 Han-Wen Nienhuys <hanwen@cs.uu.nl>
*/
-#include "debug.hh"
+#include "directional-element-interface.hh"
+#include "warn.hh"
#include "script.hh"
#include "font-interface.hh"
#include "side-position-interface.hh"
SCM key = ly_car (s);
if (key == ly_symbol2scm ("feta"))
{
+ SCM name_entry = ly_cdr (s);
+
+ SCM str = (gh_pair_p (name_entry)) ? index_get_cell (name_entry, d) : name_entry;
return Font_interface::get_default_font (me)->find_by_name ("scripts-" +
- ly_scm2string (index_cell (ly_cdr (s), d)));
+ ly_scm2string (str));
}
- else if (key == ly_symbol2scm ("accordion"))
+ else if (key == ly_symbol2scm ("accordion"))
{
return Lookup::accordion (ly_cdr (s), 1.0, Font_interface::get_default_font (me));
}
d = DOWN;
}
- Side_position_interface::set_direction (me,d);
+ set_grob_direction (me, d);
if (Grob * par = me->get_parent (X_AXIS))
{
- Grob * stem = Note_column::stem_l (par);
+ Grob * stem = Note_column::get_stem (par);
if (stem && Stem::first_head (stem))
{
me->set_parent (Stem::first_head (stem), X_AXIS);
ADD_INTERFACE (Script_interface, "script-interface",
"",
- "script-priority script-molecule staff-support");
+ "script-priority script-molecule");