*/
#include "performer.hh"
-#include "event.hh"
#include "audio-item.hh"
#include "audio-column.hh"
#include "global-context.hh"
bool beam_;
};
+Beam_performer::Beam_performer ()
+{
+ beam_ = false;
+ start_ev_ = 0;
+ now_stop_ev_ = 0;
+}
+
void
Beam_performer::process_music ()
{
if (now_stop_ev_)
{
beam_ = false;
+ set_melisma (false);
}
if (start_ev_)
{
SCM b = get_property ("autoBeaming");
if (!to_boolean (b))
- daddy_context_->set_property ("beamMelismaBusy", ml ? SCM_BOOL_T :SCM_BOOL_F);
+context ()->set_property ("beamMelismaBusy", ml ? SCM_BOOL_T :SCM_BOOL_F);
}
void
Beam_performer::start_translation_timestep ()
{
- if (beam_)
- {
- set_melisma (true);
- }
-
start_ev_ = 0;
now_stop_ev_ = 0;
}
{
start_ev_ = m;
}
- else if (d==STOP)
+ else if (d == STOP)
{
now_stop_ev_ = m;
}
return false;
}
-ENTER_DESCRIPTION (Beam_performer,"","",
+ADD_TRANSLATOR (Beam_performer,"","",
"beam-event","","","");
-Beam_performer::Beam_performer ()
-{
- beam_ = false;
-}