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>, Erik Sandberg <mandolaerik@gmail.com>
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"
26 * TODO: Create separate Double_percent_repeat_engraver?
27 * Or, at least move double percent handling to Slash_repeat_engraver
30 class Percent_repeat_engraver : public Engraver
34 TRANSLATOR_DECLARATIONS (Percent_repeat_engraver);
37 Music *percent_event_;
39 /// moment (global time) where percent started.
49 Repeat_sign_type repeat_sign_type_;
52 Spanner *percent_counter_;
55 virtual void finalize ();
56 virtual bool try_music (Music *);
58 void stop_translation_timestep ();
59 void start_translation_timestep ();
60 void process_music ();
63 Percent_repeat_engraver::Percent_repeat_engraver ()
72 Percent_repeat_engraver::try_music (Music *m)
74 if (m->is_mus_type ("percent-event")
77 Moment body_length = m->get_length ();
78 Moment meas_len (robust_scm2moment (get_property ("measureLength"),
81 if (meas_len == body_length)
83 repeat_sign_type_ = MEASURE;
84 start_mom_ = now_mom ();
85 stop_mom_ = now_mom () + body_length;
86 get_global_context ()->add_moment_to_process (stop_mom_);
88 else if (Moment (2) * meas_len == body_length)
90 repeat_sign_type_ = DOUBLE_MEASURE;
91 start_mom_ = now_mom () + meas_len;
92 stop_mom_ = now_mom () + body_length; /* never used */
93 get_global_context ()->add_moment_to_process (start_mom_);
107 Percent_repeat_engraver::process_music ()
109 if (percent_event_ && now_mom ().main_part_ == start_mom_.main_part_)
111 if (repeat_sign_type_ == MEASURE)
115 percent_ = make_spanner ("PercentRepeat", percent_event_->self_scm ());
117 Grob *col = unsmob_grob (get_property ("currentCommandColumn"));
118 percent_->set_bound (LEFT, col);
120 SCM count = percent_event_->get_property ("repeat-count");
121 if (count != SCM_EOL && to_boolean (get_property ("countPercentRepeats")))
124 = make_spanner ("PercentRepeatCounter", percent_event_->self_scm ());
126 SCM text = scm_number_to_string (count, scm_from_int (10));
127 percent_counter_->set_property ("text", text);
128 percent_counter_->set_bound (LEFT, col);
129 Side_position_interface::add_support (percent_counter_,
131 percent_counter_->set_parent (percent_, Y_AXIS);
134 percent_counter_ = 0;
136 else if (repeat_sign_type_ == DOUBLE_MEASURE)
138 Item *double_percent = make_item ("DoublePercentRepeat", percent_event_->self_scm ());
140 SCM count = percent_event_->get_property ("repeat-count");
142 && to_boolean (get_property ("countPercentRepeats")))
144 Item *double_percent_counter = make_item ("DoublePercentRepeatCounter",
145 percent_event_->self_scm());
147 SCM text = scm_number_to_string (count,
149 double_percent_counter->set_property ("text", text);
151 Side_position_interface::add_support (double_percent_counter,
153 double_percent_counter->set_parent (double_percent, Y_AXIS);
154 double_percent_counter->set_parent (double_percent, X_AXIS);
157 /* forbid breaks on a % line. Should forbid all breaks, really. */
158 context ()->get_score_context ()->set_property ("forbidBreak", SCM_BOOL_T);
160 /* No more processing needed. */
161 repeat_sign_type_ = UNKNOWN;
167 Percent_repeat_engraver::finalize ()
171 percent_event_->origin ()->warning (_ ("unterminated percent repeat"));
172 percent_->suicide ();
173 percent_counter_->suicide();
178 Percent_repeat_engraver::typeset_perc ()
182 Grob *col = unsmob_grob (get_property ("currentCommandColumn"));
184 percent_->set_bound (RIGHT, col);
187 if (percent_counter_)
188 percent_counter_->set_bound (RIGHT, col);
189 percent_counter_ = 0;
194 Percent_repeat_engraver::start_translation_timestep ()
196 if (stop_mom_.main_part_ == now_mom ().main_part_)
201 repeat_sign_type_ = UNKNOWN;
206 Percent_repeat_engraver::stop_translation_timestep ()
210 ADD_TRANSLATOR (Percent_repeat_engraver,
212 "Make whole bar and double bar repeats.",
215 "DoublePercentRepeat "
216 "DoublePercentRepeatCounter "
218 "PercentRepeatCounter ",
224 "countPercentRepeats "
225 "currentCommandColumn "