lily/tie-reg.cc

   1 /*
   2   tie-reg.cc -- implement Tie_register
   3
   4   source file of the LilyPond music typesetter
   5
   6   (c) 1997 Han-Wen Nienhuys <hanwen@stack.nl>
   7 */
   8
   9 #include "tie-reg.hh"
  10 #include "tie.hh"
  11 #include "notehead.hh"
  12 #include "musical-request.hh"
  13 #include "voice-element.hh"
  14
  15 Tie_register::Tie_register()
  16 {
  17     end_tie_p_ = 0;
  18     tie_p_ = 0;
  19     req_l_ =0;
  20     end_req_l_ =0;
  21     end_mom_ = -1;
  22 }
  23
  24 void
  25 Tie_register::sync_features()
  26 {
  27     dir_i_ = get_feature("vdir");
  28 }
  29
  30
  31 void
  32 Tie_register::post_move_processing()
  33 {
  34     if (tie_p_ && get_staff_info().when() == end_mom_) {
  35         end_tie_p_ = tie_p_;
  36         end_req_l_ = req_l_;
  37         tie_p_ =0;
  38         req_l_ =0;
  39         end_mom_ = -1;
  40     }
  41 }
  42
  43 bool
  44 Tie_register::acceptable_request_b(Request*r)
  45 {
  46     return r->musical() && r->musical()->tie();
  47 }
  48
  49 bool
  50 Tie_register::try_request(Request*r)
  51 {
  52     if(!acceptable_request_b(r))
  53         return false;
  54     if (req_l_ ) {
  55         return false;
  56     }
  57     req_l_ = r->musical()->tie();
  58     end_mom_ = r->elt_l_->duration_ + get_staff_info().when();
  59     return true;
  60 }
  61
  62 void
  63 Tie_register::process_requests()
  64 {
  65     if (req_l_ && ! tie_p_) {
  66         tie_p_ = new Tie;
  67     }
  68 }
  69
  70 void
  71 Tie_register::acknowledge_element(Staff_elem_info i)
  72 {
  73     if (i.elem_l_->name() == Notehead::static_name()) {
  74         if (tie_p_)
  75             tie_p_->set_head(-1, (Notehead*)i.elem_l_);
  76
  77         if (end_tie_p_) {
  78             end_tie_p_->set_head(1, (Notehead*)i.elem_l_);
  79             announce_element(Staff_elem_info(end_tie_p_,end_req_l_));
  80         }
  81     }
  82 }
  83
  84 void
  85 Tie_register::pre_move_processing()
  86 {
  87     if (end_tie_p_) {
  88         if (dir_i_)
  89             end_tie_p_->dir_i_ =  dir_i_;
  90
  91         typeset_element(end_tie_p_);
  92         end_tie_p_ =0;
  93         end_req_l_ =0;
  94     }
  95
  96 }
  97
  98 Tie_register::~Tie_register()
  99 {
 100     if (tie_p_) {
 101         req_l_->warning("unended Tie");
 102         delete tie_p_;
 103     }
 104 }
 105
 106 void
 107 Tie_register::set_feature(Feature f)
 108 {
 109     if (f.type_ == "vdir")
 110         dir_i_ = f.value_;
 111 }
 112
 113 IMPLEMENT_STATIC_NAME(Tie_register);
 114 ADD_THIS_REGISTER(Tie_register);