- abbrev_p_ = new Stem_tremolo;
- announce_element (Score_element_info (abbrev_p_, abbrev_req_l_));
- abbrev_p_->set_elt_property ("tremolo-flags", gh_int2scm (intlog2 (t) - (duration_log>? 2)));
+ tremolo_ = new Item (get_property ("StemTremolo"));
+ announce_grob(tremolo_, 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_grob_property ("flag-count",
+ gh_int2scm (tremolo_flags));
+ tremolo_->set_parent (stem_, X_AXIS);
+ stem_->set_grob_property ("tremolo-flag", tremolo_->self_scm ());