2 auto-change-iterator.cc -- implement Auto_change_iterator
4 source file of the GNU LilyPond music typesetter
6 (c) 1999--2004 Han-Wen Nienhuys <hanwen@cs.uu.nl>
13 #include "music-wrapper-iterator.hh"
14 #include "direction.hh"
16 class Auto_change_iterator
: public Music_wrapper_iterator
19 DECLARE_SCHEME_CALLBACK (constructor
, ());
21 Auto_change_iterator ();
24 virtual void construct_children ();
25 virtual void process (Moment
);
26 Array
<Pitch
> pending_pitch (Moment
)const;
30 void change_to (Music_iterator
* , SCM
, String
);
37 Auto_change_iterator::change_to (Music_iterator
*it
, SCM to_type_sym
,
40 Context
* current
= it
->get_outlet ();
44 Cut & Paste from Change_iterator (ugh).
46 TODO: abstract this function
49 /* find the type of translator that we're changing.
51 If \translator Staff = bass, then look for Staff = *
53 while (current
&& !current
->is_alias (to_type_sym
))
56 current
= current
->daddy_context_
;
59 if (current
&& current
->id_string_
== to_id
)
62 msg
+= _ ("Can't switch translators, I'm there already");
69 it
->get_outlet ()->find_create_context (to_type_sym
, to_id
, SCM_EOL
);
70 current
->remove_context (last
);
71 dest
->add_context (last
);
76 We could change the current translator's id, but that would make
87 Auto_change_iterator::process (Moment m
)
89 Music_wrapper_iterator::process (m
);
91 Moment now
= get_outlet ()->now_mom ();
94 for (; ly_pair_p (split_list_
); split_list_
= ly_cdr (split_list_
))
96 splitm
= unsmob_moment (ly_caar (split_list_
));
97 if ((*splitm
+ start_moment_
) > now
)
100 SCM tag
= ly_cdar (split_list_
);
101 Direction d
= to_dir (tag
);
103 if (d
&& d
!= where_dir_
)
106 String to_id
= (d
>= 0) ? "up" : "down";
107 change_to (child_iter_
,
108 ly_symbol2scm ("Staff"),
114 Auto_change_iterator::Auto_change_iterator ()
117 split_list_
= SCM_EOL
;
121 Auto_change_iterator::construct_children ()
123 Music_wrapper_iterator::construct_children ();
124 split_list_
= get_music ()->get_property ("split-list");
125 start_moment_
= get_outlet ()->now_mom ();
128 IMPLEMENT_CTOR_CALLBACK (Auto_change_iterator
);