lily/plet-engraver.cc

   1 /*
   2   plet-engraver.cc -- implement Plet_engraver
   3
   4   (c)  1997--1998 Jan Nieuwenhuizen <jan@digicash.com>
   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_elem_info i)
  29 {
  30   if (!i.elem_l_->is_type_b (Stem::static_name ()))
  31     return;
  32   if (!plet_spanner_p_)
  33     return;
  34   if (!span_reqs_drul_[LEFT])
  35     return;
  36
  37   if (!plet_spanner_p_->stem_l_drul_[LEFT])
  38     plet_spanner_p_->set_stem (LEFT, (Stem*)i.elem_l_->item ());
  39   else
  40     if (span_reqs_drul_[RIGHT] && !plet_spanner_p_->stem_l_drul_[RIGHT])
  41       plet_spanner_p_->set_stem (RIGHT, (Stem*)i.elem_l_->item());
  42 }
  43
  44 bool
  45 Plet_engraver::do_try_request (Request* req_l)
  46 {
  47   Musical_req* mus_l = req_l->musical ();
  48   if (!mus_l)
  49     return false;
  50
  51   Beam_req* b = mus_l->beam ();
  52   if (b)
  53     {
  54       if (b->spantype)
  55         {
  56           Direction d = (Direction)(((int)(b->spantype - 1)) * 2 - 1);
  57           beam_mom_drul_[d] = get_staff_info ().musical_l ()->when ();
  58         }
  59       return false;
  60     }
  61
  62   Plet_req* p = mus_l->plet ();
  63   if (!p)
  64     return false;
  65
  66   if (bool (plet_spanner_p_) == bool (p->spantype == Span_req::START))
  67     return false;
  68
  69   Direction d = (!plet_spanner_p_) ? LEFT : RIGHT;
  70   if (span_reqs_drul_[d] && !span_reqs_drul_[d]->equal_b (mus_l))
  71     return false;
  72
  73   span_reqs_drul_[d] = p;
  74   span_mom_drul_[d] = get_staff_info ().musical_l ()->when ();
  75   return true;
  76 }
  77
  78 void
  79 Plet_engraver::do_removal_processing ()
  80 {
  81   if (plet_spanner_p_)
  82     {
  83       span_reqs_drul_[LEFT]->warning (_("unterminated plet"));
  84       plet_spanner_p_->unlink ();
  85       delete plet_spanner_p_;
  86       plet_spanner_p_ = 0;
  87       span_reqs_drul_[RIGHT] = span_reqs_drul_[LEFT] = 0;
  88     }
  89 }
  90
  91 void
  92 Plet_engraver::do_process_requests ()
  93 {
  94   if (plet_spanner_p_ || !span_reqs_drul_[LEFT])
  95     return;
  96
  97   plet_spanner_p_ = new Plet_spanner;
  98   plet_spanner_p_->tdef_p_->text_str_ = span_reqs_drul_[LEFT]->plet_i_;
  99
 100   announce_element (Score_elem_info (plet_spanner_p_, span_reqs_drul_[LEFT]));
 101 }
 102
 103 void
 104 Plet_engraver::do_pre_move_processing ()
 105 {
 106   if (!plet_spanner_p_ || !span_reqs_drul_[RIGHT])
 107     return;
 108
 109   Scalar prop = get_property ("pletvisibility");
 110   if (prop.isnum_b ())
 111     plet_spanner_p_->visibility_i_ = prop;
 112
 113   if ((beam_mom_drul_[LEFT] <= span_mom_drul_[LEFT])
 114      && (beam_mom_drul_[RIGHT] >= span_mom_drul_[RIGHT]))
 115      plet_spanner_p_->visibility_i_ &= ~2;
 116
 117   if (plet_spanner_p_->visibility_i_)
 118     typeset_element (plet_spanner_p_);
 119   else
 120     plet_spanner_p_->unlink ();
 121
 122   plet_spanner_p_ = 0;
 123   span_reqs_drul_[RIGHT] = span_reqs_drul_[LEFT] = 0;
 124 }
 125