lily/rest-engraver.cc

   1 /*
   2   rest-grav.cc -- implement Rest_engraver
   3
   4   source file of the GNU LilyPond music typesetter
   5
   6   (c)  1997--1999 Han-Wen Nienhuys <hanwen@cs.uu.nl>
   7 */
   8
   9 #include "rest-engraver.hh"
  10 #include "musical-request.hh"
  11 #include "dots.hh"
  12 #include "rest.hh"
  13 /*
  14   Should merge with Note_head_engraver
  15  */
  16 Rest_engraver::Rest_engraver ()
  17 {
  18   rest_req_l_ =0;
  19   rest_p_ =0;
  20   dot_p_ =0;
  21 }
  22
  23 void
  24 Rest_engraver::do_post_move_processing ()
  25 {
  26   rest_req_l_ =0;
  27 }
  28
  29 void
  30 Rest_engraver::do_pre_move_processing ()
  31 {
  32   if (rest_p_)
  33     {
  34       typeset_element (rest_p_);
  35       rest_p_ =0;
  36     }
  37   if (dot_p_)
  38     {
  39       typeset_element (dot_p_);
  40       dot_p_ =0;
  41     }
  42 }
  43
  44 void
  45 Rest_engraver::do_process_requests ()
  46 {
  47   if (rest_req_l_ && !rest_p_)
  48     {
  49       rest_p_ = new Rest;
  50       rest_p_->balltype_i_ = rest_req_l_->duration_.durlog_i_;
  51       rest_p_->dots_i_ = rest_req_l_->duration_.dots_i_;
  52       if (rest_p_->dots_i_)
  53         {
  54           dot_p_ = new Dots;
  55           rest_p_->dots_l_  =dot_p_;
  56           announce_element (Score_element_info (dot_p_,0));
  57         }
  58       if (rest_p_->balltype_i_ >= 2)
  59         {
  60           String reststyle = get_property ("restStyle", 0);
  61           if (reststyle.length_i ())
  62             rest_p_->set_elt_property (style_scm_sym,
  63                                        gh_str02scm (reststyle.ch_C()));
  64         }
  65       announce_element (Score_element_info (rest_p_, rest_req_l_));
  66     }
  67 }
  68
  69 bool
  70 Rest_engraver::do_try_music (Music *req)
  71 {
  72   if (Rest_req *r = dynamic_cast <Rest_req *> (req))
  73     {
  74       rest_req_l_ = r;
  75       return true;
  76     }
  77   return false;
  78 }
  79
  80
  81 ADD_THIS_TRANSLATOR(Rest_engraver);