lily/dynamic-performer.cc

   1 /*
   2   dynamic-performer.cc -- implement Dynamic_performer
   3
   4   source file of the GNU LilyPond music typesetter
   5
   6   (c) 2000--2005 Jan Nieuwenhuizen <janneke@gnu.org>
   7 */
   8
   9 #include "performer.hh"
  10
  11 #include "audio-item.hh"
  12 #include "music.hh"
  13
  14 /*
  15   TODO:
  16
  17   handle multiple events
  18
  19   perform absolute (text) dynamics
  20 */
  21 class Dynamic_performer : public Performer
  22 {
  23 public:
  24   TRANSLATOR_DECLARATIONS (Dynamic_performer);
  25 protected:
  26   virtual bool try_music (Music *req);
  27   PRECOMPUTED_VIRTUAL void stop_translation_timestep ();
  28   virtual void create_audio_elements ();
  29
  30 private:
  31   Music *script_req_;
  32   Audio_dynamic *audio_;
  33 };
  34
  35 Dynamic_performer::Dynamic_performer ()
  36 {
  37   script_req_ = 0;
  38   audio_ = 0;
  39 }
  40
  41 void
  42 Dynamic_performer::create_audio_elements ()
  43 {
  44   if (script_req_)
  45     {
  46       SCM proc = get_property ("dynamicAbsoluteVolumeFunction");
  47
  48       SCM svolume = SCM_EOL;
  49       if (ly_is_procedure (proc))
  50         {
  51           // urg
  52           svolume = scm_call_1 (proc, script_req_->get_property ("text"));
  53         }
  54
  55       Real volume = robust_scm2double (svolume, 0.5);
  56
  57       /*
  58         properties override default equaliser setting
  59       */
  60       SCM min = get_property ("midiMinimumVolume");
  61       SCM max = get_property ("midiMaximumVolume");
  62       if (scm_is_number (min) || scm_is_number (max))
  63         {
  64           Interval iv (0, 1);
  65           if (scm_is_number (min))
  66             iv[MIN] = scm_to_double (min);
  67           if (scm_is_number (max))
  68             iv[MAX] = scm_to_double (max);
  69           volume = iv[MIN] + iv.length () * volume;
  70         }
  71       else
  72         {
  73           /*
  74             urg, code duplication:: staff_performer
  75           */
  76           SCM s = get_property ("midiInstrument");
  77
  78           if (!scm_is_string (s))
  79             s = get_property ("instrument");
  80
  81           if (!scm_is_string (s))
  82             s = scm_makfrom0str ("piano");
  83
  84           SCM eq = get_property ("instrumentEqualizer");
  85           if (ly_is_procedure (eq))
  86             {
  87               s = scm_call_1 (eq, s);
  88             }
  89
  90           if (is_number_pair (s))
  91             {
  92               Interval iv = ly_scm2interval (s);
  93               volume = iv[MIN] + iv.length () * volume;
  94             }
  95         }
  96
  97       audio_ = new Audio_dynamic (volume);
  98       Audio_element_info info (audio_, script_req_);
  99       announce_element (info);
 100       script_req_ = 0;
 101     }
 102 }
 103
 104 void
 105 Dynamic_performer::stop_translation_timestep ()
 106 {
 107   if (audio_)
 108     {
 109       play_element (audio_);
 110       audio_ = 0;
 111     }
 112 }
 113
 114 bool
 115 Dynamic_performer::try_music (Music *r)
 116 {
 117   if (!script_req_)
 118     {
 119       if (r->is_mus_type ("absolute-dynamic-event")) // fixme.
 120         {
 121           script_req_ = r;
 122           return true;
 123         }
 124     }
 125   return false;
 126 }
 127
 128 #include "translator.icc"
 129
 130 ADD_TRANSLATOR (Dynamic_performer,
 131                 /*descr*/                "",
 132                 /* creats*/ "",
 133                 /* accepts */ "absolute-dynamic-event",
 134                 /* acks */ "",
 135                 /*reads */"dynamicAbsoluteVolumeFunction midiMaximumVolume midiMinimumVolume midiInstrument instrumentEqualizer",
 136                 /*writes*/"");