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>
*/
{
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;
}
{
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);
+ if (!dir)
+ {
+ programming_error ("Script direction not known, but molecule wanted.");
+ dir= DOWN;
+ }
+
return get_molecule (me, dir).smobbed_copy();
}