#include "string-convert.hh"
#include "warn.hh"
-Performance::Performance ()
+Performance::Performance (bool ports)
+ : midi_ (0),
+ ports_ (ports)
{
- midi_ = 0;
}
Performance::~Performance ()
int tracks_ = audio_staffs_.size ();
midi_stream.write (Midi_header (1, tracks_, 384));
- if (be_verbose_global)
- progress_indication (_ ("Track...") + " ");
-
+ debug_output (_ ("Track...") + " ", false);
+
for (vsize i = 0; i < audio_staffs_.size (); i++)
{
Audio_staff *s = audio_staffs_[i];
- if (be_verbose_global)
- progress_indication ("[" + to_string (i));
- s->output (midi_stream, i);
- if (be_verbose_global)
- progress_indication ("]");
+ debug_output ("[" + to_string (i), true);
+ s->output (midi_stream, i, ports_);
+ debug_output ("]", false);
}
}
progress_indication ("\n");
}
-
void
Performance::process ()
{
Performance *
unsmob_performance (SCM x)
{
- return dynamic_cast<Performance*> (unsmob_music_output (x));
+ return dynamic_cast<Performance *> (unsmob_music_output (x));
}