324 lines
10 KiB
C
324 lines
10 KiB
C
|
#include <stdint.h>
|
||
|
|
#include <stdlib.h>
|
||
|
|
#include <string.h>
|
||
|
|
#include "munt/c_interface/c_interface.h"
|
||
|
|
#include "../WIN/plat_thread.h"
|
||
|
|
#include "../ibm.h"
|
||
|
|
#include "../device.h"
|
||
|
|
#include "../mem.h"
|
||
|
|
#include "../rom.h"
|
||
|
|
#include "midi_mt32.h"
|
||
|
|
#include "midi.h"
|
||
|
|
#include "sound.h"
|
||
|
|
|
||
|
|
extern void givealbuffer_midi(void *buf, uint32_t size);
|
||
|
|
extern void pclog(const char *format, ...);
|
||
|
|
extern void al_set_midi(int freq, int buf_size);
|
||
|
|
|
||
|
|
static const mt32emu_report_handler_i_v0 handler_v0 = {
|
||
|
|
/** Returns the actual interface version ID */
|
||
|
|
NULL, //mt32emu_report_handler_version (*getVersionID)(mt32emu_report_handler_i i);
|
||
|
|
|
||
|
|
/** Callback for debug messages, in vprintf() format */
|
||
|
|
NULL, //void (*printDebug)(void *instance_data, const char *fmt, va_list list);
|
||
|
|
/** Callbacks for reporting errors */
|
||
|
|
NULL, //void (*onErrorControlROM)(void *instance_data);
|
||
|
|
NULL, //void (*onErrorPCMROM)(void *instance_data);
|
||
|
|
/** Callback for reporting about displaying a new custom message on LCD */
|
||
|
|
NULL, //void (*showLCDMessage)(void *instance_data, const char *message);
|
||
|
|
/** Callback for reporting actual processing of a MIDI message */
|
||
|
|
NULL, //void (*onMIDIMessagePlayed)(void *instance_data);
|
||
|
|
/**
|
||
|
|
* Callback for reporting an overflow of the input MIDI queue.
|
||
|
|
* Returns MT32EMU_BOOL_TRUE if a recovery action was taken
|
||
|
|
* and yet another attempt to enqueue the MIDI event is desired.
|
||
|
|
*/
|
||
|
|
NULL, //mt32emu_boolean (*onMIDIQueueOverflow)(void *instance_data);
|
||
|
|
/**
|
||
|
|
* Callback invoked when a System Realtime MIDI message is detected in functions
|
||
|
|
* mt32emu_parse_stream and mt32emu_play_short_message and the likes.
|
||
|
|
*/
|
||
|
|
NULL, //void (*onMIDISystemRealtime)(void *instance_data, mt32emu_bit8u system_realtime);
|
||
|
|
/** Callbacks for reporting system events */
|
||
|
|
NULL, //void (*onDeviceReset)(void *instance_data);
|
||
|
|
NULL, //void (*onDeviceReconfig)(void *instance_data);
|
||
|
|
/** Callbacks for reporting changes of reverb settings */
|
||
|
|
NULL, //void (*onNewReverbMode)(void *instance_data, mt32emu_bit8u mode);
|
||
|
|
NULL, //void (*onNewReverbTime)(void *instance_data, mt32emu_bit8u time);
|
||
|
|
NULL, //void (*onNewReverbLevel)(void *instance_data, mt32emu_bit8u level);
|
||
|
|
/** Callbacks for reporting various information */
|
||
|
|
NULL, //void (*onPolyStateChanged)(void *instance_data, mt32emu_bit8u part_num);
|
||
|
|
NULL, //void (*onProgramChanged)(void *instance_data, mt32emu_bit8u part_num, const char *sound_group_name, const char *patch_name);
|
||
|
|
};
|
||
|
|
|
||
|
|
static const mt32emu_report_handler_i handler = { &handler_v0 };
|
||
|
|
|
||
|
|
static mt32emu_context context = NULL;
|
||
|
|
static int roms_present = -1;
|
||
|
|
|
||
|
|
mt32emu_return_code mt32_check(const char* func, mt32emu_return_code ret, mt32emu_return_code expected)
|
||
|
|
{
|
||
|
|
if (ret != expected)
|
||
|
|
{
|
||
|
|
pclog("%s() failed, expected %d but returned %d\n", func, expected, ret);
|
||
|
|
return 0;
|
||
|
|
}
|
||
|
|
return 1;
|
||
|
|
}
|
||
|
|
|
||
|
|
int mt32_available()
|
||
|
|
{
|
||
|
|
if (roms_present < 0)
|
||
|
|
roms_present = (rom_present(L"roms/mt32/mt32_control.rom") && rom_present(L"roms/mt32/mt32_pcm.rom"));
|
||
|
|
return roms_present;
|
||
|
|
}
|
||
|
|
|
||
|
|
static thread_t *thread_h = NULL;
|
||
|
|
static event_t *event = NULL;
|
||
|
|
|
||
|
|
#define RENDER_RATE 30
|
||
|
|
|
||
|
|
static uint32_t samplerate = 44100;
|
||
|
|
static int buf_size = 0;
|
||
|
|
static float* buffer = NULL;
|
||
|
|
static int16_t* buffer_int16 = NULL;
|
||
|
|
static int midi_pos = 0;
|
||
|
|
|
||
|
|
void mt32_stream(float* stream, int len)
|
||
|
|
{
|
||
|
|
if (context) mt32emu_render_float(context, stream, len);
|
||
|
|
}
|
||
|
|
|
||
|
|
void mt32_stream_int16(int16_t* stream, int len)
|
||
|
|
{
|
||
|
|
if (context) mt32emu_render_bit16s(context, stream, len);
|
||
|
|
}
|
||
|
|
|
||
|
|
void mt32_poll()
|
||
|
|
{
|
||
|
|
midi_pos++;
|
||
|
|
if (midi_pos == 48000/RENDER_RATE)
|
||
|
|
{
|
||
|
|
midi_pos = 0;
|
||
|
|
thread_set_event(event);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
extern int soundon;
|
||
|
|
|
||
|
|
static void mt32_thread(void *param)
|
||
|
|
{
|
||
|
|
while (1)
|
||
|
|
{
|
||
|
|
thread_wait_event(event, -1);
|
||
|
|
if (sound_is_float)
|
||
|
|
{
|
||
|
|
memset(buffer, 0, buf_size * sizeof(float));
|
||
|
|
mt32_stream(buffer, (samplerate/RENDER_RATE));
|
||
|
|
if (soundon)
|
||
|
|
givealbuffer_midi(buffer, buf_size);
|
||
|
|
}
|
||
|
|
else
|
||
|
|
{
|
||
|
|
memset(buffer_int16, 0, buf_size * sizeof(int16_t));
|
||
|
|
mt32_stream_int16(buffer_int16, (samplerate/RENDER_RATE));
|
||
|
|
if (soundon)
|
||
|
|
givealbuffer_midi(buffer_int16, buf_size);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
void mt32_msg(uint8_t* val)
|
||
|
|
{
|
||
|
|
if (context) mt32_check("mt32emu_play_msg", mt32emu_play_msg(context, *(uint32_t*)val), MT32EMU_RC_OK);
|
||
|
|
}
|
||
|
|
|
||
|
|
void mt32_sysex(uint8_t* data, unsigned int len)
|
||
|
|
{
|
||
|
|
if (context) mt32_check("mt32emu_play_sysex", mt32emu_play_sysex(context, data, len), MT32EMU_RC_OK);
|
||
|
|
}
|
||
|
|
|
||
|
|
void* mt32_init()
|
||
|
|
{
|
||
|
|
wchar_t s[512];
|
||
|
|
char fn[512];
|
||
|
|
context = mt32emu_create_context(handler, NULL);
|
||
|
|
if (!rom_getfile(L"roms/mt32/mt32_control.rom", s, 512)) return 0;
|
||
|
|
wcstombs(fn, s, (wcslen(s) << 1) + 2);
|
||
|
|
if (!mt32_check("mt32emu_add_rom_file", mt32emu_add_rom_file(context, fn), MT32EMU_RC_ADDED_CONTROL_ROM)) return 0;
|
||
|
|
if (!rom_getfile(L"roms/mt32/mt32_pcm.rom", s, 512)) return 0;
|
||
|
|
wcstombs(fn, s, (wcslen(s) << 1) + 2);
|
||
|
|
if (!mt32_check("mt32emu_add_rom_file", mt32emu_add_rom_file(context, fn), MT32EMU_RC_ADDED_PCM_ROM)) return 0;
|
||
|
|
|
||
|
|
if (!mt32_check("mt32emu_open_synth", mt32emu_open_synth(context), MT32EMU_RC_OK)) return 0;
|
||
|
|
|
||
|
|
event = thread_create_event();
|
||
|
|
thread_h = thread_create(mt32_thread, 0);
|
||
|
|
samplerate = mt32emu_get_actual_stereo_output_samplerate(context);
|
||
|
|
buf_size = samplerate/RENDER_RATE*2;
|
||
|
|
if (sound_is_float)
|
||
|
|
{
|
||
|
|
buffer = malloc(buf_size * sizeof(float));
|
||
|
|
buffer_int16 = NULL;
|
||
|
|
}
|
||
|
|
else
|
||
|
|
{
|
||
|
|
buffer = NULL;
|
||
|
|
buffer_int16 = malloc(buf_size * sizeof(int16_t));
|
||
|
|
}
|
||
|
|
|
||
|
|
mt32emu_set_output_gain(context, device_get_config_int("output_gain")/100.0f);
|
||
|
|
mt32emu_set_reverb_enabled(context, device_get_config_int("reverb"));
|
||
|
|
mt32emu_set_reverb_output_gain(context, device_get_config_int("reverb_output_gain")/100.0f);
|
||
|
|
mt32emu_set_reversed_stereo_enabled(context, device_get_config_int("reversed_stereo"));
|
||
|
|
|
||
|
|
pclog("mt32 output gain: %f\n", mt32emu_get_output_gain(context));
|
||
|
|
pclog("mt32 reverb output gain: %f\n", mt32emu_get_reverb_output_gain(context));
|
||
|
|
pclog("mt32 reverb: %d\n", mt32emu_is_reverb_enabled(context));
|
||
|
|
pclog("mt32 reversed stereo: %d\n", mt32emu_is_reversed_stereo_enabled(context));
|
||
|
|
|
||
|
|
al_set_midi(samplerate, buf_size);
|
||
|
|
|
||
|
|
pclog("mt32 (Munt %s) initialized, samplerate %d, buf_size %d\n", mt32emu_get_library_version_string(), samplerate, buf_size);
|
||
|
|
|
||
|
|
midi_device_t* dev = malloc(sizeof(midi_device_t));
|
||
|
|
memset(dev, 0, sizeof(midi_device_t));
|
||
|
|
|
||
|
|
dev->play_msg = mt32_msg;
|
||
|
|
dev->play_sysex = mt32_sysex;
|
||
|
|
dev->poll = mt32_poll;
|
||
|
|
|
||
|
|
midi_init(dev);
|
||
|
|
|
||
|
|
return dev;
|
||
|
|
}
|
||
|
|
|
||
|
|
void mt32_close(void* p)
|
||
|
|
{
|
||
|
|
if (!p) return;
|
||
|
|
|
||
|
|
if (thread_h)
|
||
|
|
thread_kill(thread_h);
|
||
|
|
if (event)
|
||
|
|
thread_destroy_event(event);
|
||
|
|
event = NULL;
|
||
|
|
thread_h = NULL;
|
||
|
|
|
||
|
|
if (context)
|
||
|
|
{
|
||
|
|
mt32emu_close_synth(context);
|
||
|
|
mt32emu_free_context(context);
|
||
|
|
}
|
||
|
|
context = NULL;
|
||
|
|
|
||
|
|
if (buffer)
|
||
|
|
free(buffer);
|
||
|
|
buffer = NULL;
|
||
|
|
|
||
|
|
if (buffer_int16)
|
||
|
|
free(buffer_int16);
|
||
|
|
buffer_int16 = NULL;
|
||
|
|
|
||
|
|
midi_close();
|
||
|
|
|
||
|
|
free((midi_device_t*)p);
|
||
|
|
|
||
|
|
pclog("mt32 closed\n");
|
||
|
|
}
|
||
|
|
|
||
|
|
static device_config_t mt32_config[] =
|
||
|
|
{
|
||
|
|
{
|
||
|
|
.name = "output_gain",
|
||
|
|
.description = "Output Gain",
|
||
|
|
.type = CONFIG_SELECTION,
|
||
|
|
.selection =
|
||
|
|
{
|
||
|
|
{
|
||
|
|
.description = "100%",
|
||
|
|
.value = 100
|
||
|
|
},
|
||
|
|
{
|
||
|
|
.description = "75%",
|
||
|
|
.value = 75
|
||
|
|
},
|
||
|
|
{
|
||
|
|
.description = "50%",
|
||
|
|
.value = 50
|
||
|
|
},
|
||
|
|
{
|
||
|
|
.description = "25%",
|
||
|
|
.value = 25
|
||
|
|
},
|
||
|
|
{
|
||
|
|
.description = "0%",
|
||
|
|
.value = 0
|
||
|
|
},
|
||
|
|
{
|
||
|
|
.description = ""
|
||
|
|
}
|
||
|
|
},
|
||
|
|
.default_int = 100
|
||
|
|
},
|
||
|
|
{
|
||
|
|
.name = "reverb",
|
||
|
|
.description = "Reverb",
|
||
|
|
.type = CONFIG_BINARY,
|
||
|
|
.default_int = 1
|
||
|
|
},
|
||
|
|
{
|
||
|
|
.name = "reverb_output_gain",
|
||
|
|
.description = "Reverb Output Gain",
|
||
|
|
.type = CONFIG_SELECTION,
|
||
|
|
.selection =
|
||
|
|
{
|
||
|
|
{
|
||
|
|
.description = "100%",
|
||
|
|
.value = 100
|
||
|
|
},
|
||
|
|
{
|
||
|
|
.description = "75%",
|
||
|
|
.value = 75
|
||
|
|
},
|
||
|
|
{
|
||
|
|
.description = "50%",
|
||
|
|
.value = 50
|
||
|
|
},
|
||
|
|
{
|
||
|
|
.description = "25%",
|
||
|
|
.value = 25
|
||
|
|
},
|
||
|
|
{
|
||
|
|
.description = "0%",
|
||
|
|
.value = 0
|
||
|
|
},
|
||
|
|
{
|
||
|
|
.description = ""
|
||
|
|
}
|
||
|
|
},
|
||
|
|
.default_int = 100
|
||
|
|
},
|
||
|
|
{
|
||
|
|
.name = "reversed_stereo",
|
||
|
|
.description = "Reversed stereo",
|
||
|
|
.type = CONFIG_BINARY,
|
||
|
|
.default_int = 0
|
||
|
|
},
|
||
|
|
{
|
||
|
|
.type = -1
|
||
|
|
}
|
||
|
|
};
|
||
|
|
|
||
|
|
device_t mt32_device =
|
||
|
|
{
|
||
|
|
"Roland MT-32 Emulation",
|
||
|
|
0,
|
||
|
|
mt32_init,
|
||
|
|
mt32_close,
|
||
|
|
mt32_available,
|
||
|
|
NULL,
|
||
|
|
NULL,
|
||
|
|
NULL,
|
||
|
|
mt32_config
|
||
|
|
};
|