2 grace-music.cc -- implement Grace_music
4 source file of the GNU LilyPond music typesetter
6 (c) 1999--2005 Han-Wen Nienhuys <hanwen@cs.uu.nl>
10 #include "music-wrapper.hh"
16 DECLARE_SCHEME_CALLBACK (start_callback, (SCM));
19 MAKE_SCHEME_CALLBACK (Grace_music, start_callback, 1);
21 Grace_music::start_callback (SCM m)
23 Moment *l = unsmob_moment (Music_wrapper::length_callback (m));
25 gl.grace_part_ = -(l->main_part_ + l->grace_part_);
26 return gl.smobbed_copy ();