2 new-chord-tremolo-engraver.cc -- implement Chord_tremolo_engraver
4 source file of the GNU LilyPond music typesetter
6 (c) 2000--2004 Han-Wen Nienhuys <hanwen@cs.uu.nl>
10 #include "engraver.hh"
11 #include "repeated-music.hh"
12 #include "engraver-group-engraver.hh"
13 #include "global-context.hh"
18 #include "percent-repeat-iterator.hh"
19 #include "bar-line.hh"
21 #include "score-engraver.hh"
26 This acknowledges repeated music with "percent" style. It typesets
31 - BEAT case: Create items for single beat repeats, i.e. c4 / / /
33 - DOUBLE_MEASURE case: attach a % to an appropriate barline.
36 class Percent_repeat_engraver : public Engraver
40 TRANSLATOR_DECLARATIONS (Percent_repeat_engraver);
42 Repeated_music * repeat_;
44 /// moment (global time) where beam started.
48 /// location within measure where beam started.
49 Moment beam_start_location_;
59 Item * double_percent_;
61 Spanner * finished_perc_;
63 virtual void finalize ();
64 virtual bool try_music (Music*);
65 virtual void stop_translation_timestep ();
66 virtual void start_translation_timestep ();
67 virtual void process_music ();
70 Percent_repeat_engraver::Percent_repeat_engraver ()
80 Percent_repeat_engraver::try_music (Music * m)
82 Repeated_music * rp = dynamic_cast<Repeated_music*> (m);
84 && rp->get_property ("iterator-ctor")
85 == Percent_repeat_iterator::constructor_proc
88 body_length_ = rp->body_get_length ();
89 int count = rp->repeat_count ();
91 Moment now = now_mom ();
93 stop_mom_ = start_mom_ + Moment (count) * body_length_;
94 next_moment_ = start_mom_ + body_length_;
96 SCM m = get_property ("measureLength");
98 if (unsmob_moment (m))
99 meas_len = *unsmob_moment (m);
101 if (meas_len == body_length_)
102 repeat_sign_type_ = MEASURE;
103 else if (Moment (2)* meas_len == body_length_)
105 repeat_sign_type_ = DOUBLE_MEASURE;
106 next_moment_ += meas_len ;
110 warning (_ ("Don't know how to handle a percent repeat of this length."));
117 Global_context *global = get_global_context ();
118 for (int i = 0; i < count; i++)
119 global->add_moment_to_process (next_moment_ + Moment (i) * body_length_);
128 Percent_repeat_engraver::process_music ()
130 if (repeat_ && now_mom () == next_moment_)
132 if (repeat_sign_type_ == MEASURE)
134 finished_perc_ = perc_;
136 perc_ = make_spanner ("PercentRepeat", repeat_->self_scm ());
137 SCM col =get_property ("currentCommandColumn");
138 perc_->set_bound (LEFT, unsmob_grob (col));
140 else if (repeat_sign_type_ == DOUBLE_MEASURE)
142 double_percent_ = make_item ("DoublePercentRepeat", repeat_->self_scm ());
144 forbid breaks on a % line. Should forbid all breaks, really.
147 get_score_engraver ()->forbid_breaks (); // guh. Use properties!
149 next_moment_ = next_moment_ + body_length_;
151 get_global_context ()->add_moment_to_process (next_moment_);
156 Percent_repeat_engraver::finalize ()
161 repeat_->origin ()->warning (_ ("unterminated percent repeat"));
167 Percent_repeat_engraver::typeset_perc ()
171 SCM col =get_property ("currentCommandColumn");
172 finished_perc_->set_bound (RIGHT, unsmob_grob (col));
173 typeset_grob (finished_perc_);
179 typeset_grob (double_percent_);
188 Percent_repeat_engraver::start_translation_timestep ()
190 if (stop_mom_ == now_mom ())
194 finished_perc_ = perc_;
199 repeat_sign_type_ = UNKNOWN;
205 Percent_repeat_engraver::stop_translation_timestep ()
213 ENTER_DESCRIPTION (Percent_repeat_engraver,
214 /* descr */ "Make whole bar and double bar repeats.",
215 /* creats*/ "PercentRepeat DoublePercentRepeat",
216 /* accepts */ "repeated-music",
218 /* reads */ "measureLength currentCommandColumn",