source file of the GNU LilyPond music typesetter
- (c) 1999--2000 Han-Wen Nienhuys <hanwen@cs.uu.nl>
+ (c) 1999--2001 Han-Wen Nienhuys <hanwen@cs.uu.nl>
*/
#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);
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);
+ Direction d = Side_position_interface::get_direction (me);
+ Side_position_interface::set_direction (me,d);
return SCM_UNSPECIFIED;
}
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);
- Direction dir = Side_position::get_direction(me);
- return get_molecule (me, dir).create_scheme();
+ 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_interface::get_direction(me);
+ 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"));
}