+++ /dev/null
-/************************************************************************
- IMPORTANT NOTE : this file contains two clearly delimited
- sections : the ARCHITECTURE section (in two parts) and the
- USER section. Each section is governed by its own copyright
- and license. Please check individually each section for
- license and copyright information.
-*************************************************************************/
-
-/*******************BEGIN ARCHITECTURE SECTION (part 1/2)****************/
-
-/************************************************************************
- FAUST Architecture File
- Copyright (C) 2011 Michael J. Wilson
-
- ---------------------------------------------------------------------
- This Architecture section is free software; you can redistribute
- it and/or modify it under the terms of the GNU General Public
- License as published by the Free Software Foundation; either
- version 3 of the License, or (at your option) any later version.
-
- This program is distributed in the hope that it will be useful,
- but WITHOUT ANY WARRANTY; without even the implied warranty of
- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- GNU General Public License for more details.
-
- You should have received a copy of the GNU General Public License
- along with this program; If not, see <http://www.gnu.org/licenses/>.
-
- EXCEPTION : As a special exception, you may create a larger work
- that contains this FAUST architecture section and distribute that
- work under terms of your choice, so long as this FAUST
- architecture section is not modified.
- ---------------------------------------------------------------------
-
-************************************************************************/
-
-/********************************************************************
- * dssi.cpp - Polyphonic dssi wrapper for the FAUST language.
- *
- * Usage: faust -a dssi.cpp myfaustprog.dsp
- *
- * By Michael J. Wilson (mwilson@alumni.caltech.edu)
- *
- * Made with reference to:
- * - vsti-mono.cpp by Julius Smith (http://ccrma.stanford.edu/~jos/)
- * - ladspa.cpp by GRAME, Centre National de Creation Musicale
- * - karplong.cpp by Chris Cannam, Steve Harris, Sean Bolton
- *
- * Because of the inclusion of code from ladspa.cpp, this architecture
- * file is also released under the GNU General Public Licenses version
- * 3. Sections which were taken from ladspa.cpp are clearly marked
- * below, in order to trace the GPL dependency.
- * As with faust2pd and vsti-mono.cpp, to obtain MIDI control via
- * NoteOn/Off, Velocity, and KeyNumber, there must be a button named
- * "gate" and sliders (or numeric entries) named "gain" and "freq" in
- * the Faust patch specified in myfaustprog.dsp.
- *
- * FAUST
- * Copyright (C) 2003-2007 GRAME, Centre National de Creation Musicale
- * http://www.grame.fr/
- *
- ********************************************************************/
-
-#include "dssi.h"
-#include "ladspa.h"
-
-#include <math.h>
-#include <stdlib.h>
-#include <string.h>
-
-#include <stack>
-#include <string>
-#include <map>
-#include <vector>
-#include <list>
-
-// On Intel set FZ (Flush to Zero) and DAZ (Denormals Are Zero)
-// flags to avoid costly denormals
-#ifdef __SSE__
- #include <xmmintrin.h>
- #ifdef __SSE2__
- #define AVOIDDENORMALS _mm_setcsr(_mm_getcsr() | 0x8040)
- #else
- #define AVOIDDENORMALS _mm_setcsr(_mm_getcsr() | 0x8000)
- #endif
-#else
- #warning *** dssi.cpp: NO SSE FLAG (denormals may slow things down) ***
- #define AVOIDDENORMALS
-#endif
-
-struct Meta : std::map<const char*, const char*>
-{
- void declare (const char* key, const char* value) { (*this)[key]=value; }
-};
-
-#define max(x,y) (((x)>(y)) ? (x) : (y))
-#define min(x,y) (((x)<(y)) ? (x) : (y))
-
-#define sym(name) xsym(name)
-#define xsym(name) #name
-
-inline int lsr (int x, int n) { return int(((unsigned int)x) >> n); }
-inline int int2pow2 (int x) { int r=0; while ((1<<r)<x) r++; return r; }
-
-/******************************************************************************
-*******************************************************************************
-
-VECTOR INTRINSICS
-
-*******************************************************************************
-*******************************************************************************/
-
-<<includeIntrinsic>>
-
-//---------------------Abstract User Interface--------------------
-//
-// Abstract definition of a User Interface to be passed to the
-// buildUserInterface method of a Faust Signal Processor
-//
-//----------------------------------------------------------------
-class UI
-{
- bool fStopped;
-
-public:
- UI() : fStopped(false) {}
- virtual ~UI() {}
-
- virtual void addButton(const char* label, float* zone) = 0;
- virtual void addToggleButton(const char* label, float* zone) = 0;
- virtual void addCheckButton(const char* label, float* zone) = 0;
- virtual void addVerticalSlider(const char* label, float* zone, float init, float min, float max, float step) = 0;
- virtual void addHorizontalSlider(const char* label, float* zone, float init, float min, float max, float step) = 0;
- virtual void addNumEntry(const char* label, float* zone, float init, float min, float max, float step) = 0;
-
- // -- passive widgets
- virtual void addNumDisplay(const char* label, float* zone, int precision) = 0;
- virtual void addTextDisplay(const char* label, float* zone, char* names[], float min, float max) = 0;
- virtual void addHorizontalBargraph(const char* label, float* zone, float min, float max) = 0;
- virtual void addVerticalBargraph(const char* label, float* zone, float min, float max) = 0;
-
- // -- frames and labels
- virtual void openFrameBox(const char* label) = 0;
- virtual void openTabBox(const char* label) = 0;
- virtual void openHorizontalBox(const char* label) = 0;
- virtual void openVerticalBox(const char* label) = 0;
- virtual void closeBox() = 0;
-
- virtual void show() = 0;
- virtual void run() = 0;
-
- void stop() { fStopped = true; }
- bool stopped() { return fStopped; }
-
- virtual void declare(float* zone, const char* key, const char* value) {}
-};
-
-//------------------Abstract Signal Processor---------------------
-//
-// Abstract definition of a Faust Signal Processor
-//
-//----------------------------------------------------------------
-class dsp
-{
-protected:
- int fSamplingFreq;
-public:
- dsp() {}
- virtual ~dsp() {}
- virtual int getNumInputs() = 0;
- virtual int getNumOutputs() = 0;
- virtual void buildUserInterface(UI* interface) = 0;
- virtual void init(int samplingRate) = 0;
- virtual void compute(int len, float** inputs, float** outputs)= 0;
-};
-
-/********************END ARCHITECTURE SECTION (part 1/2)****************/
-
-/**************************BEGIN USER SECTION **************************/
-
-<<includeclass>>
-
-/***************************END USER SECTION ***************************/
-
-/*******************BEGIN ARCHITECTURE SECTION (part 2/2)***************/
-
-////////////////////////////////////////////////////////////////////////////////
-// Forward declarations
-////////////////////////////////////////////////////////////////////////////////
-class Plugin;
-class DescriptorUI;
-class Voice;
-
-////////////////////////////////////////////////////////////////////////////////
-// Global data
-////////////////////////////////////////////////////////////////////////////////
-// Maximum polyphony, must be at least 1 (TODO make this configurable at compile / runtime?)
-const int MAX_POLYPHONY = 64;
-// Descriptor
-DSSI_Descriptor* g_dssi_descriptor;
-// Additional data for descriptor:
-LADSPA_Descriptor* g_ladspa_descriptor;
-// Program descriptor:
-DSSI_Program_Descriptor g_program_descriptor;
-
-// Global data for the descriptor:
-std::vector<LADSPA_PortDescriptor> g_port_descriptors;
-std::vector<LADSPA_PortRangeHint> g_port_range_hints;
-std::vector<const char*> g_port_names;
-std::string g_name;
-
-////////////////////////////////////////////////////////////////////////////////
-// The enclosed code is from ladspa.cpp
-// TODO groups of port names
-static const char* inames[] =
-{
- "input00", "input01", "input02", "input03", "input04",
- "input05", "input06", "input07", "input08", "input09",
- "input10", "input11", "input12", "input13", "input14",
- "input15", "input16", "input17", "input18", "input19",
- "input20", "input21", "input22", "input23", "input24",
- "input25", "input26", "input27", "input28", "input29",
- "input30", "input31", "input32", "input33", "input34",
- "input35", "input36", "input37", "input38", "input39"
-};
-static const char* onames[] =
-{
- "output00", "output01", "output02", "output03", "output04",
- "output05", "output06", "output07", "output08", "output09",
- "output10", "output11", "output12", "output13", "output14",
- "output15", "output16", "output17", "output18", "output19",
- "output20", "output21", "output22", "output23", "output24",
- "output25", "output26", "output27", "output28", "output29",
- "output30", "output31", "output32", "output33", "output34",
- "output35", "output36", "output37", "output38", "output39"
-};
-// END code from ladspa.cpp
-////////////////////////////////////////////////////////////////////////////////
-
-////////////////////////////////////////////////////////////////////////////////
-// Global helper functions
-////////////////////////////////////////////////////////////////////////////////
-char* get_metadata_if_exists(const char* key, const char* default_string)
-{
- // TODO probably want to free these somehow. Currently only used for ladspa descriptor
- Meta meta;
- mydsp::metadata(&meta);
- if(meta.find(key) != meta.end())
- {
- return strdup(meta[key]);
- }
- else
- {
- return strdup(default_string);
- }
-}
-
-////////////////////////////////////////////////////////////////////////////////
-// The enclosed code is from ladspa.cpp
-std::string simplify(const std::string& src)
-{
- int i=0;
- int level=2;
- std::string dst;
-
- while (src[i] ) {
-
- switch (level) {
-
- case 0 :
- case 1 :
- case 2 :
- // Skip the begin of the label "--foo-"
- // until 3 '-' have been read
- if (src[i]=='-') { level++; }
- break;
-
- case 3 :
- // copy the content, but skip non alphnum
- // and content in parenthesis
- switch (src[i]) {
- case '(' :
- case '[' :
- level++;
- break;
-
- case '-' :
- dst += '-';
- break;
-
- default :
- if (isalnum(src[i])) {
- dst+= tolower(src[i]);
- }
-
- }
- break;
-
- default :
- // here we are inside parenthesis and
- // we skip the content until we are back to
- // level 3
- switch (src[i]) {
-
- case '(' :
- case '[' :
- level++;
- break;
-
- case ')' :
- case ']' :
- level--;
- break;
-
- default :
- break;
- }
- }
- i++;
- }
- return (dst.size() > 0) ? dst :src;
-}
-// END code from ladspa.cpp
-////////////////////////////////////////////////////////////////////////////////
-
-////////////////////////////////////////////////////////////////////////////////
-// Single voice; use multiple for polyphony
-////////////////////////////////////////////////////////////////////////////////
-class Voice : public UI
-{
-public:
- Voice(int sampleRate);
- ~Voice();
-
- // UI methods:
- // TODO don't hardcode these so hard maybe
- void setFreq(float val);
- void setGate(float val);
- void setGain(float val);
-
- virtual void addButton(const char* label, float* zone);
- virtual void addToggleButton(const char* label, float* zone);
- virtual void addCheckButton(const char* label, float* zone);
- virtual void addVerticalSlider(const char* label, float* zone, float init, float min, float max, float step);
- virtual void addHorizontalSlider(const char* label, float* zone, float init, float min, float max, float step);
- virtual void addNumEntry(const char* label, float* zone, float init, float min, float max, float step);
-
- virtual void addNumDisplay(const char* label, float* zone, int precision);
- virtual void addTextDisplay(const char* label, float* zone, char* names[], float min, float max);
- virtual void addHorizontalBargraph(const char* label, float* zone, float min, float max);
- virtual void addVerticalBargraph(const char* label, float* zone, float min, float max);
-
- virtual void openFrameBox(const char* label);
- virtual void openTabBox(const char* label);
- virtual void openHorizontalBox(const char* label);
- virtual void openVerticalBox(const char* label);
- virtual void closeBox();
-
- virtual void show();
- virtual void run();
-
- // Internal control (to Faust DSP)
- std::vector<float*> m_controls;
-
- // TODO maybe don't make this public eventually
- mydsp* m_mydsp;
-
-private:
- // Helpers for UI building:
- // TODO organize this a bit better later...
- bool ckAnyMatch(const char* label, const char* indexName, float **zone, float* newZone);
- bool ckAllMatches(const char* label, float* zone);
- void addZone(float* zone);
-
- int m_samplerate;
-
- float* m_freq_zone;
- float* m_gate_zone;
- float* m_gain_zone;
-};
-
-////////////////////////////////////////////////////////////////////////////////
-// Plugin class to handle DSSI methods:
-////////////////////////////////////////////////////////////////////////////////
-class Plugin : public UI
-{
-public:
- // LADSPA methods:
- static LADSPA_Handle instantiate(const LADSPA_Descriptor *, unsigned long);
- static void connectPort(LADSPA_Handle, unsigned long, LADSPA_Data *);
- static void activate(LADSPA_Handle);
- static void run(LADSPA_Handle, unsigned long);
- static void cleanup(LADSPA_Handle);
-
- // DSSI methods:
- static const DSSI_Program_Descriptor* getProgram(LADSPA_Handle, unsigned long);
- static void selectProgram(LADSPA_Handle, unsigned long, unsigned long);
- static int getMidiController(LADSPA_Handle, unsigned long);
- static void runSynth(LADSPA_Handle, unsigned long, snd_seq_event_t *, unsigned long);
-
- // UI methods:
- // TODO don't hardcode these so hard maybe
- void setFreq(float val, int voice = 0);
- void setGate(float val, int voice = 0);
- void setGain(float val, int voice = 0);
-
- virtual void addButton(const char* label, float* zone);
- virtual void addToggleButton(const char* label, float* zone);
- virtual void addCheckButton(const char* label, float* zone);
- virtual void addVerticalSlider(const char* label, float* zone, float init, float min, float max, float step);
- virtual void addHorizontalSlider(const char* label, float* zone, float init, float min, float max, float step);
- virtual void addNumEntry(const char* label, float* zone, float init, float min, float max, float step);
-
- virtual void addNumDisplay(const char* label, float* zone, int precision);
- virtual void addTextDisplay(const char* label, float* zone, char* names[], float min, float max);
- virtual void addHorizontalBargraph(const char* label, float* zone, float min, float max);
- virtual void addVerticalBargraph(const char* label, float* zone, float min, float max);
-
- virtual void openFrameBox(const char* label);
- virtual void openTabBox(const char* label);
- virtual void openHorizontalBox(const char* label);
- virtual void openVerticalBox(const char* label);
- virtual void closeBox();
-
- virtual void show();
- virtual void run();
-
-private:
- Plugin(int sampleRate);
- ~Plugin();
-
- // Helper methods:
- void updateControlZones();
- void runImpl(unsigned long, snd_seq_event_t *, unsigned long);
- void addSamples(int);
-
- // Helpers for UI building:
- // TODO organize this a bit better later...
- bool ckAnyMatch(const char* label, const char* indexName);
- bool ckAllMatches(const char* label);
- void add_control_with_default(float default_value);
-
- int m_samplerate;
-
- // Voice allocation memebers (TODO maybe break voice allocator into separate class later)
- // Note each voice is playing
- std::vector<int> voice_notes;
- // Queue of free voices
- std::list<size_t> voice_free;
-
- // Voices for polyphony
- std::vector<Voice*> m_voices;
-
- // Top-level inputs (from DSSI host)
- std::vector<float*> m_inputs;
- // Top-level outputs (to DSSI host)
- std::vector<float*> m_outputs;
- // Temp vector for collecting outputs TODO this is an ugly way to do it...
- std::vector<std::vector<float> > m_temp_outputs;
- // External control (from DSSI host)
- std::vector<float*> m_controls;
-
- // Control default values
- std::vector<float> m_control_defaults;
-};
-
-////////////////////////////////////////////////////////////////////////////////
-// UI class to build descriptor, analogous to ladspa.cpp's portCollector
-////////////////////////////////////////////////////////////////////////////////
-const int ICONTROL = LADSPA_PORT_INPUT|LADSPA_PORT_CONTROL;
-const int OCONTROL = LADSPA_PORT_OUTPUT|LADSPA_PORT_CONTROL;
-
-class DescriptorUI : public UI
-{
-public:
- DescriptorUI(int ins, int outs);
-
- virtual void addButton(const char* label, float* zone) {
- if (!ckAnyMatch(label, "gate"))
- {
- addPortDescr(ICONTROL, label, LADSPA_HINT_TOGGLED);
- }
- }
- virtual void addToggleButton(const char* label, float* zone) {
- addPortDescr(ICONTROL, label, LADSPA_HINT_TOGGLED);
- }
- virtual void addCheckButton(const char* label, float* zone) {
- addPortDescr(ICONTROL, label, LADSPA_HINT_TOGGLED);
- }
- virtual void addVerticalSlider(const char* label, float* zone, float init, float min, float max, float step) {
- if (!ckAllMatches(label))
- {
- addPortDescr(ICONTROL, label, LADSPA_HINT_BOUNDED_BELOW | LADSPA_HINT_BOUNDED_ABOVE, min, max);
- }
- }
- virtual void addHorizontalSlider(const char* label, float* zone, float init, float min, float max, float step) {
- if (!ckAllMatches(label))
- {
- addPortDescr(ICONTROL, label, LADSPA_HINT_BOUNDED_BELOW | LADSPA_HINT_BOUNDED_ABOVE, min, max);
- }
- }
- virtual void addNumEntry(const char* label, float* zone, float init, float min, float max, float step) {
- if (!ckAllMatches(label))
- {
- addPortDescr(ICONTROL, label, LADSPA_HINT_BOUNDED_BELOW | LADSPA_HINT_BOUNDED_ABOVE, min, max);
- }
- }
- virtual void addNumDisplay(const char* label, float* zone, int precision) {
- addPortDescr(OCONTROL, label, 0, -10000, +10000);
- }
- virtual void addTextDisplay(const char* label, float* zone, char* names[], float min, float max) {
- addPortDescr(OCONTROL, label, LADSPA_HINT_BOUNDED_BELOW | LADSPA_HINT_BOUNDED_ABOVE, min, max);
- }
- virtual void addHorizontalBargraph(const char* label, float* zone, float min, float max) {
- addPortDescr(OCONTROL, label, LADSPA_HINT_BOUNDED_BELOW | LADSPA_HINT_BOUNDED_ABOVE, min, max);
- }
- virtual void addVerticalBargraph(const char* label, float* zone, float min, float max){
- addPortDescr(OCONTROL, label, LADSPA_HINT_BOUNDED_BELOW | LADSPA_HINT_BOUNDED_ABOVE, min, max);
- }
-
- virtual void openFrameBox(const char* label) { openAnyBox(label); }
- virtual void openTabBox(const char* label) { openAnyBox(label); }
- virtual void openHorizontalBox(const char* label) { openAnyBox(label); }
- virtual void openVerticalBox(const char* label) { openAnyBox(label); }
-
- virtual void closeBox() { fPrefix.pop(); }
-
- virtual void show() {}
- virtual void run() {}
-
-private:
- std::stack<std::string> fPrefix;
-
- void addPortDescr(int type, const char* label, int hint, float min=0.0, float max=0.0);
-
- void openAnyBox(const char* label);
-
- bool ckAnyMatch(const char* label, const char* indexName)
- {
- // TODO do case-insensitive here...
- if (strcmp(label,indexName)==0)
- {
- // Don't set values in the DescriptorUI
- // TODO consolidate this later
- return true;
- }
- return false;
- }
- bool ckAllMatches(const char* label)
- {
- bool result = false;
- result = result || ckAnyMatch(label,"gain");
- result = result || ckAnyMatch(label,"gate");
- result = result || ckAnyMatch(label,"freq");
- return result;
- }
-};
-
-////////////////////////////////////////////////////////////////////////////////
-// DescriptorUI methods
-////////////////////////////////////////////////////////////////////////////////
-DescriptorUI::DescriptorUI(int ins, int outs)
-{
- // Note inputs and outputs
- for (int i = 0; i < ins; i++)
- {
- g_port_descriptors.push_back(LADSPA_PORT_INPUT | LADSPA_PORT_AUDIO);
- LADSPA_PortRangeHint temp;
- temp.HintDescriptor = 0;
- temp.LowerBound = 0;
- temp.UpperBound = 0;
- g_port_range_hints.push_back(temp);
- g_port_names.push_back(inames[i]);
- }
- for (int j = 0; j < outs; j++)
- {
- g_port_descriptors.push_back(LADSPA_PORT_OUTPUT | LADSPA_PORT_AUDIO);
- LADSPA_PortRangeHint temp;
- temp.HintDescriptor = 0;
- temp.LowerBound = 0;
- temp.UpperBound = 0;
- g_port_range_hints.push_back(temp);
- g_port_names.push_back(onames[j]);
- }
-}
-
-void DescriptorUI::addPortDescr(int type, const char* label, int hint, float min, float max)
-{
-////////////////////////////////////////////////////////////////////////////////
-// The enclosed code is derived from ladspa.cpp
- std::string fullname = simplify(fPrefix.top() + "-" + label);
- // TODO for debugging, I'm just using the label for now instead of the full name (since fullname can get long)
-// char * str = strdup(fullname.c_str());
- char * str = strdup(label);
-// END code from ladspa.cpp
-////////////////////////////////////////////////////////////////////////////////
-
- g_port_descriptors.push_back(type);
- LADSPA_PortRangeHint temp;
- temp.HintDescriptor = hint;
- temp.LowerBound = min;
- temp.UpperBound = max;
- g_port_range_hints.push_back(temp);
- g_port_names.push_back(str); // TODO memory leak; need to free
-}
-
-void DescriptorUI::openAnyBox(const char* label)
-{
-////////////////////////////////////////////////////////////////////////////////
-// The enclosed code is from ladspa.cpp
- if (fPrefix.size() == 0)
- {
- // top level label is used as plugin name
- g_name = label;
- fPrefix.push(label);
- }
- else
- {
- std::string s;
- if (label && label[0])
- {
- s = fPrefix.top() + "-" + label;
- }
- else
- {
- s = fPrefix.top();
- }
- fPrefix.push(s);
- }
-// END code from ladspa.cpp
-////////////////////////////////////////////////////////////////////////////////
-}
-
-////////////////////////////////////////////////////////////////////////////////
-// Plugin methods
-////////////////////////////////////////////////////////////////////////////////
-Plugin::Plugin(int sampleRate) :
- m_samplerate(sampleRate)
-{
- int i;
-
- mydsp temp_mydsp;
-
- for (i = 0; i < MAX_POLYPHONY; i++)
- {
- m_voices.push_back(new Voice(m_samplerate));
-
- // Voice parameters:
- voice_free.push_back(i);
- // TODO using -1 to represent nothing; think of a more clear way to do this
- voice_notes.push_back(-1);
- }
- for (i = 0; i < temp_mydsp.getNumInputs(); i++)
- {
- m_inputs.push_back(0);
- }
- for (i = 0; i < temp_mydsp.getNumOutputs(); i++)
- {
- m_outputs.push_back(0);
- std::vector<float> temp;
- temp.push_back(0.0);
- m_temp_outputs.push_back(temp);
- }
-}
-
-Plugin::~Plugin()
-{
- size_t i;
- for (i = 0; i < m_voices.size(); i++)
- {
- delete m_voices[i];
- }
-}
-
-LADSPA_Handle Plugin::instantiate(const LADSPA_Descriptor *, unsigned long rate)
-{
- Plugin *plugin = new Plugin(rate);
- size_t i;
-
- mydsp* temp_mydsp = new mydsp();
- temp_mydsp->buildUserInterface(plugin);
- delete temp_mydsp;
-
- for (i = 0; i < plugin->m_voices.size(); i++)
- {
- plugin->m_voices[i]->m_mydsp->buildUserInterface(plugin->m_voices[i]);
- }
- return plugin;
-}
-
-void Plugin::connectPort(LADSPA_Handle handle, unsigned long port, LADSPA_Data *location)
-{
- Plugin *plugin = (Plugin *)handle;
-
- // Map inputs, then outputs, then controls:
- if (port < plugin->m_inputs.size())
- {
- *(&plugin->m_inputs[port]) = (float *)location;
- }
- else if (port < plugin->m_inputs.size() + plugin->m_outputs.size())
- {
- *(&plugin->m_outputs[port - plugin->m_inputs.size()]) = (float *)location;
- }
- else
- {
- plugin->m_controls[port - plugin->m_inputs.size() - plugin->m_outputs.size()] = (float *)location;
- }
-}
-
-void Plugin::activate(LADSPA_Handle handle)
-{
- Plugin *plugin = (Plugin *)handle;
- for (size_t i = 0; i < plugin->m_voices.size(); i++)
- {
- plugin->m_voices[i]->m_mydsp->init(plugin->m_samplerate);
- }
-}
-
-void Plugin::run(LADSPA_Handle handle, unsigned long samples)
-{
- runSynth(handle, samples, 0, 0);
-}
-
-void Plugin::cleanup(LADSPA_Handle handle)
-{
- delete (Plugin *)handle;
-}
-
-const DSSI_Program_Descriptor* Plugin::getProgram(LADSPA_Handle handle, unsigned long index)
-{
- if (index == 0)
- {
- return &g_program_descriptor;
- }
- else
- {
- return NULL;
- }
-}
-
-void Plugin::selectProgram(LADSPA_Handle handle, unsigned long bank, unsigned long program)
-{
- Plugin *plugin = (Plugin *)handle;
- for (size_t i = 0; i < plugin->m_controls.size(); i++)
- {
- *(plugin->m_controls[i]) = plugin->m_control_defaults[i];
- }
-}
-
-int Plugin::getMidiController(LADSPA_Handle, unsigned long port)
-{
- // TODO this is where we need to map MIDI controllers to ports
- return DSSI_NONE;
-}
-
-void Plugin::updateControlZones()
-{
- for (size_t i = 0; i < m_controls.size(); i++)
- {
- for (size_t j = 0; j < m_voices.size(); j++)
- {
- *(m_voices[j]->m_controls[i]) = *(m_controls[i]);
- }
- }
-}
-
-void Plugin::runSynth(LADSPA_Handle handle, unsigned long samples, snd_seq_event_t *events, unsigned long eventCount)
-{
- Plugin *plugin = (Plugin *)handle;
- plugin->updateControlZones();
- plugin->runImpl(samples, events, eventCount);
-}
-
-void Plugin::runImpl(unsigned long sampleCount, snd_seq_event_t *events, unsigned long eventCount)
-{
- unsigned long pos;
- unsigned long count;
- unsigned long eventPos;
- snd_seq_ev_note_t n;
-
- size_t voice_index;
-
- pos = 0;
- eventPos = 0;
- while (pos < sampleCount)
- {
- while ((eventPos < eventCount) &&
- (pos >= events[eventPos].time.tick))
- {
- switch (events[eventPos].type)
- {
- case SND_SEQ_EVENT_NOTEON:
- n = events[eventPos].data.note;
- if (n.velocity > 0)
- {
- // Look for the next free voice:
- if (!voice_free.empty())
- {
- // Get the index of the first free string and remove it from the list
- voice_index = voice_free.front();
- voice_free.pop_front();
-
- // Play the note on that voice
- voice_notes[voice_index] = n.note;
- float freq = 440.0f * powf(2.0f,(((float)n.note)-69.0f)/12.0f);
- float gain = n.velocity/127.0f;
- setFreq(freq, voice_index); // Hz - requires Faust control-signal "freq"
- setGain(gain, voice_index); // 0-1 - requires Faust control-signal "gain"
- setGate(1.0f, voice_index); // 0 or 1 - requires Faust button-signal "gate"
- }
- }
- break;
- case SND_SEQ_EVENT_NOTEOFF:
- for (voice_index = 0; voice_index < voice_notes.size(); voice_index++)
- {
- if (voice_notes[voice_index] == events[eventPos].data.note.note)
- {
- setGate(0, voice_index);
- // TODO using -1 to represent nothing; think of a more clear way to do this
- voice_notes[voice_index] = -1;
- voice_free.push_back(voice_index);
- }
- }
- break;
- default:
- break;
- }
- ++eventPos;
- }
-
- if ((eventPos < eventCount) && (events[eventPos].time.tick < sampleCount))
- {
- count = events[eventPos].time.tick - pos;
- }
- else
- {
- count = sampleCount - pos;
- }
-
- addSamples(count);
- pos += count;
- }
-}
-
-void Plugin::addSamples(int samples)
-{
- size_t i;
- int j;
- size_t v;
-
- // TODO this isn't very efficient right now...
-
- // Grow temp buffers to appropriate size / zero them:
- for (i = 0; i < m_temp_outputs.size(); i++)
- {
- for (j = 0; j < samples; j++)
- {
- if (m_temp_outputs[i].size() < (j+1))
- {
- m_temp_outputs[i].push_back(0.0);
- }
- else
- {
- m_temp_outputs[i][j] = 0.0;
- }
- }
- }
-
- AVOIDDENORMALS;
-
- // Add all voices together
- for (v = 0; v < m_voices.size(); v++)
- {
- m_voices[v]->m_mydsp->compute(samples, &m_inputs[0], &m_outputs[0]);
-
- // Accumulate in temp buffer
- for (i = 0; i < m_outputs.size(); i++)
- {
- for (j = 0; j < samples; j++)
- {
- m_temp_outputs[i][j] += m_outputs[i][j];
- }
- }
- }
-
- // Transfer accumulator to actual outputs
- for (i = 0; i < m_outputs.size(); i++)
- {
- for (j = 0; j < samples; j++)
- {
- // TODO find a better way to protect against clipping.
- m_outputs[i][j] = m_temp_outputs[i][j] / (float)MAX_POLYPHONY;
- }
- }
-}
-
-void Plugin::setFreq(float val, int voice)
-{
- m_voices[voice]->setFreq(val);
-}
-
-void Plugin::setGate(float val, int voice)
-{
- m_voices[voice]->setGate(val);
-}
-
-void Plugin::setGain(float val, int voice)
-{
- m_voices[voice]->setGain(val);
-}
-
-void Plugin::addButton(const char* label, float* zone)
-{
- if (!ckAnyMatch(label, "gate"))
- {
- add_control_with_default(0);
- }
-}
-
-void Plugin::addToggleButton(const char* label, float* zone)
-{
- add_control_with_default(0);
-}
-
-void Plugin::addCheckButton(const char* label, float* zone)
-{
- add_control_with_default(0);
-}
-
-void Plugin::addVerticalSlider(const char* label, float* zone, float init, float min, float max, float step)
-{
- if (!ckAllMatches(label))
- {
- add_control_with_default(init);
- }
-}
-void Plugin::addHorizontalSlider(const char* label, float* zone, float init, float min, float max, float step)
-{
- if (!ckAllMatches(label))
- {
- add_control_with_default(init);
- }
-}
-void Plugin::addNumEntry(const char* label, float* zone, float init, float min, float max, float step)
-{
- if (!ckAllMatches(label))
- {
- add_control_with_default(init);
- }
-}
-
-void Plugin::addNumDisplay(const char* label, float* zone, int precision)
-{
- add_control_with_default(0);
-}
-void Plugin::addTextDisplay(const char* label, float* zone, char* names[], float min, float max)
-{
- add_control_with_default(0);
-}
-void Plugin::addHorizontalBargraph(const char* label, float* zone, float min, float max)
-{
- add_control_with_default(min);
-}
-void Plugin::addVerticalBargraph(const char* label, float* zone, float min, float max)
-{
- add_control_with_default(min);
-}
-
-void Plugin::openFrameBox(const char* label)
-{
-}
-void Plugin::openTabBox(const char* label)
-{
-}
-void Plugin::openHorizontalBox(const char* label)
-{
-}
-void Plugin::openVerticalBox(const char* label)
-{
-}
-void Plugin::closeBox()
-{
-}
-
-void Plugin::show()
-{
-}
-void Plugin::run()
-{
-}
-
-bool Plugin::ckAnyMatch(const char* label, const char* indexName)
-{
- // TODO do case-insensitive here...
- if (strcmp(label,indexName)==0)
- {
- return true;
- }
- return false;
-}
-bool Plugin::ckAllMatches(const char* label)
-{
- bool result = false;
- result = result || ckAnyMatch(label,"gain");
- result = result || ckAnyMatch(label,"gate");
- result = result || ckAnyMatch(label,"freq");
- return result;
-}
-void Plugin::add_control_with_default(float default_value)
-{
- // TODO may need to consider different things for input and output controls...
- m_controls.push_back(0);
- m_control_defaults.push_back(default_value);
-}
-
-
-////////////////////////////////////////////////////////////////////////////////
-// Voice methods
-////////////////////////////////////////////////////////////////////////////////
-Voice::Voice(int sampleRate) :
- m_samplerate(sampleRate),
- m_freq_zone(0),
- m_gate_zone(0),
- m_gain_zone(0)
-{
- m_mydsp = new mydsp();
-}
-
-Voice::~Voice()
-{
- delete m_mydsp;
-}
-
-void Voice::setFreq(float val)
-{
- if (m_freq_zone)
- {
- *m_freq_zone = val;
- }
-}
-
-void Voice::setGate(float val)
-{
- if (m_gate_zone)
- {
- *m_gate_zone = val;
- }
-}
-
-void Voice::setGain(float val)
-{
- if (m_gain_zone)
- {
- *m_gain_zone = val;
- }
-}
-
-void Voice::addButton(const char* label, float* zone)
-{
- if (!ckAnyMatch(label, "gate", &m_gate_zone, zone))
- {
- addZone(zone);
- }
-}
-
-void Voice::addToggleButton(const char* label, float* zone)
-{
- addZone(zone);
-}
-
-void Voice::addCheckButton(const char* label, float* zone)
-{
- addZone(zone);
-}
-
-void Voice::addVerticalSlider(const char* label, float* zone, float init, float min, float max, float step)
-{
- if (!ckAllMatches(label, zone))
- {
- addZone(zone);
- }
-}
-void Voice::addHorizontalSlider(const char* label, float* zone, float init, float min, float max, float step)
-{
- if (!ckAllMatches(label, zone))
- {
- addZone(zone);
- }
-}
-void Voice::addNumEntry(const char* label, float* zone, float init, float min, float max, float step)
-{
- if (!ckAllMatches(label, zone))
- {
- addZone(zone);
- }
-}
-
-void Voice::addNumDisplay(const char* label, float* zone, int precision)
-{
- addZone(zone);
-}
-void Voice::addTextDisplay(const char* label, float* zone, char* names[], float min, float max)
-{
- addZone(zone);
-}
-void Voice::addHorizontalBargraph(const char* label, float* zone, float min, float max)
-{
- addZone(zone);
-}
-void Voice::addVerticalBargraph(const char* label, float* zone, float min, float max)
-{
- addZone(zone);
-}
-
-void Voice::openFrameBox(const char* label)
-{
-}
-void Voice::openTabBox(const char* label)
-{
-}
-void Voice::openHorizontalBox(const char* label)
-{
-}
-void Voice::openVerticalBox(const char* label)
-{
-}
-void Voice::closeBox()
-{
-}
-
-void Voice::show()
-{
-}
-void Voice::run()
-{
-}
-
-bool Voice::ckAnyMatch(const char* label, const char* indexName, float **zone, float* newZone)
-{
- // TODO do case-insensitive here...
- if (strcmp(label,indexName)==0)
- {
- *zone = newZone;
- return true;
- }
- return false;
-}
-bool Voice::ckAllMatches(const char* label, float* zone)
-{
- bool result = false;
- result = result || ckAnyMatch(label,"gain", &m_gain_zone, zone);
- result = result || ckAnyMatch(label,"gate", &m_gate_zone, zone);
- result = result || ckAnyMatch(label,"freq", &m_freq_zone, zone);
- return result;
-}
-void Voice::addZone(float* zone)
-{
- m_controls.push_back(zone);
-}
-
-
-////////////////////////////////////////////////////////////////////////////////
-// Shared object hooks
-////////////////////////////////////////////////////////////////////////////////
-extern "C"
-{
-
-#ifdef __GNUC__
- __attribute__((constructor)) void init(void)
-#else
- void _init(void)
-#endif
- {
- AVOIDDENORMALS;
-
- if (g_dssi_descriptor == 0)
- {
- g_ladspa_descriptor = new LADSPA_Descriptor();
- g_dssi_descriptor = new DSSI_Descriptor();
-
- mydsp* temp_mydsp = new mydsp();
- DescriptorUI* temp_descriptor_ui = new DescriptorUI(temp_mydsp->getNumInputs(), temp_mydsp->getNumOutputs());
- temp_mydsp->buildUserInterface(temp_descriptor_ui);
-
- // Fill the descriptors:
- // TODO figure out strdup with const strings
- g_ladspa_descriptor->UniqueID = 0;
- g_ladspa_descriptor->Label = get_metadata_if_exists("name", g_name.c_str());
- g_ladspa_descriptor->Properties = LADSPA_PROPERTY_HARD_RT_CAPABLE;
- g_ladspa_descriptor->Name = get_metadata_if_exists("name", g_name.c_str());
- g_ladspa_descriptor->Maker = get_metadata_if_exists("author", "Maker");
- g_ladspa_descriptor->Copyright = get_metadata_if_exists("copyright", "Copyright");
- g_ladspa_descriptor->PortCount = g_port_descriptors.size();
- g_ladspa_descriptor->PortDescriptors = &g_port_descriptors[0];
- g_ladspa_descriptor->PortNames = &g_port_names[0];
- g_ladspa_descriptor->PortRangeHints = &g_port_range_hints[0];
- g_ladspa_descriptor->ImplementationData = 0;
- g_ladspa_descriptor->instantiate = Plugin::instantiate;
- g_ladspa_descriptor->connect_port = Plugin::connectPort;
- g_ladspa_descriptor->activate = Plugin::activate;
- g_ladspa_descriptor->run = Plugin::run;
- g_ladspa_descriptor->run_adding = 0;
- g_ladspa_descriptor->set_run_adding_gain = 0;
- g_ladspa_descriptor->deactivate = 0;
- g_ladspa_descriptor->cleanup = Plugin::cleanup;
-
- g_dssi_descriptor->DSSI_API_Version = 1;
- g_dssi_descriptor->LADSPA_Plugin = g_ladspa_descriptor;
- g_dssi_descriptor->configure = 0;
- g_dssi_descriptor->get_program = Plugin::getProgram;
- g_dssi_descriptor->select_program = Plugin::selectProgram;
- g_dssi_descriptor->get_midi_controller_for_port = Plugin::getMidiController;
- g_dssi_descriptor->run_synth = Plugin::runSynth;
- g_dssi_descriptor->run_synth_adding = 0;
- g_dssi_descriptor->run_multiple_synths = 0;
- g_dssi_descriptor->run_multiple_synths_adding = 0;
-
- // Program description (TODO if we eventually support multiple programs we will need to handle this differently)
- g_program_descriptor.Bank = 0;
- g_program_descriptor.Program = 0;
- g_program_descriptor.Name = get_metadata_if_exists("name", g_name.c_str());
-
- delete temp_mydsp;
- delete temp_descriptor_ui;
- }
- }
-
-#ifdef __GNUC__
- __attribute__((destructor)) void fini(void)
-#else
- void _fini()
-#endif
- {
- if (g_ladspa_descriptor)
- {
- delete g_ladspa_descriptor;
- }
- if (g_dssi_descriptor)
- {
- delete g_dssi_descriptor;
- }
- }
-
- const LADSPA_Descriptor *ladspa_descriptor(unsigned long index)
- {
- return 0;
- }
-
- const DSSI_Descriptor *dssi_descriptor(unsigned long index)
- {
- if (index == 0)
- {
- return g_dssi_descriptor;
- }
- else
- {
- return NULL;
- }
- }
-}
-
-/********************END ARCHITECTURE SECTION (part 2/2)****************/
projects / Faustine.git / blobdiff
