-/*
- fingering-engraver.cc -- implement Fingering_engraver
-
+/*
+ fingering-engraver.cc -- implement Fingering_engraver
+
source file of the GNU LilyPond music typesetter
-
- (c) 1998--2004 Han-Wen Nienhuys <hanwen@cs.uu.nl>
-
- */
+ (c) 1998--2005 Han-Wen Nienhuys <hanwen@cs.uu.nl>
+*/
#include "engraver.hh"
#include "side-position-interface.hh"
-#include "item.hh"
-#include "event.hh"
#include "stem.hh"
#include "rhythmic-head.hh"
#include "self-alignment-interface.hh"
public:
TRANSLATOR_DECLARATIONS (Fingering_engraver);
protected:
- virtual bool try_music (Music* m);
+ virtual bool try_music (Music *m);
virtual void stop_translation_timestep ();
virtual void start_translation_timestep ();
virtual void process_music ();
virtual void acknowledge_grob (Grob_info);
private:
- void make_script (Direction, Music*, int);
+ void make_script (Direction, Music *, int);
};
bool
void
Fingering_engraver::acknowledge_grob (Grob_info inf)
{
- if (Stem::has_interface (inf.grob_))
+ if (Stem::has_interface (inf.grob ()))
{
- for (int i=0; i < fingerings_.size (); i++)
+ for (int i = 0; i < fingerings_.size (); i++)
{
- Side_position_interface::add_support (fingerings_[i], inf.grob_);
+ Side_position_interface::add_support (fingerings_[i], inf.grob ());
}
}
- else if (Rhythmic_head::has_interface (inf.grob_))
+ else if (Rhythmic_head::has_interface (inf.grob ()))
{
- for (int i=0; i < fingerings_.size (); i++)
+ for (int i = 0; i < fingerings_.size (); i++)
{
- Grob*t = fingerings_[i];
- Side_position_interface::add_support (t,inf.grob_);
+ Grob *t = fingerings_[i];
+ Side_position_interface::add_support (t, inf.grob ());
if (!t->get_parent (X_AXIS))
- t->set_parent (inf.grob_, X_AXIS);
+ t->set_parent (inf.grob (), X_AXIS);
}
}
}
void
Fingering_engraver::process_music ()
{
- for (int i= reqs_.size (); i--;)
+ for (int i = reqs_.size (); i--;)
{
SCM dir = reqs_[i]->get_property ("direction");
make_script (to_dir (dir), reqs_[i], i);
}
}
-
void
Fingering_engraver::make_script (Direction d, Music *r, int i)
{
- Item *fingering = make_item ("Fingering");
+ Item *fingering = make_item ("Fingering", r->self_scm ());
Axis a = Y_AXIS;
Axis other = other_axis (a);
Huh, what's this for? --hwn.
junkme.
- */
+ */
SCM pitch = r->get_property ("pitch");
if (unsmob_pitch (pitch))
fingering->set_property ("pitch", pitch);
/*
We can't fold these definitions into define-grobs since
- fingerings for chords need different settings.
+ fingerings for chords need different settings.
*/
Side_position_interface::set_axis (fingering, a);
fingering->add_offset_callback (Self_alignment_interface::aligned_on_self_proc, other);
// Hmm
int priority = 200;
SCM s = fingering->get_property ("script-priority");
- if (ly_c_number_p (s))
- priority = ly_scm2int (s);
-
+ if (scm_is_number (s))
+ priority = scm_to_int (s);
+
/* See script-engraver.cc */
priority += i;
fingering->set_property ("script-priority", scm_int2num (priority));
-
if (!is_direction (fingering->get_property ("direction")))
{
if (d)
fingering->set_property ("direction", scm_int2num (d));
else
- fingering->set_property ("direction", scm_int2num (RIGHT));
+ fingering->set_property ("direction", scm_int2num (RIGHT));
}
- SCM dig = r->get_property ("digit");
+ SCM dig = r->get_property ("digit");
fingering->set_property ("text", scm_number_to_string (dig, scm_int2num (10)));
- announce_grob (fingering, r->self_scm ());
fingerings_.push (fingering);
}
{
if (!fingerings_.size ())
return;
-
- for (int i=0; i < fingerings_.size (); i++)
- {
- Item *ti = fingerings_[i];
- typeset_grob (ti);
- }
+
fingerings_.clear ();
}
Fingering_engraver::Fingering_engraver ()
{
-
}
-ENTER_DESCRIPTION (Fingering_engraver,
-/* descr */ "Create fingering-scripts",
-/* creats*/ "Fingering",
-/* accepts */ "fingering-event",
-/* acks */ "rhythmic-head-interface stem-interface",
-/* reads */ "",
-/* write */ "");
+ADD_TRANSLATOR (Fingering_engraver,
+ /* descr */ "Create fingering-scripts",
+ /* creats*/ "Fingering",
+ /* accepts */ "fingering-event",
+ /* acks */ "rhythmic-head-interface stem-interface",
+ /* reads */ "",
+ /* write */ "");