2 chord-tremolo-engraver.cc -- implement Chord_tremolo_engraver
4 source file of the GNU LilyPond music typesetter
6 (c) 1997--2000 Han-Wen Nienhuys <hanwen@cs.uu.nl>
7 Jan Nieuwenhuizen <janneke@gnu.org>
10 #include "timing-translator.hh"
13 #include "musical-request.hh"
16 #include "score-engraver.hh"
17 #include "engraver.hh"
18 #include "drul-array.hh"
19 #include "timing-engraver.hh"
23 Generate a beam tremolo. Eat stems.
25 UGH. Derive me from Beam_engraver.
28 class Chord_tremolo_engraver : public Engraver
31 VIRTUAL_COPY_CONS(Translator);
34 Chord_tremolo_engraver();
37 virtual void do_removal_processing();
38 virtual void do_process_music();
39 virtual bool do_try_music (Music*);
40 virtual void acknowledge_element (Score_element_info);
41 virtual void do_pre_move_processing();
42 virtual void do_post_move_processing();
46 Drul_array<Chord_tremolo_req*> reqs_drul_;
47 Chord_tremolo_req* prev_start_req_;
49 Beam* finished_beam_p_;
51 /// location within measure where beam started.
52 Moment beam_start_location_;
54 /// moment (global time) where beam started.
55 Moment beam_start_mom_;
56 Beaming_info_list * beam_info_p_;
57 Beaming_info_list * finished_beam_info_p_;
60 ADD_THIS_TRANSLATOR (Chord_tremolo_engraver);
62 Chord_tremolo_engraver::Chord_tremolo_engraver ()
64 reqs_drul_[LEFT] = reqs_drul_[RIGHT] = 0;
68 finished_beam_info_p_=0;
73 Chord_tremolo_engraver::do_try_music (Music* m)
75 if (Chord_tremolo_req* b = dynamic_cast <Chord_tremolo_req *> (m))
77 Direction d = b->span_dir_;
78 if (reqs_drul_[d] && !reqs_drul_[d]->equal_b (b))
81 if ((d == STOP) && !beam_p_)
83 m->warning (_ ("can't find start of chord tremolo"));
95 Chord_tremolo_engraver::do_process_music ()
100 reqs_drul_[STOP]->warning (_ ("can't find start of chord tremolo"));
104 finished_beam_p_ = beam_p_;
107 finished_beam_info_p_ = beam_info_p_;
113 Score_engraver * e = 0;
114 Translator * t = daddy_grav_l ();
115 for (; !e && t; t = t->daddy_trans_l_)
117 e = dynamic_cast<Score_engraver*> (t);
121 programming_error ("No score engraver!");
126 if (reqs_drul_[START])
130 reqs_drul_[START]->warning (_ ("already have a chord tremolo"));
134 prev_start_req_ = reqs_drul_[START];
137 beam_p_->set_elt_property ("chord-tremolo", SCM_BOOL_T);
138 Translator * t = daddy_grav_l ()->get_simple_translator ("Timing_engraver");
139 Timing_engraver *timer = dynamic_cast<Timing_engraver*> (t);
140 beam_start_location_ = (t) ? timer->measure_position () : Moment (0);
141 beam_start_mom_ = now_mom();
142 beam_info_p_ = new Beaming_info_list;
144 announce_element (Score_element_info (beam_p_, reqs_drul_[LEFT]));
149 Chord_tremolo_engraver::do_post_move_processing ()
151 reqs_drul_ [START] = 0;
156 Chord_tremolo_engraver::do_pre_move_processing ()
162 Chord_tremolo_engraver::typeset_beam ()
164 if (finished_beam_p_)
166 finished_beam_info_p_->beamify ();
167 finished_beam_p_->set_beaming (finished_beam_info_p_);
168 typeset_element (finished_beam_p_);
169 finished_beam_p_ = 0;
170 delete finished_beam_info_p_;
171 finished_beam_info_p_ =0;
173 reqs_drul_[STOP] = 0;
178 Chord_tremolo_engraver::do_removal_processing ()
183 prev_start_req_->warning (_ ("unterminated chord tremolo"));
184 finished_beam_p_ = beam_p_;
185 finished_beam_info_p_ = beam_info_p_;
191 Chord_tremolo_engraver::acknowledge_element (Score_element_info info)
195 if (Stem* s = dynamic_cast<Stem *> (info.elem_l_))
197 int type_i = prev_start_req_->type_i_;
198 s->set_elt_property ("duration-log", gh_int2scm (intlog2 (type_i) - 2));
200 s->set_beaming (s->flag_i (), LEFT);
201 s->set_beaming ( s->flag_i (), RIGHT);
204 URG: this sets the direction of the Stem s.
207 Stem:: type_i () ->first_head ()->get_direction () ->
208 directional_element (me).set (d);
211 SCM d = s->get_elt_property ("direction");
212 if (s->type_i () != 1)
214 int gap_i =s->flag_i () - ((s->type_i () >? 2) - 2);
215 beam_p_->set_elt_property ("beam-gap", gh_int2scm(gap_i));
217 s->set_elt_property ("direction", d);
219 if (Rhythmic_req* r = dynamic_cast <Rhythmic_req *> (info.req_l_))
221 beam_p_->add_stem (s);
222 Moment stem_location = now_mom () -
223 beam_start_mom_ + beam_start_location_;
224 beam_info_p_->add_stem (stem_location,
225 (r->duration_.durlog_i_ - 2) >? 1);
229 String s = _ ("stem must have Rhythmic structure");
231 info.req_l_->warning (s);