]> git.donarmstrong.com Git - lilypond.git/blobdiff - lily/time-scaled-music.cc
release: 1.3.115
[lilypond.git] / lily / time-scaled-music.cc
index 74559e404a882f6b3723e7b827531f02974cca2c..ed3961b27e3d875ed11998063709900703bc075c 100644 (file)
 #include "time-scaled-music.hh"
 #include "time-scaled-music-iterator.hh"
 
-Time_scaled_music::Time_scaled_music (int n, int d,Music *mp)
-  : Music_wrapper (mp)
+Time_scaled_music::Time_scaled_music (SCM l)
+  : Music_wrapper (l)
 {
-  set_mus_property ("numerator", gh_int2scm (n));
-  set_mus_property ("denominator", gh_int2scm (d));
   set_mus_property ("iterator-ctor",
                    Time_scaled_music_iterator::constructor_cxx_function);
   
-  compress (Moment (n,d));
 }