- abbrev_p_ = new Stem_tremolo;
- announce_element (Score_element_info (abbrev_p_, abbrev_req_l_));
- abbrev_p_->abbrev_flags_i_ =intlog2 (t) - (duration_log>? 2);
+ tremolo_ev_->origin ()->warning (_("tremolo duration is too long"));
+ tremolo_flags = 0;
+ }
+
+ if (tremolo_flags)
+ {
+ tremolo_ = make_item ("StemTremolo", tremolo_ev_->self_scm ());
+
+ /*
+ The number of tremolo flags is the number of flags of
+ the tremolo-type minus the number of flags of the note
+ itself.
+ */
+ tremolo_->set_property ("flag-count",
+ scm_int2num (tremolo_flags));
+ tremolo_->set_parent (stem_, X_AXIS);
+ stem_->set_property ("tremolo-flag", tremolo_->self_scm ());
+ tremolo_->set_property ("stem",
+ stem_->self_scm ());