2 fingering-engraver.cc -- implement Fingering_engraver
4 source file of the GNU LilyPond music typesetter
6 (c) 1998--2002 Han-Wen Nienhuys <hanwen@cs.uu.nl>
11 #include "engraver.hh"
12 #include "side-position-interface.hh"
14 #include "musical-request.hh"
16 #include "rhythmic-head.hh"
18 class Fingering_engraver : public Engraver
20 Link_array<Music> reqs_;
21 Link_array<Item> fingerings_;
23 Link_array<Music> up_reqs_;
24 Link_array<Music> hor_reqs_;
25 Link_array<Music> down_reqs_;
28 TRANSLATOR_DECLARATIONS(Fingering_engraver);
30 virtual bool try_music (Music* m);
31 virtual void stop_translation_timestep ();
32 virtual void start_translation_timestep ();
33 virtual void process_music ();
34 virtual void acknowledge_grob (Grob_info);
36 void make_script (Direction, Music*,Axis, int);
40 Fingering_engraver::try_music (Music *m)
42 if (dynamic_cast<Text_script_req*> (m))
44 if (m->get_mus_property ("text-type") != ly_symbol2scm ("finger"))
54 Fingering_engraver::acknowledge_grob (Grob_info inf)
57 if (Stem::has_interface (inf.grob_l_))
59 for (int i=0; i < fingerings_.size (); i++)
61 Side_position_interface::add_support (fingerings_[i],inf.grob_l_);
64 else if (Rhythmic_head::has_interface (inf.grob_l_))
66 Music * mc =inf.music_cause ();
67 Pitch * mp = mc? unsmob_pitch (mc->get_mus_property ("pitch")) :0;
68 for (int i=0; i < fingerings_.size (); i++)
70 Grob*t = fingerings_[i];
71 Side_position_interface::add_support (t,inf.grob_l_);
72 Pitch *fp = unsmob_pitch (t->get_grob_property ("pitch"));
80 Axis other = other_axis (Side_position_interface::get_axis (t));
81 t->set_parent (inf.grob_l_, other);
86 if (!t->get_parent (X_AXIS))
87 t->set_parent (inf.grob_l_, X_AXIS);
94 req_compare (Music * const &a,Music * const &b)
96 Pitch *pa = unsmob_pitch (a->get_mus_property ("pitch"));
97 Pitch *pb = unsmob_pitch (b->get_mus_property ("pitch"));
106 return Pitch::compare (*pa, *pb);
110 Fingering_engraver::process_music ()
115 Link_array<Music> pitch_sorted_reqs = reqs_;
116 for (int i= pitch_sorted_reqs.size(); i--;)
118 SCM dir = pitch_sorted_reqs[i]->get_mus_property ("direction");
119 if (ly_dir_p (dir) && to_dir (dir)) {
120 if (to_dir (dir) == UP)
121 up_reqs_.push (pitch_sorted_reqs[i]);
122 else if (to_dir (dir) == DOWN)
123 down_reqs_ .push (pitch_sorted_reqs[i]);
124 pitch_sorted_reqs.del(i);
128 else if (!unsmob_pitch (pitch_sorted_reqs[i]->get_mus_property ("pitch")))
131 chuck out reqs that have no pitch. We put them over the note by default.
133 up_reqs_.push (pitch_sorted_reqs [i]);
134 pitch_sorted_reqs.del (i);
138 down_reqs_.reverse ();
140 pitch_sorted_reqs.sort (&req_compare);
142 if (to_boolean (get_property ("scriptHorizontal")))
144 #if 1 // -> 0 for testing horizontal fingerings.
146 down_reqs_.push ( pitch_sorted_reqs[0]);
147 pitch_sorted_reqs.del (0);
149 if (pitch_sorted_reqs.size())
151 up_reqs_.push (pitch_sorted_reqs.top ());
152 pitch_sorted_reqs.pop();
155 hor_reqs_ = pitch_sorted_reqs;
159 int sz = pitch_sorted_reqs.size ();
160 down_reqs_.concat (pitch_sorted_reqs.slice(0, (sz + sz%2)/2 ));
161 up_reqs_.concat (pitch_sorted_reqs.slice((sz + sz%2)/2, sz));
165 for (int i = 0; i < down_reqs_.size();i++)
166 make_script (DOWN, down_reqs_[i], Y_AXIS, i);
167 for (int i = 0; i < up_reqs_.size();i++)
168 make_script (UP, up_reqs_[i], Y_AXIS, i);
169 for (int i = 0; i < hor_reqs_.size();i++)
170 make_script (CENTER, hor_reqs_[i],X_AXIS, i);
174 Fingering_engraver::make_script (Direction d, Music *r,Axis a, int i)
176 Item *fingering = new Item (get_property ("Fingering"));
178 Axis other = other_axis (a);
180 SCM pitch = r->get_mus_property ("pitch");
181 if (unsmob_pitch (pitch))
182 fingering->set_grob_property ("pitch", pitch);
184 Side_position_interface::set_axis (fingering, a);
186 fingering->add_offset_callback (Self_alignment_interface::aligned_on_self_proc, other);
187 fingering->add_offset_callback (Self_alignment_interface::centered_on_parent_proc, other);
191 SCM s = fingering->get_grob_property ("script-priority");
193 priority = gh_scm2int (s);
195 /* Make sure they're in order of user input by adding index i. */
198 fingering->set_grob_property ("script-priority", gh_int2scm (priority));
201 if (!ly_dir_p (fingering->get_grob_property ("direction")))
204 fingering->set_grob_property ("direction", gh_int2scm (d));
206 fingering->set_grob_property ("direction", gh_int2scm (RIGHT));
209 fingering->set_grob_property ("text", r->get_mus_property ("text"));
211 announce_grob (fingering, r->self_scm());
212 fingerings_.push (fingering);
216 Fingering_engraver::stop_translation_timestep ()
218 if (!fingerings_.size ())
221 for (int i=0; i < fingerings_.size (); i++)
223 Item *ti = fingerings_[i];
224 Side_position_interface::add_staff_support (ti);
227 fingerings_.clear ();
231 Fingering_engraver::start_translation_timestep ()
239 Fingering_engraver::Fingering_engraver()
244 ENTER_DESCRIPTION(Fingering_engraver,
245 /* descr */ "Create fingering-scripts",
246 /* creats*/ "Fingering",
247 /* acks */ "rhythmic-head-interface stem-interface",
248 /* reads */ "scriptHorizontal",