lily/extender-engraver.cc

   1 /*
   2   extender-engraver.cc -- implement Extender_engraver
   3
   4   (c) 1999 Glen Prideaux <glenprideaux@iname.com>,
   5   Han-Wen Nienhuys, Jan Nieuwenhuizen.
   6
   7 */
   8
   9 #include "flower-proto.hh"
  10 #include "musical-request.hh"
  11 #include "lyric-extender.hh"
  12 #include "paper-column.hh"
  13 #include "item.hh"
  14 #include "engraver.hh"
  15 #include "drul-array.hh"
  16 #include "lyric-extender.hh"
  17 #include "pqueue.hh"
  18
  19
  20 /**
  21   Generate an centred extender.  Should make a Extender_spanner that
  22   typesets a nice centred extender of varying length depending on the
  23   gap between syllables.
  24
  25   We remember the last Item that come across. When we get a
  26   request, we create the spanner, and attach the left point to the
  27   last lyrics, and the right point to any lyrics we receive by
  28   then.  */
  29 class Extender_engraver : public Engraver
  30 {
  31   Grob *last_lyric_l_;
  32   Grob *current_lyric_l_;
  33   Extender_req* req_l_;
  34   Spanner* extender_p_;
  35 public:
  36   Extender_engraver ();
  37   VIRTUAL_COPY_CONS (Translator);
  38
  39 protected:
  40   virtual void acknowledge_grob (Grob_info);
  41   virtual void do_removal_processing();
  42   void deprecated_process_music();
  43   virtual bool try_music (Music*);
  44   virtual void stop_translation_timestep();
  45   virtual void start_translation_timestep ();
  46   virtual void create_grobs ();
  47 private:
  48
  49 };
  50
  51
  52 ADD_THIS_TRANSLATOR (Extender_engraver);
  53
  54 Extender_engraver::Extender_engraver ()
  55 {
  56   current_lyric_l_ = 0;
  57   last_lyric_l_ = 0;
  58   extender_p_ = 0;
  59   req_l_ = 0;
  60 }
  61
  62 void
  63 Extender_engraver::acknowledge_grob (Grob_info i)
  64 {
  65   // -> text_item
  66   if (i.elem_l_->has_interface (ly_symbol2scm("text-item-interface")))
  67
  68     {
  69       current_lyric_l_ = i.elem_l_;
  70       if (extender_p_
  71           && !extender_p_->get_bound (RIGHT)
  72             )
  73           {
  74             Lyric_extender(extender_p_).set_textitem (RIGHT, dynamic_cast<Item*> (i.elem_l_));
  75           }
  76     }
  77 }
  78
  79
  80 bool
  81 Extender_engraver::try_music (Music* r)
  82 {
  83   if (Extender_req* p = dynamic_cast <Extender_req *> (r))
  84     {
  85       if (req_l_)
  86         return false;
  87
  88       req_l_ = p;
  89       return true;
  90     }
  91   return false;
  92 }
  93
  94 void
  95 Extender_engraver::do_removal_processing ()
  96 {
  97   if (extender_p_)
  98     {
  99       req_l_->origin ()->warning (_ ("unterminated extender"));
 100       extender_p_->set_bound(RIGHT, unsmob_element (get_property ("currentCommandColumn")));
 101     }
 102 }
 103
 104 void
 105 Extender_engraver::create_grobs ()
 106 {
 107   deprecated_process_music ();
 108 }
 109
 110 void
 111 Extender_engraver::deprecated_process_music ()
 112 {
 113   if (req_l_ && ! extender_p_)
 114     {
 115       if (!last_lyric_l_)
 116         {
 117           req_l_->origin ()->warning (_ ("Nothing to connect extender to on the left.  Ignoring extender request."));
 118           return;
 119         }
 120
 121       extender_p_ = new Spanner (get_property ("LyricExtender"));
 122
 123
 124       Lyric_extender (extender_p_).set_textitem  (LEFT, last_lyric_l_);
 125       announce_grob (extender_p_, req_l_);
 126     }
 127 }
 128
 129
 130 void
 131 Extender_engraver::stop_translation_timestep ()
 132 {
 133   if (extender_p_)
 134     {
 135       typeset_grob (extender_p_);
 136       extender_p_ = 0;
 137     }
 138
 139   if (current_lyric_l_)
 140     {
 141       last_lyric_l_ = current_lyric_l_;
 142       current_lyric_l_ =0;
 143     }
 144 }
 145
 146 void
 147 Extender_engraver::start_translation_timestep ()
 148 {
 149   req_l_ = 0;
 150 }
 151
 152