lily/text-engraver.cc

   1 /*
   2   text-engraver.cc --  implement Text_engraver
   3
   4   source file of the GNU LilyPond music typesetter
   5
   6   (c) 1998--2004 Han-Wen Nienhuys <hanwen@cs.uu.nl>
   7
   8  */
   9 #include "directional-element-interface.hh"
  10 #include "engraver.hh"
  11 #include "side-position-interface.hh"
  12 #include "item.hh"
  13 #include "event.hh"
  14 #include "stem.hh"
  15 #include "rhythmic-head.hh"
  16 #include "text-item.hh"
  17
  18
  19 /**
  20    typeset directions that are  plain text.
  21  */
  22 class Text_engraver : public Engraver
  23 {
  24   Link_array<Music> evs_;
  25   Link_array<Item> texts_;
  26 public:
  27   TRANSLATOR_DECLARATIONS (Text_engraver);
  28 protected:
  29   virtual bool try_music (Music* m);
  30   virtual void stop_translation_timestep ();
  31   virtual void process_acknowledged_grobs ();
  32   virtual void acknowledge_grob (Grob_info);
  33 };
  34
  35 bool
  36 Text_engraver::try_music (Music *m)
  37 {
  38   if (m->is_mus_type ("text-script-event"))
  39     {
  40       evs_.push (m);
  41       return true;
  42     }
  43   return false;
  44 }
  45
  46 void
  47 Text_engraver::acknowledge_grob (Grob_info inf)
  48 {
  49   if (Rhythmic_head::has_interface (inf.grob_))
  50     {
  51       for (int i=0; i < texts_.size (); i++)
  52         {
  53           Grob*t = texts_[i];
  54           Side_position_interface::add_support (t,inf.grob_);
  55
  56           /*
  57             ugh.
  58            */
  59           if (Side_position_interface::get_axis (t) == X_AXIS
  60               && !t->get_parent (Y_AXIS))
  61             t->set_parent (inf.grob_, Y_AXIS);
  62           else if (Side_position_interface::get_axis (t) == Y_AXIS
  63               && !t->get_parent (X_AXIS))
  64             t->set_parent (inf.grob_, X_AXIS);
  65         }
  66     }
  67
  68   if (Stem::has_interface (inf.grob_))
  69     {
  70       for (int i=0; i < texts_.size (); i++)
  71         {
  72           Side_position_interface::add_support (texts_[i],inf.grob_);
  73         }
  74     }
  75 }
  76
  77 void
  78 Text_engraver::process_acknowledged_grobs ()
  79 {
  80   if (texts_.size ())
  81     return;
  82   for (int i=0; i < evs_.size (); i++)
  83     {
  84       Music * r = evs_[i];
  85
  86       // URG: Text vs TextScript
  87       Item *text = make_item ("TextScript", r->self_scm ());
  88
  89
  90       Axis ax = Y_AXIS;
  91       Side_position_interface::set_axis (text, ax);
  92
  93       // Hmm
  94       int priority = 200;
  95       SCM s = text->get_property ("script-priority");
  96       if (ly_c_number_p (s))
  97         priority = ly_scm2int (s);
  98
  99       /* see script-engraver.cc */
 100       priority += i;
 101
 102       text->set_property ("script-priority", scm_int2num (priority));
 103
 104       Direction dir = to_dir (r->get_property ("direction"));
 105       if (dir)
 106         set_grob_direction (text, dir);
 107
 108
 109       SCM mark = r->get_property ("text");
 110
 111       text->set_property ("text", mark);
 112       texts_.push (text);
 113     }
 114 }
 115
 116 void
 117 Text_engraver::stop_translation_timestep ()
 118 {
 119   texts_.clear ();
 120   evs_.clear ();
 121 }
 122
 123
 124 Text_engraver::Text_engraver ()
 125 {
 126 }
 127
 128 ENTER_DESCRIPTION (Text_engraver,
 129 /* descr */       "Create text-scripts",
 130 /* creats*/       "TextScript",
 131 /* accepts */     "text-script-event",
 132 /* acks  */      "rhythmic-head-interface stem-interface",
 133 /* reads */       "",
 134 /* write */       "");