lily/grob-pitch-tuple.cc

   1 /*
   2 grob-pitch-tuple.cc --  implement Grob_pitch_tuple
   3
   4 source file of the GNU LilyPond music typesetter
   5
   6 (c) 2001--2004  Han-Wen Nienhuys <hanwen@cs.uu.nl>
   7
   8  */
   9 #include "grob-pitch-tuple.hh"
  10 #include "pitch.hh"
  11 #include "event.hh"
  12
  13
  14 int compare (Grob_pitch_tuple const &a, Grob_pitch_tuple const &b)
  15 {
  16   return Grob_pitch_tuple::time_compare (a,b);
  17 }
  18
  19
  20
  21
  22 Grob_pitch_tuple::Grob_pitch_tuple ()
  23 {
  24   head_ =0;
  25   end_ = 0;
  26 }
  27
  28 Grob_pitch_tuple::Grob_pitch_tuple (Grob *h, Music *m, Moment mom)
  29 {
  30   head_ = h;
  31   pitch_ = *unsmob_pitch (m->get_mus_property ("pitch"));
  32   end_ = mom;
  33 }
  34
  35 /*
  36   signed compare, should use pitch<?
  37  */
  38 int
  39 Grob_pitch_tuple::pitch_compare (Grob_pitch_tuple const &h1,
  40                                     Grob_pitch_tuple const &h2)
  41 {
  42   return Pitch::compare (h1.pitch_, h2.pitch_);
  43 }
  44
  45 int
  46 Grob_pitch_tuple::time_compare (Grob_pitch_tuple const&h1,
  47                                    Grob_pitch_tuple const &h2)
  48 {
  49   return Moment::compare(h1.end_,  h2.end_);
  50 }