summaryrefslogtreecommitdiff
path: root/muse2/synti/fluid/fluid.cpp
diff options
context:
space:
mode:
Diffstat (limited to 'muse2/synti/fluid/fluid.cpp')
-rw-r--r--muse2/synti/fluid/fluid.cpp588
1 files changed, 588 insertions, 0 deletions
diff --git a/muse2/synti/fluid/fluid.cpp b/muse2/synti/fluid/fluid.cpp
new file mode 100644
index 00000000..a03be4de
--- /dev/null
+++ b/muse2/synti/fluid/fluid.cpp
@@ -0,0 +1,588 @@
+//=========================================================
+// MusE
+// Linux Music Editor
+// $Id: fluid.cpp,v 1.18.2.8 2009/12/06 10:05:00 terminator356 Exp $
+//
+// This file is derived from fluid Synth and modified
+// for MusE.
+// Parts of fluid are derived from Smurf Sound Font Editor.
+// Parts of Smurf Sound Font Editor are derived from
+// awesfx utilities
+// Smurf: Copyright (C) 1999-2000 Josh Green
+// fluid: Copyright (C) 2001 Peter Hanappe
+// MusE: Copyright (C) 2001 Werner Schweer
+// awesfx: Copyright (C) 1996-1999 Takashi Iwai
+//=========================================================
+
+#include <stdlib.h>
+#include <stdio.h>
+#include <string.h>
+#include <unistd.h>
+#include <stdarg.h>
+#include <errno.h>
+#include <pthread.h>
+#include <cmath>
+#include <sys/mman.h>
+#include <sys/time.h>
+#include <sched.h>
+
+#include "muse/midictrl.h"
+
+#include "muse/midi.h"
+#include "fluid.h"
+#include "fluidgui.h"
+
+//---------------------------------------------------------
+// instantiate
+//---------------------------------------------------------
+
+class QWidget;
+
+static Mess* instantiate(int sr, QWidget*, QString *projectPathPtr, const char* name)
+ {
+ ISynth* synth = new ISynth();
+ synth->setSampleRate(sr);
+ if (synth->init(name)) {
+ delete synth;
+ synth = 0;
+ }
+ return synth;
+ }
+
+//---------------------------------------------------------
+// MESS
+//---------------------------------------------------------
+
+extern "C" {
+ static MESS descriptor = {
+ "fluid",
+ "fluid soundfont loader by Werner Schweer",
+ "0.1", // fluid version string
+ MESS_MAJOR_VERSION, MESS_MINOR_VERSION,
+ instantiate,
+ };
+ const MESS* mess_descriptor() { return &descriptor; }
+ }
+
+//---------------------------------------------------------
+// ISynth
+//---------------------------------------------------------
+
+ISynth::ISynth()
+ : Mess(2)
+ {
+ _busy = false;
+ sfont = 0;
+ _gmMode = false; // General Midi Mode
+ _fluidsynth = 0;
+ initBuffer = 0;
+ initLen = 0;
+ fontId = -1;
+ }
+
+//---------------------------------------------------------
+// playNote
+// return true if busy
+//---------------------------------------------------------
+
+bool ISynth::playNote(int channel, int pitch, int velo)
+ {
+ if (_busy) {
+// printf("fluid: playNote(): busy!\n");
+ return true;
+ }
+ if (velo) {
+ int err = fluid_synth_noteon(_fluidsynth, channel, pitch, velo);
+ if (err) {
+ printf("ISynth: noteon error, channel %d pitch %d<%s>\n",
+ channel, pitch, fluid_synth_error(_fluidsynth));
+ }
+ }
+ else
+ fluid_synth_noteoff(_fluidsynth, channel, pitch);
+ return false;
+ }
+
+//---------------------------------------------------------
+// setController
+// return true if busy
+//---------------------------------------------------------
+
+bool ISynth::setController(int ch, int ctrl, int val)
+ {
+ if (_busy) {
+// printf("fluid: setController(): busy!\n");
+ return true;
+ }
+ switch(ctrl) {
+ case CTRL_PROGRAM:
+ {
+ int hbank = (val & 0xff0000) >> 16;
+ int lbank = (val & 0xff00) >> 8;
+ if (hbank > 127) // map "dont care" to 0
+ hbank = 0;
+ if (lbank > 127)
+ lbank = 0;
+ if (lbank == 127 || ch == 9) // drum HACK
+ lbank = 128;
+ int prog = val & 0x7f;
+ fluid_synth_program_select(_fluidsynth, ch,
+ hbank, lbank, prog);
+ }
+ break;
+
+ case CTRL_PITCH:
+ fluid_synth_pitch_bend (_fluidsynth, ch, val);
+ break;
+
+ default:
+// printf("controller %x val %x\n", ctrl & 0x3fff, val);
+ fluid_synth_cc(_fluidsynth, ch, ctrl & 0x3fff, val);
+ break;
+ }
+ return false;
+ }
+
+//---------------------------------------------------------
+// sysex
+// 7e 7f 09 01 GM on
+// 7e 7f 09 02 GM off
+// 7f 7f 04 01 ll hh Master Volume (ll-low byte, hh-high byte)
+// 7c 00 01 nn ... replace Soundfont (nn-ascii char of path
+// 7c 00 02 nn ... add Soundfont
+// 7c 00 03 nn ... remove Soundfont
+//
+// return true if busy
+//---------------------------------------------------------
+
+bool ISynth::sysex(int len, const unsigned char* data)
+ {
+ if (_busy) {
+// printf("fluid: sysex(): busy!\n");
+ return true;
+ }
+ if (len >= 4) {
+ //---------------------------------------------
+ // Universal Non Realtime
+ //---------------------------------------------
+
+ if (data[0] == 0x7e) {
+ if (data[1] == 0x7f) { // device Id
+ if (data[2] == 0x9) { // GM
+ if (data[3] == 0x1) {
+ gmOn(true);
+ return false;
+ }
+ else if (data[3] == 0x2) {
+ gmOn(false);
+ return false;
+ }
+ }
+ }
+ }
+
+ //---------------------------------------------
+ // Universal Realtime
+ //---------------------------------------------
+
+ else if (data[0] == 0x7f) {
+ if (data[1] == 0x7f) { // device Id
+ if ((data[2] == 0x4) && (data[3] == 0x1)) {
+ float v = (data[5]*128 + data[4])/32767.0;
+ fluid_synth_set_gain(_fluidsynth, v);
+ return false;
+ }
+ }
+ }
+
+ //---------------------------------------------
+ // MusE Soft Synth
+ //---------------------------------------------
+
+ else if (data[0] == 0x7c) {
+ int n = len - 3;
+ if (n < 1) {
+ printf("fluid: bad sysEx:\n");
+ return false;
+ }
+ char buffer[n+1];
+ memcpy(buffer, (char*)data+3, n);
+ buffer[n] = 0;
+ if (data[1] == 0) { // fluid
+ if (data[2] == 1) { // load sound font
+ sysexSoundFont(SF_REPLACE, buffer);
+ return false;
+ }
+ else if (data[2] == 2) { // load sound font
+ sysexSoundFont(SF_ADD, buffer);
+ return false;
+ }
+ else if (data[2] == 3) { // load sound font
+ sysexSoundFont(SF_REMOVE, buffer);
+ return false;
+ }
+ }
+ }
+ else if (data[0] == 0x41) { // roland
+ if (data[1] == 0x10 && data[2] == 0x42 && data[3] == 0x12
+ && data[4] == 0x40 && data[5] == 00 && data[6] == 0x7f
+ && data[7] == 0x41) {
+ // gs on
+ gmOn(true);
+ return false;
+ }
+ }
+ }
+ printf("fluid: unknown sysex received, len %d:\n", len);
+ for (int i = 0; i < len; ++i)
+ printf("%02x ", data[i]);
+ printf("\n");
+ return false;
+ }
+
+//---------------------------------------------------------
+// gmOn
+//---------------------------------------------------------
+
+void ISynth::gmOn(bool flag)
+ {
+ _gmMode = flag;
+ allNotesOff();
+ }
+
+//---------------------------------------------------------
+// allNotesOff
+// stop all notes
+//---------------------------------------------------------
+
+void ISynth::allNotesOff()
+ {
+ for (int ch = 0; ch < 16; ++ch) {
+ fluid_synth_cc(_fluidsynth, ch, 0x7b, 0); // all notes off
+ }
+ }
+
+//---------------------------------------------------------
+// guiVisible
+//---------------------------------------------------------
+
+bool ISynth::guiVisible() const
+ {
+ return gui->isVisible();
+ }
+
+//---------------------------------------------------------
+// showGui
+//---------------------------------------------------------
+
+void ISynth::showGui(bool flag)
+ {
+ gui->setShown(flag);
+ }
+
+//---------------------------------------------------------
+// ~ISynth
+//---------------------------------------------------------
+
+ISynth::~ISynth()
+ {
+ // TODO delete settings
+ if (_fluidsynth)
+ delete_fluid_synth(_fluidsynth);
+ if (initBuffer)
+ delete [] initBuffer;
+ }
+
+//---------------------------------------------------------
+// processMessages
+// Called from host always, even if output path is unconnected.
+//---------------------------------------------------------
+
+void ISynth::processMessages()
+{
+ //Process messages from the gui
+ if (!_busy)
+ {
+ //
+ // get and process all pending events from the
+ // synthesizer GUI
+ //
+ while (gui->fifoSize())
+ processEvent(gui->readEvent());
+ }
+}
+
+//---------------------------------------------------------
+// process
+// Called from host, ONLY if output path is connected.
+//---------------------------------------------------------
+
+void ISynth::process(float** ports, int offset, int n)
+ {
+ if (!_busy) {
+ /*
+ //
+ // get and process all pending events from the
+ // synthesizer GUI
+ //
+ while (gui->fifoSize())
+ processEvent(gui->readEvent());
+ */
+ fluid_synth_write_float(_fluidsynth, n, ports[0],
+ offset, 1, ports[1], offset, 1);
+ }
+ // printf("%f %f\n", *ports[0], *(ports[0]+1));
+ }
+
+//---------------------------------------------------------
+// processEvent
+// All events from the sequencer go here
+//---------------------------------------------------------
+bool ISynth::processEvent(const MidiPlayEvent& ev)
+ {
+ switch(ev.type()) {
+ case ME_CONTROLLER:
+ setController(ev.channel(), ev.dataA(), ev.dataB());
+ return true;
+ case ME_NOTEON:
+ return playNote(ev.channel(), ev.dataA(), ev.dataB());
+ case ME_NOTEOFF:
+ return playNote(ev.channel(), ev.dataA(), 0);
+ case ME_SYSEX:
+ return sysex(ev.len(), ev.data());
+ case ME_PITCHBEND:
+ setController(ev.channel(), CTRL_PITCH, ev.dataA());
+ break;
+ case ME_PROGRAM:
+ setController(ev.channel(), CTRL_PROGRAM, ev.dataA());
+ break;
+ default:
+ break;
+ }
+ return false;
+ }
+
+//---------------------------------------------------------
+// getPatchName
+//---------------------------------------------------------
+
+const char* ISynth::getPatchName(int /*ch*/, int val, int, bool /*drum*/) const
+ {
+ int prog = val & 0xff;
+ if(val == CTRL_VAL_UNKNOWN || prog == 0xff)
+ return "<unknown>";
+ prog &= 0x7f;
+
+ int hbank = (val & 0xff0000) >> 16;
+ int lbank = (val & 0xff00) >> 8;
+ if (hbank > 127)
+ hbank = 0;
+ if (lbank > 127)
+ lbank = 0;
+ if (lbank == 127) // drum HACK
+ lbank = 128;
+ const char* name = "<unknown>";
+
+ if (_busy) {
+ printf("fluid: getPatchName(): busy!\n");
+ return name;
+ }
+ fluid_font = fluid_synth_get_sfont_by_id(_fluidsynth, hbank);
+ if (fluid_font) {
+ fluid_preset_t* preset = (*fluid_font->get_preset)(fluid_font, lbank, prog);
+ if (preset)
+ name = (*preset->get_name)(preset);
+ else
+ fprintf(stderr, "no fluid preset for bank %d prog %d\n",
+ lbank, prog);
+ }
+ else
+ fprintf(stderr, "ISynth::getPatchName(): no fluid font id=%d found\n", hbank);
+ return name;
+ }
+
+//---------------------------------------------------------
+// getNextPatch
+//---------------------------------------------------------
+
+const MidiPatch* ISynth::getPatchInfo(int ch, const MidiPatch* p) const
+ {
+ if (_busy) {
+ printf("fluid: getPatchInfo(): busy!\n");
+ return 0;
+ }
+ if (p == 0) {
+ // get font at font stack index 0
+ fluid_font = fluid_synth_get_sfont(_fluidsynth, 0);
+ if (fluid_font == 0)
+ return 0;
+ (*fluid_font->iteration_start)(fluid_font);
+ }
+ fluid_preset_t preset;
+
+ while ((*fluid_font->iteration_next)(fluid_font, &preset)) {
+ patch.hbank = fluid_sfont_get_id(fluid_font);
+ int bank = (*preset.get_banknum)(&preset);
+ if (ch == 9 && bank != 128) // show only drums for channel 10
+ continue;
+ if (bank == 128)
+ bank = 127;
+ patch.typ = 0;
+ patch.name = (*preset.get_name)(&preset);
+ patch.lbank = bank;
+ patch.prog = (*preset.get_num)(&preset);
+ return &patch;
+ }
+ return 0;
+ }
+
+//---------------------------------------------------------
+// getInitData
+// construct an initialization string which can be used
+// as a sysex to restore current state
+//---------------------------------------------------------
+
+void ISynth::getInitData(int* len, const unsigned char** data)
+ {
+ if (sfont == 0) {
+ *len = 0;
+ return;
+ }
+ int n = 4 + strlen(sfont);
+ if (n > initLen) {
+ if (initBuffer)
+ delete [] initBuffer;
+ initBuffer = new unsigned char[n];
+ }
+ initBuffer[0] = 0x7c;
+ initBuffer[1] = 0x00;
+ initBuffer[2] = SF_REPLACE;
+ strcpy((char*)(initBuffer+3), sfont);
+ *len = n;
+ *data = initBuffer;
+ }
+
+//---------------------------------------------------------
+// sysexSoftfont
+//---------------------------------------------------------
+
+void ISynth::sysexSoundFont(SfOp op, const char* data)
+ {
+ char c = 'x';
+ allNotesOff();
+ switch(op) {
+ case SF_REMOVE:
+ break;
+ case SF_REPLACE:
+ case SF_ADD:
+ if (sfont && (strcmp(sfont, data) == 0)) {
+ fprintf(stderr, "fluid: font already loaded\n");
+ break;
+ }
+ if (_busy) {
+ fprintf(stderr, "fluid: busy!\n");
+ break;
+ }
+ _busy = true;
+ if (sfont)
+ delete[] sfont;
+ sfont = new char[strlen(data)+1];
+ strcpy(sfont, data);
+ _busy = true;
+ write(writeFd, &c, 1);
+ break;
+ }
+ }
+
+//---------------------------------------------------------
+// fontLoad
+// helper thread to load soundfont in the
+// background
+//---------------------------------------------------------
+
+static void* helper(void* t)
+ {
+ ISynth* is = (ISynth*) t;
+ is->noRTHelper();
+ pthread_exit(0);
+ }
+
+//------------------------------------
+// noRTHelper
+//---------------------------------------------------------
+
+void ISynth::noRTHelper()
+ {
+ for (;;) {
+ char c;
+ int n = read(readFd, &c, 1);
+ if (n != 1) {
+ perror("ISynth::read ipc failed\n");
+ continue;
+ }
+ int id = getFontId();
+ if (id != -1) {
+ fprintf(stderr, "ISynth: unload old font\n");
+ fluid_synth_sfunload(synth(), (unsigned)id, true);
+ }
+ int rv = fluid_synth_sfload(synth(), getFont(), true);
+ if (rv == -1) {
+ fprintf(stderr, "ISynth: sfload %s failed\n",
+ fluid_synth_error(synth()));
+ }
+ else {
+ setFontId(rv);
+ fprintf(stderr, "ISynth: sfont %s loaded as %d\n ",
+ getFont(), rv);
+ }
+ fluid_synth_set_gain(synth(), 1.0); //?
+ _busy = false;
+ }
+ }
+
+//---------------------------------------------------------
+// init
+// return true on error
+//---------------------------------------------------------
+
+bool ISynth::init(const char* name)
+ {
+ fluid_settings_t* settings;
+ settings = new_fluid_settings();
+ fluid_settings_setnum(settings, (char*) "synth.sample-rate", float(sampleRate()));
+
+ _fluidsynth = new_fluid_synth(settings);
+
+ //---------------------------------------
+ // create non realtime helper thread
+ // create message channels
+ //
+ int filedes[2]; // 0 - reading 1 - writing
+ if (pipe(filedes) == -1) {
+ perror("ISynth::thread:creating pipe");
+ return true;
+ }
+ readFd = filedes[0];
+ writeFd = filedes[1];
+
+ pthread_attr_t* attributes = (pthread_attr_t*) malloc(sizeof(pthread_attr_t));
+ pthread_attr_init(attributes);
+ if (pthread_create(&helperThread, attributes, ::helper, this))
+ perror("creating thread failed:");
+ pthread_attr_destroy(attributes);
+
+ char* p = getenv("DEFAULT_SOUNDFONT");
+ if (p) {
+ sfont = new char[strlen(p)+1];
+ strcpy(sfont, p);
+ char c = 'x';
+ _busy = true;
+ write(writeFd, &c, 1);
+ }
+
+ gui = new FLUIDGui;
+ gui->setCaption(QString(name));
+ gui->show();
+ return false;
+ }
+
generated by cgit v1.2.3 (git 2.39.1) at 2024-06-29 00:35:06 +0000