lily/rest-engraver.cc

   1 /*
   2   rest-engraver.cc -- implement Rest_engraver
   3
   4   source file of the GNU LilyPond music typesetter
   5
   6   (c) 1997--2005 Han-Wen Nienhuys <hanwen@cs.uu.nl>
   7 */
   8
   9 #include "engraver.hh"
  10
  11 #include "duration.hh"
  12 #include "item.hh"
  13 #include "staff-symbol-referencer.hh"
  14 #include "dots.hh"
  15 #include "rhythmic-head.hh"
  16 #include "music.hh"
  17
  18 class Rest_engraver : public Engraver
  19 {
  20   Music *rest_event_;
  21   Item *dot_;
  22   Grob *rest_;
  23 protected:
  24   virtual bool try_music (Music *);
  25   void start_translation_timestep ();
  26   void process_music ();
  27
  28 public:
  29   TRANSLATOR_DECLARATIONS (Rest_engraver);
  30 };
  31
  32 /*
  33   Should merge with Note_head_engraver
  34 */
  35 Rest_engraver::Rest_engraver ()
  36 {
  37   rest_event_ = 0;
  38   rest_ = 0;
  39   dot_ = 0;
  40 }
  41
  42 void
  43 Rest_engraver::start_translation_timestep ()
  44 {
  45   rest_event_ = 0;
  46   rest_ = 0;
  47   dot_ = 0;
  48 }
  49
  50 void
  51 Rest_engraver::process_music ()
  52 {
  53   if (rest_event_ && !rest_)
  54     {
  55       rest_ = make_item ("Rest", rest_event_->self_scm ());
  56
  57       int durlog = unsmob_duration (rest_event_->get_property ("duration"))->duration_log ();
  58
  59       rest_->set_property ("duration-log",
  60                            scm_from_int (durlog));
  61
  62       int dots = unsmob_duration (rest_event_->get_property ("duration"))->dot_count ();
  63
  64       if (dots)
  65         {
  66           dot_ = make_item ("Dots", SCM_EOL);
  67
  68           Rhythmic_head::set_dots (rest_, dot_);
  69           dot_->set_parent (rest_, Y_AXIS);
  70           dot_->set_property ("dot-count", scm_from_int (dots));
  71         }
  72
  73       Pitch *p = unsmob_pitch (rest_event_->get_property ("pitch"));
  74
  75       /*
  76         This is ridiculous -- rests don't have pitch, but we act as if
  77         our nose is bleeding.
  78       */
  79       if (p)
  80         {
  81           int pos = p->steps ();
  82           SCM c0 = get_property ("middleCPosition");
  83           if (scm_is_number (c0))
  84             pos += scm_to_int (c0);
  85
  86           rest_->set_property ("staff-position", scm_from_int (pos));
  87         }
  88     }
  89 }
  90
  91 bool
  92 Rest_engraver::try_music (Music *m)
  93 {
  94   if (m->is_mus_type ("rest-event"))
  95     {
  96       rest_event_ = m;
  97       return true;
  98     }
  99   return false;
 100 }
 101
 102 #include "translator.icc"
 103
 104 ADD_TRANSLATOR (Rest_engraver,
 105                 /* doc */ "",
 106                 /* create */ "Rest Dots",
 107                 /* accept */ "rest-event",
 108                 /* read */ "middleCPosition",
 109                 /* write */ "");