- TODO: make a equalp function for general music.
- */
-class Music {
-public:
- Input *origin () const;
- void set_spot (Input);
-
- SCM internal_get_mus_property (SCM) const;
- void internal_set_mus_property (SCM , SCM val);
- void add_music_type (SCM);
- bool is_music_type (SCM) const;
-
- virtual Pitch to_relative_octave (Pitch);
-
- /// The duration of this piece of music
- virtual Moment length_mom () const;
- virtual Moment start_mom () const;
+ DECLARE_SCHEME_CALLBACK (relative_callback, (SCM, SCM));
+ Pitch to_relative_octave (Pitch);
+ Pitch generic_to_relative_octave (Pitch);
+ Moment get_length () const;
+ Moment start_mom () const;