X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lily%2Fgrace-music.cc;h=eb3a5c0f42934b8490af216a277f25b3518a6e23;hb=207c3df3b77d5ec25d7db3bbc6ba830d12ee9f85;hp=82f0206547d41ffd3dd0405ad85440d1f40293e9;hpb=5d1ddaf889233f8e5c32a118f9e843e1becca2d2;p=lilypond.git diff --git a/lily/grace-music.cc b/lily/grace-music.cc index 82f0206547..eb3a5c0f42 100644 --- a/lily/grace-music.cc +++ b/lily/grace-music.cc @@ -1,27 +1,27 @@ -/* - grace-music.cc -- implement Grace_music - - source file of the GNU LilyPond music typesetter - - (c) 1999--2005 Han-Wen Nienhuys - +/* + grace-music.cc -- implement Grace_music + + source file of the GNU LilyPond music typesetter + + (c) 1999--2005 Han-Wen Nienhuys */ #include "music.hh" #include "music-wrapper.hh" +#include "moment.hh" class Grace_music { public: - DECLARE_SCHEME_CALLBACK(start_callback, (SCM)); + DECLARE_SCHEME_CALLBACK (start_callback, (SCM)); }; -MAKE_SCHEME_CALLBACK(Grace_music, start_callback, 1); +MAKE_SCHEME_CALLBACK (Grace_music, start_callback, 1); SCM -Grace_music::start_callback (SCM m) +Grace_music::start_callback (SCM m) { Moment *l = unsmob_moment (Music_wrapper::length_callback (m)); Moment gl; - gl.grace_part_ = -(l->main_part_ + l->grace_part_ ); + gl.grace_part_ = -(l->main_part_ + l->grace_part_); return gl.smobbed_copy (); }