- Grob * s = info.elem_l_;
- int f = Stem::flag_i (s);
- f = (f > 2) ? f - 2 : 1;
- Stem::set_beaming (s, f, LEFT);
- Stem::set_beaming (s, f, RIGHT);
-
- /*
- 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_grob_property ("direction");
- if (Stem::type_i (s ) != 1)
- {
- int gap_i =Stem::flag_i (s ) - ((Stem::type_i (s ) >? 2) - 2);
- beam_p_->set_grob_property ("beam-gap", gh_int2scm(gap_i));
- }
- s->set_grob_property ("direction", d);
-
- if (dynamic_cast <Rhythmic_req *> (info.req_l_))
- {
- Beam::add_stem (beam_p_, s);
- }
- else
- {
- String s = _ ("stem must have Rhythmic structure");
- if (info.req_l_)
- info.req_l_->origin ()->warning (s);
- else
- ::warning (s);
- }