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 (!(req_l->access_Musical_req () && req_l->access_Musical_req ()->access_Note_req ()))
  27
  28     return false;
  29
  30   note_req_l_=req_l->access_Musical_req ()->access_Rhythmic_req ();
  31   return true;
  32 }
  33
  34 void
  35 Note_head_engraver::do_process_requests()
  36 {
  37   if (!note_req_l_ || note_p_)
  38     return;
  39
  40   note_p_  = new Note_head;
  41   note_p_->balltype_i_ = note_req_l_->duration_.durlog_i_;
  42   note_p_->dots_i_ = note_req_l_->duration_.dots_i_;
  43   if (note_p_->dots_i_)
  44     {
  45       dot_p_ = new Dots;
  46       note_p_->dots_l_ = dot_p_;
  47       announce_element (Score_element_info (dot_p_,0));
  48     }
  49
  50   note_p_->position_i_ = note_req_l_->access_Note_req ()->pitch_.steps ();
  51
  52
  53   Score_element_info itinf (note_p_,note_req_l_);
  54   announce_element (itinf);
  55 }
  56
  57 void
  58 Note_head_engraver::do_pre_move_processing()
  59 {
  60   if (note_p_)
  61     {
  62       typeset_element (note_p_);
  63       note_p_ = 0;
  64     }
  65   if (dot_p_)
  66     {
  67       typeset_element (dot_p_);
  68       dot_p_ =0;
  69     }
  70 }
  71 void
  72 Note_head_engraver::do_post_move_processing()
  73 {
  74   note_req_l_ = 0;
  75 }
  76
  77
  78 IMPLEMENT_IS_TYPE_B1(Note_head_engraver,Engraver);
  79 ADD_THIS_TRANSLATOR(Note_head_engraver);