lily/moment-scheme.cc

   1 /*
   2   moment.cc -- implement Moment bindings
   3
   4   source file of the GNU LilyPond music typesetter
   5
   6   (c) 1999--2008 Han-Wen Nienhuys <hanwen@xs4all.nl>
   7 */
   8
   9 #include "moment.hh"
  10
  11 /* TODO: add optional factor argument. */
  12 LY_DEFINE (ly_make_moment, "ly:make-moment",
  13            2, 2, 0, (SCM n, SCM d, SCM gn, SCM gd),
  14            "Create the rational number with main timing @var{n}/@var{d},"
  15            " and optional grace timing @var{gn}/@var{gd}.\n"
  16            "\n"
  17            "A @dfn{moment} is a point in musical time.  It consists of"
  18            " a pair of rationals (@var{m},@tie{}@var{g}), where @var{m} is"
  19            " the timing for the main notes, and @var{g} the timing for"
  20            " grace notes.  In absence of grace notes, @var{g}@tie{}is zero.")
  21 {
  22   LY_ASSERT_TYPE (scm_is_integer, n, 1);
  23   LY_ASSERT_TYPE (scm_is_integer, d, 2);
  24
  25   int grace_num = 0;
  26   if (gn != SCM_UNDEFINED)
  27     {
  28       LY_ASSERT_TYPE (scm_is_integer, gn, 3);
  29       grace_num = scm_to_int (gn);
  30     }
  31
  32   int grace_den = 1;
  33   if (gd != SCM_UNDEFINED)
  34     {
  35       LY_ASSERT_TYPE (scm_is_integer, gd, 4);
  36       grace_den = scm_to_int (gd);
  37     }
  38
  39   return Moment (Rational (scm_to_int (n), scm_to_int (d)),
  40                  Rational (grace_num, grace_den)).smobbed_copy ();
  41 }
  42
  43 LY_DEFINE (ly_moment_sub, "ly:moment-sub",
  44            2, 0, 0, (SCM a, SCM b),
  45            "Subtract two moments.")
  46 {
  47   LY_ASSERT_SMOB (Moment, a, 1);
  48   LY_ASSERT_SMOB (Moment, b, 2);
  49
  50   Moment *ma = unsmob_moment (a);
  51   Moment *mb = unsmob_moment (b);
  52
  53   return (*ma - *mb).smobbed_copy ();
  54 }
  55
  56 LY_DEFINE (ly_moment_add, "ly:moment-add",
  57            2, 0, 0, (SCM a, SCM b),
  58            "Add two moments.")
  59 {
  60   LY_ASSERT_SMOB (Moment, a, 1);
  61   LY_ASSERT_SMOB (Moment, b, 2);
  62
  63   Moment *ma = unsmob_moment (a);
  64   Moment *mb = unsmob_moment (b);
  65
  66   return (*ma + *mb).smobbed_copy ();
  67 }
  68
  69 LY_DEFINE (ly_moment_mul, "ly:moment-mul",
  70            2, 0, 0, (SCM a, SCM b),
  71            "Multiply two moments.")
  72 {
  73   LY_ASSERT_SMOB (Moment, a, 1);
  74   LY_ASSERT_SMOB (Moment, b, 2);
  75
  76   Moment *ma = unsmob_moment (a);
  77   Moment *mb = unsmob_moment (b);
  78   return (*ma * * mb).smobbed_copy ();
  79 }
  80
  81 LY_DEFINE (ly_moment_div, "ly:moment-div",
  82            2, 0, 0, (SCM a, SCM b),
  83            "Divide two moments.")
  84 {
  85   LY_ASSERT_SMOB (Moment, a, 1);
  86   LY_ASSERT_SMOB (Moment, b, 2);
  87
  88   Moment *ma = unsmob_moment (a);
  89   Moment *mb = unsmob_moment (b);
  90
  91   return (*ma / * mb).smobbed_copy ();
  92 }
  93
  94 LY_DEFINE (ly_moment_mod, "ly:moment-mod",
  95            2, 0, 0, (SCM a, SCM b),
  96            "Modulo of two moments.")
  97 {
  98   LY_ASSERT_SMOB (Moment, a, 1);
  99   LY_ASSERT_SMOB (Moment, b, 2);
 100
 101   Moment *ma = unsmob_moment (a);
 102   Moment *mb = unsmob_moment (b);
 103   return (*ma % * mb).smobbed_copy ();
 104 }
 105
 106 LY_DEFINE (ly_moment_grace_numerator, "ly:moment-grace-numerator",
 107            1, 0, 0, (SCM mom),
 108            "Extract numerator from grace timing.")
 109 {
 110   LY_ASSERT_SMOB (Moment, mom, 1);
 111
 112   Moment *ma = unsmob_moment (mom);
 113
 114   return scm_from_int64 (ma->grace_part_.numerator ());
 115 }
 116
 117 LY_DEFINE (ly_moment_grace_denominator, "ly:moment-grace-denominator",
 118            1, 0, 0, (SCM mom),
 119            "Extract denominator from grace timing.")
 120 {
 121   LY_ASSERT_SMOB (Moment, mom, 1);
 122   Moment *ma = unsmob_moment (mom);
 123
 124   return scm_from_int64 (ma->grace_part_.denominator ());
 125 }
 126 LY_DEFINE (ly_moment_main_numerator, "ly:moment-main-numerator",
 127            1, 0, 0, (SCM mom),
 128            "Extract numerator from main timing.")
 129 {
 130   LY_ASSERT_SMOB (Moment, mom, 1);
 131   Moment *ma = unsmob_moment (mom);
 132
 133   return scm_from_int64 (ma->main_part_.numerator ());
 134 }
 135
 136 LY_DEFINE (ly_moment_main_denominator, "ly:moment-main-denominator",
 137            1, 0, 0, (SCM mom),
 138            "Extract denominator from main timing.")
 139 {
 140   LY_ASSERT_SMOB (Moment, mom, 1);
 141   Moment *ma = unsmob_moment (mom);
 142
 143   return scm_from_int64 (ma->main_part_.denominator ());
 144 }
 145
 146 LY_DEFINE (ly_moment_less_p, "ly:moment<?",
 147            2, 0, 0, (SCM a, SCM b),
 148            "Compare two moments.")
 149 {
 150   LY_ASSERT_SMOB (Moment, a, 1);
 151   LY_ASSERT_SMOB (Moment, b, 2);
 152
 153   Moment *ma = unsmob_moment (a);
 154   Moment *mb = unsmob_moment (b);
 155
 156   return ly_bool2scm (*ma < *mb);
 157 }
 158