]> git.donarmstrong.com Git - lilypond.git/blob - lily/relative-octave-music.cc
release: 1.3.93
[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--2000 Han-Wen Nienhuys <hanwen@cs.uu.nl>
7   
8  */
9
10 #include "relative-music.hh"
11 #include "debug.hh"
12
13 Musical_pitch
14 Relative_octave_music::to_relative_octave (Musical_pitch)
15 {
16   return last_pitch_;
17 }
18
19
20 Relative_octave_music::Relative_octave_music(Music*p,Musical_pitch def)
21   : Music_wrapper (p)
22 {
23   last_pitch_ = element ()->to_relative_octave (def);
24 }
25
26
27