Moment get_length () const;
Moment start_mom () const;
void print () const;
- static Music *unsmob (SCM m) {
- return dynamic_cast <Music *> (Prob::unsmob (m));
- }
- static bool is_smob (SCM m) {
- return Prob::is_smob (m) && unsmob (m);
- }
-
- /// Transpose, with the interval central C to #p#
- void transpose (Pitch p);
/// Scale the music in time by #factor#.
void compress (Moment factor);
};
Music *make_music_by_name (SCM sym);
-SCM ly_music_deep_copy (SCM);
+SCM music_deep_copy (SCM m);
+void set_origin (SCM m, SCM origin);
+
SCM ly_camel_case_2_lisp_identifier (SCM name_sym);
extern SCM ly_music_p_proc;
-/* common transposition function for music and event */
-void transpose_mutable (SCM alist, Pitch delta);
-
#endif /* MUSIC_HH */