lily/staff-performer.cc

   1 /*
   2   staff-performer.cc -- implement Staff_performer
   3
   4   source file of the GNU LilyPond music typesetter
   5
   6   (c)  1997--2001 Jan Nieuwenhuizen <janneke@gnu.org>
   7  */
   8
   9 #include "translator-group.hh"
  10 #include "debug.hh"
  11 #include "audio-column.hh"
  12 #include "audio-item.hh"
  13 #include "audio-staff.hh"
  14 #include "performer-group-performer.hh"
  15
  16 /** Perform a staff. Individual notes should have their instrument
  17  (staff-wide) set, so we override play_element ()
  18
  19   */
  20 class Staff_performer : public Performer_group_performer
  21 {
  22 public:
  23   VIRTUAL_COPY_CONS (Translator);
  24
  25
  26   Staff_performer ();
  27   ~Staff_performer ();
  28
  29   String new_instrument_str ();
  30   String instrument_str_;
  31
  32 protected:
  33   virtual void play_element (Audio_element* p);
  34   virtual void finalize ();
  35   virtual void initialize ();
  36   virtual void create_audio_elements ();
  37   virtual void stop_translation_timestep ();
  38
  39 private:
  40   Audio_staff* audio_staff_p_;
  41   Audio_instrument* instrument_p_;
  42   Audio_text* instrument_name_p_;
  43   Audio_text* name_p_;
  44   Audio_tempo* tempo_p_;
  45 };
  46
  47 ADD_THIS_TRANSLATOR (Staff_performer);
  48
  49 Staff_performer::Staff_performer ()
  50 {
  51   audio_staff_p_ = 0;
  52   instrument_p_ = 0;
  53   instrument_name_p_ = 0;
  54   name_p_ = 0;
  55   tempo_p_ = 0;
  56 }
  57
  58 Staff_performer::~Staff_performer ()
  59 {
  60 }
  61
  62 void
  63 Staff_performer::initialize ()
  64 {
  65   audio_staff_p_ = new Audio_staff;
  66   announce_element (Audio_element_info (audio_staff_p_, 0));
  67
  68   name_p_ = new Audio_text (Audio_text::TRACK_NAME, id_str_);
  69   announce_element (Audio_element_info (name_p_, 0));
  70
  71   tempo_p_ = new Audio_tempo (get_tempo_i ());
  72   announce_element (Audio_element_info (tempo_p_, 0));
  73
  74   Performer_group_performer::initialize ();
  75 }
  76
  77 void
  78 Staff_performer::create_audio_elements ()
  79 {
  80   String str = new_instrument_str ();
  81   if (str.length_i ())
  82     {
  83       instrument_name_p_ = new Audio_text (Audio_text::INSTRUMENT_NAME, str);
  84       announce_element (Audio_element_info (instrument_name_p_, 0));
  85       instrument_p_ = new Audio_instrument (str);
  86       announce_element (Audio_element_info (instrument_p_, 0));
  87     }
  88   Performer_group_performer::create_audio_elements ();
  89 }
  90
  91 void
  92 Staff_performer::stop_translation_timestep ()
  93 {
  94   SCM proc = scm_primitive_eval (ly_symbol2scm ("percussion-p"));
  95   SCM drums_p = gh_call1 (proc, ly_symbol2scm (instrument_str_.ch_C()));
  96   audio_staff_p_->channel_i_ = (drums_p == SCM_BOOL_T ? 9 : -1 );
  97   if (name_p_)
  98     {
  99       play_element (name_p_);
 100       name_p_ = 0;
 101     }
 102   if (tempo_p_)
 103     {
 104       play_element (tempo_p_);
 105       tempo_p_ = 0;
 106     }
 107   if (instrument_name_p_)
 108     {
 109       play_element (instrument_name_p_);
 110       instrument_name_p_ = 0;
 111     }
 112   if (instrument_p_)
 113     {
 114       play_element (instrument_p_);
 115       instrument_p_ = 0;
 116     }
 117   Performer_group_performer::stop_translation_timestep ();
 118 }
 119
 120 void
 121 Staff_performer::finalize ()
 122 {
 123   Performer_group_performer::finalize ();
 124   Performer::play_element (audio_staff_p_);
 125   audio_staff_p_ = 0;
 126 }
 127
 128 String
 129 Staff_performer::new_instrument_str ()
 130 {
 131   // mustn't ask Score for instrument: it will return piano!
 132   SCM minstr = get_property (ly_symbol2scm ("midiInstrument"));
 133
 134   if (!gh_string_p (minstr))
 135     minstr = get_property (ly_symbol2scm ("instrument"));
 136
 137   if (!gh_string_p (minstr)
 138       || ly_scm2string (minstr) == instrument_str_)
 139     return "";
 140
 141   instrument_str_ = ly_scm2string (minstr);
 142
 143   return instrument_str_;
 144 }
 145
 146 void
 147 Staff_performer::play_element (Audio_element* p)
 148 {
 149   if (Audio_item *ai = dynamic_cast<Audio_item *> (p))
 150     {
 151       audio_staff_p_->add_audio_item (ai);
 152     }
 153   Performer::play_element (p);
 154 }
 155