]> git.donarmstrong.com Git - lilypond.git/blob - lily/include/music.hh
2eee399d18de24bc6be327c4a755bfdeac18fe31
[lilypond.git] / lily / include / music.hh
1 /*
2   music.hh -- declare Music
3
4   source file of the GNU LilyPond music typesetter
5
6   (c)  1997--2000 Han-Wen Nienhuys <hanwen@cs.uu.nl>
7 */
8
9
10
11 #ifndef MUSIC_HH
12 #define MUSIC_HH
13
14 #include "virtual-methods.hh"
15 #include "minterval.hh"
16 #include "lily-proto.hh"
17 #include "string.hh"
18 #include "smobs.hh"
19
20 /** Music is anything that has duration and supports both time compression and
21   transposition.
22   
23   In Lily, everything that can be thought to have a length and a pitch
24   (which has a duration which can be transposed) is considered "music",
25
26   Music is hierarchical: 
27
28   @see Music_sequence
29
30   */
31 class Music {
32 public:
33   DECLARE_SMOBS;
34   SCM immutable_property_alist_;
35   SCM mutable_property_alist_;
36  
37   Input *origin () const; 
38   void set_spot (Input);  
39   
40   SCM get_mus_property (const char*) const;
41   SCM get_mus_property (SCM) const;
42   void set_mus_property (const char * , SCM val);
43   void set_immutable_mus_property (const char * , SCM val);
44   void set_immutable_mus_property (SCM key, SCM val);  
45   void set_mus_property (SCM , SCM val);  
46   void set_mus_pointer (const char*, SCM val);
47   SCM remove_mus_property (const char* nm);
48
49   virtual SCM do_derived_mark ();
50   virtual Musical_pitch to_relative_octave (Musical_pitch);
51
52   /// The duration of this piece of music
53   virtual Moment length_mom () const;
54
55   virtual ~Music();
56   void print() const;
57   /// Transpose, with the interval central C to #p#
58   virtual void transpose (Musical_pitch p);
59
60   /// Scale the music in time by #factor#.
61   virtual void compress (Moment factor);
62   VIRTUAL_COPY_CONS(Music);
63   Music (Music const &m);
64   Music();
65 protected:
66   virtual void do_print() const;
67 };
68
69
70 Music * unsmob_music (SCM);
71 #endif // MUSIC_HH
72
73
74