lily/arpeggio-engraver.cc

   1 /*
   2   arpeggio-engraver.cc -- implement Arpeggio_engraver
   3
   4   source file of the GNU LilyPond music typesetter
   5
   6   (c) 2000--2005 Jan Nieuwenhuizen <janneke@gnu.org>
   7 */
   8
   9 #include "engraver.hh"
  10
  11 #include "pointer-group-interface.hh"
  12 #include "arpeggio.hh"
  13 #include "stem.hh"
  14 #include "rhythmic-head.hh"
  15 #include "side-position-interface.hh"
  16 #include "note-column.hh"
  17
  18 #include "translator.icc"
  19
  20 class Arpeggio_engraver : public Engraver
  21 {
  22 public:
  23   TRANSLATOR_DECLARATIONS (Arpeggio_engraver);
  24
  25 protected:
  26   virtual void acknowledge_grob (Grob_info);
  27   PRECOMPUTED_VIRTUAL void process_music ();
  28   PRECOMPUTED_VIRTUAL void stop_translation_timestep ();
  29   virtual bool try_music (Music *);
  30 private:
  31   Item *arpeggio_;
  32   Music *arpeggio_event_;
  33 };
  34
  35 Arpeggio_engraver::Arpeggio_engraver ()
  36 {
  37   arpeggio_ = 0;
  38   arpeggio_event_ = 0;
  39 }
  40
  41 bool
  42 Arpeggio_engraver::try_music (Music *m)
  43 {
  44   if (!arpeggio_event_)
  45     {
  46       arpeggio_event_ = m;
  47     }
  48   return true;
  49 }
  50
  51 void
  52 Arpeggio_engraver::acknowledge_grob (Grob_info info)
  53 {
  54   if (arpeggio_)
  55     {
  56       if (Stem::has_interface (info.grob ()))
  57         {
  58           if (!arpeggio_->get_parent (Y_AXIS))
  59             arpeggio_->set_parent (info.grob (), Y_AXIS);
  60
  61           Pointer_group_interface::add_grob (arpeggio_,
  62                                              ly_symbol2scm ("stems"),
  63                                              info.grob ());
  64         }
  65
  66       /*
  67         We can't catch local key items (accidentals) from Voice context,
  68         see Local_key_engraver
  69       */
  70       else if (Rhythmic_head::has_interface (info.grob ()))
  71         {
  72           Side_position_interface::add_support (arpeggio_, info.grob ());
  73         }
  74       else if (Note_column::has_interface (info.grob ()))
  75         {
  76           info.grob ()->set_object ("arpeggio", arpeggio_->self_scm ());
  77         }
  78     }
  79 }
  80
  81 void
  82 Arpeggio_engraver::process_music ()
  83 {
  84   if (arpeggio_event_)
  85     {
  86       arpeggio_ = make_item ("Arpeggio", arpeggio_event_->self_scm ());
  87     }
  88 }
  89
  90 void
  91 Arpeggio_engraver::stop_translation_timestep ()
  92 {
  93   arpeggio_ = 0;
  94   arpeggio_event_ = 0;
  95 }
  96
  97 ADD_TRANSLATOR (Arpeggio_engraver,
  98                 /* descr */ "Generate an Arpeggio symbol",
  99                 /* creats*/ "Arpeggio",
 100                 /* accepts */ "arpeggio-event",
 101                 /* acks  */ "stem-interface rhythmic-head-interface note-column-interface",
 102                 /* reads */ "",
 103                 /* write */ "");