2 plet-engraver.cc -- implement Plet_engraver
4 (c) 1997--1998 Jan Nieuwenhuizen <janneke@gnu.org>
8 #include "musical-request.hh"
9 #include "plet-engraver.hh"
10 #include "plet-spanner.hh"
11 #include "text-def.hh"
13 #include "score-column.hh"
16 IMPLEMENT_IS_TYPE_B1 (Plet_engraver,Engraver);
17 ADD_THIS_TRANSLATOR (Plet_engraver);
19 Plet_engraver::Plet_engraver ()
21 beam_mom_drul_[LEFT] = span_mom_drul_[LEFT] = INT_MAX;
22 beam_mom_drul_[RIGHT] = span_mom_drul_[LEFT] = -INT_MAX;
24 span_reqs_drul_[RIGHT] = span_reqs_drul_[LEFT] = 0;
28 Plet_engraver::acknowledge_element (Score_element_info i)
30 if (!i.elem_l_->is_type_b (Stem::static_name ()))
34 if (!span_reqs_drul_[LEFT])
37 if (!plet_spanner_p_->stem_l_drul_[LEFT])
38 plet_spanner_p_->set_stem (LEFT, (Stem*)i.elem_l_->access_Item ());
40 if (span_reqs_drul_[RIGHT] && !plet_spanner_p_->stem_l_drul_[RIGHT])
41 plet_spanner_p_->set_stem (RIGHT, (Stem*)i.elem_l_->access_Item ());
45 Plet_engraver::do_try_request (Request* req_l)
47 Musical_req* mus_l = req_l->access_Musical_req ();
52 UGH! This is incorrect!
53 Beam_req might not reach the Plet_engraver if ordering is wrong!
55 Beam_req* b = mus_l->access_Beam_req ();
60 Direction d = (Direction)(((int)(b->spantype - 1)) * 2 - 1);
61 beam_mom_drul_[d] = get_staff_info ().musical_l ()->when ();
66 Plet_req* p = mus_l->access_Plet_req ();
70 if (bool (plet_spanner_p_) == bool (p->spantype == Span_req::START))
73 Direction d = (!plet_spanner_p_) ? LEFT : RIGHT;
74 if (span_reqs_drul_[d] && !span_reqs_drul_[d]->equal_b (mus_l))
77 span_reqs_drul_[d] = p;
78 span_mom_drul_[d] = get_staff_info ().musical_l ()->when ();
83 Plet_engraver::do_removal_processing ()
87 span_reqs_drul_[LEFT]->warning (_ ("unterminated plet"));
88 plet_spanner_p_->unlink ();
89 delete plet_spanner_p_;
91 span_reqs_drul_[RIGHT] = span_reqs_drul_[LEFT] = 0;
96 Plet_engraver::do_process_requests ()
98 if (plet_spanner_p_ || !span_reqs_drul_[LEFT])
101 plet_spanner_p_ = new Plet_spanner;
102 plet_spanner_p_->tdef_p_->text_str_ = to_str (span_reqs_drul_[LEFT]->plet_i_);
104 announce_element (Score_element_info (plet_spanner_p_, span_reqs_drul_[LEFT]));
108 Plet_engraver::do_pre_move_processing ()
110 if (!plet_spanner_p_ || !span_reqs_drul_[RIGHT])
113 Scalar prop = get_property ("pletvisibility");
115 plet_spanner_p_->visibility_i_ = prop;
117 if ((beam_mom_drul_[LEFT] <= span_mom_drul_[LEFT])
118 && (beam_mom_drul_[RIGHT] >= span_mom_drul_[RIGHT]))
119 plet_spanner_p_->visibility_i_ &= ~2;
121 if (plet_spanner_p_->visibility_i_)
122 typeset_element (plet_spanner_p_);
125 plet_spanner_p_->unlink ();
126 delete plet_spanner_p_;
130 span_reqs_drul_[RIGHT] = span_reqs_drul_[LEFT] = 0;