2 fingering-engraver.cc -- implement Fingering_engraver
4 source file of the GNU LilyPond music typesetter
6 (c) 1998--2004 Han-Wen Nienhuys <hanwen@cs.uu.nl>
10 #include "engraver.hh"
11 #include "side-position-interface.hh"
13 #include "rhythmic-head.hh"
14 #include "self-alignment-interface.hh"
16 class Fingering_engraver : public Engraver
18 Link_array<Music> reqs_;
19 Link_array<Item> fingerings_;
22 TRANSLATOR_DECLARATIONS (Fingering_engraver);
24 virtual bool try_music (Music* m);
25 virtual void stop_translation_timestep ();
26 virtual void start_translation_timestep ();
27 virtual void process_music ();
28 virtual void acknowledge_grob (Grob_info);
31 void make_script (Direction, Music*, int);
35 Fingering_engraver::try_music (Music *m)
37 if (m->is_mus_type ("fingering-event"))
46 Fingering_engraver::acknowledge_grob (Grob_info inf)
48 if (Stem::has_interface (inf.grob_))
50 for (int i = 0; i < fingerings_.size (); i++)
52 Side_position_interface::add_support (fingerings_[i], inf.grob_);
55 else if (Rhythmic_head::has_interface (inf.grob_))
57 for (int i = 0; i < fingerings_.size (); i++)
59 Grob*t = fingerings_[i];
60 Side_position_interface::add_support (t,inf.grob_);
61 if (!t->get_parent (X_AXIS))
62 t->set_parent (inf.grob_, X_AXIS);
68 Fingering_engraver::process_music ()
70 for (int i = reqs_.size (); i--;)
72 SCM dir = reqs_[i]->get_property ("direction");
73 make_script (to_dir (dir), reqs_[i], i);
79 Fingering_engraver::make_script (Direction d, Music *r, int i)
81 Item *fingering = make_item ("Fingering", r->self_scm ());
83 Axis other = other_axis (a);
86 Huh, what's this for? --hwn.
90 SCM pitch = r->get_property ("pitch");
91 if (unsmob_pitch (pitch))
92 fingering->set_property ("pitch", pitch);
95 We can't fold these definitions into define-grobs since
96 fingerings for chords need different settings.
98 Side_position_interface::set_axis (fingering, a);
99 fingering->add_offset_callback (Self_alignment_interface::aligned_on_self_proc, other);
100 fingering->add_offset_callback (Self_alignment_interface::centered_on_parent_proc, other);
104 SCM s = fingering->get_property ("script-priority");
105 if (scm_is_number (s))
106 priority = scm_to_int (s);
108 /* See script-engraver.cc */
111 fingering->set_property ("script-priority", scm_int2num (priority));
114 if (!is_direction (fingering->get_property ("direction")))
117 fingering->set_property ("direction", scm_int2num (d));
119 fingering->set_property ("direction", scm_int2num (RIGHT));
122 SCM dig = r->get_property ("digit");
123 fingering->set_property ("text", scm_number_to_string (dig, scm_int2num (10)));
125 fingerings_.push (fingering);
129 Fingering_engraver::stop_translation_timestep ()
131 if (!fingerings_.size ())
134 fingerings_.clear ();
138 Fingering_engraver::start_translation_timestep ()
143 Fingering_engraver::Fingering_engraver ()
148 ADD_TRANSLATOR (Fingering_engraver,
149 /* descr */ "Create fingering-scripts",
150 /* creats*/ "Fingering",
151 /* accepts */ "fingering-event",
152 /* acks */ "rhythmic-head-interface stem-interface",