lily/note-name-engraver.cc

   1 /*
   2   note-name-engraver.cc --  implement Note_name_engraver
   3
   4   source file of the GNU LilyPond music typesetter
   5
   6   (c) 1999--2003 Han-Wen Nienhuys <hanwen@cs.uu.nl>
   7
   8  */
   9
  10 #include "engraver.hh"
  11 #include "event.hh"
  12 #include "item.hh"
  13
  14 class Note_name_engraver : public Engraver
  15 {
  16 public:
  17   TRANSLATOR_DECLARATIONS(Note_name_engraver);
  18
  19   Link_array<Music> reqs_;
  20   Link_array<Item> texts_;
  21   virtual bool  try_music (Music*m);
  22   virtual void process_acknowledged_grobs ();
  23   virtual void stop_translation_timestep ();
  24 };
  25
  26 bool
  27 Note_name_engraver::try_music (Music *m)
  28 {
  29   if (m->is_mus_type ("note-event"))
  30     {
  31       reqs_.push (m);
  32       return true;
  33     }
  34   return false;
  35 }
  36
  37 void
  38 Note_name_engraver::process_acknowledged_grobs ()
  39 {
  40   if (texts_.size ())
  41     return;
  42   String s ;
  43   for (int i=0; i < reqs_.size (); i++)
  44     {
  45       if (i)
  46         s += " ";
  47       s += unsmob_pitch (reqs_[i]->get_mus_property ("pitch"))->to_string ();
  48     }
  49   if (s.length ())
  50     {
  51       Item * t = new Item (get_property ("NoteName"));
  52       t->set_grob_property ("text", scm_makfrom0str (s.to_str0 ()));
  53       announce_grob(t, reqs_[0]->self_scm());
  54       texts_.push (t);
  55     }
  56 }
  57
  58 void
  59 Note_name_engraver::stop_translation_timestep ()
  60 {
  61   for (int i=0; i < texts_.size (); i++)
  62     {
  63       typeset_grob (texts_[i]);
  64     }
  65   texts_.clear () ;
  66   reqs_.clear ();
  67 }
  68
  69
  70 Note_name_engraver::Note_name_engraver()
  71 {
  72 }
  73
  74 ENTER_DESCRIPTION(Note_name_engraver,
  75 /* descr */       "",
  76 /* creats*/       "NoteName",
  77 /* accepts */     "note-event",
  78 /* acks  */      "",
  79 /* reads */       "",
  80 /* write */       "");