2016-03-01 15:47:10 +00:00
|
|
|
/*
|
|
|
|
** music_opl_mididevice.cpp
|
|
|
|
** Provides an emulated OPL implementation of a MIDI output device.
|
|
|
|
**
|
|
|
|
**---------------------------------------------------------------------------
|
|
|
|
** Copyright 2008 Randy Heit
|
|
|
|
** All rights reserved.
|
|
|
|
**
|
|
|
|
** Redistribution and use in source and binary forms, with or without
|
|
|
|
** modification, are permitted provided that the following conditions
|
|
|
|
** are met:
|
|
|
|
**
|
|
|
|
** 1. Redistributions of source code must retain the above copyright
|
|
|
|
** notice, this list of conditions and the following disclaimer.
|
|
|
|
** 2. Redistributions in binary form must reproduce the above copyright
|
|
|
|
** notice, this list of conditions and the following disclaimer in the
|
|
|
|
** documentation and/or other materials provided with the distribution.
|
|
|
|
** 3. The name of the author may not be used to endorse or promote products
|
|
|
|
** derived from this software without specific prior written permission.
|
|
|
|
**
|
|
|
|
** THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR
|
|
|
|
** IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
|
|
|
|
** OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
|
|
|
|
** IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT,
|
|
|
|
** INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
|
|
|
|
** NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
|
|
|
|
** DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
|
|
|
|
** THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
|
|
|
|
** (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
|
|
|
|
** THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
|
|
|
|
**---------------------------------------------------------------------------
|
|
|
|
**
|
2019-09-26 23:01:52 +00:00
|
|
|
**
|
2016-03-01 15:47:10 +00:00
|
|
|
*/
|
|
|
|
|
|
|
|
// HEADER FILES ------------------------------------------------------------
|
|
|
|
|
|
|
|
#include "i_musicinterns.h"
|
2019-09-26 18:06:39 +00:00
|
|
|
#include "oplsynth/opl.h"
|
2016-03-01 15:47:10 +00:00
|
|
|
|
|
|
|
// MACROS ------------------------------------------------------------------
|
|
|
|
|
|
|
|
// EXTERNAL FUNCTION PROTOTYPES --------------------------------------------
|
|
|
|
|
|
|
|
// PUBLIC FUNCTION PROTOTYPES ----------------------------------------------
|
|
|
|
|
|
|
|
// PRIVATE FUNCTION PROTOTYPES ---------------------------------------------
|
|
|
|
|
|
|
|
// EXTERNAL DATA DECLARATIONS ----------------------------------------------
|
|
|
|
|
|
|
|
// PRIVATE DATA DEFINITIONS ------------------------------------------------
|
|
|
|
|
2019-09-26 23:01:52 +00:00
|
|
|
// OPL implementation of a MIDI output device -------------------------------
|
|
|
|
|
|
|
|
class OPLMIDIDevice : public SoftSynthMIDIDevice, protected OPLmusicBlock
|
|
|
|
{
|
|
|
|
public:
|
|
|
|
OPLMIDIDevice(OPLMidiConfig *config);
|
|
|
|
int Open(MidiCallback, void *userdata);
|
|
|
|
void Close();
|
|
|
|
int GetTechnology() const;
|
|
|
|
FString GetStats();
|
|
|
|
|
|
|
|
protected:
|
|
|
|
void CalcTickRate();
|
|
|
|
int PlayTick();
|
|
|
|
void HandleEvent(int status, int parm1, int parm2);
|
|
|
|
void HandleLongEvent(const uint8_t *data, int len);
|
|
|
|
void ComputeOutput(float *buffer, int len);
|
|
|
|
bool ServiceStream(void *buff, int numbytes);
|
|
|
|
int GetDeviceType() const override { return MDEV_OPL; }
|
|
|
|
};
|
|
|
|
|
2016-03-01 15:47:10 +00:00
|
|
|
|
2019-09-26 23:01:52 +00:00
|
|
|
// PUBLIC DATA DEFINITIONS -------------------------------------------------
|
2016-03-01 15:47:10 +00:00
|
|
|
|
|
|
|
// CODE --------------------------------------------------------------------
|
|
|
|
|
|
|
|
//==========================================================================
|
|
|
|
//
|
|
|
|
// OPLMIDIDevice Contructor
|
|
|
|
//
|
|
|
|
//==========================================================================
|
|
|
|
|
2019-09-26 23:01:52 +00:00
|
|
|
OPLMIDIDevice::OPLMIDIDevice(OPLMidiConfig *config)
|
|
|
|
: SoftSynthMIDIDevice((int)OPL_SAMPLE_RATE), OPLmusicBlock(config->core, config->numchips)
|
2016-03-01 15:47:10 +00:00
|
|
|
{
|
2019-09-26 23:01:52 +00:00
|
|
|
FullPan = config->fullpan;
|
|
|
|
memcpy(OPLinstruments, config->OPLinstruments, sizeof(OPLinstruments));
|
2016-03-01 15:47:10 +00:00
|
|
|
}
|
|
|
|
|
|
|
|
//==========================================================================
|
|
|
|
//
|
|
|
|
// OPLMIDIDevice :: Open
|
|
|
|
//
|
|
|
|
// Returns 0 on success.
|
|
|
|
//
|
|
|
|
//==========================================================================
|
|
|
|
|
2017-03-09 19:28:57 +00:00
|
|
|
int OPLMIDIDevice::Open(MidiCallback callback, void *userdata)
|
2016-03-01 15:47:10 +00:00
|
|
|
{
|
2019-09-26 23:01:52 +00:00
|
|
|
if (io == NULL || 0 == (NumChips = io->Init(currentCore, NumChips, FullPan, true)))
|
2016-03-01 15:47:10 +00:00
|
|
|
{
|
|
|
|
return 1;
|
|
|
|
}
|
|
|
|
int ret = OpenStream(14, (FullPan || io->IsOPL3) ? 0 : SoundStream::Mono, callback, userdata);
|
|
|
|
if (ret == 0)
|
|
|
|
{
|
2017-04-15 23:36:53 +00:00
|
|
|
stopAllVoices();
|
|
|
|
resetAllControllers(100);
|
2016-03-01 15:47:10 +00:00
|
|
|
}
|
|
|
|
return ret;
|
|
|
|
}
|
|
|
|
|
|
|
|
//==========================================================================
|
|
|
|
//
|
|
|
|
// OPLMIDIDevice :: Close
|
|
|
|
//
|
|
|
|
//==========================================================================
|
|
|
|
|
|
|
|
void OPLMIDIDevice::Close()
|
|
|
|
{
|
|
|
|
SoftSynthMIDIDevice::Close();
|
2017-04-15 23:36:53 +00:00
|
|
|
io->Reset();
|
2016-03-01 15:47:10 +00:00
|
|
|
}
|
|
|
|
|
|
|
|
//==========================================================================
|
|
|
|
//
|
|
|
|
// OPLMIDIDevice :: GetTechnology
|
|
|
|
//
|
|
|
|
//==========================================================================
|
|
|
|
|
|
|
|
int OPLMIDIDevice::GetTechnology() const
|
|
|
|
{
|
2017-03-10 11:39:23 +00:00
|
|
|
return MIDIDEV_FMSYNTH;
|
2016-03-01 15:47:10 +00:00
|
|
|
}
|
|
|
|
|
|
|
|
//==========================================================================
|
|
|
|
//
|
|
|
|
// OPLMIDIDevice :: CalcTickRate
|
|
|
|
//
|
|
|
|
// Tempo is the number of microseconds per quarter note.
|
|
|
|
// Division is the number of ticks per quarter note.
|
|
|
|
//
|
|
|
|
//==========================================================================
|
|
|
|
|
|
|
|
void OPLMIDIDevice::CalcTickRate()
|
|
|
|
{
|
|
|
|
SoftSynthMIDIDevice::CalcTickRate();
|
|
|
|
io->SetClockRate(OPLmusicBlock::SamplesPerTick = SoftSynthMIDIDevice::SamplesPerTick);
|
|
|
|
}
|
|
|
|
|
|
|
|
//==========================================================================
|
|
|
|
//
|
|
|
|
// OPLMIDIDevice :: PlayTick
|
|
|
|
//
|
|
|
|
// We derive from two base classes that both define PlayTick(), so we need
|
|
|
|
// to be unambiguous about which one to use.
|
|
|
|
//
|
|
|
|
//==========================================================================
|
|
|
|
|
|
|
|
int OPLMIDIDevice::PlayTick()
|
|
|
|
{
|
|
|
|
return SoftSynthMIDIDevice::PlayTick();
|
|
|
|
}
|
|
|
|
|
|
|
|
//==========================================================================
|
|
|
|
//
|
|
|
|
// OPLMIDIDevice :: HandleEvent
|
|
|
|
//
|
|
|
|
// Processes a normal MIDI event.
|
|
|
|
//
|
|
|
|
//==========================================================================
|
|
|
|
|
|
|
|
void OPLMIDIDevice::HandleEvent(int status, int parm1, int parm2)
|
|
|
|
{
|
|
|
|
int command = status & 0xF0;
|
|
|
|
int channel = status & 0x0F;
|
|
|
|
|
2017-04-15 23:36:53 +00:00
|
|
|
// Swap voices 9 and 15, because their roles are reversed
|
2016-03-01 15:47:10 +00:00
|
|
|
// in MUS and MIDI formats.
|
|
|
|
if (channel == 9)
|
|
|
|
{
|
|
|
|
channel = 15;
|
|
|
|
}
|
|
|
|
else if (channel == 15)
|
|
|
|
{
|
|
|
|
channel = 9;
|
|
|
|
}
|
|
|
|
|
|
|
|
switch (command)
|
|
|
|
{
|
|
|
|
case MIDI_NOTEOFF:
|
|
|
|
playingcount--;
|
2017-04-15 23:36:53 +00:00
|
|
|
noteOff(channel, parm1);
|
2016-03-01 15:47:10 +00:00
|
|
|
break;
|
|
|
|
|
|
|
|
case MIDI_NOTEON:
|
|
|
|
playingcount++;
|
2017-04-15 23:36:53 +00:00
|
|
|
noteOn(channel, parm1, parm2);
|
2016-03-01 15:47:10 +00:00
|
|
|
break;
|
|
|
|
|
|
|
|
case MIDI_POLYPRESS:
|
2019-09-26 23:01:52 +00:00
|
|
|
//DEBUGOUT("Unhandled note aftertouch: Channel %d, note %d, value %d\n", channel, parm1, parm2);
|
2016-03-01 15:47:10 +00:00
|
|
|
break;
|
|
|
|
|
|
|
|
case MIDI_CTRLCHANGE:
|
|
|
|
switch (parm1)
|
|
|
|
{
|
2017-04-15 23:36:53 +00:00
|
|
|
// some controllers here get passed on but are not handled by the player.
|
|
|
|
//case 0: changeBank(channel, parm2); break;
|
|
|
|
case 1: changeModulation(channel, parm2); break;
|
|
|
|
case 6: changeExtended(channel, ctrlDataEntryHi, parm2); break;
|
|
|
|
case 7: changeVolume(channel, parm2, false); break;
|
|
|
|
case 10: changePanning(channel, parm2); break;
|
|
|
|
case 11: changeVolume(channel, parm2, true); break;
|
|
|
|
case 38: changeExtended(channel, ctrlDataEntryLo, parm2); break;
|
|
|
|
case 64: changeSustain(channel, parm2); break;
|
|
|
|
//case 67: changeSoftPedal(channel, parm2); break;
|
|
|
|
//case 91: changeReverb(channel, parm2); break;
|
|
|
|
//case 93: changeChorus(channel, parm2); break;
|
|
|
|
case 98: changeExtended(channel, ctrlNRPNLo, parm2); break;
|
|
|
|
case 99: changeExtended(channel, ctrlNRPNHi, parm2); break;
|
|
|
|
case 100: changeExtended(channel, ctrlRPNLo, parm2); break;
|
|
|
|
case 101: changeExtended(channel, ctrlRPNHi, parm2); break;
|
|
|
|
case 120: allNotesOff(channel, parm2); break;
|
|
|
|
case 121: resetControllers(channel, 100); break;
|
|
|
|
case 123: notesOff(channel, parm2); break;
|
|
|
|
//case 126: changeMono(channel, parm2); break;
|
|
|
|
//case 127: changePoly(channel, parm2); break;
|
2016-03-01 15:47:10 +00:00
|
|
|
default:
|
2019-09-26 23:01:52 +00:00
|
|
|
//DEBUGOUT("Unhandled controller: Channel %d, controller %d, value %d\n", channel, parm1, parm2);
|
2016-03-01 15:47:10 +00:00
|
|
|
break;
|
|
|
|
}
|
|
|
|
break;
|
|
|
|
|
|
|
|
case MIDI_PRGMCHANGE:
|
2017-04-15 23:36:53 +00:00
|
|
|
programChange(channel, parm1);
|
2016-03-01 15:47:10 +00:00
|
|
|
break;
|
|
|
|
|
|
|
|
case MIDI_CHANPRESS:
|
2019-09-26 23:01:52 +00:00
|
|
|
//DEBUGOUT("Unhandled channel aftertouch: Channel %d, value %d\n", channel, parm1, 0);
|
2016-03-01 15:47:10 +00:00
|
|
|
break;
|
|
|
|
|
|
|
|
case MIDI_PITCHBEND:
|
2017-04-15 23:36:53 +00:00
|
|
|
changePitch(channel, parm1, parm2);
|
2016-03-01 15:47:10 +00:00
|
|
|
break;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
//==========================================================================
|
|
|
|
//
|
|
|
|
// OPLMIDIDevice :: HandleLongEvent
|
|
|
|
//
|
|
|
|
//==========================================================================
|
|
|
|
|
2017-03-08 17:47:52 +00:00
|
|
|
void OPLMIDIDevice::HandleLongEvent(const uint8_t *data, int len)
|
2016-03-01 15:47:10 +00:00
|
|
|
{
|
|
|
|
}
|
|
|
|
|
|
|
|
//==========================================================================
|
|
|
|
//
|
|
|
|
// OPLMIDIDevice :: ComputeOutput
|
|
|
|
//
|
|
|
|
// We override ServiceStream, so this function is never actually called.
|
|
|
|
//
|
|
|
|
//==========================================================================
|
|
|
|
|
|
|
|
void OPLMIDIDevice::ComputeOutput(float *buffer, int len)
|
|
|
|
{
|
|
|
|
}
|
|
|
|
|
|
|
|
//==========================================================================
|
|
|
|
//
|
|
|
|
// OPLMIDIDevice :: ServiceStream
|
|
|
|
//
|
|
|
|
//==========================================================================
|
|
|
|
|
|
|
|
bool OPLMIDIDevice::ServiceStream(void *buff, int numbytes)
|
|
|
|
{
|
|
|
|
return OPLmusicBlock::ServiceStream(buff, numbytes);
|
|
|
|
}
|
|
|
|
|
|
|
|
//==========================================================================
|
|
|
|
//
|
|
|
|
// OPLMIDIDevice :: GetStats
|
|
|
|
//
|
|
|
|
//==========================================================================
|
|
|
|
|
|
|
|
FString OPLMIDIDevice::GetStats()
|
|
|
|
{
|
|
|
|
FString out;
|
2017-04-15 23:36:53 +00:00
|
|
|
for (uint32_t i = 0; i < io->NumChannels; ++i)
|
2016-03-01 15:47:10 +00:00
|
|
|
{
|
2019-09-26 23:01:52 +00:00
|
|
|
char star = '*';
|
2017-04-23 13:40:03 +00:00
|
|
|
if (voices[i].index == ~0u)
|
2016-03-01 15:47:10 +00:00
|
|
|
{
|
2019-09-26 23:01:52 +00:00
|
|
|
star = '/';
|
2016-03-01 15:47:10 +00:00
|
|
|
}
|
2017-04-15 23:36:53 +00:00
|
|
|
else if (voices[i].sustained)
|
2016-03-01 15:47:10 +00:00
|
|
|
{
|
2019-09-26 23:01:52 +00:00
|
|
|
star = '-';
|
2016-03-01 15:47:10 +00:00
|
|
|
}
|
2017-04-15 23:36:53 +00:00
|
|
|
else if (voices[i].current_instr_voice == &voices[i].current_instr->voices[1])
|
2016-03-01 15:47:10 +00:00
|
|
|
{
|
2019-09-26 23:01:52 +00:00
|
|
|
star = '\\';
|
2016-03-01 15:47:10 +00:00
|
|
|
}
|
|
|
|
else
|
|
|
|
{
|
2019-09-26 23:01:52 +00:00
|
|
|
star = '+';
|
2016-03-01 15:47:10 +00:00
|
|
|
}
|
2019-09-26 23:01:52 +00:00
|
|
|
out += star;
|
2016-03-01 15:47:10 +00:00
|
|
|
}
|
|
|
|
return out;
|
|
|
|
}
|
2019-09-26 23:01:52 +00:00
|
|
|
|
|
|
|
MIDIDevice* CreateOplMIDIDevice(OPLMidiConfig* config)
|
|
|
|
{
|
|
|
|
return new OPLMIDIDevice(config);
|
|
|
|
}
|