mirrors/OPL
2
0
Fork 0
Code Activity
OPL/Source/hiopl.cpp

277 lines
7.2 KiB
C++
Raw Normal View History

Basic project setup.
2013-09-04 13:37:36 +00:00
#include "Hiopl.h"
#include <assert.h>
Add record button into GUI, halve output level.
2014-11-01 13:26:48 +00:00
#include "JuceHeader.h"
Basic project setup.
2013-09-04 13:37:36 +00:00
Hacked in support for the ZDoom emulator.
2014-09-24 14:53:40 +00:00
// A wrapper around the DOSBox and ZDoom OPL emulators.
Basic project setup.
2013-09-04 13:37:36 +00:00
Hacked in support for the ZDoom emulator.
2014-09-24 14:53:40 +00:00
Hiopl::Hiopl(int buflen, Emulator emulator) {
Work in progress - refactoring for multiple instance DRO recording, bug fix.
2015-01-06 03:13:44 +00:00
//InitCaptureVariables();
Working but messy DRO capture, including all OPL3 waveforms.
2014-11-02 15:21:51 +00:00
Basic project setup.
2013-09-04 13:37:36 +00:00
adlib = new DBOPL::Handler();
Hacked in support for the ZDoom emulator.
2014-09-24 14:53:40 +00:00
zdoom = JavaOPLCreate(false);
Now supports setting frequency multipliers and attenuation levels.
2013-09-10 17:30:05 +00:00
_op1offset[1] = 0x0;
_op1offset[2] = 0x1;
_op1offset[3] = 0x2;
_op1offset[4] = 0x8;
_op1offset[5] = 0x9;
_op1offset[6] = 0xa;
_op1offset[7] = 0x10;
_op1offset[8] = 0x11;
_op1offset[9] = 0x12;
_op2offset[1] = 0x3;
_op2offset[2] = 0x4;
_op2offset[3] = 0x5;
_op2offset[4] = 0xb;
_op2offset[5] = 0xc;
_op2offset[6] = 0xd;
_op2offset[7] = 0x13;
_op2offset[8] = 0x14;
_op2offset[9] = 0x15;
Add selection of DOSBox / ZDoom emulation as a parameter.
2014-09-28 06:29:27 +00:00
SetEmulator(emulator);
_ClearRegisters();
}
void Hiopl::_ClearRegisters() {
Now supports setting frequency multipliers and attenuation levels.
2013-09-10 17:30:05 +00:00
for (int i = 0; i < 256; i++) {
_WriteReg(i, 0);
}
Basic project setup.
2013-09-04 13:37:36 +00:00
}
Hacked in support for the ZDoom emulator.
2014-09-24 14:53:40 +00:00
void Hiopl::SetEmulator(Emulator emulator) {
this->emulator = emulator;
Basic project setup.
2013-09-04 13:37:36 +00:00
}
Working audio output from VST! - Fix namespace clash with Value from DOSBox and Juce - Generate samples using HiOPL wrapper and convert to floating point format
2013-09-04 14:19:22 +00:00
void Hiopl::Generate(int length, float* buffer) {
// This would be better done using Juce's built in audio format conversion.
Hacked in support for the ZDoom emulator.
2014-09-24 14:53:40 +00:00
if (DOSBOX == emulator) {
Match pitch and amplitude of ZDoom and DOSBox emulators.
2014-09-28 07:30:42 +00:00
Bit32s* buf32 = new Bit32s[length];
adlib->Generate(length, buf32);
Hacked in support for the ZDoom emulator.
2014-09-24 14:53:40 +00:00
for (int i = 0; i < length; i++) {
Match pitch and amplitude of ZDoom and DOSBox emulators.
2014-09-28 07:30:42 +00:00
// The magic divisor is tuned to match to ZDoom output amplitude.
Add record button into GUI, halve output level.
2014-11-01 13:26:48 +00:00
buffer[i] = (float)(buf32[i])/8200.0f;
Hacked in support for the ZDoom emulator.
2014-09-24 14:53:40 +00:00
}
Match pitch and amplitude of ZDoom and DOSBox emulators.
2014-09-28 07:30:42 +00:00
delete buf32;
Hacked in support for the ZDoom emulator.
2014-09-24 14:53:40 +00:00
} else if (ZDOOM == emulator) {
// ZDoom hacked to write mono samples
zdoom->Update(buffer, length);
Working audio output from VST! - Fix namespace clash with Value from DOSBox and Juce - Generate samples using HiOPL wrapper and convert to floating point format
2013-09-04 14:19:22 +00:00
}
}
Basic project setup.
2013-09-04 13:37:36 +00:00
void Hiopl::SetSampleRate(int hz) {
adlib->Init(hz);
}
Now supports setting frequency multipliers and attenuation levels.
2013-09-10 17:30:05 +00:00
void Hiopl::_WriteReg(Bit32u reg, Bit8u value, Bit8u mask) {
if (mask > 0) {
value = (regCache[reg] & (~mask)) | (value & mask);
}
Match pitch and amplitude of ZDoom and DOSBox emulators.
2014-09-28 07:30:42 +00:00
// Write to the registers of both emulators.
Add selection of DOSBox / ZDoom emulation as a parameter.
2014-09-28 06:29:27 +00:00
//if (DOSBOX == emulator) {
Hacked in support for the ZDoom emulator.
2014-09-24 14:53:40 +00:00
adlib->WriteReg(reg, value);
Add selection of DOSBox / ZDoom emulation as a parameter.
2014-09-28 06:29:27 +00:00
//} else if (ZDOOM == emulator) {
Hacked in support for the ZDoom emulator.
2014-09-24 14:53:40 +00:00
zdoom->WriteReg(reg, value);
Add selection of DOSBox / ZDoom emulation as a parameter.
2014-09-28 06:29:27 +00:00
//}
Basic project setup.
2013-09-04 13:37:36 +00:00
regCache[reg] = value;
Work in progress - refactoring for multiple instance DRO recording, bug fix.
2015-01-06 03:13:44 +00:00
}
Bit8u Hiopl::_ReadReg(Bit32u reg) {
return regCache[reg];
Basic project setup.
2013-09-04 13:37:36 +00:00
}
Basic note on/off triggering from MIDI working.
2013-09-04 15:36:55 +00:00
void Hiopl::_ClearRegBits(Bit32u reg, Bit8u mask) {
_WriteReg(reg, regCache[reg] & ~mask);
}
Finally get waveform control working, add modulator feedback, fix assorted bugs.
2013-09-12 13:58:22 +00:00
void Hiopl::EnableWaveformControl() {
_WriteReg(0x01, 0x20);
Basic project setup.
2013-09-04 13:37:36 +00:00
}
Finally get waveform control working, add modulator feedback, fix assorted bugs.
2013-09-12 13:58:22 +00:00
void Hiopl::SetWaveform(int ch, int osc, Waveform wave) {
int offset = this->_GetOffset(ch, osc);
Hack in OPL3 waveforms.
2013-11-05 16:50:37 +00:00
_WriteReg(0xe0+offset, (Bit8u)wave, 0x7);
Basic project setup.
2013-09-04 13:37:36 +00:00
}
Now supports setting frequency multipliers and attenuation levels.
2013-09-10 17:30:05 +00:00
void Hiopl::SetAttenuation(int ch, int osc, int level) {
int offset = this->_GetOffset(ch, osc);
_WriteReg(0x40+offset, (Bit8u)level, 0x3f);
}
Add parameters for tremolo and vibrato depth, enable/disable velocity tracking. Correct keyscaling parameter names.
2013-09-22 11:10:28 +00:00
void Hiopl::SetKsl(int ch, int osc, int level) {
Attenuation set in dB, add keyscaling.
2013-09-12 15:52:06 +00:00
int offset = this->_GetOffset(ch, osc);
Implement programs, fix bugs.
2013-09-13 17:13:18 +00:00
_WriteReg(0x40+offset, (Bit8u)(level<<6), 0xc0);
Attenuation set in dB, add keyscaling.
2013-09-12 15:52:06 +00:00
}
Now supports setting frequency multipliers and attenuation levels.
2013-09-10 17:30:05 +00:00
void Hiopl::SetFrequencyMultiple(int ch, int osc, FreqMultiple mult) {
int offset = this->_GetOffset(ch, osc);
Finally get waveform control working, add modulator feedback, fix assorted bugs.
2013-09-12 13:58:22 +00:00
_WriteReg(0x20+offset, (Bit8u)mult, 0xf);
Now supports setting frequency multipliers and attenuation levels.
2013-09-10 17:30:05 +00:00
}
Add Envelope parameters and IntFloatParameter wrapper.
2013-09-12 12:17:31 +00:00
void Hiopl::SetEnvelopeAttack(int ch, int osc, int t) {
int offset = this->_GetOffset(ch, osc);
_WriteReg(0x60+offset, (Bit8u)t<<4, 0xf0);
}
void Hiopl::SetEnvelopeDecay(int ch, int osc, int t) {
int offset = this->_GetOffset(ch, osc);
_WriteReg(0x60+offset, (Bit8u)t, 0x0f);
}
void Hiopl::SetEnvelopeSustain(int ch, int osc, int level) {
int offset = this->_GetOffset(ch, osc);
_WriteReg(0x80+offset, (Bit8u)level<<4, 0xf0);
}
void Hiopl::SetEnvelopeRelease(int ch, int osc, int t) {
int offset = this->_GetOffset(ch, osc);
_WriteReg(0x80+offset, (Bit8u)t, 0x0f);
}
Add tremolo, vibrato, keyscaling, algorithm, and sustain enable / disable; add auto-generated instruments from DOSbox syndicate output.
2013-09-14 16:06:45 +00:00
void Hiopl::EnableTremolo(int ch, int osc, bool enable) {
Initialise parameters as floating point values.
2013-09-12 13:10:19 +00:00
int offset = this->_GetOffset(ch, osc);
Add tremolo, vibrato, keyscaling, algorithm, and sustain enable / disable; add auto-generated instruments from DOSbox syndicate output.
2013-09-14 16:06:45 +00:00
_WriteReg(0x20+offset, enable ? 0x80 : 0x0, 0x80);
Initialise parameters as floating point values.
2013-09-12 13:10:19 +00:00
}
Add tremolo, vibrato, keyscaling, algorithm, and sustain enable / disable; add auto-generated instruments from DOSbox syndicate output.
2013-09-14 16:06:45 +00:00
void Hiopl::EnableVibrato(int ch, int osc, bool enable) {
Attenuation set in dB, add keyscaling.
2013-09-12 15:52:06 +00:00
int offset = this->_GetOffset(ch, osc);
Add tremolo, vibrato, keyscaling, algorithm, and sustain enable / disable; add auto-generated instruments from DOSbox syndicate output.
2013-09-14 16:06:45 +00:00
_WriteReg(0x20+offset, enable ? 0x40 : 0x0, 0x40);
}
Add parameters for tremolo and vibrato depth, enable/disable velocity tracking. Correct keyscaling parameter names.
2013-09-22 11:10:28 +00:00
void Hiopl::TremoloDepth(bool high) {
_WriteReg(0xbd, high ? 0x80 : 0x0, 0x80);
}
void Hiopl::VibratoDepth(bool high) {
_WriteReg(0xbd, high ? 0x40 : 0x0, 0x40);
}
Add tremolo, vibrato, keyscaling, algorithm, and sustain enable / disable; add auto-generated instruments from DOSbox syndicate output.
2013-09-14 16:06:45 +00:00
void Hiopl::EnableSustain(int ch, int osc, bool enable) {
int offset = this->_GetOffset(ch, osc);
_WriteReg(0x20+offset, enable ? 0x20 : 0x0, 0x20);
}
Add parameters for tremolo and vibrato depth, enable/disable velocity tracking. Correct keyscaling parameter names.
2013-09-22 11:10:28 +00:00
void Hiopl::EnableKsr(int ch, int osc, bool enable) {
Add tremolo, vibrato, keyscaling, algorithm, and sustain enable / disable; add auto-generated instruments from DOSbox syndicate output.
2013-09-14 16:06:45 +00:00
int offset = this->_GetOffset(ch, osc);
_WriteReg(0x20+offset, enable ? 0x10 : 0x0, 0x10);
}
void Hiopl::EnableAdditiveSynthesis(int ch, bool enable) {
int offset = this->_GetOffset(ch);
_WriteReg(0xc0+offset, enable ? 0x1 : 0x0, 0x1);
Attenuation set in dB, add keyscaling.
2013-09-12 15:52:06 +00:00
}
Finally get waveform control working, add modulator feedback, fix assorted bugs.
2013-09-12 13:58:22 +00:00
void Hiopl::SetModulatorFeedback(int ch, int level) {
int offset = this->_GetOffset(ch);
_WriteReg(0xc0+offset, (Bit8u)level, 0x0e);
}
Add support for percussion mode.
2015-01-01 11:55:03 +00:00
void Hiopl::SetPercussionMode(bool enable) {
_WriteReg(0xbd, enable ? 0x20 : 0x0, 0x20);
}
void Hiopl::HitPercussion(Drum drum) {
Bit8u mask = (Bit8u)drum;
_WriteReg(0xbd, mask, mask);
}
void Hiopl::ReleasePercussion() {
_WriteReg(0xbd, 0x0, 0x1f);
}
Basic note on/off triggering from MIDI working.
2013-09-04 15:36:55 +00:00
void Hiopl::KeyOn(int ch, float frqHz) {
Add some quick and dirty MIDI pitch wheel control.
2013-12-23 07:51:29 +00:00
Hiopl::SetFrequency(ch, frqHz, true);
Basic note on/off triggering from MIDI working.
2013-09-04 15:36:55 +00:00
}
void Hiopl::KeyOff(int ch) {
Finally get waveform control working, add modulator feedback, fix assorted bugs.
2013-09-12 13:58:22 +00:00
int offset = this->_GetOffset(ch);
_ClearRegBits(0xb0+offset, 0x20);
Basic note on/off triggering from MIDI working.
2013-09-04 15:36:55 +00:00
}
DRO output from multiple plugins. Channel mapping needs testing and debugging.
2015-01-06 13:25:51 +00:00
bool Hiopl::IsActive(int ch) {
// check carrier envelope state
return DBOPL::Operator::State::OFF != adlib->chip.chan[ch - 1].op[1].state;
}
Work in progress - refactoring for multiple instance DRO recording, bug fix.
2015-01-06 03:13:44 +00:00
Add some quick and dirty MIDI pitch wheel control.
2013-12-23 07:51:29 +00:00
void Hiopl::SetFrequency(int ch, float frqHz, bool keyOn) {
unsigned int fnum, block;
int offset = this->_GetOffset(ch);
DRO output from multiple plugins. Channel mapping needs testing and debugging.
2015-01-06 13:25:51 +00:00
// ZDoom emulator seems to be tuned down by two semitones for some reason. Sample rate difference?
Match pitch and amplitude of ZDoom and DOSBox emulators.
2014-09-28 07:30:42 +00:00
if (ZDOOM == emulator) {
frqHz *= 1.122461363636364f;
}
Add some quick and dirty MIDI pitch wheel control.
2013-12-23 07:51:29 +00:00
_milliHertzToFnum((unsigned int)(frqHz * 1000.0), &fnum, &block);
_WriteReg(0xa0+offset, fnum % 0x100);
uint8 trig = (regCache[0xb0+offset] & 0x20) | (keyOn ? 0x20 : 0x00);
_WriteReg(0xb0+offset, trig|((block&0x7)<<2)|(0x3&(fnum/0x100)));
}
Basic note on/off triggering from MIDI working.
2013-09-04 15:36:55 +00:00
// from libgamemusic, opl-util.cpp
void Hiopl::_milliHertzToFnum(unsigned int milliHertz,
unsigned int *fnum, unsigned int *block, unsigned int conversionFactor)
{
// Special case to avoid divide by zero
if (milliHertz == 0) {
*block = 0; // actually any block will work
*fnum = 0;
return;
}
// Special case for frequencies too high to produce
if (milliHertz > 6208431) {
*block = 7;
*fnum = 1023;
return;
}
Basic project setup.
2013-09-04 13:37:36 +00:00
Basic note on/off triggering from MIDI working.
2013-09-04 15:36:55 +00:00
// This is a bit more efficient and doesn't need log2() from math.h
if (milliHertz > 3104215) *block = 7;
else if (milliHertz > 1552107) *block = 6;
else if (milliHertz > 776053) *block = 5;
else if (milliHertz > 388026) *block = 4;
else if (milliHertz > 194013) *block = 3;
else if (milliHertz > 97006) *block = 2;
else if (milliHertz > 48503) *block = 1;
else *block = 0;
// Slightly more efficient version
Hack in OPL3 waveforms.
2013-11-05 16:50:37 +00:00
*fnum = (unsigned int)(((unsigned long long)milliHertz << (20 - *block)) / (conversionFactor * 1000.0) + 0.5);
Basic note on/off triggering from MIDI working.
2013-09-04 15:36:55 +00:00
if ((*block == 7) && (*fnum > 1023)) {
// frequency out of range, clipping to maximum value.
*fnum = 1023;
}
assert(*block <= 7);
assert(*fnum < 1024);
return;
Basic project setup.
2013-09-04 13:37:36 +00:00
}
Hiopl::~Hiopl() {
Match pitch and amplitude of ZDoom and DOSBox emulators.
2014-09-28 07:30:42 +00:00
Basic project setup.
2013-09-04 13:37:36 +00:00
};
Finally get waveform control working, add modulator feedback, fix assorted bugs.
2013-09-12 13:58:22 +00:00
bool Hiopl::_CheckParams(int ch, int osc=OSCILLATORS) {
Now supports setting frequency multipliers and attenuation levels.
2013-09-10 17:30:05 +00:00
return ch > 0 && ch <= CHANNELS && osc > 0 && osc <= OSCILLATORS;
}
int Hiopl::_GetOffset(int ch, int osc) {
assert(_CheckParams(ch, osc));
return (1 == osc) ? _op1offset[ch] : _op2offset[ch];
}
Finally get waveform control working, add modulator feedback, fix assorted bugs.
2013-09-12 13:58:22 +00:00
int Hiopl::_GetOffset(int ch) {
assert(_CheckParams(ch));
return ch - 1;
}
Work in progress - refactoring for multiple instance DRO recording, bug fix.
2015-01-06 03:13:44 +00:00
/*
2. Two-operator Melodic and Percussion Mode
<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ŀ
<EFBFBD> Channel <EFBFBD> 0 1 2 3 4 5 BD SD TT CY HH 9 10 11 12 13 14 15 16 17 <EFBFBD>
<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ĵ
<EFBFBD> Operator 1 <EFBFBD> 0 1 2 6 7 8 12 16 14 17 13 18 19 20 24 25 26 30 31 32 <EFBFBD>
<EFBFBD> Operator 2 <EFBFBD> 3 4 5 9 10 11 15 21 22 23 27 28 29 33 34 35 <EFBFBD>
<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
*/
Copy permalink