#include "lookup.hh"
Molecule
-Script::get_molecule(Score_element * me, Direction d)
+Script::get_molecule(Grob * me, Direction d)
{
- SCM s = me->get_elt_property ("molecule");
+ SCM s = me->get_grob_property ("molecule");
assert (gh_pair_p (s));
SCM key = gh_car (s);
}
else if (key == ly_symbol2scm ("accordion"))
{
- return Lookup::accordion (gh_cdr (s), me->paper_l()->get_var("staffspace"), Font_interface::get_default_font (me));
+ return Lookup::accordion (gh_cdr (s), 1.0, Font_interface::get_default_font (me));
}
else
assert (false);
SCM
Script::after_line_breaking (SCM smob)
{
- Score_element * me = unsmob_element (smob);
+ Grob * me = unsmob_grob (smob);
Direction d = Side_position::get_direction (me);
Side_position::set_direction (me,d);
SCM
Script::brew_molecule (SCM smob)
{
- Score_element *me= unsmob_element (smob);
-// Direction dir = DOWN;
-// SCM d = me->get_elt_property ("direction");
-// if (isdir_b (d))
-// dir = to_dir (d);
+ Grob *me= unsmob_grob (smob);
+#if 0
+ Direction dir = DOWN;
+ SCM d = me->get_grob_property ("direction");
+ if (isdir_b (d))
+ dir = to_dir (d);
+#endif
Direction dir = Side_position::get_direction(me);
- return get_molecule (me, dir).create_scheme();
+ return get_molecule (me, dir).smobbed_copy();
}
bool
-Script::has_interface (Score_element*me)
+Script::has_interface (Grob*me)
{
return me->has_interface (ly_symbol2scm ("script-interface"));
}
void
-Script::set_interface (Score_element*me)
+Script::set_interface (Grob*me)
{
return me->set_interface (ly_symbol2scm ("script-interface"));
}