]> git.donarmstrong.com Git - lilypond.git/blob - lily/include/moment.hh
Update.
[lilypond.git] / lily / include / moment.hh
1 /*
2   moment.hh -- declare Moment
3
4   source file of the GNU LilyPond music typesetter
5
6   (c) 1999--2005 Han-Wen Nienhuys <hanwen@cs.uu.nl>
7 */
8
9 #ifndef MOMENT_HH
10 #define MOMENT_HH
11
12 #include "smobs.hh"
13 #include "rational.hh"
14
15 /**
16    Musical timing (Main-timing, grace-timing) with glue for
17    Guilification;
18 */
19 class Moment
20 {
21   DECLARE_SIMPLE_SMOBS (Moment,);
22 public:
23   Moment ();
24   Moment (int m);
25
26   Moment (Rational, Rational);
27   Moment (Rational m);
28
29   Moment operator - () const;
30
31   void operator += (Moment const &m);
32   void operator -= (Moment const &m);
33
34   void operator *= (Moment const &m);
35   void operator /= (Moment const &m);
36
37   Rational main_part_;
38   Rational grace_part_;
39
40   void set_infinite (int k);
41
42   bool to_bool () const;
43   int den () const;
44   int num () const;
45   /*
46     Deliver a copy of THIS as a smobified SCM
47   */
48   String to_string () const;
49   static int compare (Moment const &, Moment const &);
50   SCM as_scheme () const;
51 };
52 IMPLEMENT_ARITHMETIC_OPERATOR (Moment, +);
53 IMPLEMENT_ARITHMETIC_OPERATOR (Moment, -);
54 IMPLEMENT_ARITHMETIC_OPERATOR (Moment, /);
55 IMPLEMENT_ARITHMETIC_OPERATOR (Moment, *);
56
57 DECLARE_UNSMOB (Moment, moment);
58 int compare (Moment const &, Moment const &);
59 INSTANTIATE_COMPARE (Moment const &, Moment::compare);
60
61 Moment robust_scm2moment (SCM, Moment);
62
63 #ifdef STREAM_SUPPORT
64 std::ostream &operator << (std::ostream &, Moment const &);
65 #endif
66
67 bool moment_less (SCM a, SCM b);
68
69 #endif /* MOMENT_HH */
70