source file of the GNU LilyPond music typesetter
- (c) 1996, 1997--1999 Jan Nieuwenhuizen <janneke@gnu.org>
+ (c) 1996--2002 Jan Nieuwenhuizen <janneke@gnu.org>
*/
-#include "note-performer.hh"
+#include "performer.hh"
#include "musical-request.hh"
#include "audio-item.hh"
-#include "debug.hh"
+#include "audio-column.hh"
+#include "global-translator.hh"
+#include "warn.hh"
+/**
+Convert reqs to audio notes.
+*/
+class Note_performer : public Performer {
+public:
+ TRANSLATOR_DECLARATIONS(Note_performer);
+
+protected:
+ virtual bool try_music (Music *req_l) ;
-ADD_THIS_TRANSLATOR (Note_performer);
+ virtual void stop_translation_timestep ();
+ virtual void create_audio_elements ();
+ Global_translator* global_translator_l ();
-Note_performer::Note_performer ()
-{
-}
+private:
+ Array<Note_req*> note_req_l_arr_;
+ Array<Audio_note*> note_p_arr_;
+ Array<Audio_note*> delayed_p_arr_;
+};
void
-Note_performer::do_print () const
-{
-#ifndef NPRINT
- if (note_req_l_arr_.size()>0)
- for(int i=0;i<note_req_l_arr_.size();i++)
- note_req_l_arr_[i]->print ();
-#endif
-}
-
-void
-Note_performer::do_process_requests ()
+Note_performer::create_audio_elements ()
{
if (note_req_l_arr_.size ())
{
int transposing_i = 0;
//urg
- Scalar prop = get_property ("transposing", 0);
- if (!prop.empty_b () && prop.isnum_b ())
- transposing_i = prop;
+ SCM prop = get_property ("transposing");
+ if (gh_number_p (prop))
+ transposing_i = gh_scm2int (prop);
- while(note_req_l_arr_.size ())
+ while (note_req_l_arr_.size ())
{
Note_req* n = note_req_l_arr_.pop ();
- Audio_note* p = new Audio_note (n->pitch_, n->length_mom (), transposing_i);
+ Pitch pit = * unsmob_pitch (n->get_mus_property ("pitch"));
+ Audio_note* p = new Audio_note (pit, n->length_mom (), transposing_i);
Audio_element_info info (p, n);
announce_element (info);
note_p_arr_.push (p);
}
+ note_req_l_arr_.clear ();
+ }
+}
+
+Global_translator*
+Note_performer::global_translator_l ()
+{
+ Translator *t = this;
+ Global_translator *global_l =0;
+ do
+ {
+ t = t->daddy_trans_l_ ;
+ global_l = dynamic_cast<Global_translator*> (t);
}
+ while (!global_l);
+
+ return global_l;
}
+
void
-Note_performer::do_pre_move_processing ()
+Note_performer::stop_translation_timestep ()
{
+
+ // why don't grace notes show up here?
+ // --> grace notes effectively do not get delayed
+ Global_translator* global_l = global_translator_l ();
+ for (int i=0; i < note_p_arr_.size (); i++)
+ {
+ Audio_note* n = note_p_arr_[i];
+ Moment m= n->delayed_until_mom_;
+ if (m.to_bool ())
+ {
+ global_l->add_moment_to_process (m);
+ delayed_p_arr_.push (n);
+ note_p_arr_[i] = 0;
+ note_p_arr_.del (i);
+ i--;
+ }
+ }
+
+ Moment now = now_mom ();
for (int i=0; i < note_p_arr_.size (); i++)
{
play_element (note_p_arr_[i]);
}
note_p_arr_.clear ();
note_req_l_arr_.clear ();
+ for (int i=0; i < delayed_p_arr_.size (); i++)
+ {
+ Audio_note* n = delayed_p_arr_[i];
+ if (n->delayed_until_mom_ <= now)
+ {
+ play_element (n);
+ delayed_p_arr_[i] = 0;
+ delayed_p_arr_.del (i);
+ i--;
+ }
+ }
}
bool
-Note_performer::do_try_music (Music* req_l)
+Note_performer::try_music (Music* req_l)
{
if (Note_req *nr = dynamic_cast <Note_req *> (req_l))
{
}
return false;
}
+
+ENTER_DESCRIPTION(Note_performer,"","","","","");
+
+Note_performer::Note_performer()
+{
+}