2 mark-engraver.cc -- implement Mark_engraver
4 source file of the GNU LilyPond music typesetter
6 (c) 1998--1999 Jan Nieuwenhuizen <janneke@gnu.org>
8 #include "command-request.hh"
9 #include "mark-engraver.hh"
10 #include "engraver-group-engraver.hh"
11 #include "text-item.hh"
14 ADD_THIS_TRANSLATOR (Mark_engraver);
16 Mark_engraver::Mark_engraver ()
21 visibility_lambda_ = ly_eval_str ("mark-visibility");
25 Mark_engraver::do_post_move_processing ()
32 Mark_engraver::do_try_music (Music* r_l)
34 if (Mark_req *mr = dynamic_cast <Mark_req *> (r_l))
43 Mark_engraver::do_process_requests ()
47 create_items (mark_req_l_);
49 String t = mark_req_l_->str_;
50 text_p_->set_elt_property ("text",
51 ly_str02scm ( t.ch_C()));
52 SCM st = ly_str02scm ((t.index_any_i ("0123456789") >= 0 )
54 text_p_->set_elt_property ("style", st);