MuseScore/libmscore/midifile.cpp
2013-03-13 18:15:36 +01:00

1505 lines
50 KiB
C++

//=============================================================================
// MuseScore
// Music Composition & Notation
// $Id: midifile.cpp 5221 2012-01-16 15:09:25Z wschweer $
//
// Copyright (C) 2007-2011 Werner Schweer
//
// This program is free software; you can redistribute it and/or modify
// it under the terms of the GNU General Public License version 2
// as published by the Free Software Foundation and appearing in
// the file LICENCE.GPL
//=============================================================================
#include "midifile.h"
#include "xml.h"
#include "part.h"
#include "note.h"
#include "drumset.h"
#include "utils.h"
#define BE_SHORT(x) ((((x)&0xFF)<<8) | (((x)>>8)&0xFF))
#ifdef __i486__
#define BE_LONG(x) \
({ int __value; \
asm ("bswap %1; movl %1,%0" : "=g" (__value) : "r" (x)); \
__value; })
#else
#define BE_LONG(x) ((((x)&0xFF)<<24) | \
(((x)&0xFF00)<<8) | \
(((x)&0xFF0000)>>8) | \
(((x)>>24)&0xFF))
#endif
static unsigned const char gmOnMsg[] = {
0x7e, // Non-Real Time header
0x7f, // ID of target device (7f = all devices)
0x09,
0x01
};
static unsigned const char gsOnMsg[] = {
0x41, // roland id
0x10, // Id of target device (default = 10h for roland)
0x42, // model id (42h = gs devices)
0x12, // command id (12h = data set)
0x40, // address & value
0x00,
0x7f,
0x00,
0x41 // checksum?
};
static unsigned const char xgOnMsg[] = {
0x43, // yamaha id
0x10, // device number (0)
0x4c, // model id
0x00, // address (high, mid, low)
0x00,
0x7e,
0x00 // data
};
const int gmOnMsgLen = sizeof(gmOnMsg);
const int gsOnMsgLen = sizeof(gsOnMsg);
const int xgOnMsgLen = sizeof(xgOnMsg);
//---------------------------------------------------------
// MidiFile
//---------------------------------------------------------
MidiFile::MidiFile()
{
fp = 0;
_format = 1;
_midiType = MT_UNKNOWN;
_noRunningStatus = false;
_shortestNote = MScore::division /32; // 1/128
}
//---------------------------------------------------------
// write
// returns true on error
//---------------------------------------------------------
bool MidiFile::write(QIODevice* out)
{
fp = out;
write("MThd", 4);
writeLong(6); // header len
writeShort(_format); // format
writeShort(_tracks.size());
writeShort(_division);
foreach (const MidiTrack* t, _tracks) {
if (writeTrack(t))
return true;
}
return false;
}
//---------------------------------------------------------
// write
//---------------------------------------------------------
void MidiFile::writeEvent(const Event& event)
{
switch(event.type()) {
case ME_NOTEON:
writeStatus(ME_NOTEON, event.channel());
put(event.pitch());
put(event.velo());
break;
case ME_NOTEOFF:
writeStatus(ME_NOTEOFF, event.channel());
put(event.pitch());
put(event.velo());
break;
case ME_CONTROLLER:
switch(event.controller()) {
case CTRL_PROGRAM:
writeStatus(ME_PROGRAM, event.channel());
put(event.value() & 0x7f);
break;
case CTRL_PITCH:
{
writeStatus(ME_PITCHBEND, event.channel());
int v = event.value() + 8192;
put(v & 0x7f);
put((v >> 7) & 0x7f);
}
break;
case CTRL_PRESS:
writeStatus(ME_AFTERTOUCH, event.channel());
put(event.value() & 0x7f);
break;
default:
writeStatus(ME_CONTROLLER, event.channel());
put(event.controller());
put(event.value() & 0x7f);
break;
}
break;
case ME_META:
put(ME_META);
put(event.metaType());
putvl(event.len());
write(event.data(), event.len());
resetRunningStatus(); // really ?!
break;
case ME_SYSEX:
put(ME_SYSEX);
putvl(event.len() + 1); // including 0xf7
write(event.data(), event.len());
put(ME_ENDSYSEX);
resetRunningStatus();
break;
}
}
//---------------------------------------------------------
// writeTrack
//---------------------------------------------------------
bool MidiFile::writeTrack(const MidiTrack* t)
{
write("MTrk", 4);
qint64 lenpos = fp->pos();
writeLong(0); // dummy len
status = -1;
int tick = 0;
foreach(Event ev, t->events()) {
int ntick = ev.ontime();
putvl(ntick - tick); // write tick delta
//
// if track channel != -1, then use this
// channel for all events in this track
//
if (t->outChannel() != -1)
writeEvent(ev);
tick = ntick;
}
//---------------------------------------------------
// write "End Of Track" Meta
// write Track Len
//
putvl(1);
put(0xff); // Meta
put(0x2f); // EOT
putvl(0); // len 0
qint64 endpos = fp->pos();
fp->seek(lenpos);
writeLong(endpos-lenpos-4); // tracklen
fp->seek(endpos);
return false;
}
//---------------------------------------------------------
// writeStatus
//---------------------------------------------------------
void MidiFile::writeStatus(int nstat, int c)
{
nstat |= (c & 0xf);
//
// running status; except for Sysex- and Meta Events
//
if (_noRunningStatus || (((nstat & 0xf0) != 0xf0) && (nstat != status))) {
status = nstat;
put(nstat);
}
}
//---------------------------------------------------------
// readMidi
// return false on error
//---------------------------------------------------------
bool MidiFile::read(QIODevice* in)
{
fp = in;
_tracks.clear();
_siglist.clear();
_siglist.add(0, Fraction(4, 4)); // default time signature
curPos = 0;
char tmp[4];
read(tmp, 4);
int len = readLong();
if (memcmp(tmp, "MThd", 4) || len < 6)
throw(QString("bad midifile: MThd expected"));
_format = readShort();
int ntracks = readShort();
_division = readShort();
if (_division < 0)
_division = (-(_division/256)) * (_division & 0xff);
if (len > 6)
skip(len-6); // skip the excess
switch (_format) {
case 0:
if (readTrack())
return false;
break;
case 1:
for (int i = 0; i < ntracks; i++) {
if (readTrack())
return false;
}
break;
default:
throw(QString("midi file format %1 not implemented").arg(_format));
return false;
}
return true;
}
//---------------------------------------------------------
// readTrack
// return true on error
//---------------------------------------------------------
bool MidiFile::readTrack()
{
char tmp[4];
read(tmp, 4);
if (memcmp(tmp, "MTrk", 4))
throw(QString("bad midifile: MTrk expected"));
int len = readLong(); // len
qint64 endPos = curPos + len;
status = -1;
sstatus = -1; // running status, will not be reset on meta or sysex
click = 0;
MidiTrack* track = new MidiTrack(this);
_tracks.push_back(track);
int port = 0;
track->setOutPort(port);
track->setOutChannel(-1);
for (;;) {
Event event;
if (!readEvent(&event))
return true;
// check for end of track:
if ((event.type() == ME_META) && (event.metaType() == META_EOT))
break;
track->append(event);
}
if (curPos != endPos) {
qWarning("bad track len: %lld != %lld, %lld bytes too much\n", endPos, curPos, endPos - curPos);
if (curPos < endPos) {
qWarning(" skip %lld\n", endPos-curPos);
skip(endPos - curPos);
}
}
return false;
}
/*---------------------------------------------------------
* read
* return false on error
*---------------------------------------------------------*/
void MidiFile::read(void* p, qint64 len)
{
curPos += len;
qint64 rv = fp->read((char*)p, len);
if (rv != len)
throw(QString("bad midifile: unexpected EOF"));
}
//---------------------------------------------------------
// write
//---------------------------------------------------------
bool MidiFile::write(const void* p, qint64 len)
{
qint64 rv = fp->write((char*)p, len);
if (rv == len)
return false;
qDebug("write midifile failed: %s", fp->errorString().toLatin1().data());
return true;
}
//---------------------------------------------------------
// readShort
//---------------------------------------------------------
int MidiFile::readShort()
{
short format;
read(&format, 2);
#ifdef Q_WS_MAC
return QSysInfo::ByteOrder == QSysInfo::BigEndian ? format : BE_SHORT(format);
#else
return BE_SHORT(format);
#endif
}
//---------------------------------------------------------
// writeShort
//---------------------------------------------------------
void MidiFile::writeShort(int i)
{
#ifdef Q_WS_MAC
short format;
if (QSysInfo::ByteOrder == QSysInfo::BigEndian) {
format = (short)i;
}else{
format = BE_SHORT(i);
}
write(&format, 2);
#else
int format = BE_SHORT(i);
write(&format, 2);
#endif
}
//---------------------------------------------------------
// readLong
// writeLong
//---------------------------------------------------------
int MidiFile::readLong()
{
int format;
read(&format, 4);
#ifdef Q_WS_MAC
if (QSysInfo::ByteOrder == QSysInfo::BigEndian)
return format;
else
return BE_LONG(format);
#else
return BE_LONG(format);
#endif
}
//---------------------------------------------------------
// writeLong
//---------------------------------------------------------
void MidiFile::writeLong(int i)
{
#ifdef Q_WS_MAC
int format;
if (QSysInfo::ByteOrder == QSysInfo::BigEndian)
format = i;
else
format = BE_LONG(i);
#else
int format = BE_LONG(i);
#endif
write(&format, 4);
}
/*---------------------------------------------------------
* skip
* This is meant for skipping a few bytes in a
* file or fifo.
*---------------------------------------------------------*/
void MidiFile::skip(qint64 len)
{
if (len <= 0)
return;
char tmp[len];
read(tmp, len);
}
/*---------------------------------------------------------
* getvl
* Read variable-length number (7 bits per byte, MSB first)
*---------------------------------------------------------*/
int MidiFile::getvl()
{
int l = 0;
for (int i = 0; i < 16; i++) {
uchar c;
read(&c, 1);
l += (c & 0x7f);
if (!(c & 0x80)) {
return l;
}
l <<= 7;
}
return -1;
}
/*---------------------------------------------------------
* putvl
* Write variable-length number (7 bits per byte, MSB first)
*---------------------------------------------------------*/
void MidiFile::putvl(unsigned val)
{
unsigned long buf = val & 0x7f;
while ((val >>= 7) > 0) {
buf <<= 8;
buf |= 0x80;
buf += (val & 0x7f);
}
for (;;) {
put(buf);
if (buf & 0x80)
buf >>= 8;
else
break;
}
}
//---------------------------------------------------------
// MidiTrack
//---------------------------------------------------------
MidiTrack::MidiTrack(MidiFile* f)
{
mf = f;
_outChannel = -1;
_outPort = -1;
_drumTrack = false;
_hasKey = false;
_staffIdx = -1;
_staff = 0;
}
MidiTrack::~MidiTrack()
{
}
//---------------------------------------------------------
// readEvent
// return true on success
//---------------------------------------------------------
bool MidiFile::readEvent(Event* event)
{
uchar me, a, b;
int nclick = getvl();
if (nclick == -1) {
qDebug("readEvent: error 1(getvl)");
return false;
}
click += nclick;
for (;;) {
read(&me, 1);
if (me >= 0xf1 && me <= 0xfe && me != 0xf7) {
qDebug("Midi: Unknown Message 0x%02x", me & 0xff);
}
else
break;
}
int ontime = click;
unsigned char* data;
int dataLen;
if (me == 0xf0 || me == 0xf7) {
status = -1; // no running status
int len = getvl();
if (len == -1) {
qDebug("readEvent: error 3");
return false;
}
data = new unsigned char[len+1];
dataLen = len;
read(data, len);
data[dataLen] = 0; // always terminate with zero
if (data[len-1] != 0xf7) {
qDebug("SYSEX does not end with 0xf7!");
// more to come?
}
else
dataLen--; // don't count 0xf7
event->setType(ME_SYSEX);
event->setData(data);
event->setLen(dataLen);
event->setOntime(ontime);
return true;
}
if (me == ME_META) {
status = -1; // no running status
uchar type;
read(&type, 1);
dataLen = getvl(); // read len
if (dataLen == -1) {
qDebug("readEvent: error 6");
return false;
}
data = new unsigned char[dataLen + 1];
if (dataLen)
read(data, dataLen);
data[dataLen] = 0; // always terminate with zero so we get valid C++ strings
event->setType(ME_META);
event->setOntime(ontime);
event->setMetaType(type);
event->setLen(dataLen);
event->setData(data);
return true;
}
if (me & 0x80) { // status byte
status = me;
sstatus = status;
read(&a, 1);
}
else {
if (status == -1) {
qDebug("readEvent: no running status, read 0x%02x", me);
qDebug("sstatus ist 0x%02x", sstatus);
if (sstatus == -1) {
return 0;
}
status = sstatus;
}
a = me;
}
int channel = status & 0x0f;
b = 0;
switch (status & 0xf0) {
case ME_NOTEOFF:
case ME_NOTEON:
case ME_POLYAFTER:
case ME_CONTROLLER: // controller
case ME_PITCHBEND: // pitch bend
read(&b, 1);
break;
}
switch (status & 0xf0) {
case ME_NOTEOFF:
event->setType(ME_NOTEOFF);
event->setOntime(ontime);
event->setChannel(channel);
event->setDataA(a & 0x7f);
event->setDataB(b & 0x7f);
break;
case ME_NOTEON:
event->setType(ME_NOTEON);
event->setOntime(ontime);
event->setChannel(channel);
event->setDataA(a & 0x7f);
event->setDataB(b & 0x7f);
break;
case ME_POLYAFTER:
event->setType(ME_CONTROLLER);
event->setOntime(ontime);
event->setChannel(channel);
event->setController(CTRL_POLYAFTER);
event->setValue(((a & 0x7f) << 8) + (b & 0x7f));
break;
case ME_CONTROLLER: // controller
event->setType(ME_CONTROLLER);
event->setOntime(ontime);
event->setChannel(channel);
event->setController(a & 0x7f);
event->setValue(b & 0x7f);
break;
case ME_PITCHBEND: // pitch bend
event->setType(ME_CONTROLLER);
event->setOntime(ontime);
event->setChannel(channel);
event->setController(CTRL_PITCH);
event->setValue(((((b & 0x80) ? 0 : b) << 7) + a) - 8192);
break;
case ME_PROGRAM:
event->setType(ME_CONTROLLER);
event->setOntime(ontime);
event->setChannel(channel);
event->setController(CTRL_PROGRAM);
event->setValue(a & 0x7f);
break;
case ME_AFTERTOUCH:
event->setType(ME_CONTROLLER);
event->setOntime(ontime);
event->setChannel(channel);
event->setController(CTRL_PRESS);
event->setValue(a & 0x7f);
break;
default: // f1 f2 f3 f4 f5 f6 f7 f8 f9
qDebug("BAD STATUS 0x%02x, me 0x%02x", status, me);
return false;
}
if ((a & 0x80) || (b & 0x80)) {
qDebug("8't bit in data set(%02x %02x): tick %d read 0x%02x status:0x%02x",
a & 0xff, b & 0xff, click, me, status);
qDebug("readEvent: error 16");
if (b & 0x80) {
// Try to fix: interpret as channel byte
status = b;
sstatus = status;
return true;
}
return false;
}
return true;
}
//---------------------------------------------------------
// mergeNoteOnOff
// find matching note on / note off events and merge
// into a note event with tick duration
//---------------------------------------------------------
void MidiTrack::mergeNoteOnOff()
{
EventList el;
int hbank = 0xff;
int lbank = 0xff;
int rpnh = -1;
int rpnl = -1;
int datah = 0;
int datal = 0;
int dataType = 0; // 0 : disabled, 0x20000 : rpn, 0x30000 : nrpn;
int n = _events.size();
for (int i = 0; i < n; ++i) {
Event ev = _events[i];
if (ev.type() == ME_INVALID)
continue;
if ((ev.type() != ME_NOTEON) && (ev.type() != ME_NOTEOFF)) {
if (ev.type() == ME_CONTROLLER) {
int val = ev.value();
int cn = ev.controller();
if (cn == CTRL_HBANK) {
hbank = val;
_events[i].setType(ME_INVALID);
continue;
}
else if (cn == CTRL_LBANK) {
lbank = val;
_events[i].setType(ME_INVALID);
continue;
}
else if (cn == CTRL_HDATA) {
datah = val;
// check if a CTRL_LDATA follows
// e.g. wie have a 14 bit controller:
int ii = i;
++ii;
bool found = false;
for (; ii < n; ++ii) {
Event ev = _events[ii];
if (ev.type() == ME_CONTROLLER) {
if (ev.controller() == CTRL_LDATA) {
// handle later
found = true;
}
break;
}
}
if (!found) {
if (rpnh == -1 || rpnl == -1) {
qDebug("parameter number not defined, data 0x%x", datah);
_events[i].setType(ME_INVALID);
continue;
}
else {
ev.setController(dataType | (rpnh << 8) | rpnl);
ev.setValue(datah);
}
}
else {
_events[i].setType(ME_INVALID);
continue;
}
}
else if (cn == CTRL_LDATA) {
datal = val;
if (rpnh == -1 || rpnl == -1) {
qDebug("parameter number not defined, data 0x%x 0x%x, tick %d, channel %d",
datah, datal, ev.ontime(), ev.channel());
break;
}
// assume that the sequence is always
// CTRL_HDATA - CTRL_LDATA
// eg. that LDATA is always send last
// 14 Bit RPN/NRPN
ev.setController((dataType+0x30000) | (rpnh << 8) | rpnl);
ev.setValue((datah << 7) | datal);
}
else if (cn == CTRL_HRPN) {
rpnh = val;
dataType = 0x20000;
_events[i].setType(ME_INVALID);
continue;
}
else if (cn == CTRL_LRPN) {
rpnl = val;
dataType = 0x20000;
_events[i].setType(ME_INVALID);
continue;
}
else if (cn == CTRL_HNRPN) {
rpnh = val;
dataType = 0x30000;
_events[i].setType(ME_INVALID);
continue;
}
else if (cn == CTRL_LNRPN) {
rpnl = val;
dataType = 0x30000;
_events[i].setType(ME_INVALID);
continue;
}
else if (cn == CTRL_PROGRAM) {
ev.setValue((hbank << 16) | (lbank << 8) | ev.value());
el.insert(ev);
_events[i].setType(ME_INVALID);
continue;
}
}
else if (ev.type() == ME_SYSEX) {
int len = ev.len();
const uchar* buffer = ev.data();
if ((len == gmOnMsgLen) && memcmp(buffer, gmOnMsg, gmOnMsgLen) == 0) {
mf->_midiType = MT_GM;
_events[i].setType(ME_INVALID);
continue;
}
if ((len == gsOnMsgLen) && memcmp(buffer, gsOnMsg, gsOnMsgLen) == 0) {
mf->_midiType = MT_GS;
_events[i].setType(ME_INVALID);
continue;
}
if ((len == xgOnMsgLen) && memcmp(buffer, xgOnMsg, xgOnMsgLen) == 0) {
mf->_midiType = MT_XG;
_events[i].setType(ME_INVALID);
continue;
}
if (buffer[0] == 0x43) { // Yamaha
mf->_midiType = MT_XG;
int type = buffer[1] & 0xf0;
if (type == 0x10) {
//TODO if (buffer[1] != 0x10) {
// buffer[1] = 0x10; // fix to Device 1
// }
if ((len == xgOnMsgLen) && memcmp(buffer, xgOnMsg, xgOnMsgLen) == 0) {
mf->_midiType = MT_XG;
_events[i] = 0;
continue;
}
if (len == 7 && buffer[2] == 0x4c && buffer[3] == 0x08 && buffer[5] == 7) {
// part mode
// 0 - normal
// 1 - DRUM
// 2 - DRUM 1
// 3 - DRUM 2
// 4 - DRUM 3
// 5 - DRUM 4
if (buffer[6] != 0) {
_drumTrack = true;
}
_events[i].setType(ME_INVALID);
continue;
}
}
}
}
el.insert(ev);
_events[i].setType(ME_INVALID);
continue;
}
int tick = ev.ontime();
if (ev.type() == ME_NOTEOFF || ev.velo() == 0) {
qDebug("-extra note off at %d", tick);
_events[i].setType(ME_INVALID);
continue;
}
Event note(ME_NOTE);
note.setOntime(tick);
note.setPitch(ev.pitch());
note.setVelo(ev.velo());
int k = i + 1;
for (; k < n; ++k) {
Event& e = _events[k];
if (e == 0 || (e.type() != ME_NOTEON && e.type() != ME_NOTEOFF))
continue;
if ((e.type() == ME_NOTEOFF || (e.type() == ME_NOTEON && e.velo() == 0))
&& (e.pitch() == note.pitch())) {
int t = e.ontime() - tick;
if (t <= 0)
t = 1;
note.setDuration(t);
// note.setVelo(e.velo());
_events[k].setType(ME_INVALID);
break;
}
}
if (k == n) {
qDebug("-no note-off for note at %d", tick);
//
// note off at end of bar
//
int endTick = note.ontime() + 1; // song->roundUpBar(ev.ontime + 1);
note.setDuration(endTick - note.ontime());
}
el.insert(note);
_events[i].setType(ME_INVALID);
}
_events = el;
}
//---------------------------------------------------------
// empty
// check for empty track
//---------------------------------------------------------
bool MidiTrack::empty() const
{
return _events.empty();
}
//---------------------------------------------------------
// setOutChannel
//---------------------------------------------------------
void MidiTrack::setOutChannel(int n)
{
_outChannel = n;
if (_outChannel == 9)
_drumTrack = true;
}
//---------------------------------------------------------
// extractTimeSig
//---------------------------------------------------------
void MidiTrack::extractTimeSig(TimeSigMap* sigmap)
{
EventList el;
foreach (Event e, _events) {
if ((e.type() == ME_META) && (e.metaType() == META_TIME_SIGNATURE)) {
const unsigned char* data = e.data();
int z = data[0];
int nn = data[1];
int n = 1;
for (int i = 0; i < nn; ++i)
n *= 2;
qDebug("add timesig at %d\n", e.ontime());
sigmap->add(e.ontime(), Fraction(z, n));
}
else
el.insert(e);
}
_events = el;
if (sigmap->empty()) // set default
sigmap->add(0, Fraction(4, 4));
}
//---------------------------------------------------------
// process1
// - merge note on/off events into NoteEvent events
// - extract time signatures and build siglist
// - extract initialisation sysex and set MidiType
// - find out if track is a drum track
//---------------------------------------------------------
void MidiFile::process1()
{
foreach (MidiTrack* t, _tracks) {
t->mergeNoteOnOff();
t->extractTimeSig(&_siglist);
}
}
//---------------------------------------------------------
// quantize
// process one segment (measure)
//---------------------------------------------------------
void MidiTrack::quantize(int startTick, int endTick, EventList* dst)
{
int division = mf->division();
iEvent i = _events.begin();
for (; i != _events.end(); ++i) {
if (i->ontime() >= startTick)
break;
}
//
// find shortest note in measure
//
iEvent si = i;
int mintick = division;
for (; i != _events.end(); ++i) {
Event e = *i;
if (e.ontime() >= endTick)
break;
if (e.type() == ME_NOTE && (e.duration() < mintick))
mintick = e.duration();
}
//
// determine suitable quantization value based
// on shortest note in measure
//
int div = division;
if (mintick <= division / 16) // minimum duration is 1/64
div = division / 16;
else if (mintick <= division / 8)
div = division / 8;
else if (mintick <= division / 4)
div = division / 4;
else if (mintick <= division / 2)
div = division / 2;
else if (mintick <= division)
div = division;
else if (mintick <= division * 2)
div = division * 2;
else if (mintick <= division * 4)
div = division * 4;
else if (mintick <= division * 8)
div = division * 8;
if(div == (division / 16))
mintick = div;
else
mintick = quantizeLen(mintick, div >> 1); //closest
if (mintick < mf->shortestNote()) // DEBUG
mintick = mf->shortestNote();
int raster = mintick;
int raster2 = raster >> 1;
for (iEvent i = si; i != _events.end(); ++i) {
Event e = *i;
if (e.ontime() >= endTick)
break;
Event ee(e);
if (e.type() == ME_NOTE) {
int len = quantizeLen(e.duration(), raster);
int tick = ((e.ontime() + raster2) / raster) * raster;
ee.setNoquantOntime(e.ontime());
ee.setNoquantDuration(e.duration());
ee.setOntime(tick);
ee.setDuration(len);
}
dst->insert(ee);
}
}
//---------------------------------------------------------
// cleanup
// - quantize
// - remove overlaps
//---------------------------------------------------------
void MidiTrack::cleanup()
{
EventList dl;
//
// quantize
//
int lastTick = 0;
foreach (Event e, _events) {
if (e.type() != ME_NOTE)
continue;
int offtime = e.offtime();
if (offtime > lastTick)
lastTick = offtime;
}
int startTick = 0;
for (int i = 1;; ++i) {
int endTick = mf->siglist().bar2tick(i, 0);
quantize(startTick, endTick, &dl);
if (endTick > lastTick)
break;
startTick = endTick;
}
//
//
//
_events.clear();
int n = dl.size();
for (int i = 0; i < n; ++i) {
Event e = dl[i];
if (e.type() == ME_NOTE) {
int ii = i + 1;
for (; ii < n; ++ii) {
Event ee = dl[ii];
if ((ee.type() != ME_NOTE) || (ee.pitch() != e.pitch()))
continue;
if (ee.ontime() >= (e.ontime() + e.duration()))
break;
qDebug("MidiTrack::cleanup: overlapping events: %d:%d+%d %d:%d+%d",
e.pitch(), e.ontime(), e.duration(),
ee.pitch(), ee.ontime(), ee.duration());
e.setDuration(ee.ontime() - e.ontime());
break;
}
if (e.duration() <= 0) {
qDebug("MidiTrack::cleanup: duration <= 0: drop note at %d", e.ontime());
continue;
}
}
_events.insert(e);
}
}
//---------------------------------------------------------
// changeDivision
//---------------------------------------------------------
void MidiTrack::changeDivision(int newDivision)
{
EventList dl;
int division = mf->division();
foreach(Event e, _events) {
int tick = (e.ontime() * newDivision + division/2) / division;
e.setOntime(tick);
if (e.type() == ME_NOTE)
e.setDuration((e.duration() * newDivision + division/2) / division);
dl.insert(e);
}
_events = dl;
}
//---------------------------------------------------------
// changeDivision
//---------------------------------------------------------
void MidiFile::changeDivision(int newDivision)
{
if (_division == newDivision)
return;
foreach (MidiTrack* t, _tracks)
t->changeDivision(newDivision);
TimeSigMap sl;
for (auto is = _siglist.begin(); is != _siglist.end(); ++is) {
int tick = (is->first * newDivision + _division/2) / _division;
SigEvent se = is->second;
sl.add(tick, se);
}
_siglist = sl;
_division = newDivision;
}
//---------------------------------------------------------
// sortTracks
// sort tracks in instrument order
//---------------------------------------------------------
bool instrumentLessThan(const MidiTrack* t1, const MidiTrack* t2)
{
return t1->program() < t2->program();
}
void MidiFile::sortTracks()
{
qSort(_tracks.begin(), _tracks.end(), instrumentLessThan);
}
//---------------------------------------------------------
// separateChannel
// if a track contains events for different midi channels,
// then split events into separate tracks
//---------------------------------------------------------
void MidiFile::separateChannel()
{
//int n = _tracks.size();
for (int i = 0; i < _tracks.size(); ++i) {
QList<int> channel;
MidiTrack* mt = _tracks.at(i);
foreach(Event e, mt->events()) {
if (e.isChannelEvent() && !channel.contains(e.channel()))
channel.append(e.channel());
}
mt->setOutChannel(channel.empty() ? 0 : channel[0]);
int nn = channel.size();
if (nn <= 1)
continue;
qSort(channel);
// split
for (int ii = 1; ii < nn; ++ii) {
MidiTrack* t = new MidiTrack(this);
_tracks.insert(i + 1, t);
t->setOutChannel(channel[ii]);
}
EventList& el = mt->events();
for (iEvent ie = el.begin(); ie != el.end();) {
Event e = *ie;
if (e.isChannelEvent()) {
int ch = e.channel();
int idx = channel.indexOf(ch);
MidiTrack* t = _tracks.at(i + idx);
if (t != mt) {
t->insert(e);
ie = el.erase(ie);
continue;
}
}
++ie;
}
i += nn - 1;
}
}
//---------------------------------------------------------
// move
// Move all events in midifile.
//---------------------------------------------------------
void MidiFile::move(int ticks)
{
foreach(MidiTrack* track, _tracks)
track->move(ticks);
}
//---------------------------------------------------------
// move
//---------------------------------------------------------
void MidiTrack::move(int ticks)
{
EventList dl;
foreach(Event e, _events) {
int tick = e.ontime() + ticks;
if (tick < 0)
tick = 0;
e.setOntime(tick);
dl.insert(e);
}
_events = dl;
}
//---------------------------------------------------------
// isDrumTrack
//---------------------------------------------------------
bool MidiTrack::isDrumTrack() const
{
return _drumTrack;
}
//---------------------------------------------------------
// insert
//---------------------------------------------------------
void EventList::insert(const Event& e)
{
int ontime = e.ontime();
if (!isEmpty() && last().ontime() > ontime) {
for (iEvent i = begin(); i != end(); ++i) {
if (i->ontime() > ontime) {
QList<Event>::insert(i, e);
return;
}
}
}
append(e);
}
//---------------------------------------------------------
// readData
//---------------------------------------------------------
static void readData(unsigned char* d, int dataLen, QString s)
{
QStringList l = s.simplified().split(" ", QString::SkipEmptyParts);
if (dataLen != l.size()) {
qDebug("error converting data string <%s>", s.toLatin1().data());
}
int numberBase = 16;
for (int i = 0; i < l.size(); ++i) {
bool ok;
*d++ = l.at(i).toInt(&ok, numberBase);
if (!ok)
qDebug("error converting data val <%s>", l.at(i).toLatin1().data());
}
}
//---------------------------------------------------------
// readXml
//---------------------------------------------------------
void MidiTrack::readXml(XmlReader& e)
{
while (e.readNextStartElement()) {
const QStringRef& tag(e.name());
Event ev;
ev.setType(ME_INVALID);
if (tag == "NoteOn") {
ev.setType(ME_NOTEON);
ev.setOntime(e.intAttribute("tick"));
ev.setChannel(e.intAttribute("channel"));
ev.setPitch(e.intAttribute("pitch"));
ev.setVelo(e.intAttribute("velo"));
}
else if (tag == "NoteOff") {
ev.setType(ME_NOTEOFF);
ev.setOntime(e.intAttribute("tick"));
ev.setChannel(e.intAttribute("channel"));
ev.setPitch(e.intAttribute("pitch"));
ev.setVelo(e.intAttribute("velo"));
}
else if (tag == "Lyric") {
ev.setType(ME_META);
ev.setMetaType(META_LYRIC);
ev.setOntime(e.intAttribute("tick"));
QString s(e.readElementText());
char* data = new char[s.length() + 1];
strcpy(data, s.toLatin1().data());
ev.setLen(s.length());
ev.setData((unsigned char*)data);
}
else if (tag == "TrackName") {
ev.setType(ME_META);
ev.setMetaType(META_TRACK_NAME);
ev.setOntime(e.intAttribute("tick"));
QString s(e.readElementText());
char* data = new char[s.length() + 1];
strcpy(data, s.toLatin1().data());
ev.setLen(s.length());
ev.setData((unsigned char*)data);
}
else if (tag == "Controller") {
ev.setType(ME_CONTROLLER);
ev.setOntime(e.intAttribute("tick"));
ev.setChannel(e.intAttribute("channel"));
ev.setController(e.intAttribute("ctrl"));
ev.setValue(e.intAttribute("value"));
}
else if (tag == "Key") {
int key = e.intAttribute("key");
int sex = e.intAttribute("sex");
unsigned char* data = new unsigned char[2];
data[0] = key;
data[1] = sex;
ev.setType(ME_META);
ev.setMetaType(META_KEY_SIGNATURE);
ev.setOntime(e.attribute("tick").toInt());
ev.setLen(2);
ev.setData(data);
}
else if (tag == "Tempo") {
int val = e.intAttribute("value");
unsigned char* data = new unsigned char[3];
data[0] = val >> 16;
data[1] = val >> 8;
data[2] = val;
ev.setType(ME_META);
ev.setMetaType(META_TEMPO);
ev.setOntime(e.intAttribute("tick"));
ev.setLen(3);
ev.setData(data);
}
else if (tag == "TimeSig") {
int num = e.intAttribute("num");
int denom = e.intAttribute("denom");
int metro = e.intAttribute("metro");
int quarter = e.intAttribute("quarter");
unsigned char* data = new unsigned char[4];
data[0] = num;
data[1] = denom;
data[2] = metro;
data[3] = quarter;
ev.setType(ME_META);
ev.setMetaType(META_TIME_SIGNATURE);
ev.setOntime(e.intAttribute("tick"));
ev.setLen(4);
ev.setData(data);
}
else if (tag == "Meta") {
int type = e.intAttribute("type");
int len = e.intAttribute("len");
unsigned char* data = new unsigned char[len];
readData(data, len, e.readElementText());
ev.setType(ME_META);
ev.setMetaType(type);
ev.setOntime(e.intAttribute("tick"));
ev.setLen(len);
ev.setData(data);
}
else if (tag == "Sysex") {
int len = e.intAttribute("len");
unsigned char* data = new unsigned char[len];
readData(data, len, e.readElementText());
ev.setType(ME_SYSEX);
ev.setOntime(e.intAttribute("tick"));
ev.setLen(len);
ev.setData(data);
}
else {
e.unknown();
ev.setType(ME_INVALID);
}
if (ev.type() != ME_INVALID)
_events.append(ev);
}
}
//---------------------------------------------------------
// getInitProgram
//---------------------------------------------------------
int MidiTrack::getInitProgram()
{
foreach(const Event& e, _events) {
if (e.type() != ME_CONTROLLER)
continue;
if (e.controller() == CTRL_PROGRAM)
return e.value();
}
return 0;
}
//---------------------------------------------------------
// readXml
//---------------------------------------------------------
void MidiFile::readXml(XmlReader& e)
{
while (e.readNextStartElement()) {
const QStringRef& tag(e.name());
if (tag == "format")
_format = e.readInt();
else if (tag == "division")
_division = e.readInt();
else if (tag == "Track") {
MidiTrack* track = new MidiTrack(this);
track->readXml(e);
_tracks.append(track);
}
else
e.unknown();
}
}
//---------------------------------------------------------
// findChords
//---------------------------------------------------------
void MidiTrack::findChords()
{
EventList dl;
int n = _events.size();
Drumset* drumset;
if (_drumTrack)
drumset = smDrumset;
else
drumset = 0;
int jitter = 3; // tick tolerance for note on/off
for (int i = 0; i < n; ++i) {
Event e = _events[i];
if (e.type() == ME_INVALID)
continue;
if (e.type() != ME_NOTE) {
dl.append(e);
continue;
}
int ontime = e.ontime();
int offtime = e.offtime();
Event chord(ME_CHORD);
chord.setOntime(ontime);
chord.setDuration(e.duration());
chord.notes().append(e);
int voice = 0;
chord.setVoice(voice);
dl.append(chord);
_events[i].setType(ME_INVALID);
bool useDrumset = false;
if (drumset) {
int pitch = e.pitch();
if (drumset->isValid(pitch)) {
useDrumset = true;
voice = drumset->voice(pitch);
chord.setVoice(voice);
}
}
for (int k = i + 1; k < n; ++k) {
if (_events[k].type() != ME_NOTE)
continue;
Event nn = _events[k];
if (nn.ontime() - jitter > ontime)
break;
if (qAbs(nn.ontime() - ontime) > jitter || qAbs(nn.offtime() - offtime) > jitter)
continue;
int pitch = nn.pitch();
if (useDrumset) {
if (drumset->isValid(pitch) && drumset->voice(pitch) == voice) {
chord.notes().append(nn);
_events[k].setType(ME_INVALID);
}
}
else {
chord.notes().append(nn);
_events[k].setType(ME_INVALID);
}
}
}
_events = dl;
}
//---------------------------------------------------------
// separateVoices
//---------------------------------------------------------
int MidiTrack::separateVoices(int /*maxVoices*/)
{
if (_drumTrack)
return 2;
return 1;
#if 0
int n = _events.size();
for (int i = 0; i < n; ++i) {
Event* e = _events[i];
if (e->type() != ME_CHORD)
continue;
MidiChord* mc = (MidiChord*) e;
mc->setVoice(0);
}
return 1;
#endif
}
//---------------------------------------------------------
// addCtrl
//---------------------------------------------------------
void MidiTrack::addCtrl(int tick, int channel, int type, int value)
{
Event e(ME_CONTROLLER);
e.setOntime(tick);
e.setChannel(channel);
e.setController(type);
e.setValue(value);
insert(e);
}