]> git.donarmstrong.com Git - lilypond.git/blob - lily/compressed-music.cc
release: 1.0.15
[lilypond.git] / lily / compressed-music.cc
1 /*   
2   compressed-music.cc --  implement Compressed_music
3   
4   source file of the GNU LilyPond music typesetter
5   
6   (c) 1998 Han-Wen Nienhuys <hanwen@cs.uu.nl>
7   
8  */
9
10 #include "compressed-music.hh"
11
12
13 Compressed_music::Compressed_music (int n, int d,Music *mp)
14   : Music_wrapper (mp)
15 {
16   num_i_ = n;
17   den_i_ = d;
18   element_p_->compress (Moment (num_i_,den_i_));
19 }
20
21 IMPLEMENT_IS_TYPE_B1(Compressed_music, Music_wrapper);
22
23