lily/key-performer.cc

   1 /*
   2   key-performer.cc -- implement Key_performer
   3
   4   source file of the GNU LilyPond music typesetter
   5
   6   (c)  1997--2001 Jan Nieuwenhuizen <janneke@gnu.org>
   7 */
   8
   9 #include "lily-guile.hh"
  10 #include "command-request.hh"
  11 #include "audio-item.hh"
  12 #include "performer.hh"
  13
  14 class Key_performer : public Performer
  15 {
  16 public:
  17   TRANSLATOR_DECLARATIONS(Key_performer);
  18   ~Key_performer ();
  19
  20 protected:
  21   virtual bool try_music (Music* req_l);
  22   virtual void create_audio_elements ();
  23   virtual void stop_translation_timestep ();
  24
  25 private:
  26   Key_change_req* key_req_l_;
  27   Audio_key* audio_p_;
  28 };
  29
  30 Key_performer::Key_performer ()
  31 {
  32   key_req_l_ = 0;
  33   audio_p_ = 0;
  34 }
  35
  36 Key_performer::~Key_performer ()
  37 {
  38 }
  39
  40 void
  41 Key_performer::create_audio_elements ()
  42 {
  43   if (key_req_l_)
  44     {
  45       SCM pitchlist = key_req_l_->get_mus_property ("pitch-alist");
  46       SCM proc = scm_primitive_eval (ly_symbol2scm ("accidentals-in-key"));
  47       SCM acc = gh_call1 (proc, pitchlist);
  48       proc = scm_primitive_eval (ly_symbol2scm ("major-key"));
  49       SCM major = gh_call1 (proc, pitchlist);
  50       audio_p_ = new Audio_key (gh_scm2int (acc), major == SCM_BOOL_T);
  51       Audio_element_info info (audio_p_, key_req_l_);
  52       announce_element (info);
  53       key_req_l_ = 0;
  54     }
  55 }
  56
  57 void
  58 Key_performer::stop_translation_timestep ()
  59 {
  60   if (audio_p_)
  61     {
  62       play_element (audio_p_);
  63       audio_p_ = 0;
  64     }
  65 }
  66
  67 bool
  68 Key_performer::try_music (Music* req_l)
  69 {
  70   if (Key_change_req *kc = dynamic_cast <Key_change_req *> (req_l))
  71     {
  72       if (key_req_l_)
  73         warning (_ ("FIXME: key change merge"));
  74
  75       key_req_l_ = kc;
  76       return true;
  77     }
  78
  79   return false;
  80 }
  81
  82 ENTER_DESCRIPTION(Key_performer,"","","","","");