2 This file is part of LilyPond, the GNU music typesetter.
4 Copyright (C) 1998--2010 Han-Wen Nienhuys <hanwen@xs4all.nl>,
5 Erik Sandberg <mandolaerik@gmail.com>
7 LilyPond is free software: you can redistribute it and/or modify
8 it under the terms of the GNU General Public License as published by
9 the Free Software Foundation, either version 3 of the License, or
10 (at your option) any later version.
12 LilyPond is distributed in the hope that it will be useful,
13 but WITHOUT ANY WARRANTY; without even the implied warranty of
14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 GNU General Public License for more details.
17 You should have received a copy of the GNU General Public License
18 along with LilyPond. If not, see <http://www.gnu.org/licenses/>.
23 #include "international.hh"
25 #include "music-wrapper-iterator.hh"
26 #include "stream-event.hh"
29 Iterates \times, by sending TupletSpanEvents at the start/end of each
30 tuplet bracket. Extra stop/start events are sent at regular
31 intervals if tupletSpannerDuration is set.
33 class Time_scaled_music_iterator
: public Music_wrapper_iterator
36 DECLARE_SCHEME_CALLBACK (constructor
, ());
38 DECLARE_CLASSNAME (Time_scaled_music_iterator
);
39 Time_scaled_music_iterator ();
41 virtual void process (Moment m
);
42 virtual void construct_children ();
43 virtual void derived_mark () const;
44 virtual Moment
pending_moment () const;
46 Music
*create_event (Direction d
);
50 /* tupletSpannerDuration */
51 Moment spanner_duration_
;
53 /* next time to add a stop/start pair */
54 Moment next_split_mom_
;
56 /* Recycle start/stop events if tupletSpannerDuration is set. */
57 SCM synthesized_events_
;
59 Context_handle tuplet_handler_
;
63 Time_scaled_music_iterator::create_event (Direction d
)
65 SCM ev_scm
= scm_call_2 (ly_lily_module_constant ("make-span-event"),
66 ly_symbol2scm ("TupletSpanEvent"),
69 Music
*mus
= get_music ();
71 Music
*ev
= unsmob_music (ev_scm
);
72 ev
->set_spot (*mus
->origin ());
75 ev
->set_property ("numerator", mus
->get_property ("numerator"));
76 ev
->set_property ("denominator", mus
->get_property ("denominator"));
77 ev
->set_property ("tweaks", mus
->get_property ("tweaks"));
78 ev
->set_property ("length", spanner_duration_
.smobbed_copy ());
81 synthesized_events_
= scm_cons (ev_scm
, synthesized_events_
);
86 Time_scaled_music_iterator::Time_scaled_music_iterator ()
88 spanner_duration_
= next_split_mom_
= 0;
89 synthesized_events_
= SCM_EOL
;
94 Time_scaled_music_iterator::pending_moment () const
96 Moment next_mom
= Music_wrapper_iterator::pending_moment ();
97 next_mom
= min (next_mom
, next_split_mom_
);
104 Time_scaled_music_iterator::process (Moment m
)
106 if (spanner_duration_
.to_bool () &&
107 m
.main_part_
== next_split_mom_
)
109 descend_to_bottom_context ();
110 if (tuplet_handler_
.get_outlet ())
111 create_event (STOP
)->send_to_context (tuplet_handler_
.get_outlet ());
113 if (m
.main_part_
< music_get_length ().main_part_
)
115 tuplet_handler_
.set_context (get_outlet ());
116 report_event (create_event (START
));
118 next_split_mom_
+= spanner_duration_
;
122 tuplet_handler_
.set_context (0);
125 Music_wrapper_iterator::process (m
);
126 if (child_iter_
&& child_iter_
->ok ())
127 descend_to_child (child_iter_
->get_outlet ());
132 Time_scaled_music_iterator::construct_children ()
134 spanner_duration_
= music_get_length ();
136 Moment
*mp
= unsmob_moment (get_outlet ()->get_property ("tupletSpannerDuration"));
138 spanner_duration_
= min (mp
->main_part_
, spanner_duration_
);
140 Music_wrapper_iterator::construct_children ();
142 if (child_iter_
&& child_iter_
->ok ())
143 descend_to_child (child_iter_
->get_outlet ());
147 Time_scaled_music_iterator::derived_mark () const
149 scm_gc_mark (synthesized_events_
);
150 Music_wrapper_iterator::derived_mark ();
153 IMPLEMENT_CTOR_CALLBACK (Time_scaled_music_iterator
);