lily/note-performer.cc

   1 /*
   2   note-performer.cc -- implement Note_performer
   3
   4   source file of the GNU LilyPond music typesetter
   5
   6   (c) 1996--2004 Jan Nieuwenhuizen <janneke@gnu.org>
   7  */
   8
   9 #include "performer.hh"
  10 #include "event.hh"
  11 #include "audio-item.hh"
  12 #include "audio-column.hh"
  13 #include "global-translator.hh"
  14 #include "warn.hh"
  15
  16 /**
  17 Convert evs to audio notes.
  18 */
  19 class Note_performer : public Performer {
  20 public:
  21   TRANSLATOR_DECLARATIONS(Note_performer);
  22
  23 protected:
  24   virtual bool try_music (Music *ev) ;
  25
  26   virtual void stop_translation_timestep ();
  27   virtual void create_audio_elements ();
  28   Global_translator* get_global_translator ();
  29
  30 private:
  31   Link_array<Music> note_evs_;
  32   Link_array<Audio_note> notes_;
  33   Link_array<Audio_note> delayeds_;
  34 };
  35
  36 void
  37 Note_performer::create_audio_elements ()
  38 {
  39   if (note_evs_.size ())
  40     {
  41       int transposing_i = 0;
  42       //urg
  43       SCM prop = get_property ("transposing");
  44       if (gh_number_p (prop))
  45         transposing_i = gh_scm2int (prop);
  46
  47       while (note_evs_.size ())
  48         {
  49           Music* n = note_evs_.pop ();
  50           Pitch *pit =  unsmob_pitch (n->get_mus_property ("pitch"));
  51
  52           if (pit)
  53             {
  54               Audio_note* p = new Audio_note (*pit,  n->get_length (), transposing_i);
  55               Audio_element_info info (p, n);
  56               announce_element (info);
  57               notes_.push (p);
  58             }
  59         }
  60       note_evs_.clear ();
  61     }
  62 }
  63
  64 Global_translator*
  65 Note_performer::get_global_translator ()
  66 {
  67   Translator *t = this;
  68   Global_translator *global =0;
  69   do
  70     {
  71       t = t->daddy_trans_ ;
  72       global = dynamic_cast<Global_translator*> (t);
  73     }
  74   while (!global);
  75
  76   return global;
  77 }
  78
  79
  80 void
  81 Note_performer::stop_translation_timestep ()
  82 {
  83
  84   // why don't grace notes show up here?
  85   // --> grace notes effectively do not get delayed
  86   Global_translator* global = get_global_translator ();
  87   for (int i=0; i < notes_.size (); i++)
  88     {
  89       Audio_note* n = notes_[i];
  90       Moment m= n->delayed_until_mom_;
  91       if (m.to_bool ())
  92         {
  93           global->add_moment_to_process (m);
  94           delayeds_.push (n);
  95           notes_[i] = 0;
  96           notes_.del (i);
  97           i--;
  98         }
  99     }
 100
 101   Moment now = now_mom ();
 102   for (int i=0; i < notes_.size (); i++)
 103     {
 104       play_element (notes_[i]);
 105     }
 106   notes_.clear ();
 107   note_evs_.clear ();
 108   for (int i=0; i < delayeds_.size (); i++)
 109     {
 110       Audio_note* n = delayeds_[i];
 111       if (n->delayed_until_mom_ <= now)
 112         {
 113           play_element (n);
 114           delayeds_[i] = 0;
 115           delayeds_.del (i);
 116           i--;
 117         }
 118     }
 119 }
 120
 121 bool
 122 Note_performer::try_music (Music* ev)
 123 {
 124   if (ev->is_mus_type ("note-event"))
 125     {
 126       note_evs_.push (ev);
 127       return true;
 128     }
 129   else if (ev->is_mus_type ("busy-playing-event"))
 130     return note_evs_.size ();
 131
 132   return false;
 133 }
 134
 135 ENTER_DESCRIPTION(Note_performer,"","",
 136                   "note-event busy-playing-event","","","");
 137
 138 Note_performer::Note_performer()
 139 {
 140 }