]> git.donarmstrong.com Git - lilypond.git/blob - lily/relative-octave-music.cc
dc0fc9906c006e15bc69658ce65c6fe4693235b7
[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--1999 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 Music_iterator*
20 Relative_octave_music::to_rhythm (Music_iterator* r)
21 {
22   return element_l ()->to_rhythm (r);
23 }
24
25 Relative_octave_music::Relative_octave_music(Music*p,Musical_pitch def)
26   : Music_wrapper (p)
27 {
28   last_pitch_ = element_l ()->to_relative_octave (def);
29 }
30
31 void
32 Relative_octave_music::do_print () const
33 {
34   Music_wrapper::do_print ();
35   DOUT << "default pitch: " << last_pitch_.str ();
36 }
37
38