+ Grob *me= unsmob_grob (smob);
+#if 0
+
+ SCM d = me->get_grob_property ("direction");
+ if (isdir_b (d))
+ dir = to_dir (d);
+#endif
+ Direction dir = Side_position_interface::get_direction(me);
+ if (!dir)
+ {
+ programming_error ("Script direction not known, but molecule wanted.");
+ dir= DOWN;
+ }