lily/head-engraver.cc

   1 /*
   2   head-grav.cc -- part of GNU LilyPond
   3
   4   (c)  1997--1998 Han-Wen Nienhuys <hanwen@cs.uu.nl>
   5 */
   6
   7 #include "note-head.hh"
   8 #include "head-engraver.hh"
   9 #include "paper-def.hh"
  10 #include "musical-request.hh"
  11 #include "dots.hh"
  12
  13 Note_head_engraver::Note_head_engraver()
  14 {
  15   dot_p_=0;
  16   note_p_ = 0;
  17   note_req_l_ =0;
  18 }
  19
  20 bool
  21 Note_head_engraver::do_try_request (Request *req_l)
  22 {
  23   if (note_req_l_)
  24     return false;
  25
  26   if (!(dynamic_cast <Note_req *> (req_l)))
  27     return false;
  28
  29   note_req_l_=dynamic_cast <Rhythmic_req *> (req_l);
  30   return true;
  31 }
  32
  33 void
  34 Note_head_engraver::do_process_requests()
  35 {
  36   if (!note_req_l_ || note_p_)
  37     return;
  38
  39   note_p_  = new Note_head;
  40   note_p_->balltype_i_ = note_req_l_->duration_.durlog_i_;
  41   note_p_->dots_i_ = note_req_l_->duration_.dots_i_;
  42   if (note_p_->dots_i_)
  43     {
  44       dot_p_ = new Dots;
  45       note_p_->dots_l_ = dot_p_;
  46       announce_element (Score_element_info (dot_p_,0));
  47     }
  48
  49   note_p_->position_i_ = dynamic_cast <Note_req *> (note_req_l_)->pitch_.steps ();
  50
  51
  52   Score_element_info itinf (note_p_,note_req_l_);
  53   announce_element (itinf);
  54 }
  55
  56 void
  57 Note_head_engraver::do_pre_move_processing()
  58 {
  59   if (note_p_)
  60     {
  61       typeset_element (note_p_);
  62       note_p_ = 0;
  63     }
  64   if (dot_p_)
  65     {
  66       typeset_element (dot_p_);
  67       dot_p_ =0;
  68     }
  69 }
  70 void
  71 Note_head_engraver::do_post_move_processing()
  72 {
  73   note_req_l_ = 0;
  74 }
  75
  76
  77 IMPLEMENT_IS_TYPE_B1(Note_head_engraver,Engraver);
  78 ADD_THIS_TRANSLATOR(Note_head_engraver);