Chris@301: /* -*- c-basic-offset: 4 indent-tabs-mode: nil -*-  vi:set ts=8 sts=4 sw=4: */
Chris@301: 
Chris@301: /*
Chris@301:     Sonic Visualiser
Chris@301:     An audio file viewer and annotation editor.
Chris@301:     Centre for Digital Music, Queen Mary, University of London.
Chris@301:     
Chris@301:     This program is free software; you can redistribute it and/or
Chris@301:     modify it under the terms of the GNU General Public License as
Chris@301:     published by the Free Software Foundation; either version 2 of the
Chris@301:     License, or (at your option) any later version.  See the file
Chris@301:     COPYING included with this distribution for more information.
Chris@301: */
Chris@301: 
Chris@301: 
Chris@301: /*
Chris@301:    This is a modified version of a source file from the 
Chris@301:    Rosegarden MIDI and audio sequencer and notation editor.
Chris@301:    This file copyright 2000-2007 Richard Bown and Chris Cannam
Chris@301:    and copyright 2007 QMUL.
Chris@301: */
Chris@301: 
Chris@301: #include "MIDIFileWriter.h"
Chris@301: 
Chris@560: #include "data/midi/MIDIEvent.h"
Chris@301: 
Chris@1615: #include "base/NoteData.h"
Chris@1643: #include "base/NoteExportable.h"
Chris@301: #include "base/Pitch.h"
Chris@301: 
Chris@1128: #include <QCoreApplication>
Chris@1128: 
Chris@301: #include <algorithm>
Chris@301: #include <fstream>
Chris@301: 
Chris@1128: //#define DEBUG_MIDI_FILE_WRITER 1
Chris@1128: 
Chris@301: using std::ofstream;
Chris@301: using std::string;
Chris@301: using std::ios;
Chris@301: 
Chris@301: using namespace MIDIConstants;
Chris@301: 
Chris@852: MIDIFileWriter::MIDIFileWriter(QString path, const NoteExportable *exportable,
Chris@1048:                                sv_samplerate_t sampleRate, float tempo) :
Chris@301:     m_path(path),
Chris@852:     m_exportable(exportable),
Chris@852:     m_sampleRate(sampleRate),
Chris@966:     m_tempo(tempo),
Chris@1582:     m_midiFile(nullptr)
Chris@301: {
Chris@301:     if (!convert()) {
Chris@301:         m_error = "Conversion from model to internal MIDI format failed";
Chris@301:     }
Chris@301: }
Chris@301: 
Chris@301: MIDIFileWriter::~MIDIFileWriter()
Chris@301: {
Chris@301:     for (MIDIComposition::iterator i = m_midiComposition.begin();
Chris@1429:          i != m_midiComposition.end(); ++i) {
Chris@1429:         
Chris@1429:         for (MIDITrack::iterator j = i->second.begin();
Chris@1429:              j != i->second.end(); ++j) {
Chris@1429:             delete *j;
Chris@1429:         }
Chris@301: 
Chris@1429:         i->second.clear();
Chris@301:     }
Chris@301: 
Chris@301:     m_midiComposition.clear();
Chris@301: }
Chris@301: 
Chris@301: bool
Chris@301: MIDIFileWriter::isOK() const
Chris@301: {
Chris@301:     return m_error == "";
Chris@301: }
Chris@301: 
Chris@301: QString
Chris@301: MIDIFileWriter::getError() const
Chris@301: {
Chris@301:     return m_error;
Chris@301: }
Chris@301: 
Chris@301: void
Chris@301: MIDIFileWriter::write()
Chris@301: {
Chris@301:     writeComposition();
Chris@301: }
Chris@301: 
Chris@301: string
Chris@301: MIDIFileWriter::intToMIDIBytes(int number) const
Chris@301: {
Chris@301:     MIDIByte upper;
Chris@301:     MIDIByte lower;
Chris@301: 
Chris@1038:     upper = MIDIByte((number & 0xFF00) >> 8);
Chris@1038:     lower = MIDIByte( number & 0x00FF);
Chris@301: 
Chris@301:     string rv;
Chris@301:     rv += upper;
Chris@301:     rv += lower;
Chris@301:     return rv;
Chris@301: }
Chris@301: 
Chris@301: string
Chris@301: MIDIFileWriter::longToMIDIBytes(unsigned long number) const
Chris@301: {
Chris@301:     MIDIByte upper1;
Chris@301:     MIDIByte lower1;
Chris@301:     MIDIByte upper2;
Chris@301:     MIDIByte lower2;
Chris@301: 
Chris@1038:     upper1 = MIDIByte((number & 0xff000000) >> 24);
Chris@1038:     lower1 = MIDIByte((number & 0x00ff0000) >> 16);
Chris@1038:     upper2 = MIDIByte((number & 0x0000ff00) >> 8);
Chris@1038:     lower2 = MIDIByte((number & 0x000000ff));
Chris@301: 
Chris@301:     string rv;
Chris@301:     rv += upper1;
Chris@301:     rv += lower1;
Chris@301:     rv += upper2;
Chris@301:     rv += lower2;
Chris@301:     return rv;
Chris@301: }
Chris@301: 
Chris@301: // Turn a delta time into a MIDI time - overlapping into
Chris@301: // a maximum of four bytes using the MSB as the carry on
Chris@301: // flag.
Chris@301: //
Chris@301: string
Chris@301: MIDIFileWriter::longToVarBuffer(unsigned long number) const
Chris@301: {
Chris@301:     string rv;
Chris@301: 
Chris@301:     long inNumber = number;
Chris@301:     long outNumber;
Chris@301: 
Chris@301:     // get the lowest 7 bits of the number
Chris@301:     outNumber = number & 0x7f;
Chris@301: 
Chris@301:     // Shift and test and move the numbers
Chris@301:     // on if we need them - setting the MSB
Chris@301:     // as we go.
Chris@301:     //
Chris@301:     while ((inNumber >>= 7 ) > 0) {
Chris@301:         outNumber <<= 8;
Chris@301:         outNumber |= 0x80;
Chris@301:         outNumber += (inNumber & 0x7f);
Chris@301:     }
Chris@301: 
Chris@301:     // Now move the converted number out onto the buffer
Chris@301:     //
Chris@301:     while (true) {
Chris@301:         rv += (MIDIByte)(outNumber & 0xff);
Chris@301:         if (outNumber & 0x80)
Chris@301:             outNumber >>= 8;
Chris@301:         else
Chris@301:             break;
Chris@301:     }
Chris@301: 
Chris@301:     return rv;
Chris@301: }
Chris@301: 
Chris@301: bool
Chris@301: MIDIFileWriter::writeHeader()
Chris@301: {
Chris@301:     *m_midiFile << MIDI_FILE_HEADER;
Chris@301: 
Chris@301:     // Number of bytes in header
Chris@301:     *m_midiFile << (MIDIByte) 0x00;
Chris@301:     *m_midiFile << (MIDIByte) 0x00;
Chris@301:     *m_midiFile << (MIDIByte) 0x00;
Chris@301:     *m_midiFile << (MIDIByte) 0x06;
Chris@301: 
Chris@301:     // File format
Chris@301:     *m_midiFile << (MIDIByte) 0x00;
Chris@301:     *m_midiFile << (MIDIByte) m_format;
Chris@301: 
Chris@301:     *m_midiFile << intToMIDIBytes(m_numberOfTracks);
Chris@301: 
Chris@301:     *m_midiFile << intToMIDIBytes(m_timingDivision);
Chris@301: 
Chris@301:     return true;
Chris@301: }
Chris@301: 
Chris@301: bool
Chris@301: MIDIFileWriter::writeTrack(int trackNumber)
Chris@301: {
Chris@301:     bool retOK = true;
Chris@301:     MIDIByte eventCode = 0;
Chris@301:     MIDITrack::iterator midiEvent;
Chris@301: 
Chris@301:     // First we write into the trackBuffer, then write it out to the
Chris@301:     // file with its accompanying length.
Chris@301:     //
Chris@301:     string trackBuffer;
Chris@301: 
Chris@301:     for (midiEvent = m_midiComposition[trackNumber].begin();
Chris@301:          midiEvent != m_midiComposition[trackNumber].end();
Chris@301:          midiEvent++) {
Chris@301: 
Chris@301:         // Write the time to the buffer in MIDI format
Chris@301:         trackBuffer += longToVarBuffer((*midiEvent)->getTime());
Chris@301: 
Chris@301:         if ((*midiEvent)->isMeta()) {
Chris@301:             trackBuffer += MIDI_FILE_META_EVENT;
Chris@301:             trackBuffer += (*midiEvent)->getMetaEventCode();
Chris@301: 
Chris@301:             // Variable length number field
Chris@301:             trackBuffer += longToVarBuffer((*midiEvent)->
Chris@301:                                            getMetaMessage().length());
Chris@301: 
Chris@301:             trackBuffer += (*midiEvent)->getMetaMessage();
Chris@301:         } else {
Chris@301:             // Send the normal event code (with encoded channel information)
Chris@301:             if (((*midiEvent)->getEventCode() != eventCode) ||
Chris@301:                 ((*midiEvent)->getEventCode() == MIDI_SYSTEM_EXCLUSIVE)) {
Chris@301:                 trackBuffer += (*midiEvent)->getEventCode();
Chris@301:                 eventCode = (*midiEvent)->getEventCode();
Chris@301:             }
Chris@301: 
Chris@301:             // Send the relevant data
Chris@301:             //
Chris@301:             switch ((*midiEvent)->getMessageType()) {
Chris@301:             case MIDI_NOTE_ON:
Chris@301:             case MIDI_NOTE_OFF:
Chris@301:             case MIDI_POLY_AFTERTOUCH:
Chris@301:                 trackBuffer += (*midiEvent)->getData1();
Chris@301:                 trackBuffer += (*midiEvent)->getData2();
Chris@301:                 break;
Chris@301: 
Chris@301:             case MIDI_CTRL_CHANGE:
Chris@301:                 trackBuffer += (*midiEvent)->getData1();
Chris@301:                 trackBuffer += (*midiEvent)->getData2();
Chris@301:                 break;
Chris@301: 
Chris@301:             case MIDI_PROG_CHANGE:
Chris@301:                 trackBuffer += (*midiEvent)->getData1();
Chris@301:                 break;
Chris@301: 
Chris@301:             case MIDI_CHNL_AFTERTOUCH:
Chris@301:                 trackBuffer += (*midiEvent)->getData1();
Chris@301:                 break;
Chris@301: 
Chris@301:             case MIDI_PITCH_BEND:
Chris@301:                 trackBuffer += (*midiEvent)->getData1();
Chris@301:                 trackBuffer += (*midiEvent)->getData2();
Chris@301:                 break;
Chris@301: 
Chris@301:             case MIDI_SYSTEM_EXCLUSIVE:
Chris@301:                 // write out message length
Chris@301:                 trackBuffer +=
Chris@301:                     longToVarBuffer((*midiEvent)->getMetaMessage().length());
Chris@301: 
Chris@301:                 // now the message
Chris@301:                 trackBuffer += (*midiEvent)->getMetaMessage();
Chris@301:                 break;
Chris@301: 
Chris@301:             default:
Chris@301:                 break;
Chris@301:             }
Chris@301:         }
Chris@301:     }
Chris@301: 
Chris@301:     // Now we write the track - First the standard header..
Chris@301:     //
Chris@301:     *m_midiFile << MIDI_TRACK_HEADER;
Chris@301: 
Chris@301:     // ..now the length of the buffer..
Chris@301:     //
Chris@301:     *m_midiFile << longToMIDIBytes((long)trackBuffer.length());
Chris@301: 
Chris@301:     // ..then the buffer itself..
Chris@301:     //
Chris@301:     *m_midiFile << trackBuffer;
Chris@301: 
Chris@301:     return retOK;
Chris@301: }
Chris@301: 
Chris@301: bool
Chris@301: MIDIFileWriter::writeComposition()
Chris@301: {
Chris@301:     bool retOK = true;
Chris@301: 
Chris@301:     m_midiFile =
Chris@301:         new ofstream(m_path.toLocal8Bit().data(), ios::out | ios::binary);
Chris@301: 
Chris@301:     if (!(*m_midiFile)) {
Chris@301:         m_error = "Can't open file for writing.";
Chris@301:         delete m_midiFile;
Chris@1582:         m_midiFile = nullptr;
Chris@301:         return false;
Chris@301:     }
Chris@301: 
Chris@301:     if (!writeHeader()) {
Chris@301:         retOK = false;
Chris@301:     }
Chris@301: 
Chris@301:     for (unsigned int i = 0; i < m_numberOfTracks; i++) {
Chris@301:         if (!writeTrack(i)) {
Chris@301:             retOK = false;
Chris@301:         }
Chris@301:     }
Chris@301: 
Chris@301:     m_midiFile->close();
Chris@301:     delete m_midiFile;
Chris@1582:     m_midiFile = nullptr;
Chris@301: 
Chris@301:     if (!retOK) {
Chris@301:         m_error = "MIDI file write failed";
Chris@301:     }
Chris@301: 
Chris@301:     return retOK;
Chris@301: }
Chris@301: 
Chris@301: bool
Chris@301: MIDIFileWriter::convert()
Chris@301: {
Chris@301:     m_timingDivision = 480;
Chris@301:     m_format = MIDI_SINGLE_TRACK_FILE;
Chris@301:     m_numberOfTracks = 1;
Chris@301: 
Chris@301:     int track = 0;
Chris@301: 
Chris@301:     MIDIEvent *event;
Chris@301: 
Chris@1128:     event = new MIDIEvent
Chris@1128:         (0, MIDI_FILE_META_EVENT, MIDI_CUE_POINT,
Chris@1128:          ("Exported from " + qApp->applicationName()).toStdString());
Chris@301:     m_midiComposition[track].push_back(event);
Chris@301: 
Chris@301:     long tempoValue = long(60000000.0 / m_tempo + 0.01);
Chris@301:     string tempoString;
Chris@301:     tempoString += (MIDIByte)(tempoValue >> 16 & 0xFF);
Chris@301:     tempoString += (MIDIByte)(tempoValue >> 8 & 0xFF);
Chris@301:     tempoString += (MIDIByte)(tempoValue & 0xFF);
Chris@301: 
Chris@301:     event = new MIDIEvent(0, MIDI_FILE_META_EVENT, MIDI_SET_TEMPO,
Chris@301:                           tempoString);
Chris@301:     m_midiComposition[track].push_back(event);
Chris@301: 
Chris@301:     // Omit time signature
Chris@301: 
Chris@852:     NoteList notes = m_exportable->getNotes();
Chris@301: 
Chris@852:     for (NoteList::const_iterator i = notes.begin(); i != notes.end(); ++i) {
Chris@301: 
Chris@1038:         sv_frame_t frame = i->start;
Chris@1038:         sv_frame_t duration = i->duration;
Chris@852:         int pitch = i->midiPitch;
Chris@852:         int velocity = i->velocity;
Chris@996:         int channel = i->channel;
Chris@301: 
Chris@301:         if (pitch < 0) pitch = 0;
Chris@301:         if (pitch > 127) pitch = 127;
Chris@301: 
Chris@996:         if (channel < 0) channel = 0;
Chris@996:         if (channel > 15) channel = 0;
Chris@996: 
Chris@301:         // Convert frame to MIDI time
Chris@301: 
Chris@1048:         double seconds = double(frame) / m_sampleRate;
Chris@301:         double quarters = (seconds * m_tempo) / 60.0;
Chris@852:         unsigned long midiTime = int(quarters * m_timingDivision + 0.5);
Chris@301: 
Chris@301:         // Get the sounding time for the matching NOTE_OFF
Chris@1048:         seconds = double(frame + duration) / m_sampleRate;
Chris@301:         quarters = (seconds * m_tempo) / 60.0;
Chris@852:         unsigned long endTime = int(quarters * m_timingDivision + 0.5);
Chris@301: 
Chris@301:         // At this point all the notes we insert have absolute times
Chris@301:         // in the delta time fields.  We resolve these into delta
Chris@301:         // times further down (can't do it until all the note offs are
Chris@301:         // in place).
Chris@301: 
Chris@301:         event = new MIDIEvent(midiTime,
Chris@996:                               MIDI_NOTE_ON | channel,
Chris@301:                               pitch,
Chris@301:                               velocity);
Chris@301:         m_midiComposition[track].push_back(event);
Chris@301: 
Chris@301:         event = new MIDIEvent(endTime,
Chris@996:                               MIDI_NOTE_OFF | channel,
Chris@301:                               pitch,
Chris@301:                               127); // loudest silence you can muster
Chris@301: 
Chris@301:         m_midiComposition[track].push_back(event);
Chris@1128: 
Chris@1128: #ifdef DEBUG_MIDI_FILE_WRITER
Chris@1128:         cerr << "midiTime = " << midiTime << ", endTime = " << endTime << endl;
Chris@1128: #endif
Chris@301:     }
Chris@301:     
Chris@301:     // Now gnash through the MIDI events and turn the absolute times
Chris@301:     // into delta times.
Chris@301:     //
Chris@301:     for (unsigned int i = 0; i < m_numberOfTracks; i++) {
Chris@301: 
Chris@301:         unsigned long lastMidiTime = 0;
Chris@301: 
Chris@301:         // First sort the track with the MIDIEvent comparator.  Use
Chris@301:         // stable_sort so that events with equal times are maintained
Chris@301:         // in their current order.
Chris@301:         //
Chris@301:         std::stable_sort(m_midiComposition[i].begin(),
Chris@301:                          m_midiComposition[i].end(),
Chris@301:                          MIDIEventCmp());
Chris@301: 
Chris@301:         for (MIDITrack::iterator it = m_midiComposition[i].begin();
Chris@301:              it != m_midiComposition[i].end(); it++) {
Chris@301:             unsigned long deltaTime = (*it)->getTime() - lastMidiTime;
Chris@1128: #ifdef DEBUG_MIDI_FILE_WRITER
Chris@1128:             cerr << "time = " << (*it)->getTime() << ", lastMidiTime = " << lastMidiTime << ", deltaTime = " << deltaTime << endl;
Chris@1128: #endif
Chris@301:             lastMidiTime = (*it)->getTime();
Chris@301:             (*it)->setTime(deltaTime);
Chris@301:         }
Chris@301: 
Chris@301:         // Insert end of track event (delta time = 0)
Chris@301:         //
Chris@301:         event = new MIDIEvent(0, MIDI_FILE_META_EVENT,
Chris@301:                               MIDI_END_OF_TRACK, "");
Chris@301: 
Chris@301:         m_midiComposition[i].push_back(event);
Chris@301:     }
Chris@301: 
Chris@301:     return true;
Chris@301: }
Chris@301: