''

[lilypond.git] / lily / chord-tremolo-engraver.cc

diff --git a/lily/chord-tremolo-engraver.cc b/lily/chord-tremolo-engraver.cc
index 50f16f5e5c7c3324174dbc35babf9dc4222f5026..99711b84af7f08a713c69cfa0c57595fc33a6a60 100644 (file)
--- a/lily/chord-tremolo-engraver.cc
+++ b/lily/chord-tremolo-engraver.cc
@@ -3,7 +3,7 @@
   
   source file of the GNU LilyPond music typesetter
   
-  (c) 2000--2001 Han-Wen Nienhuys <hanwen@cs.uu.nl>
+  (c) 2000--2002 Han-Wen Nienhuys <hanwen@cs.uu.nl>
   
  */
 
@@ -112,7 +112,7 @@ Chord_tremolo_engraver::process_music ()
          Moment mp
            = (unsmob_moment (smp)) ? *unsmob_moment (smp) : Moment (0);
          beam_start_location_ = mp;
-         announce_grob (beam_p_, repeat_);
+         announce_grob(beam_p_, repeat_->self_scm());
        }
       else if (!sequential_body_b_ && !stem_tremolo_)
        {
@@ -120,10 +120,8 @@ Chord_tremolo_engraver::process_music ()
          if (flags)
            {
              stem_tremolo_ = new Item (get_property ("StemTremolo"));
-             Stem_tremolo::set_interface (stem_tremolo_);
-
-             announce_grob (stem_tremolo_, repeat_);
-             stem_tremolo_->set_grob_property ("tremolo-flags",
+             announce_grob(stem_tremolo_, repeat_->self_scm());
+             stem_tremolo_->set_grob_property ("flag-count",
                                                gh_int2scm (flags));
 
            }
@@ -184,15 +182,15 @@ Chord_tremolo_engraver::acknowledge_grob (Grob_info info)
            }
          s->set_grob_property ("direction", d);
 
-         if (dynamic_cast <Rhythmic_req *> (info.req_l_))
+         if (dynamic_cast <Rhythmic_req *> (info.music_cause ()))
            {
              Beam::add_stem (beam_p_, s);
            }
          else
            {
              String s = _ ("stem must have Rhythmic structure");
-             if (info.req_l_)
-               info.req_l_->origin ()->warning (s);
+             if (info.music_cause ())
+               info.music_cause ()->origin ()->warning (s);
              else
                ::warning (s);
            }