source file of the GNU LilyPond music typesetter
- (c) 1997 Han-Wen Nienhuys <hanwen@stack.nl>
+ (c) 1997--1999 Han-Wen Nienhuys <hanwen@cs.uu.nl>
*/
#include "music.hh"
+#include "music-list.hh"
#include "debug.hh"
+#include "musical-pitch.hh"
-MInterval
-Music::time_int() const
+Music::Music()
{
- return MInterval(0,0);
}
-void
-Music::print()const
+
+void
+Music::compress (Moment)
{
- #ifndef NPRINT
- mtor << name() << "{" ;
- do_print();
- mtor << "}\n";
- #endif
}
+
void
-Music::transpose(Melodic_req const*)
+Music::do_print() const
{
-
}
-void
-Music::translate(Moment )
+Moment
+Music::length_mom () const
{
+ return 0;
}
void
-Music::do_print()const
+Music::print() const
{
+#ifndef NPRINT
+ if (! check_debug)
+ return ;
+ DOUT << classname(this) << "{";
+ if (translator_type_str_.length_i ())
+ DOUT << translator_type_str_ << " = " << translator_id_str_;
+ do_print();
+ DOUT << "}\n";
+#endif
}
-IMPLEMENT_STATIC_NAME(Music);
+Musical_pitch
+Music::to_relative_octave (Musical_pitch m)
+{
+ return m;
+}
+void
+Music::transpose (Musical_pitch )
+{
+}
-
-Music::Music(){}