- int f = s->flag_i ();
- f = (f > 2) ? f - 2 : 1;
- s->set_beaming (f, LEFT);
- s->set_beaming (f, RIGHT);
-
- /*
- URG: this sets the direction of the Stem s.
- It's amazing Mike:
-
- Stem:: type_i () ->first_head ()->get_direction () ->
- directional_element (me).set (d);
-
-
- don't understand this comment.
- --hwn.
- */
- SCM d = s->get_elt_property ("direction");
- if (s->type_i () != 1)
- {
- int gap_i =s->flag_i () - ((s->type_i () >? 2) - 2);
- beam_p_->set_elt_property ("beam-gap", gh_int2scm(gap_i));
- }
- s->set_elt_property ("direction", d);
-
- if (Rhythmic_req* r = dynamic_cast <Rhythmic_req *> (info.req_l_))
- {
- beam_p_->add_stem (s);
- Moment stem_location = now_mom () -
- start_mom_ + beam_start_location_;
- }
- else
- {
- String s = _ ("stem must have Rhythmic structure");
- if (info.req_l_)
- info.req_l_->warning (s);
- else
- ::warning (s);
- }