- if (sequential_body_b_ && !beam_)
- {
- beam_ = new Spanner (get_property ("Beam"));
- beam_->set_grob_property ("chord-tremolo", SCM_BOOL_T);
-
- SCM smp = get_property ("measurePosition");
- Moment mp
- = (unsmob_moment (smp)) ? *unsmob_moment (smp) : Moment (0);
- beam_start_location_ = mp;
- announce_grob(beam_, repeat_->self_scm());
- }
- else if (!sequential_body_b_ && !stem_tremolo_)
- {
- if (flags_)
- {
- stem_tremolo_ = new Item (get_property ("StemTremolo"));
- announce_grob(stem_tremolo_, repeat_->self_scm());
- stem_tremolo_->set_grob_property ("flag-count",
- scm_int2num (flags_));
- }
- }
+ beam_ = make_spanner ("Beam", repeat_->self_scm ());
+ beam_->set_property ("chord-tremolo", SCM_BOOL_T);
+
+ beam_start_location_ = robust_scm2moment (get_property ("measurePosition"), Moment (0));