lily/tempo-performer.cc

   1 /*
   2   tempo-performer.cc -- implement Tempo_performer
   3
   4   source file of the GNU LilyPond music typesetter
   5
   6   (c) 1997--2006 Jan Nieuwenhuizen <janneke@gnu.org>
   7 */
   8
   9 #include "performer.hh"
  10
  11 #include "audio-item.hh"
  12 #include "music.hh"
  13 #include "duration.hh"
  14
  15 class Tempo_performer : public Performer
  16 {
  17 public:
  18   TRANSLATOR_DECLARATIONS (Tempo_performer);
  19   ~Tempo_performer ();
  20
  21 protected:
  22
  23   virtual bool try_music (Music *event);
  24   void stop_translation_timestep ();
  25   void process_music ();
  26
  27 private:
  28   Music *tempo_event_;
  29   Audio_tempo *audio_;
  30 };
  31
  32 Tempo_performer::Tempo_performer ()
  33 {
  34   tempo_event_ = 0;
  35   audio_ = 0;
  36 }
  37
  38 Tempo_performer::~Tempo_performer ()
  39 {
  40 }
  41
  42 void
  43 Tempo_performer::process_music ()
  44 {
  45   if (tempo_event_)
  46     {
  47       SCM met = tempo_event_->get_property ("metronome-count");
  48       Duration *d = unsmob_duration (tempo_event_->get_property ("tempo-unit"));
  49
  50       Rational r = (d->get_length () / Moment (Rational (1, 4)) * Moment (scm_to_int (met))).main_part_;
  51
  52       audio_ = new Audio_tempo (r.to_int ());
  53
  54       Audio_element_info info (audio_, tempo_event_);
  55       announce_element (info);
  56       tempo_event_ = 0;
  57     }
  58 }
  59
  60 void
  61 Tempo_performer::stop_translation_timestep ()
  62 {
  63   if (audio_)
  64     {
  65       play_element (audio_);
  66       audio_ = 0;
  67     }
  68 }
  69
  70 bool
  71 Tempo_performer::try_music (Music *event)
  72 {
  73   if (tempo_event_)
  74     return false;
  75
  76   tempo_event_ = event;
  77   return true;
  78 }
  79
  80 #include "translator.icc"
  81
  82 ADD_TRANSLATOR (Tempo_performer, "", "",
  83                 "metronome-change-event",
  84                 "", "");