]> git.donarmstrong.com Git - lilypond.git/blob - lily/un-relativable-music.cc
f15bfa72a8095c72a1708bb4d66e255f6c5553fd
[lilypond.git] / lily / un-relativable-music.cc
1 /*   
2   un-relativable-music.cc --  implement Un_relativable_music
3   
4   source file of the GNU LilyPond music typesetter
5   
6   (c) 2001 Han-Wen Nienhuys <hanwen@cs.uu.nl>
7   
8  */
9
10 #include "un-relativable-music.hh"
11
12
13 Un_relativable_music::Un_relativable_music ( )
14 {
15   set_mus_property ("type", ly_symbol2scm ("un-relativable-music"));
16 }
17
18 Pitch
19 Un_relativable_music::to_relative_octave (Pitch p)
20 {
21   return p;
22 }
23
24 ADD_MUSIC(Un_relativable_music);
25