lily/plet-engraver.cc

   1 /*
   2   plet-engraver.cc -- implement Plet_engraver
   3
   4   (c)  1997--1998 Jan Nieuwenhuizen <janneke@gnu.org>
   5 */
   6
   7 #include "proto.hh"
   8 #include "musical-request.hh"
   9 #include "plet-engraver.hh"
  10 #include "plet-spanner.hh"
  11 #include "text-def.hh"
  12 #include "beam.hh"
  13 #include "score-column.hh"
  14 #include "stem.hh"
  15
  16 IMPLEMENT_IS_TYPE_B1 (Plet_engraver,Engraver);
  17 ADD_THIS_TRANSLATOR (Plet_engraver);
  18
  19 Plet_engraver::Plet_engraver ()
  20 {
  21   beam_mom_drul_[LEFT] = span_mom_drul_[LEFT] = INT_MAX;
  22   beam_mom_drul_[RIGHT] = span_mom_drul_[LEFT] = -INT_MAX;
  23   plet_spanner_p_ = 0;
  24   span_reqs_drul_[RIGHT] = span_reqs_drul_[LEFT] = 0;
  25 }
  26
  27 void
  28 Plet_engraver::acknowledge_element (Score_element_info i)
  29 {
  30
  31   Stem * st = (dynamic_cast<Stem *> (i.elem_l_));
  32   if (!st)
  33     return;
  34   if (!plet_spanner_p_)
  35     return;
  36   if (!span_reqs_drul_[LEFT])
  37     return;
  38
  39   if (!plet_spanner_p_->stem_l_drul_[LEFT])
  40     plet_spanner_p_->set_stem (LEFT, st);
  41   else
  42     if (span_reqs_drul_[RIGHT] && !plet_spanner_p_->stem_l_drul_[RIGHT])
  43       plet_spanner_p_->set_stem (RIGHT, st);
  44 }
  45
  46 bool
  47 Plet_engraver::do_try_request (Request* req_l)
  48 {
  49   Musical_req* mus_l = dynamic_cast <Musical_req *> (req_l);
  50   if (!mus_l)
  51     return false;
  52
  53   /*
  54     UGH! This is incorrect!
  55     Beam_req might not reach the Plet_engraver if ordering is wrong!
  56    */
  57   Beam_req* b = dynamic_cast <Beam_req *> (mus_l);
  58   if (b)
  59     {
  60       if (b->spantype)
  61         {
  62           Direction d = (Direction)(((int)(b->spantype - 1)) * 2 - 1);
  63           beam_mom_drul_[d] = get_staff_info ().musical_l ()->when ();
  64         }
  65       return false;
  66     }
  67
  68   Plet_req* p = dynamic_cast <Plet_req *> (mus_l);
  69   if (!p)
  70     return false;
  71
  72   if (bool (plet_spanner_p_) == bool (p->spantype == Span_req::START))
  73     return false;
  74
  75   Direction d = (!plet_spanner_p_) ? LEFT : RIGHT;
  76   if (span_reqs_drul_[d] && !span_reqs_drul_[d]->equal_b (mus_l))
  77     return false;
  78
  79   span_reqs_drul_[d] = p;
  80   span_mom_drul_[d] = get_staff_info ().musical_l ()->when ();
  81   return true;
  82 }
  83
  84 void
  85 Plet_engraver::do_removal_processing ()
  86 {
  87   if (plet_spanner_p_)
  88     {
  89       span_reqs_drul_[LEFT]->warning (_ ("unterminated plet"));
  90       plet_spanner_p_->unlink ();
  91       delete plet_spanner_p_;
  92       plet_spanner_p_ = 0;
  93       span_reqs_drul_[RIGHT] = span_reqs_drul_[LEFT] = 0;
  94     }
  95 }
  96
  97 void
  98 Plet_engraver::do_process_requests ()
  99 {
 100   if (plet_spanner_p_ || !span_reqs_drul_[LEFT])
 101     return;
 102
 103   plet_spanner_p_ = new Plet_spanner;
 104   plet_spanner_p_->tdef_p_->text_str_ = to_str (span_reqs_drul_[LEFT]->plet_i_);
 105
 106   announce_element (Score_element_info (plet_spanner_p_, span_reqs_drul_[LEFT]));
 107 }
 108
 109 void
 110 Plet_engraver::do_pre_move_processing ()
 111 {
 112   if (!plet_spanner_p_ || !span_reqs_drul_[RIGHT])
 113     return;
 114
 115   Scalar prop = get_property ("pletvisibility");
 116   if (prop.isnum_b ())
 117     plet_spanner_p_->visibility_i_ = prop;
 118
 119   if ((beam_mom_drul_[LEFT] <= span_mom_drul_[LEFT])
 120      && (beam_mom_drul_[RIGHT] >= span_mom_drul_[RIGHT]))
 121      plet_spanner_p_->visibility_i_ &= ~2;
 122
 123   if (plet_spanner_p_->visibility_i_)
 124     typeset_element (plet_spanner_p_);
 125   else
 126     {
 127       plet_spanner_p_->unlink ();
 128       delete plet_spanner_p_;
 129     }
 130
 131   plet_spanner_p_ = 0;
 132   span_reqs_drul_[RIGHT] = span_reqs_drul_[LEFT] = 0;
 133 }
 134