protected:
virtual void derived_mark () const;
virtual void construct_children ();
virtual Moment pending_moment () const;
virtual void process (Moment);
protected:
virtual void derived_mark () const;
virtual void construct_children ();
virtual Moment pending_moment () const;
virtual void process (Moment);
- SCM accept = get_outlet()->get_property ("quotedEventTypes");
- for (SCM s = mus->get_property ("types");
- scm_is_pair (s); s = scm_cdr (s))
+ for (SCM accept = get_outlet ()->get_property ("quotedEventTypes");
+ scm_is_pair (accept); accept = scm_cdr (accept))
-binsearch_scm_vector (SCM vec, SCM key, bool (*is_less)(SCM a,SCM b))
+binsearch_scm_vector (SCM vec, SCM key, bool (*is_less) (SCM a, SCM b))
SCM name = get_music ()->get_property ("quoted-context-type");
SCM id = get_music ()->get_property ("quoted-context-id");
if (scm_is_string (id)
&& scm_is_symbol (name))
{
SCM name = get_music ()->get_property ("quoted-context-type");
SCM id = get_music ()->get_property ("quoted-context-id");
if (scm_is_string (id)
&& scm_is_symbol (name))
{
- Context *cue_context = get_outlet()->find_create_context (name,
- ly_scm2string (id), SCM_EOL);
+ Context *cue_context = get_outlet ()->find_create_context (name,
+ ly_scm2string (id), SCM_EOL);
- if (Music_wrapper_iterator::ok())
- m = m <? Music_wrapper_iterator::pending_moment();
+ if (Music_wrapper_iterator::ok ())
+ m = min (m, Music_wrapper_iterator::pending_moment ());
/*
In case event_idx_ < 0, we're not initted yet, and the wrapped
music expression determines the starting moment.
/*
In case event_idx_ < 0, we're not initted yet, and the wrapped
music expression determines the starting moment.
if (event_idx_ < 0)
{
event_idx_ = binsearch_scm_vector (event_vector_,
get_outlet ()->now_mom ().smobbed_copy (),
&moment_less);
if (event_idx_ < 0)
{
event_idx_ = binsearch_scm_vector (event_vector_,
get_outlet ()->now_mom ().smobbed_copy (),
&moment_less);
- start_moment_ = get_outlet ()->now_mom () - music_start_mom();
- stop_moment_ = start_moment_ + get_music()->get_length ();
-
+ start_moment_ = get_outlet ()->now_mom () - music_start_mom ();
+ stop_moment_ = start_moment_ + get_music ()->get_length ();
+
end_idx_ = binsearch_scm_vector (event_vector_,
stop_moment_.smobbed_copy (),
&moment_less);
}
end_idx_ = binsearch_scm_vector (event_vector_,
stop_moment_.smobbed_copy (),
&moment_less);
}
- Music * mus = unsmob_music (scm_car (ev_acc));
- if (!mus)
- programming_error ("need music in quote.");
- else if (accept_music_type (mus))
+ Stream_event *ev = unsmob_stream_event (scm_car (ev_acc));
+ if (!ev)
+ programming_error ("no music found in quote");
+ else if (accept_music_type (ev))
- transposed_musics_ = scm_cons (copy, transposed_musics_);
- mus->transpose (diff);
+ transpose_mutable (ev->get_property_alist (true), diff);
+ transposed_musics_ = scm_cons (ev->unprotect (), transposed_musics_);