X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lily%2Frelative-octave-check.cc;h=e2ed2e6e0491c25d1067071f780d37f7e257d06a;hb=13ca4123d326ade652522703a5d15186971318e2;hp=96b19eda3f418bb500f66a28c3aef99924732d84;hpb=634ad74db688a5305f001917453c5cd15305c539;p=lilypond.git diff --git a/lily/relative-octave-check.cc b/lily/relative-octave-check.cc index 96b19eda3f..e2ed2e6e04 100644 --- a/lily/relative-octave-check.cc +++ b/lily/relative-octave-check.cc @@ -3,29 +3,27 @@ source file of the GNU LilyPond music typesetter - (c) 2005 Han-Wen Nienhuys - + (c) 2005--2009 Han-Wen Nienhuys */ -#include "music.hh" #include "input.hh" -#include "pitch.hh" +#include "international.hh" +#include "music.hh" class Relative_octave_check { public: - DECLARE_SCHEME_CALLBACK(relative_callback, (SCM, SCM)); + DECLARE_SCHEME_CALLBACK (relative_callback, (SCM, SCM)); }; - -MAKE_SCHEME_CALLBACK(Relative_octave_check, relative_callback, 2) -SCM +MAKE_SCHEME_CALLBACK (Relative_octave_check, relative_callback, 2) + SCM Relative_octave_check::relative_callback (SCM music, SCM last_pitch) { Pitch p = *unsmob_pitch (last_pitch); - Music *m = unsmob_music (music); + Music *m = unsmob_music (music); Pitch *check_p = unsmob_pitch (m->get_property ("pitch")); - + int delta_oct = 0; if (check_p) { @@ -37,15 +35,16 @@ Relative_octave_check::relative_callback (SCM music, SCM last_pitch) if (result != *check_p) { - String s = _("Failed octave check, got: "); + string s = _ ("Failed octave check, got: "); s += result.to_string (); - + m->origin ()->warning (s); - + delta_oct = check_p->get_octave () - result.get_octave (); } } - + return Pitch (p.get_octave () + delta_oct, - p.get_notename (), p.get_alteration ()).smobbed_copy (); + p.get_notename (), + p.get_alteration ()).smobbed_copy (); }