]> git.donarmstrong.com Git - lilypond.git/blob - lily/text-engraver.cc
(Invoking lilypond-book):
[lilypond.git] / 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--2006 Han-Wen Nienhuys <hanwen@xs4all.nl>
7 */
8
9 #include "directional-element-interface.hh"
10 #include "engraver.hh"
11 #include "side-position-interface.hh"
12 #include "stem.hh"
13 #include "rhythmic-head.hh"
14 #include "text-interface.hh"
15
16 /**
17    typeset directions that are  plain text.
18 */
19 class Text_engraver : public Engraver
20 {
21   vector<Music*> evs_;
22   vector<Item*> texts_;
23 public:
24   TRANSLATOR_DECLARATIONS (Text_engraver);
25 protected:
26   virtual bool try_music (Music *m);
27   void stop_translation_timestep ();
28   void process_acknowledged ();
29
30   DECLARE_ACKNOWLEDGER (stem_tremolo);
31   DECLARE_ACKNOWLEDGER (stem);
32   DECLARE_ACKNOWLEDGER (rhythmic_head);
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_back (m);
41       return true;
42     }
43   return false;
44 }
45
46 void
47 Text_engraver::acknowledge_rhythmic_head (Grob_info inf)
48 {
49   for (vsize i = 0; i < texts_.size (); i++)
50     {
51       Grob *t = texts_[i];
52       Side_position_interface::add_support (t, inf.grob ());
53
54       /*
55         ugh.
56       */
57       if (Side_position_interface::get_axis (t) == X_AXIS
58           && !t->get_parent (Y_AXIS))
59         t->set_parent (inf.grob (), Y_AXIS);
60       else if (Side_position_interface::get_axis (t) == Y_AXIS
61                && !t->get_parent (X_AXIS))
62         t->set_parent (inf.grob (), X_AXIS);
63     }
64 }
65
66 void
67 Text_engraver::acknowledge_stem (Grob_info inf)
68 {
69   for (vsize i = 0; i < texts_.size (); i++)
70     Side_position_interface::add_support (texts_[i], inf.grob ());
71 }
72
73 void
74 Text_engraver::acknowledge_stem_tremolo (Grob_info info)
75 {
76   for (vsize i = 0; i < texts_.size (); i++)
77     Side_position_interface::add_support (texts_[i], info.grob ());
78 }
79
80 void
81 Text_engraver::process_acknowledged ()
82 {
83   if (texts_.size ())
84     return;
85   for (vsize i = 0; i < evs_.size (); i++)
86     {
87       Music *r = evs_[i];
88
89       // URG: Text vs TextScript
90       Item *text = make_item ("TextScript", r->self_scm ());
91
92       Axis ax = Y_AXIS;
93       Side_position_interface::set_axis (text, ax);
94
95       // Hmm
96       int priority = 200;
97       SCM s = text->get_property ("script-priority");
98       if (scm_is_number (s))
99         priority = scm_to_int (s);
100
101       /* see script-engraver.cc */
102       priority += i;
103
104       text->set_property ("script-priority", scm_from_int (priority));
105
106       Direction dir = to_dir (r->get_property ("direction"));
107       if (dir)
108         set_grob_direction (text, dir);
109
110       SCM mark = r->get_property ("text");
111
112       text->set_property ("text", mark);
113       texts_.push_back (text);
114     }
115 }
116
117 void
118 Text_engraver::stop_translation_timestep ()
119 {
120   texts_.clear ();
121   evs_.clear ();
122 }
123
124 Text_engraver::Text_engraver ()
125 {
126 }
127
128 #include "translator.icc"
129
130 ADD_ACKNOWLEDGER (Text_engraver, stem);
131 ADD_ACKNOWLEDGER (Text_engraver, stem_tremolo);
132 ADD_ACKNOWLEDGER (Text_engraver, rhythmic_head);
133 ADD_TRANSLATOR (Text_engraver,
134                 /* doc */ "Create text-scripts",
135                 /* create */ "TextScript",
136                 /* accept */ "text-script-event",
137                 /* read */ "",
138                 /* write */ "");