2 plet-engraver.cc -- implement Plet_engraver
4 (c) 1997 Jan Nieuwenhuizen <jan@digicash.com>
8 #include "musical-request.hh"
9 #include "plet-engraver.hh"
10 #include "plet-spanner.hh"
11 #include "text-def.hh"
14 IMPLEMENT_IS_TYPE_B1 (Plet_engraver,Engraver);
15 ADD_THIS_TRANSLATOR (Plet_engraver);
17 Plet_engraver::Plet_engraver ()
20 span_reqs_drul_[RIGHT] = span_reqs_drul_[LEFT] = 0;
24 Plet_engraver::acknowledge_element (Score_elem_info i)
26 if (!i.elem_l_->is_type_b (Stem::static_name ()))
30 if (!span_reqs_drul_[LEFT])
33 if (!plet_spanner_p_->stem_l_drul_[LEFT])
34 plet_spanner_p_->set_stem (LEFT, (Stem*)i.elem_l_->item ());
36 if (span_reqs_drul_[RIGHT] && !plet_spanner_p_->stem_l_drul_[RIGHT])
37 plet_spanner_p_->set_stem (RIGHT, (Stem*)i.elem_l_->item());
41 Plet_engraver::do_try_request (Request* req_l)
43 Musical_req* mus_l = req_l->musical ();
47 Plet_req* p = mus_l->plet ();
51 if (bool (plet_spanner_p_) == bool (p->spantype == Span_req::START))
54 Direction d = (!plet_spanner_p_) ? LEFT : RIGHT;
55 if (span_reqs_drul_[d] && !span_reqs_drul_[d]->equal_b (mus_l))
58 span_reqs_drul_[d] = p;
63 Plet_engraver::do_removal_processing ()
67 span_reqs_drul_[LEFT]->warning (_("unterminated plet"));
68 typeset_element (plet_spanner_p_);
74 Plet_engraver::do_process_requests ()
76 if (plet_spanner_p_ || !span_reqs_drul_[LEFT])
79 plet_spanner_p_ = new Plet_spanner;
80 plet_spanner_p_->tdef_p_->text_str_ = span_reqs_drul_[LEFT]->plet_i_;
82 announce_element (Score_elem_info (plet_spanner_p_, span_reqs_drul_[LEFT]));
86 Plet_engraver::do_pre_move_processing ()
88 if (!plet_spanner_p_ || !span_reqs_drul_[RIGHT])
91 typeset_element (plet_spanner_p_);
93 span_reqs_drul_[RIGHT] = span_reqs_drul_[LEFT] = 0;