lily/span-dynamic-performer.cc

   1 /*
   2   span-dynamic-performer.cc -- implement Span_dynamic_performer
   3
   4   source file of the GNU LilyPond music typesetter
   5
   6   (c)  2000 Jan Nieuwenhuizen <janneke@gnu.org>
   7 */
   8
   9 #include "performer.hh"
  10 #include "command-request.hh"
  11 #include "musical-request.hh"
  12 #include "audio-item.hh"
  13
  14 struct Audio_dynamic_tuple
  15 {
  16   Audio_dynamic* audio_l_;
  17   Moment mom_;
  18 };
  19
  20 /**
  21    perform span-dynamics
  22  */
  23 class Span_dynamic_performer : public Performer
  24 {
  25 public:
  26   VIRTUAL_COPY_CONS (Translator);
  27
  28   Span_dynamic_performer ();
  29
  30 protected:
  31   virtual bool do_try_music (Music* req_l);
  32   virtual void acknowledge_element (Audio_element_info);
  33   virtual void do_process_music ();
  34   virtual void do_pre_move_processing ();
  35   virtual void do_post_move_processing ();
  36
  37 private:
  38   Audio_dynamic* audio_p_;
  39   Span_req* span_start_req_l_;
  40   Drul_array<Span_req*> span_req_l_drul_;
  41   Array<Audio_dynamic_tuple> dynamic_tuple_arr_;
  42   Array<Audio_dynamic_tuple> finished_dynamic_tuple_arr_;
  43   Direction dir_;
  44   Direction finished_dir_;
  45 };
  46
  47 ADD_THIS_TRANSLATOR (Span_dynamic_performer);
  48
  49 Span_dynamic_performer::Span_dynamic_performer ()
  50 {
  51   span_req_l_drul_[START] = 0;
  52   span_req_l_drul_[STOP] = 0;
  53   span_start_req_l_ = 0;
  54   audio_p_ = 0;
  55 }
  56
  57 void
  58 Span_dynamic_performer::acknowledge_element (Audio_element_info i)
  59 {
  60   if (Audio_dynamic * d = dynamic_cast <Audio_dynamic*> (i.elem_l_))
  61     {
  62       Audio_dynamic_tuple a = { d, now_mom () };
  63       if (!span_req_l_drul_[START])
  64         dynamic_tuple_arr_.clear ();
  65       dynamic_tuple_arr_.push (a);
  66       if (finished_dynamic_tuple_arr_.size ())
  67         finished_dynamic_tuple_arr_.push (a);
  68     }
  69 }
  70
  71 void
  72 Span_dynamic_performer::do_process_music ()
  73 {
  74   if (finished_dynamic_tuple_arr_.size () > 1
  75      && finished_dynamic_tuple_arr_.top ().audio_l_->volume_i_)
  76     {
  77       Real start_volume = finished_dynamic_tuple_arr_[0].audio_l_->volume_i_;
  78       Real dv = finished_dynamic_tuple_arr_.top ().audio_l_->volume_i_
  79         - start_volume;
  80       /*
  81         urg.
  82         Catch and fix the case of:
  83
  84              |                         |
  85             x|                        x|
  86             f cresc.  -- -- -- -- --  pp
  87
  88          Actually, we should provide a non-displayed dynamic/volume setting,
  89          to set volume to 'ff' just before the pp.
  90        */
  91       if (!dv || sign (dv) != finished_dir_)
  92         {
  93           // urg.  about one volume step
  94           dv = (int)finished_dir_ * 13;
  95           if (!start_volume)
  96             start_volume = finished_dynamic_tuple_arr_.top
  97               ().audio_l_->volume_i_ - dv;
  98         }
  99       Moment start_mom = finished_dynamic_tuple_arr_[0].mom_;
 100       Moment dt = finished_dynamic_tuple_arr_.top ().mom_ - start_mom;
 101       for (int i=0; i < finished_dynamic_tuple_arr_.size (); i++)
 102         {
 103           Audio_dynamic_tuple* a = &finished_dynamic_tuple_arr_[i];
 104           Real volume = start_volume + dv * (Real)(a->mom_ - start_mom)
 105             / (Real)dt;
 106           a->audio_l_->volume_i_ = (int)volume;
 107         }
 108       finished_dynamic_tuple_arr_.clear ();
 109     }
 110
 111   if (span_req_l_drul_[STOP])
 112     {
 113       finished_dir_ = dir_;
 114       if (!span_start_req_l_)
 115         {
 116           span_req_l_drul_[STOP]->warning (_ ("can't find start of (de)crescendo"));
 117         }
 118       else
 119         {
 120           span_start_req_l_ = 0;
 121           finished_dynamic_tuple_arr_ = dynamic_tuple_arr_;
 122           dynamic_tuple_arr_.clear ();
 123           if (finished_dynamic_tuple_arr_.size ())
 124             dynamic_tuple_arr_.push (finished_dynamic_tuple_arr_.top ());
 125         }
 126     }
 127
 128   if (span_req_l_drul_[START])
 129     {
 130       dir_ = span_req_l_drul_[START]->span_type_str_ == "crescendo"
 131         ? RIGHT : LEFT;
 132       span_start_req_l_ = span_req_l_drul_[START];
 133       audio_p_ = new Audio_dynamic (0);
 134       Audio_element_info info (audio_p_, 0);
 135       announce_element (info);
 136
 137       Audio_dynamic_tuple a = { audio_p_, now_mom () };
 138       dynamic_tuple_arr_.push (a);
 139     }
 140 }
 141
 142 void
 143 Span_dynamic_performer::do_pre_move_processing ()
 144 {
 145   if (audio_p_)
 146     {
 147       play_element (audio_p_);
 148       audio_p_ = 0;
 149     }
 150 }
 151
 152 void
 153 Span_dynamic_performer::do_post_move_processing ()
 154 {
 155   span_req_l_drul_[STOP] = 0;
 156   span_req_l_drul_[START] = 0;
 157 }
 158
 159 bool
 160 Span_dynamic_performer::do_try_music (Music* r)
 161 {
 162   if (Span_req * s = dynamic_cast<Span_req*>(r))
 163     {
 164       if (s-> span_type_str_ == "crescendo"
 165           || s->span_type_str_ == "decrescendo")
 166         {
 167           span_req_l_drul_[s->span_dir_] = s;
 168           return true;
 169         }
 170     }
 171   return false;
 172 }