]> git.donarmstrong.com Git - lilypond.git/blob - lily/relative-octave-check.cc
Docs: Fix fixed IR compilation (copy @q and @qq from macros.itely)
[lilypond.git] / lily / relative-octave-check.cc
1 /*
2   relative-octave-check.cc -- implement Relative_octave_check
3
4   source file of the GNU LilyPond music typesetter
5
6   (c) 2005--2007 Han-Wen Nienhuys <hanwen@xs4all.nl>
7 */
8
9 #include "input.hh"
10 #include "international.hh"
11 #include "music.hh"
12
13 class Relative_octave_check
14 {
15 public:
16   DECLARE_SCHEME_CALLBACK (relative_callback, (SCM, SCM));
17 };
18
19 MAKE_SCHEME_CALLBACK (Relative_octave_check, relative_callback, 2)
20   SCM
21 Relative_octave_check::relative_callback (SCM music, SCM last_pitch)
22 {
23   Pitch p = *unsmob_pitch (last_pitch);
24   Music *m = unsmob_music (music);
25   Pitch *check_p = unsmob_pitch (m->get_property ("pitch"));
26
27   int delta_oct = 0;
28   if (check_p)
29     {
30       Pitch no_octave (-1,
31                        check_p->get_notename (),
32                        check_p->get_alteration ());
33
34       Pitch result = no_octave.to_relative_octave (p);
35
36       if (result != *check_p)
37         {
38           string s = _ ("Failed octave check, got: ");
39           s += result.to_string ();
40
41           m->origin ()->warning (s);
42
43           delta_oct = check_p->get_octave () - result.get_octave ();
44         }
45     }
46
47   return Pitch (p.get_octave () + delta_oct,
48                 p.get_notename (),
49                 p.get_alteration ()).smobbed_copy ();
50 }