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 try_music (Music*);
  32   virtual void acknowledge_grob (Audio_element_info);
  33   virtual void create_grobs ();
  34   void deprecated_process_music ();
  35   virtual void stop_translation_timestep ();
  36   virtual void start_translation_timestep ();
  37
  38 private:
  39   Audio_dynamic* audio_p_;
  40   Real last_volume_;
  41   Span_req* span_start_req_l_;
  42   Drul_array<Span_req*> span_req_l_drul_;
  43   Array<Audio_dynamic_tuple> dynamic_tuple_arr_;
  44   Array<Audio_dynamic_tuple> finished_dynamic_tuple_arr_;
  45   Direction dir_;
  46   Direction finished_dir_;
  47 };
  48
  49 ADD_THIS_TRANSLATOR (Span_dynamic_performer);
  50
  51 Span_dynamic_performer::Span_dynamic_performer ()
  52 {
  53   span_req_l_drul_[START] = 0;
  54   span_req_l_drul_[STOP] = 0;
  55   span_start_req_l_ = 0;
  56   audio_p_ = 0;
  57   last_volume_ = 0;
  58 }
  59
  60 void
  61 Span_dynamic_performer::acknowledge_grob (Audio_element_info i)
  62 {
  63   if (Audio_dynamic * d = dynamic_cast <Audio_dynamic*> (i.elem_l_))
  64     {
  65       last_volume_ = d->volume_;
  66     }
  67 }
  68
  69 void
  70 Span_dynamic_performer::deprecated_process_music ()
  71 {
  72   if (span_start_req_l_ || span_req_l_drul_[START])
  73     {
  74       audio_p_ = new Audio_dynamic (0);
  75       Audio_element_info info (audio_p_, span_req_l_drul_[START]
  76                                ? span_req_l_drul_[START]
  77                                : span_req_l_drul_[STOP]);
  78       announce_element (info);
  79       Audio_dynamic_tuple a = { audio_p_, now_mom () };
  80       dynamic_tuple_arr_.push (a);
  81     }
  82
  83   if (span_req_l_drul_[STOP])
  84     {
  85       if (!span_start_req_l_)
  86         {
  87           span_req_l_drul_[STOP]->origin ()->warning (_ ("can't find start of (de)crescendo"));
  88           span_req_l_drul_[STOP] = 0;
  89         }
  90       else
  91         {
  92           finished_dir_ = dir_;
  93           finished_dynamic_tuple_arr_ = dynamic_tuple_arr_;
  94         }
  95       dynamic_tuple_arr_.clear ();
  96       span_start_req_l_ = 0;
  97     }
  98
  99   if (span_req_l_drul_[START])
 100     {
 101       String t = ly_scm2string (span_req_l_drul_[START]->get_mus_property ("span-type"));
 102       dir_ = (t == "crescendo") ? RIGHT : LEFT;
 103       span_start_req_l_ = span_req_l_drul_[START];
 104
 105       dynamic_tuple_arr_.clear ();
 106       Audio_dynamic_tuple a = { audio_p_, now_mom () };
 107       dynamic_tuple_arr_.push (a);
 108     }
 109 }
 110
 111 void
 112 Span_dynamic_performer::create_grobs ()
 113 {
 114   deprecated_process_music ();
 115   if (span_req_l_drul_[STOP])
 116    {
 117      finished_dynamic_tuple_arr_.top ().audio_l_->volume_ = last_volume_;
 118    }
 119
 120   if (span_req_l_drul_[START])
 121     {
 122      dynamic_tuple_arr_[0].audio_l_->volume_ = last_volume_;
 123     }
 124   span_start_req_l_ = 0;
 125   span_req_l_drul_[START] = 0;
 126   span_req_l_drul_[STOP] = 0;
 127 }
 128
 129 void
 130 Span_dynamic_performer::stop_translation_timestep ()
 131 {
 132   if (finished_dynamic_tuple_arr_.size () > 1)
 133     {
 134       Real start_volume = finished_dynamic_tuple_arr_[0].audio_l_->volume_;
 135       Real dv = finished_dynamic_tuple_arr_.top ().audio_l_->volume_
 136         - start_volume;
 137       /*
 138         urg.
 139         Catch and fix the case of:
 140
 141              |                         |
 142             x|                        x|
 143             f cresc.  -- -- -- -- --  pp
 144
 145          Actually, we should provide a non-displayed dynamic/volume setting,
 146          to set volume to 'ff' just before the pp.
 147        */
 148       if (!dv || sign (dv) != finished_dir_)
 149         {
 150           // urg.  20%: about two volume steps
 151           dv = (Real)finished_dir_ * 0.2;
 152           if (!start_volume)
 153             start_volume = finished_dynamic_tuple_arr_.top
 154               ().audio_l_->volume_ - dv;
 155         }
 156       Moment start_mom = finished_dynamic_tuple_arr_[0].mom_;
 157       Moment dt = finished_dynamic_tuple_arr_.top ().mom_ - start_mom;
 158       for (int i=0; i < finished_dynamic_tuple_arr_.size (); i++)
 159         {
 160           Audio_dynamic_tuple* a = &finished_dynamic_tuple_arr_[i];
 161           Real volume = start_volume + dv * (Real)(a->mom_ - start_mom)
 162             / (Real)dt;
 163           a->audio_l_->volume_ = volume;
 164         }
 165       finished_dynamic_tuple_arr_.clear ();
 166     }
 167
 168   if (audio_p_)
 169     {
 170       play_element (audio_p_);
 171       audio_p_ = 0;
 172     }
 173 }
 174
 175 void
 176 Span_dynamic_performer::start_translation_timestep ()
 177 {
 178   span_req_l_drul_[STOP] = 0;
 179   span_req_l_drul_[START] = 0;
 180 }
 181
 182 bool
 183 Span_dynamic_performer::try_music (Music* r)
 184 {
 185   if (Span_req * s = dynamic_cast<Span_req*>(r))
 186     {
 187       String t =  ly_scm2string (s->get_mus_property ("span-type"));
 188       if (t == "crescendo" || t == "decrescendo")
 189         {
 190           span_req_l_drul_[s->get_span_dir()] = s;
 191           return true;
 192         }
 193     }
 194   return false;
 195 }