]> git.donarmstrong.com Git - lilypond.git/blob - lily/transposed-music.cc
release: 1.3.93
[lilypond.git] / lily / transposed-music.cc
1 /*   
2   transposed-music.cc --  implement Transposed_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 "transposed-music.hh"
11 #include "debug.hh"
12
13 Transposed_music::Transposed_music (Music *p, Musical_pitch pit)
14   : Music_wrapper (p)
15 {
16   transpose_to_pitch_ = pit;
17   p->transpose (pit);
18 }
19
20
21 Musical_pitch
22 Transposed_music::to_relative_octave (Musical_pitch p)
23 {
24
25   return p;
26 }
27
28
29