2 This file is part of LilyPond, the GNU music typesetter.
4 Copyright (C) 2000--2011 Han-Wen Nienhuys <hanwen@xs4all.nl>, Erik Sandberg <mandolaerik@gmail.com>
6 LilyPond is free software: you can redistribute it and/or modify
7 it under the terms of the GNU General Public License as published by
8 the Free Software Foundation, either version 3 of the License, or
9 (at your option) any later version.
11 LilyPond is distributed in the hope that it will be useful,
12 but WITHOUT ANY WARRANTY; without even the implied warranty of
13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
14 GNU General Public License for more details.
16 You should have received a copy of the GNU General Public License
17 along with LilyPond. If not, see <http://www.gnu.org/licenses/>.
21 #include "engraver.hh"
22 #include "global-context.hh"
23 #include "international.hh"
25 #include "side-position-interface.hh"
27 #include "stream-event.hh"
30 #include "translator.icc"
32 class Percent_repeat_engraver : public Engraver
37 TRANSLATOR_DECLARATIONS (Percent_repeat_engraver);
40 Stream_event *percent_event_;
42 // moment (global time) where percent started
44 // moment (global time) where percent should end
48 Spanner *percent_counter_;
50 Grob *first_command_column_;
51 Moment command_moment_;
53 virtual void finalize ();
54 DECLARE_TRANSLATOR_LISTENER (percent);
56 void start_translation_timestep ();
57 void stop_translation_timestep ();
58 void process_music ();
61 Percent_repeat_engraver::Percent_repeat_engraver ()
67 first_command_column_ = 0;
68 command_moment_ = Moment (-1);
72 Percent_repeat_engraver::start_translation_timestep ()
74 if (now_mom ().main_part_ != command_moment_.main_part_)
77 = unsmob_grob (get_property ("currentCommandColumn"));
78 command_moment_ = now_mom ();
81 if (stop_mom_.main_part_ == now_mom ().main_part_)
89 IMPLEMENT_TRANSLATOR_LISTENER (Percent_repeat_engraver, percent);
91 Percent_repeat_engraver::listen_percent (Stream_event *ev)
95 Moment body_length = get_event_length (ev);
96 start_mom_ = now_mom ();
97 stop_mom_ = now_mom () + body_length;
98 get_global_context ()->add_moment_to_process (stop_mom_);
104 print a warning: no assignment happens because
107 ASSIGN_EVENT_ONCE (percent_event_, ev);
112 Percent_repeat_engraver::process_music ()
115 && now_mom ().main_part_ == start_mom_.main_part_)
120 percent_ = make_spanner ("PercentRepeat", percent_event_->self_scm ());
122 Grob *col = first_command_column_;
123 percent_->set_bound (LEFT, col);
125 SCM count = percent_event_->get_property ("repeat-count");
126 if (count != SCM_EOL && to_boolean (get_property ("countPercentRepeats"))
127 && check_repeat_count_visibility (context (), count))
129 percent_counter_ = make_spanner ("PercentRepeatCounter",
130 percent_event_->self_scm ());
132 SCM text = scm_number_to_string (count, scm_from_int (10));
133 percent_counter_->set_property ("text", text);
134 percent_counter_->set_bound (LEFT, col);
135 Side_position_interface::add_support (percent_counter_, percent_);
136 percent_counter_->set_parent (percent_, Y_AXIS);
139 percent_counter_ = 0;
144 Percent_repeat_engraver::finalize ()
148 percent_event_->origin ()->warning (_ ("unterminated percent repeat"));
149 percent_->suicide ();
150 percent_counter_->suicide ();
155 Percent_repeat_engraver::typeset_perc ()
157 Grob *col = first_command_column_;
159 percent_->set_bound (RIGHT, col);
162 if (percent_counter_)
163 percent_counter_->set_bound (RIGHT, col);
164 percent_counter_ = 0;
168 Percent_repeat_engraver::stop_translation_timestep ()
172 ADD_TRANSLATOR (Percent_repeat_engraver,
174 "Make whole measure repeats.",
178 "PercentRepeatCounter ",
181 "countPercentRepeats "
182 "currentCommandColumn "
183 "repeatCountVisibility ",