X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lily%2Finclude%2Fmusic.hh;h=9f244081d32c3994ca9eda68d90774d666d36552;hb=0387f04497978e37b335a8b99eec905499d6ad0f;hp=f278786847033f827f1413e4108a3b0f2e8b8d33;hpb=dbb4524af169a9c15e5c7fcfddfa1a4b85dd288d;p=lilypond.git diff --git a/lily/include/music.hh b/lily/include/music.hh index f278786847..9f244081d3 100644 --- a/lily/include/music.hh +++ b/lily/include/music.hh @@ -3,13 +3,12 @@ source file of the GNU LilyPond music typesetter - (c) 1997--2006 Han-Wen Nienhuys + (c) 1997--2008 Han-Wen Nienhuys */ #ifndef MUSIC_HH #define MUSIC_HH -#include "virtual-methods.hh" #include "smobs.hh" #include "moment.hh" #include "pitch.hh" @@ -29,6 +28,8 @@ public: bool internal_is_music_type (SCM) const; + Stream_event *to_event () const; + DECLARE_SCHEME_CALLBACK (relative_callback, (SCM, SCM)); Pitch to_relative_octave (Pitch); Pitch generic_to_relative_octave (Pitch); @@ -41,9 +42,12 @@ public: /// Scale the music in time by #factor#. void compress (Moment factor); + + // Broadcast the event in a context's event-source. + void send_to_context (Context *c); DECLARE_SCHEME_CALLBACK (duration_length_callback, (SCM)); - + protected: virtual SCM copy_mutable_properties () const; virtual void type_check_assignment (SCM, SCM) const; @@ -57,6 +61,11 @@ protected: Music *unsmob_music (SCM); Music *make_music_by_name (SCM sym); SCM ly_music_deep_copy (SCM); +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 */