source file of the GNU LilyPond music typesetter
- (c) 2006 Han-Wen <hanwen@lilypond.org>
+ (c) 2006--2009 Han-Wen <hanwen@lilypond.org>
*/
#include "engraver.hh"
-#include "spanner.hh"
+#include "moment.hh"
#include "pointer-group-interface.hh"
+#include "spanner.hh"
#include "translator.icc"
column);
column->set_object ("grace-spacing", grace_spacing_->self_scm ());
+
+ if (!grace_spacing_->get_bound (LEFT))
+ grace_spacing_->set_bound (LEFT, column);
+ else
+ grace_spacing_->set_bound (RIGHT, column);
}
}
ADD_TRANSLATOR (Grace_spacing_engraver,
- "Bookkeeping of shortest starting and playing notes in grace note runs.",
+ "Bookkeeping of shortest starting and playing notes in grace"
+ " note runs.",
/* create */
"GraceSpacing ",
-
- /* accept */
- "",
/* read */
"currentMusicalColumn ",
- /* write */ "");
+ /* write */
+ ""
+ );