2 beam-engraver.cc -- implement Beam_engraver
4 source file of the GNU LilyPond music typesetter
6 (c) 1998--1999 Han-Wen Nienhuys <hanwen@cs.uu.nl>
9 #include "timing-engraver.hh"
10 #include "engraver-group-engraver.hh"
11 #include "beam-engraver.hh"
12 #include "musical-request.hh"
16 #include "time-description.hh"
18 #include "score-engraver.hh"
20 Beam_engraver::Beam_engraver ()
24 finished_beam_info_p_=0;
26 reqs_drul_[LEFT] = reqs_drul_[RIGHT] =0;
31 Beam_engraver::do_try_music (Music *m)
33 if (Span_req * c = dynamic_cast<Span_req*>(m))
35 if (c->span_type_str_ != "beam")
38 Direction d =c->span_dir_;
40 if (d == STOP && !beam_p_)
42 m->warning (_ ("no beam to end"));
53 Beam_engraver::do_process_requests ()
58 reqs_drul_[STOP]->warning (_("no beam to end"));
60 finished_beam_p_ = beam_p_;
61 finished_beam_info_p_ = beam_info_p_;
70 Score_engraver * e = 0;
71 Translator * t = daddy_grav_l ();
72 for (; !e && t; t = t->daddy_trans_l_)
74 e = dynamic_cast<Score_engraver*> (t);
78 programming_error ("No score engraver!");
83 if (reqs_drul_[START])
87 reqs_drul_[START]->warning (_ ("Already have a Beam"));
91 prev_start_req_ = reqs_drul_[START];
94 Translator * t = daddy_grav_l ()->get_simple_translator ("Timing_engraver");
95 Timing_engraver *timer = dynamic_cast<Timing_engraver*> (t);
96 beam_start_location_ = (t) ? timer->time_.whole_in_measure_ : Moment (0);
97 beam_start_mom_ = now_mom();
98 beam_info_p_ = new Beaming_info_list;
101 /* urg, must copy to Auto_beam_engraver too */
102 SCM prop = get_property ("beamslopedamping", 0);
103 if (SCM_NUMBERP(prop))
104 beam_p_->set_elt_property (damping_scm_sym, prop);
106 prop = get_property ("autoKneeGap", 0);
107 if (SCM_NUMBERP(prop))
108 beam_p_->set_elt_property (auto_knee_gap_scm_sym, prop);
110 prop = get_property ("autoInterstaffKneeGap", 0);
111 if (SCM_NUMBERP(prop))
112 beam_p_->set_elt_property (auto_interstaff_knee_gap_scm_sym, prop);
114 prop = get_property ("beamquantisation", 0);
115 if (SCM_NUMBERP(prop))
116 beam_p_->quantisation_ = (Beam::Quantisation)gh_scm2int(prop);
118 announce_element (Score_element_info (beam_p_, reqs_drul_[START]));
123 Beam_engraver::typeset_beam ()
125 if (finished_beam_p_)
127 finished_beam_info_p_->beamify ();
129 finished_beam_p_->set_beaming (finished_beam_info_p_);
130 typeset_element (finished_beam_p_);
131 delete finished_beam_info_p_;
132 finished_beam_info_p_ =0;
133 finished_beam_p_ = 0;
135 reqs_drul_[STOP] = 0;
140 Beam_engraver::do_post_move_processing ()
142 reqs_drul_ [START] =0;
146 Beam_engraver::do_pre_move_processing ()
152 Beam_engraver::do_removal_processing ()
157 prev_start_req_->warning (_ ("unfinished beam"));
158 finished_beam_p_ = beam_p_;
159 finished_beam_info_p_ = beam_info_p_;
165 Beam_engraver::acknowledge_element (Score_element_info info)
169 Stem* stem_l = dynamic_cast<Stem *> (info.elem_l_);
170 if (!stem_l || stem_l->beam_l_)
174 bool stem_grace = stem_l->get_elt_property (grace_scm_sym) != SCM_BOOL_F;
176 SCM wg =get_property ("weAreGraceContext",0);
177 bool wgb= gh_boolean_p (wg) && gh_scm2bool (wg);
179 if (wgb!= stem_grace)
182 Rhythmic_req *rhythmic_req = dynamic_cast <Rhythmic_req *> (info.req_l_);
185 String s = _ ("Stem must have Rhythmic structure");
187 info.req_l_->warning (s);
194 if (rhythmic_req->duration_.durlog_i_<= 2)
196 rhythmic_req->warning (_ ("Stem doesn't fit in beam"));
197 prev_start_req_->warning (_ ("Beam was started here"));
201 stem_l->flag_i_ = rhythmic_req->duration_.durlog_i_;
202 Moment stem_location = now_mom () - beam_start_mom_ + beam_start_location_;
203 beam_info_p_->add_stem (stem_location, rhythmic_req->duration_.durlog_i_ - 2);
204 beam_p_->add_stem (stem_l);
210 ADD_THIS_TRANSLATOR(Beam_engraver);