- finish_mom_ = mus->get_length ();
- child_iter_ = unsmob_iterator (get_iterator (Repeated_music::body (mus)));
-}
-
-void
-Percent_repeat_iterator::process (Moment m)
-{
- if (!m.to_bool ())
+ Music *child = Repeated_music::body (mus);
+ SCM length = child->get_length ().smobbed_copy ();
+ SCM child_list = SCM_EOL;
+ Moment measure_len = measure_length (get_outlet ());
+ Moment music_len = robust_scm2moment (length, Moment (0));
+
+ string event_type;
+ SCM slash_count = SCM_EOL;
+
+ if (measure_len == music_len)
+ event_type = "PercentEvent";
+ else if (measure_len * Moment (2) == music_len)
+ event_type = "DoublePercentEvent";
+ else