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>
*/
SCM
Script::after_line_breaking (SCM smob)
{
- Grob * 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)
{
- Grob *me= unsmob_element (smob);
+ 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);
+ Direction dir = Side_position_interface::get_direction(me);
return get_molecule (me, dir).smobbed_copy();
}