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 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 /*
  15   TODO:
  16     handle multiple requests
  17     handle span requests (crescendo/decrescendo)
  18  */
  19
  20 /**
  21    perform absolute (text) dynamics
  22  */
  23 class Dynamic_performer : public Performer
  24 {
  25 public:
  26   VIRTUAL_COPY_CONS (Translator);
  27
  28   Dynamic_performer ();
  29   ~Dynamic_performer ();
  30
  31 protected:
  32   void do_print () const;
  33   virtual bool do_try_music (Music* req_l);
  34   virtual void do_process_music ();
  35   virtual void do_pre_move_processing ();
  36
  37 private:
  38   Text_script_req* text_script_req_l_;
  39   Audio_dynamic* audio_p_;
  40 };
  41
  42 ADD_THIS_TRANSLATOR (Dynamic_performer);
  43
  44 Dynamic_performer::Dynamic_performer ()
  45 {
  46   text_script_req_l_ = 0;
  47   audio_p_ = 0;
  48 }
  49
  50 Dynamic_performer::~Dynamic_performer ()
  51 {
  52 }
  53
  54 void
  55 Dynamic_performer::do_print () const
  56 {
  57 #ifndef NPRINT
  58   if (text_script_req_l_)
  59     text_script_req_l_->print ();
  60 #endif
  61 }
  62
  63 void
  64 Dynamic_performer::do_process_music ()
  65 {
  66   if (text_script_req_l_)
  67     {
  68
  69       SCM s = scm_eval
  70         (gh_list
  71          (ly_symbol2scm ("dynamic-absolute-volume"),
  72           ly_quote_scm (ly_str02scm (text_script_req_l_->text_str_.ch_C ())),
  73           SCM_UNDEFINED));
  74       Real volume = gh_scm2double (ly_eval_str ("dynamic-default-volume"));
  75       if (gh_number_p (s))
  76         volume = gh_scm2double (s);
  77
  78       /*
  79         urg, code duplication:: staff_performer
  80        */
  81       s = get_property ("midiInstrument");
  82
  83       if (!gh_string_p(s))
  84         s = get_property ("instrument");
  85
  86       if (!gh_string_p(s))
  87         s = ly_str02scm ("piano");
  88
  89
  90       /*
  91         properties override default equaliser setting
  92        */
  93       SCM min = get_property ("midiMinimumVolume");
  94       SCM max = get_property ("midiMaximumVolume");
  95       if (gh_number_p (min) || gh_number_p (max))
  96         {
  97           Interval iv (0, 1);
  98           if (gh_number_p (min))
  99             iv[MIN] = gh_scm2double (min);
 100           if (gh_number_p (max))
 101             iv[MAX] = gh_scm2double (max);
 102           volume = iv[MIN] + iv.length () * volume;
 103         }
 104       else
 105         {
 106           s = scm_eval (gh_list (ly_symbol2scm ("instrument-equaliser"),
 107                                  s, SCM_UNDEFINED));
 108           if (gh_pair_p (s))
 109             {
 110               Interval iv;
 111               iv[MIN] = gh_scm2double (gh_car (s));
 112               iv[MAX] = gh_scm2double (gh_cdr (s));
 113               volume = iv[MIN] + iv.length () * volume;
 114             }
 115         }
 116
 117       audio_p_ = new Audio_dynamic (volume);
 118       Audio_element_info info (audio_p_, text_script_req_l_);
 119       announce_element (info);
 120       text_script_req_l_ = 0;
 121     }
 122 }
 123
 124 void
 125 Dynamic_performer::do_pre_move_processing ()
 126 {
 127   if (audio_p_)
 128     {
 129       play_element (audio_p_);
 130       audio_p_ = 0;
 131     }
 132 }
 133
 134 bool
 135 Dynamic_performer::do_try_music (Music* r)
 136 {
 137   if (!text_script_req_l_)
 138     {
 139       // urg, text script, style `dynamic' is how absolute dynamics appear
 140       if(Text_script_req* t = dynamic_cast <Text_script_req*> (r))
 141         {
 142           if (t->style_str_ == "dynamic")
 143             {
 144               text_script_req_l_ = t;
 145               return true;
 146             }
 147         }
 148     }
 149   return false;
 150 }
 151