- if (Rhythmic_head::has_interface (gi.grob ()))
- {
- if (Rhythmic_head::get_stem (gi.grob ()))
- return;
-
- Music *cause = gi.music_cause ();
- if (!cause)
- return;
- Duration *d = unsmob_duration (cause->get_property ("duration"));
- if (!d)
- return ;
-
- if (!stem_)
- make_stem (gi);
-
- if (Stem::duration_log (stem_) != d->duration_log ())
- {
- // FIXME:
- gi.music_cause ()->origin ()->warning (_f ("adding note head to incompatible stem (type = %d)",
- 1 << Stem::duration_log (stem_)));
- gi.music_cause ()->origin ()->warning (_f ("maybe input should specify polyphonic voices"));
- }
+ if (Rhythmic_head::get_stem (gi.grob ()))
+ return;
+
+ Stream_event *cause = gi.event_cause ();
+ if (!cause)
+ return;
+ Duration *d = unsmob_duration (cause->get_property ("duration"));
+ if (!d)
+ return;