]> git.donarmstrong.com Git - lilypond.git/blob - lily/relative-octave-music.cc
release: 1.5.29
[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--2002 Han-Wen Nienhuys <hanwen@cs.uu.nl>
7   
8  */
9
10 #include "relative-music.hh"
11 #include "debug.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 (SCM l)
21   : Music_wrapper (l)
22 {
23   set_mus_property ("type", ly_symbol2scm ("relative-octave-music"));  
24 }
25
26 Relative_octave_music::Relative_octave_music ()
27 {
28     set_mus_property ("type", ly_symbol2scm ("relative-octave-music"));
29 }
30
31 ADD_MUSIC (Relative_octave_music);