2 multi_measure_rest-engraver.cc -- implement Multi_measure_rest_engraver
4 (c) 1998--2000 Jan Nieuwenhuizen <janneke@gnu.org>
5 Han-Wen Nienhuys <hanwen@cs.uu.nl>
8 #include "musical-request.hh"
9 #include "multi-measure-rest.hh"
10 #include "paper-column.hh"
11 #include "engraver-group-engraver.hh"
13 #include "staff-symbol-referencer.hh"
14 #include "engraver.hh"
19 The name says it all: make multi measure rests
21 FIXME? The MM rest engraver must be able to see bar lines, so it won't
22 work at Voice level. Not a problem in practice, but aesthetically pleasing?
25 class Multi_measure_rest_engraver : public Engraver
28 VIRTUAL_COPY_CONS(Translator);
29 Multi_measure_rest_engraver ();
32 virtual void acknowledge_grob (Grob_info i);
33 virtual bool try_music (Music*);
34 virtual void process_music ();
35 virtual void stop_translation_timestep ();
36 virtual void start_translation_timestep ();
37 virtual void finalize ();
38 virtual void create_grobs ();
41 Span_req * new_req_l_;
42 Span_req * busy_span_req_l_;
43 Span_req * stop_req_l_;
51 ADD_THIS_TRANSLATOR (Multi_measure_rest_engraver);
53 Multi_measure_rest_engraver::Multi_measure_rest_engraver ()
56 mmrest_p_ = lastrest_p_ =0;
57 new_req_l_ = busy_span_req_l_ = stop_req_l_ =0;
61 Multi_measure_rest_engraver::acknowledge_grob (Grob_info i)
63 Item * item = dynamic_cast<Item*> (i.elem_l_);
64 if (item && Bar::has_interface (item))
67 Multi_measure_rest::add_column (mmrest_p_,item);
69 Multi_measure_rest::add_column (lastrest_p_,item);
74 Multi_measure_rest_engraver::try_music (Music* req_l)
76 if (Span_req * sp = dynamic_cast<Span_req*> (req_l))
79 if (scm_equal_p (sp->get_mus_property ("span-type"),
80 ly_str02scm ("rest")) == SCM_BOOL_T)
82 if (sp->get_span_dir() == STOP)
86 else if (sp->get_span_dir() == START && !new_req_l_)
97 Multi_measure_rest_engraver::process_music ()
99 if (new_req_l_ && stop_req_l_)
103 start_moment_ = now_mom ();
113 busy_span_req_l_ = new_req_l_;
120 Multi_measure_rest_engraver::create_grobs ()
123 if (busy_span_req_l_ && !mmrest_p_)
125 mmrest_p_ = new Spanner (get_property ("MultiMeasureRest"));
127 Multi_measure_rest::set_interface (mmrest_p_);
128 Staff_symbol_referencer::set_interface (mmrest_p_);
130 announce_grob (mmrest_p_, busy_span_req_l_);
132 = gh_scm2int (get_property ("currentBarNumber"));
137 Multi_measure_rest_engraver::stop_translation_timestep ()
139 SCM smp = get_property ("measurePosition");
140 Moment mp = (unsmob_moment (smp)) ? *unsmob_moment (smp) : Moment (0);
142 if (mmrest_p_ && (now_mom () >= start_moment_)
144 && (scm_ilength (mmrest_p_->get_grob_property ("columns")) >= 2))
146 typeset_grob (mmrest_p_);
148 we must keep mmrest_p_ around to set measure-count.
153 typeset_grob (lastrest_p_);
159 busy_span_req_l_ = new_req_l_;
166 Multi_measure_rest_engraver::start_translation_timestep ()
168 SCM smp = get_property ("measurePosition");
169 Moment mp = (unsmob_moment (smp)) ? *unsmob_moment (smp) : Moment (0);
171 if (mmrest_p_ && !mp)
173 lastrest_p_ = mmrest_p_;
174 int cur = gh_scm2int (get_property ("currentBarNumber"));
175 lastrest_p_->set_grob_property ("measure-count",
176 gh_int2scm (cur - start_measure_i_));
183 Multi_measure_rest_engraver::finalize ()
186 typeset_grob (mmrest_p_);
188 typeset_grob (lastrest_p_);