lily/tie-engraver.cc

   1 /*
   2   tie-reg.cc -- implement Tie_engraver
   3
   4   source file of the GNU LilyPond music typesetter
   5
   6   (c)  1997--1998 Han-Wen Nienhuys <hanwen@cs.uu.nl>
   7
   8
   9   essentially obsolete.
  10 */
  11
  12 #include "tie-engraver.hh"
  13 #include "tie.hh"
  14 #include "note-head.hh"
  15 #include "musical-request.hh"
  16 #include "music-list.hh"
  17
  18 Tie_engraver::Tie_engraver()
  19 {
  20   end_tie_p_ = 0;
  21   tie_p_ = 0;
  22   req_l_ =0;
  23   end_req_l_ =0;
  24   end_mom_ = -1;
  25   melodic_req_l_ = 0;
  26   end_melodic_req_l_ =0;
  27   dir_ = CENTER;
  28 }
  29
  30 void
  31 Tie_engraver::do_post_move_processing()
  32 {
  33   if (tie_p_ && now_moment () == end_mom_)
  34     {
  35       end_tie_p_ = tie_p_;
  36       end_req_l_ = req_l_;
  37       end_melodic_req_l_ = melodic_req_l_;
  38       tie_p_ =0;
  39       req_l_ =0;
  40       end_mom_ = -1;
  41     }
  42 }
  43
  44 bool
  45 Tie_engraver::do_try_request (Request*r)
  46 {
  47   if (! (r->access_Musical_req () && r->access_Musical_req ()->access_Tie_req ()))
  48     return false;
  49
  50   if (req_l_)
  51     {
  52       return false;
  53     }
  54   req_l_ = r->access_Musical_req ()->access_Tie_req ();
  55   end_mom_ = r->parent_music_l_->time_int().length ()
  56     + now_moment ();
  57   return true;
  58 }
  59
  60 void
  61 Tie_engraver::do_process_requests()
  62 {
  63   Scalar dir (get_property ("tieydirection"));
  64   Scalar dir2 (get_property ("ydirection"));
  65   if (!dir.length_i () && dir2.length_i ())
  66     {
  67         dir_ = (Direction) int(dir2);
  68     }
  69   else if (dir.length_i ())
  70     dir_ = (Direction) int (dir);
  71
  72   if (req_l_ && ! tie_p_)
  73     {
  74       tie_p_ = new Tie;
  75       Scalar prop = get_property ("tiedash");
  76       if (prop.isnum_b ())
  77         tie_p_->dash_i_ = prop;
  78     }
  79 }
  80
  81 void
  82 Tie_engraver::acknowledge_element (Score_element_info i)
  83 {
  84   if (i.elem_l_->is_type_b (Note_head::static_name ()))
  85     {
  86       if (tie_p_)
  87         {
  88           tie_p_->set_head (LEFT, (Note_head*)i.elem_l_->access_Item ());
  89           melodic_req_l_ = i.req_l_->access_Musical_req ()->access_Melodic_req ();
  90         }
  91
  92       if (end_tie_p_)
  93         {
  94           end_tie_p_->set_head (RIGHT, (Note_head*)i.elem_l_->access_Item ());
  95           if (!Melodic_req::compare (*end_melodic_req_l_, *melodic_req_l_))
  96             end_tie_p_->same_pitch_b_ = true;
  97           announce_element (Score_element_info (end_tie_p_,end_req_l_));
  98         }
  99     }
 100 }
 101
 102 void
 103 Tie_engraver::do_pre_move_processing()
 104 {
 105   if (end_tie_p_)
 106     {
 107       if (dir_)
 108         end_tie_p_->dir_ =  dir_;
 109
 110       typeset_element (end_tie_p_);
 111       end_tie_p_ =0;
 112       end_req_l_ =0;
 113     }
 114 }
 115
 116 void
 117 Tie_engraver::do_removal_processing ()
 118 {
 119   do_pre_move_processing ();
 120   if (tie_p_)
 121     {
 122       req_l_->warning (_ ("lonely tie"));
 123       tie_p_->unlink ();
 124       delete tie_p_;
 125       tie_p_ =0;
 126     }
 127 }
 128
 129
 130
 131 IMPLEMENT_IS_TYPE_B1(Tie_engraver,Engraver);
 132 ADD_THIS_TRANSLATOR(Tie_engraver);