]> git.donarmstrong.com Git - lilypond.git/blob - lily/relative-octave-music.cc
*** empty log message ***
[lilypond.git] / 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 Pitch
14 Relative_octave_music::to_relative_octave (Pitch)
15 {
16   return * unsmob_pitch (get_mus_property ("last-pitch"));
17 }
18
19
20 Relative_octave_music::Relative_octave_music ()
21 {
22 }
23
24 ADD_MUSIC (Relative_octave_music);