source file of the GNU LilyPond music typesetter
- (c) 1997--2005 Han-Wen Nienhuys <hanwen@cs.uu.nl>
+ (c) 1997--2006 Han-Wen Nienhuys <hanwen@xs4all.nl>
*/
#include "note-head.hh"
if (out.is_empty ())
{
- me->warning (_f ("note head `%s' not found", idx.to_str0 ()));
+ me->warning (_f ("note head `%s' not found", idx.c_str ()));
out = Stencil (Box (Interval (0, 0), Interval (0, 0)), SCM_EOL);
}
else
/*
TODO: make stem X-parent of notehead.
*/
-MAKE_SCHEME_CALLBACK (Note_head, stem_x_shift, 2);
+MAKE_SCHEME_CALLBACK (Note_head, stem_x_shift, 1);
SCM
-Note_head::stem_x_shift (SCM smob, SCM axis)
+Note_head::stem_x_shift (SCM smob)
{
- (void) axis;
-
Grob *me = unsmob_grob (smob);
Grob *stem = unsmob_grob (me->get_object ("stem"));
if (stem)
/* properties */
"note-names "
"accidental-grob "
+ "glyph-name "
"stem-attachment "
"style "
);