2 new-chord-tremolo-engraver.cc -- implement Chord_tremolo_engraver
4 source file of the GNU LilyPond music typesetter
6 (c) 2000--2005 Han-Wen Nienhuys <hanwen@cs.uu.nl>
10 #include "score-engraver.hh"
12 #include "repeated-music.hh"
13 #include "global-context.hh"
18 #include "percent-repeat-iterator.hh"
19 #include "bar-line.hh"
20 #include "side-position-interface.hh"
22 #include "translator.icc"
24 class Percent_repeat_engraver : public Engraver
28 TRANSLATOR_DECLARATIONS (Percent_repeat_engraver);
33 /// moment (global time) where beam started.
37 /// location within measure where beam started.
38 Moment beam_start_location_;
48 Repeat_sign_type repeat_sign_type_;
50 Item *double_percent_;
51 Item *double_percent_counter_;
54 Spanner *percent_counter_;
55 Spanner *finished_percent_;
56 Spanner *finished_percent_counter_;
61 virtual void finalize ();
62 virtual bool try_music (Music *);
64 void stop_translation_timestep ();
65 void start_translation_timestep ();
66 void process_music ();
69 Percent_repeat_engraver::Percent_repeat_engraver ()
74 finished_percent_ = 0;
75 finished_percent_counter_ = 0;
78 double_percent_counter_ = 0;
86 Percent_repeat_engraver::try_music (Music *m)
88 if (m->is_mus_type ("repeated-music")
89 && m->get_property ("iterator-ctor")
90 == Percent_repeat_iterator::constructor_proc
93 body_length_ = Repeated_music::body_get_length (m);
94 total_count_ = Repeated_music::repeat_count (m);
96 Moment now = now_mom ();
98 stop_mom_ = start_mom_ + Moment (total_count_) * body_length_;
99 next_moment_ = start_mom_;
100 next_moment_ += body_length_;
102 Moment meas_len (robust_scm2moment (get_property ("measureLength"),
105 if (meas_len == body_length_)
106 repeat_sign_type_ = MEASURE;
107 else if (Moment (2) * meas_len == body_length_)
108 repeat_sign_type_ = DOUBLE_MEASURE;
115 Global_context *global = get_global_context ();
116 for (int i = 1; i < total_count_; i++)
118 Moment m = next_moment_ + Moment (i) * body_length_;
119 global->add_moment_to_process (m);
121 /* bars between % too. */
122 if (repeat_sign_type_ == DOUBLE_MEASURE)
123 global->add_moment_to_process (m - meas_len);
126 if (repeat_sign_type_ == DOUBLE_MEASURE)
127 next_moment_ += meas_len;
137 Percent_repeat_engraver::process_music ()
139 if (repeat_ && now_mom () == next_moment_)
142 if (repeat_sign_type_ == MEASURE)
144 finished_percent_ = percent_;
145 finished_percent_counter_ = percent_counter_;
148 percent_ = make_spanner ("PercentRepeat", repeat_->self_scm ());
150 Grob *col = unsmob_grob (get_property ("currentCommandColumn"));
151 percent_->set_bound (LEFT, col);
154 && to_boolean (get_property ("countPercentRepeats")))
157 = make_spanner ("PercentRepeatCounter", repeat_->self_scm ());
160 SCM text = scm_number_to_string (scm_from_int (count_),
162 percent_counter_->set_property ("text", text);
163 percent_counter_->set_bound (LEFT, col);
164 Side_position_interface::add_support (percent_counter_,
166 percent_counter_->set_parent (percent_, Y_AXIS);
169 else if (repeat_sign_type_ == DOUBLE_MEASURE)
171 double_percent_ = make_item ("DoublePercentRepeat", repeat_->self_scm ());
174 && to_boolean (get_property ("countPercentRepeats")))
176 double_percent_counter_
177 = make_item ("DoublePercentRepeatCounter",
178 repeat_->self_scm());
180 SCM text = scm_number_to_string (scm_from_int (count_),
182 double_percent_counter_->set_property ("text", text);
184 Side_position_interface::add_support (double_percent_counter_,
186 double_percent_counter_->set_parent (double_percent_, Y_AXIS);
187 double_percent_counter_->set_parent (double_percent_, X_AXIS);
191 forbid breaks on a % line. Should forbid all breaks, really.
193 Ugh. Why can't this be regular communication between
196 get_score_engraver ()->forbid_breaks ();
198 next_moment_ = next_moment_ + body_length_;
203 Percent_repeat_engraver::finalize ()
208 repeat_->origin ()->warning (_ ("unterminated percent repeat"));
209 percent_->suicide ();
210 percent_counter_->suicide();
215 Percent_repeat_engraver::typeset_perc ()
217 if (finished_percent_)
219 Grob *col = unsmob_grob (get_property ("currentCommandColumn"));
221 finished_percent_->set_bound (RIGHT, col);
222 finished_percent_ = 0;
224 if (finished_percent_counter_)
225 finished_percent_counter_->set_bound (RIGHT, col);
227 finished_percent_counter_ = 0;
231 double_percent_counter_ = 0;
235 Percent_repeat_engraver::start_translation_timestep ()
237 if (stop_mom_ == now_mom ())
241 finished_percent_ = percent_;
242 finished_percent_counter_ = percent_counter_;
249 percent_counter_ = 0;
250 repeat_sign_type_ = UNKNOWN;
255 Percent_repeat_engraver::stop_translation_timestep ()
260 ADD_TRANSLATOR (Percent_repeat_engraver,
262 "Make whole bar and double bar repeats.",
266 "DoublePercentRepeat "
267 "PercentRepeatCounter "
268 "DoublePercentRepeatCounter",
275 "currentCommandColumn "
276 "countPercentRepeats",