source file of the GNU LilyPond music typesetter
- (c) 1999 Han-Wen Nienhuys <hanwen@cs.uu.nl>
+ (c) 1999--2000 Han-Wen Nienhuys <hanwen@cs.uu.nl>
*/
#include "engraver.hh"
#include "grace-align-item.hh"
+#include "align-interface.hh"
#include "note-column.hh"
#include "local-key-item.hh"
#include "warn.hh"
#include "directional-element-interface.hh"
+#include "side-position-interface.hh"
/**
- catch notes, and put them in a row.
+ Catch notes, and put them in a row. Used for aligning grace notes.
*/
class Align_note_column_engraver: public Engraver
{
Align_note_column_engraver ();
};
-ADD_THIS_TRANSLATOR (Align_note_column_engraver);
-
Align_note_column_engraver::Align_note_column_engraver()
{
align_item_p_ =0;
void
Align_note_column_engraver::do_creation_processing ()
{
- align_item_p_ = new Grace_align_item;
+ align_item_p_ = new Grace_align_item (SCM_EOL);
+ Side_position_interface (align_item_p_).set_axis (X_AXIS);
+ Side_position_interface (align_item_p_).set_direction (LEFT);
+
// needed for setting font size.
announce_element (Score_element_info (align_item_p_, 0));
}
void
Align_note_column_engraver::do_removal_processing ()
{
- SCM al = get_property ("graceAlignPosition", 0);
+ SCM al = get_property ("graceAlignPosition");
if (isdir_b (al))
{
- directional_element (align_item_p_).set (to_dir (al));
+ Direction d = to_dir (al);
+ directional_element (align_item_p_).set (d);
}
typeset_element (align_item_p_);
B. it has no pscore_l_ field.
*/
- SCM grsp = get_property ("graceAccidentalSpace", 0);
+ SCM grsp = get_property ("graceAccidentalSpace");
if (gh_number_p(grsp))
{
/*
if (now_column_l_)
{
- align_item_p_->add_element (now_column_l_);
+ Align_interface (align_item_p_).add_element (now_column_l_);
now_column_l_ =0;
}
}
accidental_l_ =0;
}
+ADD_THIS_TRANSLATOR(Align_note_column_engraver);
+