2 new-chord-tremolo-engraver.cc -- implement Chord_tremolo_engraver
4 source file of the GNU LilyPond music typesetter
6 (c) 2000--2006 Han-Wen Nienhuys <hanwen@xs4all.nl>
10 #include "score-engraver.hh"
12 #include "bar-line.hh"
13 #include "global-context.hh"
14 #include "international.hh"
17 #include "percent-repeat-iterator.hh"
18 #include "repeated-music.hh"
19 #include "side-position-interface.hh"
23 #include "translator.icc"
25 class Percent_repeat_engraver : public Engraver
29 TRANSLATOR_DECLARATIONS (Percent_repeat_engraver);
34 /// moment (global time) where beam started.
38 /// location within measure where beam started.
39 Moment beam_start_location_;
49 Repeat_sign_type repeat_sign_type_;
51 Item *double_percent_;
52 Item *double_percent_counter_;
55 Spanner *percent_counter_;
56 Spanner *finished_percent_;
57 Spanner *finished_percent_counter_;
62 virtual void finalize ();
63 virtual bool try_music (Music *);
65 void stop_translation_timestep ();
66 void start_translation_timestep ();
67 void process_music ();
70 Percent_repeat_engraver::Percent_repeat_engraver ()
75 finished_percent_ = 0;
76 finished_percent_counter_ = 0;
79 double_percent_counter_ = 0;
87 Percent_repeat_engraver::try_music (Music *m)
89 if (m->is_mus_type ("repeated-music")
90 && m->get_property ("iterator-ctor")
91 == Percent_repeat_iterator::constructor_proc
94 body_length_ = Repeated_music::body_get_length (m);
95 total_count_ = Repeated_music::repeat_count (m);
97 Moment now = now_mom ();
99 stop_mom_ = start_mom_ + Moment (total_count_) * body_length_;
100 next_moment_ = start_mom_;
101 next_moment_ += body_length_;
103 Moment meas_len (robust_scm2moment (get_property ("measureLength"),
106 if (meas_len == body_length_)
107 repeat_sign_type_ = MEASURE;
108 else if (Moment (2) * meas_len == body_length_)
109 repeat_sign_type_ = DOUBLE_MEASURE;
116 Global_context *global = get_global_context ();
117 for (int i = 1; i < total_count_; i++)
119 Moment m = next_moment_ + Moment (i) * body_length_;
120 global->add_moment_to_process (m);
122 /* bars between % too. */
123 if (repeat_sign_type_ == DOUBLE_MEASURE)
124 global->add_moment_to_process (m - meas_len);
127 if (repeat_sign_type_ == DOUBLE_MEASURE)
128 next_moment_ += meas_len;
138 Percent_repeat_engraver::process_music ()
140 if (repeat_ && now_mom ().main_part_ == next_moment_.main_part_)
143 if (repeat_sign_type_ == MEASURE)
145 finished_percent_ = percent_;
146 finished_percent_counter_ = percent_counter_;
149 percent_ = make_spanner ("PercentRepeat", repeat_->self_scm ());
151 Grob *col = unsmob_grob (get_property ("currentCommandColumn"));
152 percent_->set_bound (LEFT, col);
155 && to_boolean (get_property ("countPercentRepeats")))
158 = 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_;
199 next_moment_.grace_part_ = Rational (0);
204 Percent_repeat_engraver::finalize ()
209 repeat_->origin ()->warning (_ ("unterminated percent repeat"));
210 percent_->suicide ();
211 percent_counter_->suicide();
216 Percent_repeat_engraver::typeset_perc ()
218 if (finished_percent_)
220 Grob *col = unsmob_grob (get_property ("currentCommandColumn"));
222 finished_percent_->set_bound (RIGHT, col);
223 finished_percent_ = 0;
225 if (finished_percent_counter_)
226 finished_percent_counter_->set_bound (RIGHT, col);
228 finished_percent_counter_ = 0;
232 double_percent_counter_ = 0;
236 Percent_repeat_engraver::start_translation_timestep ()
238 if (stop_mom_.main_part_ == now_mom ().main_part_)
242 finished_percent_ = percent_;
243 finished_percent_counter_ = percent_counter_;
250 percent_counter_ = 0;
251 repeat_sign_type_ = UNKNOWN;
256 Percent_repeat_engraver::stop_translation_timestep ()
261 ADD_TRANSLATOR (Percent_repeat_engraver,
263 "Make whole bar and double bar repeats.",
267 "DoublePercentRepeat "
268 "PercentRepeatCounter "
269 "DoublePercentRepeatCounter",
276 "currentCommandColumn "
277 "countPercentRepeats",