- /*
- URG: this sets the direction of the Stem s.
- It's amazing Mike:
-
- Stem:: type_i () ->first_head ()->get_direction () ->
- Directional_element_interface::set (me, d);
-
-
- don't understand this comment.
- --hwn.
- */
- SCM d = s->get_elt_property ("direction");
- if (Stem::type_i (s ) != 1)
- {
- int gap_i =Stem::flag_i (s ) - ((Stem::type_i (s ) >? 2) - 2);
- beam_p_->set_elt_property ("beam-gap", gh_int2scm(gap_i));
- }
- s->set_elt_property ("direction", d);
+ SCM d = s->get_grob_property ("direction");
+ if (Stem::duration_log (s) != 1)
+ {
+ beam_->set_grob_property ("gap", gh_double2scm (0.8));
+ }
+ s->set_grob_property ("direction", d);