+ if (start_mom_ == now_mom ())
+ Stem::set_beaming (s, flags_, RIGHT);
+ else
+ Stem::set_beaming (s, flags_, LEFT);
+
+ if (Stem::duration_log (s) != 1)
+ beam_->set_property ("gap-count", scm_from_int (flags_ - total_duration_flags_));
+
+ if (info.music_cause ()->is_mus_type ("rhythmic-event"))
+ Beam::add_stem (beam_, s);
+ else
+ {
+ String s = _ ("stem must have Rhythmic structure");
+ if (info.music_cause ())
+ info.music_cause ()->origin ()->warning (s);
+ else
+ ::warning (s);
+ }
+ }
+ else if (repeat_
+ && flags_
+ && !body_is_sequential_)
+ {
+ stem_tremolo_ = make_item ("StemTremolo", repeat_->self_scm ());
+ stem_tremolo_->set_property ("flag-count",
+ scm_from_int (flags_));
+ stem_tremolo_->set_object ("stem",
+ info.grob ()->self_scm ());
+ stem_tremolo_->set_parent (info.grob (), X_AXIS);