X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lily%2Frelative-octave-music.cc;h=a04b735cbf5fae3d87221557f31eab6534141297;hb=5eedf005834d8d3fdc64aee2554a9936c3ef1f57;hp=39467959cd9be47cba078368bd49b746acc0e4d6;hpb=e24df7c27635dc996c466295eacf2981bddccaf7;p=lilypond.git diff --git a/lily/relative-octave-music.cc b/lily/relative-octave-music.cc index 39467959cd..a04b735cbf 100644 --- a/lily/relative-octave-music.cc +++ b/lily/relative-octave-music.cc @@ -1,35 +1,33 @@ -/* - relative-music.cc -- implement Relative_octave_music - +/* + relative-music.cc -- implement Relative_octave_music + source file of the GNU LilyPond music typesetter - + (c) 1998--2005 Han-Wen Nienhuys - - */ +*/ #include "music.hh" #include "pitch.hh" #include "warn.hh" #include "scm-option.hh" - class Relative_octave_music { public: - DECLARE_SCHEME_CALLBACK(relative_callback,(SCM,SCM)); - DECLARE_SCHEME_CALLBACK(no_relative_callback,(SCM,SCM)); + DECLARE_SCHEME_CALLBACK (relative_callback, (SCM, SCM)); + DECLARE_SCHEME_CALLBACK (no_relative_callback, (SCM, SCM)); }; -MAKE_SCHEME_CALLBACK(Relative_octave_music,no_relative_callback,2) -SCM +MAKE_SCHEME_CALLBACK (Relative_octave_music, no_relative_callback, 2) + SCM Relative_octave_music::no_relative_callback (SCM music, SCM pitch) { (void)music; return pitch; } -MAKE_SCHEME_CALLBACK(Relative_octave_music,relative_callback,2) -SCM +MAKE_SCHEME_CALLBACK (Relative_octave_music, relative_callback, 2) + SCM Relative_octave_music::relative_callback (SCM music, SCM pitch) { Music *me = unsmob_music (music); @@ -39,15 +37,14 @@ Relative_octave_music::relative_callback (SCM music, SCM pitch) /* last-pitch should be junked some time, when we ditch 1.8 compat too. - When you do, B should start where A left off. + When you do, B should start where A left off. - \relative { A \relative { ...} B } */ + \relative { A \relative { ...} B } */ SCM last_pitch = me->get_property ("last-pitch"); Pitch *ptr = unsmob_pitch (last_pitch); - return (ptr) ? last_pitch : pitch; + return (ptr) ? last_pitch : pitch; } else return pitch; } -