lily/relative-octave-music.cc

   1 /*
   2   relative-music.cc --  implement Relative_octave_music
   3
   4   source file of the GNU LilyPond music typesetter
   5
   6   (c) 1998--2003 Han-Wen Nienhuys <hanwen@cs.uu.nl>
   7
   8  */
   9
  10 #include "relative-music.hh"
  11 #include "warn.hh"
  12
  13
  14
  15 Pitch
  16 Relative_octave_music::to_relative_octave (Pitch p)
  17 {
  18   if (lily_1_8_relative)
  19     {
  20
  21   /*
  22     ugh: last-pitch should  be junked.
  23
  24     Change this for lilypond 2.0. When you do,
  25     then B should start where A left off.
  26
  27     \relative { A \relative { ...} B }
  28
  29   */
  30       return * unsmob_pitch (get_mus_property ("last-pitch"));
  31     }
  32   else
  33     return p;
  34 }
  35
  36
  37 Relative_octave_music::Relative_octave_music ()
  38 {
  39 }
  40
  41 ADD_MUSIC (Relative_octave_music);