lily/mark-engraver.cc

   1 /*
   2   mark-engraver.cc -- implement Mark_engraver
   3
   4   source file of the GNU LilyPond music typesetter
   5
   6  (c) 1998--2000 Jan Nieuwenhuizen <janneke@gnu.org>
   7 */
   8 #include "command-request.hh"
   9 #include "mark-engraver.hh"
  10 #include "engraver-group-engraver.hh"
  11 #include "text-item.hh"
  12
  13
  14 ADD_THIS_TRANSLATOR (Mark_engraver);
  15
  16 Mark_engraver::Mark_engraver ()
  17 {
  18   mark_req_l_ = 0;
  19   axis_ = Y_AXIS;
  20   type_ = "mark";
  21 }
  22
  23 void
  24 Mark_engraver::do_post_move_processing ()
  25 {
  26   mark_req_l_ = 0;
  27 }
  28
  29
  30 bool
  31 Mark_engraver::do_try_music (Music* r_l)
  32 {
  33   if (Mark_req *mr = dynamic_cast <Mark_req *> (r_l))
  34     {
  35
  36       if (mark_req_l_ && mr->equal_b (mark_req_l_))
  37         return true;
  38       if (mark_req_l_)
  39         return false;
  40       mark_req_l_ = mr;
  41       return true;
  42     }
  43   return false;
  44 }
  45
  46 void
  47 Mark_engraver::do_process_requests ()
  48 {
  49   if (mark_req_l_)
  50     {
  51       create_items (mark_req_l_);
  52
  53       String t = mark_req_l_->str_;
  54       text_p_->set_elt_property ("text",
  55                                  ly_str02scm ( t.ch_C()));
  56       SCM st = ly_str02scm ((t.index_any_i ("0123456789")  >= 0 )
  57                             ? "mark" : "large");
  58       text_p_->set_elt_property ("style",  st);
  59     }
  60 }
  61