/*
- new-chord-tremolo-engraver.cc -- implement Chord_tremolo_engraver
+ percent-repeat-engraver.cc -- implement Percent_repeat_engraver
source file of the GNU LilyPond music typesetter
- (c) 2000--2007 Han-Wen Nienhuys <hanwen@xs4all.nl>, Erik Sandberg <mandolaerik@gmail.com>
+ (c) 2000--2009 Han-Wen Nienhuys <hanwen@xs4all.nl>, Erik Sandberg <mandolaerik@gmail.com>
*/
class Percent_repeat_engraver : public Engraver
{
void typeset_perc ();
+ bool check_count_visibility (SCM count);
public:
TRANSLATOR_DECLARATIONS (Percent_repeat_engraver);
/*
don't warn about percent repeats: slash repeats are not
exactly 1 or 2 measures long.
- */
+ */
return;
}
percent_event_ = ev;
percent_->set_bound (LEFT, col);
SCM count = percent_event_->get_property ("repeat-count");
- if (count != SCM_EOL && to_boolean (get_property ("countPercentRepeats")))
+ if (count != SCM_EOL && to_boolean (get_property ("countPercentRepeats"))
+ && check_count_visibility (count))
{
percent_counter_
= make_spanner ("PercentRepeatCounter", percent_event_->self_scm ());
Item *double_percent = make_item ("DoublePercentRepeat", percent_event_->self_scm ());
SCM count = percent_event_->get_property ("repeat-count");
- if (count != SCM_EOL
- && to_boolean (get_property ("countPercentRepeats")))
+ if (count != SCM_EOL && to_boolean (get_property ("countPercentRepeats"))
+ && check_count_visibility (count))
{
Item *double_percent_counter = make_item ("DoublePercentRepeatCounter",
percent_event_->self_scm ());
}
}
+bool
+Percent_repeat_engraver::check_count_visibility (SCM count)
+{
+ SCM proc = get_property ("repeatCountVisibility");
+ return (ly_is_procedure (proc) && to_boolean (scm_call_2 (proc,
+ count,
+ context ()->self_scm ())));
+}
void
/* read */
"countPercentRepeats "
"currentCommandColumn "
- "measureLength ",
+ "measureLength "
+ "repeatCountVisibility ",
/* write */
"forbidBreak "