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--2002 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
  15 class Key_performer : public Performer
  16 {
  17 public:
  18   TRANSLATOR_DECLARATIONS(Key_performer);
  19   ~Key_performer ();
  20
  21 protected:
  22   virtual bool try_music (Music* req_l);
  23   virtual void create_audio_elements ();
  24   virtual void stop_translation_timestep ();
  25
  26 private:
  27   Key_change_req* key_req_l_;
  28   Audio_key* audio_p_;
  29 };
  30
  31 Key_performer::Key_performer ()
  32 {
  33   key_req_l_ = 0;
  34   audio_p_ = 0;
  35 }
  36
  37 Key_performer::~Key_performer ()
  38 {
  39 }
  40
  41 void
  42 Key_performer::create_audio_elements ()
  43 {
  44   if (key_req_l_)
  45     {
  46       SCM pitchlist = key_req_l_->get_mus_property ("pitch-alist");
  47       SCM proc = scm_primitive_eval (ly_symbol2scm ("accidentals-in-key"));
  48       SCM acc = gh_call1 (proc, pitchlist);
  49       proc = scm_primitive_eval (ly_symbol2scm ("major-key"));
  50
  51       Pitch my_do (0,
  52                    gh_scm2int (ly_caar (pitchlist)),
  53                    gh_scm2int (ly_cdar (pitchlist)));
  54
  55       Pitch to_c (-1,
  56                    (7 - gh_scm2int (ly_caar (pitchlist))) % 7,
  57                    -gh_scm2int (ly_cdar (pitchlist)));
  58
  59       my_do.transpose (to_c);
  60       to_c.alteration_i_ -= my_do.alteration_i_;
  61
  62       Key_change_req *key = new Key_change_req;
  63       key->set_mus_property ("pitch-alist", scm_list_copy (pitchlist));
  64       ((Music*)key)->transpose (to_c);
  65       SCM c_pitchlist = key->get_mus_property ("pitch-alist");
  66       SCM major = gh_call1 (proc, c_pitchlist);
  67
  68       audio_p_ = new Audio_key (gh_scm2int (acc), major == SCM_BOOL_T);
  69       Audio_element_info info (audio_p_, key_req_l_);
  70       announce_element (info);
  71       key_req_l_ = 0;
  72     }
  73 }
  74
  75 void
  76 Key_performer::stop_translation_timestep ()
  77 {
  78   if (audio_p_)
  79     {
  80       play_element (audio_p_);
  81       audio_p_ = 0;
  82     }
  83 }
  84
  85 bool
  86 Key_performer::try_music (Music* req_l)
  87 {
  88   if (Key_change_req *kc = dynamic_cast <Key_change_req *> (req_l))
  89     {
  90       if (key_req_l_)
  91         warning (_ ("FIXME: key change merge"));
  92
  93       key_req_l_ = kc;
  94       return true;
  95     }
  96
  97   return false;
  98 }
  99
 100 ENTER_DESCRIPTION(Key_performer,"","","","","");