2 text-engraver.cc -- implement Text_engraver
4 source file of the GNU LilyPond music typesetter
6 (c) 1998--1999 Han-Wen Nienhuys <hanwen@cs.uu.nl>
10 #include "dimension-cache.hh"
11 #include "engraver.hh"
12 #include "side-position-interface.hh"
13 #include "text-item.hh"
14 #include "musical-request.hh"
15 #include "note-head.hh"
17 #include "staff-symbol.hh"
20 typeset directions that are plain text.
22 class Text_engraver : public Engraver
24 Link_array<Text_script_req> reqs_;
25 Link_array<Text_item> texts_;
28 VIRTUAL_COPY_CONS(Translator);
30 virtual bool do_try_music (Music* m);
31 virtual void do_pre_move_processing ();
32 virtual void do_post_move_processing ();
33 virtual void do_process_requests ();
34 virtual void acknowledge_element (Score_element_info);
37 ADD_THIS_TRANSLATOR (Text_engraver);
40 Text_engraver::do_try_music (Music *m)
42 if (Text_script_req *r = dynamic_cast<Text_script_req*> (m))
52 Text_engraver::acknowledge_element (Score_element_info i)
54 if (Note_head *n = dynamic_cast<Note_head*> (i.elem_l_))
56 for (int i=0; i < texts_.size (); i++)
58 Side_position_interface st (texts_[i]);
60 if (st.get_axis( ) == X_AXIS
61 && !texts_[i]->parent_l (Y_AXIS))
62 texts_[i]->set_parent (n, Y_AXIS);
65 if (Stem *n = dynamic_cast<Stem*> (i.elem_l_))
67 for (int i=0; i < texts_.size (); i++)
69 Side_position_interface st(texts_[i]);
76 Text_engraver::do_process_requests ()
78 for (int i=0; i < reqs_.size (); i++)
80 Text_script_req * r = reqs_[i];
82 Text_item *text = new Text_item;
83 Side_position_interface stafy (text);
85 SCM axisprop = get_property ("scriptHorizontal",0);
86 if (to_boolean (axisprop))
88 stafy.set_axis (X_AXIS);
89 // text->set_parent (ss, Y_AXIS);
92 stafy.set_axis (Y_AXIS);
94 text->set_elt_property ("script-priority",
97 if (r->get_direction ())
98 stafy.set_direction (r->get_direction ());
100 text->set_elt_property ("text",
101 ly_str02scm ( r->text_str_.ch_C ()));
103 if (r->style_str_.length_i ())
104 text->set_elt_property ("style", ly_str02scm (r->style_str_.ch_C()));
106 SCM empty = get_property ("textEmptyDimension", 0);
107 if (to_boolean (empty))
109 text->set_empty (X_AXIS);
112 announce_element (Score_element_info (text, r));
118 Text_engraver::do_pre_move_processing ()
120 for (int i=0; i < texts_.size (); i++)
122 typeset_element (texts_[i]);
128 Text_engraver::do_post_move_processing ()