Added a vocoder LADSPA plugin into the tree.
This commit is contained in:
Hexasoft
456
plugins/ladspa_effect/swh/vocoder_1337.c
Normal file
456
plugins/ladspa_effect/swh/vocoder_1337.c
Normal file
@@ -0,0 +1,456 @@
|
||||
/* vocoder.c
|
||||
Version 0.3
|
||||
|
||||
LADSPA Unique ID: 1337
|
||||
|
||||
Version 0.31
|
||||
Added stereo output, renamed input/output ports, added,
|
||||
added a control for stereo balance
|
||||
|
||||
Version 0.3
|
||||
Added support for changing bands in real time 2003-12-09
|
||||
|
||||
Version 0.2
|
||||
Adapted to LADSPA by Josh Green <jgreen@users.sourceforge.net>
|
||||
15.6.2001 (for the LinuxTag 2001!)
|
||||
|
||||
Original program can be found at:
|
||||
http://www.sirlab.de/linux/
|
||||
Author: Achim Settelmeier <settel-linux@sirlab.de>
|
||||
|
||||
Adapted to LMMS by Hexasoft (hexasoft.corp@free.fr)
|
||||
|
||||
|
||||
Licence: GPL
|
||||
This program 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/>.
|
||||
|
||||
*/
|
||||
|
||||
|
||||
/* not familiar with WINDOWS stuff. Saw this in other sources, it should be needed */
|
||||
|
||||
#ifdef WIN32
|
||||
#define _WINDOWS_DLL_EXPORT_ __declspec(dllexport)
|
||||
int bIsFirstTime = 1;
|
||||
void _init(); // forward declaration
|
||||
#else
|
||||
#define _WINDOWS_DLL_EXPORT_
|
||||
#endif
|
||||
|
||||
|
||||
/*****************************************************************************/
|
||||
/* general includes */
|
||||
#include <stdio.h>
|
||||
#include <stdlib.h>
|
||||
#include <string.h>
|
||||
#include <math.h>
|
||||
|
||||
/*****************************************************************************/
|
||||
/* LADSPA headers */
|
||||
#include <ladspa.h>
|
||||
|
||||
/*****************************************************************************/
|
||||
|
||||
|
||||
#define LADSPA_UNIQUE_ID 1337
|
||||
|
||||
#define MAX_BANDS 16 /* max 16 bandsn should be increased */
|
||||
#define AMPLIFIER 16.0
|
||||
|
||||
struct bandpass
|
||||
{
|
||||
LADSPA_Data c, f, att;
|
||||
|
||||
LADSPA_Data freq;
|
||||
LADSPA_Data low1, low2;
|
||||
LADSPA_Data mid1, mid2;
|
||||
LADSPA_Data high1, high2;
|
||||
LADSPA_Data y;
|
||||
};
|
||||
|
||||
struct bands_out{
|
||||
LADSPA_Data decay;
|
||||
LADSPA_Data oldval;
|
||||
LADSPA_Data level; /* 0.0 - 1.0 level of this output band */
|
||||
};
|
||||
|
||||
const LADSPA_Data decay_table[] =
|
||||
{
|
||||
1/100.0,
|
||||
1/100.0, 1/100.0, 1/100.0,
|
||||
1/125.0, 1/125.0, 1/125.0,
|
||||
1/166.0, 1/166.0, 1/166.0,
|
||||
1/200.0, 1/200.0, 1/200.0,
|
||||
1/250.0, 1/250.0, 1/250.0
|
||||
};
|
||||
|
||||
/* The port numbers for the plugin: */
|
||||
|
||||
#define PORT_FORMANT 0 /* the track to "vocodify */
|
||||
#define PORT_CARRIER 1 /* the track to control 1st track */
|
||||
#define PORT_OUTPUT 2 /* left output */
|
||||
#define PORT_OUTPUT2 3 /* right output */
|
||||
#define CTRL_BANDCOUNT 4 /* selected # of bands to use */
|
||||
#define CTRL_PAN 5 /* stereo balance for outputs */
|
||||
#define CTRL_BAND1LVL 6 /* start of bands level */
|
||||
|
||||
#define PORT_COUNT 6 + MAX_BANDS /* bands level */
|
||||
|
||||
|
||||
/* useful macros */
|
||||
#undef CLAMP
|
||||
#define CLAMP(x, low, high) (((x) > (high)) ? (high) : (((x) < (low)) ? (low) : (x)))
|
||||
|
||||
/* Instance data for the vocoder plugin */
|
||||
typedef struct {
|
||||
LADSPA_Data SampleRate;
|
||||
|
||||
int num_bands; /* current number of bands */
|
||||
float mainvol; /* main volume */
|
||||
|
||||
struct bandpass bands_formant[MAX_BANDS]; /* one structure per band */
|
||||
struct bandpass bands_carrier[MAX_BANDS]; /* one structure per band */
|
||||
struct bands_out bands_out[MAX_BANDS]; /* one structure per band */
|
||||
|
||||
/* Ports */
|
||||
|
||||
LADSPA_Data * portFormant; /* Formant signal port data location */
|
||||
LADSPA_Data * portCarrier; /* Carrier signal port data location */
|
||||
LADSPA_Data * portOutput; /* Output audio port data location */
|
||||
LADSPA_Data * portOutput2; /* Output audio port data location (copy of previous one) */
|
||||
LADSPA_Data * ctrlPan; /* PAN for output */
|
||||
LADSPA_Data * ctrlBandCount; /* Band count control */
|
||||
LADSPA_Data * ctrlBandLevels[MAX_BANDS]; /* level controls for each band */
|
||||
|
||||
} VocoderInstance;
|
||||
|
||||
/*****************************************************************************/
|
||||
|
||||
/* Construct a new plugin instance. */
|
||||
LADSPA_Handle
|
||||
instantiateVocoder(const LADSPA_Descriptor * Descriptor,
|
||||
unsigned long SampleRate) {
|
||||
VocoderInstance * vocoder;
|
||||
|
||||
vocoder = (VocoderInstance *)malloc(sizeof(VocoderInstance));
|
||||
|
||||
if (vocoder == NULL)
|
||||
return NULL;
|
||||
|
||||
vocoder->SampleRate = (LADSPA_Data)SampleRate;
|
||||
vocoder->num_bands = -1;
|
||||
|
||||
return vocoder;
|
||||
}
|
||||
|
||||
/*****************************************************************************/
|
||||
|
||||
/* Initialise and activate a plugin instance. */
|
||||
void
|
||||
activateVocoder(LADSPA_Handle Instance) {
|
||||
VocoderInstance *vocoder = (VocoderInstance *)Instance;
|
||||
int i;
|
||||
|
||||
vocoder->mainvol = 1.0 * AMPLIFIER;
|
||||
|
||||
for (i = 0; i < MAX_BANDS; i++)
|
||||
vocoder->bands_out[i].oldval = 0.0;
|
||||
}
|
||||
|
||||
/*****************************************************************************/
|
||||
|
||||
/* Connect a port to a data location. */
|
||||
void
|
||||
connectPortToVocoder(LADSPA_Handle Instance,
|
||||
unsigned long Port,
|
||||
LADSPA_Data * DataLocation) {
|
||||
|
||||
VocoderInstance * vocoder;
|
||||
|
||||
vocoder = (VocoderInstance *)Instance;
|
||||
switch (Port) {
|
||||
case PORT_FORMANT: /* formant port? */
|
||||
vocoder->portFormant = DataLocation;
|
||||
break;
|
||||
case PORT_CARRIER: /* carrier port? */
|
||||
vocoder->portCarrier = DataLocation;
|
||||
break;
|
||||
case PORT_OUTPUT: /* output port? */
|
||||
vocoder->portOutput = DataLocation;
|
||||
break;
|
||||
case PORT_OUTPUT2: /* output port? */
|
||||
vocoder->portOutput2 = DataLocation;
|
||||
break;
|
||||
case CTRL_BANDCOUNT: /* band count control? */
|
||||
vocoder->ctrlBandCount = DataLocation;
|
||||
break;
|
||||
case CTRL_PAN: /* Pan control? */
|
||||
vocoder->ctrlPan = DataLocation;
|
||||
break;
|
||||
default: /* a band level control? */
|
||||
if (Port >= CTRL_BAND1LVL && Port < CTRL_BAND1LVL + MAX_BANDS)
|
||||
vocoder->ctrlBandLevels[Port - CTRL_BAND1LVL] = DataLocation;
|
||||
break;
|
||||
}
|
||||
}
|
||||
|
||||
/*****************************************************************************/
|
||||
|
||||
// vocoder_do_bandpasses /*fold00*/
|
||||
void vocoder_do_bandpasses(struct bandpass *bands, LADSPA_Data sample,
|
||||
VocoderInstance *vocoder)
|
||||
{
|
||||
int i;
|
||||
for (i=0; i < vocoder->num_bands; i++)
|
||||
{
|
||||
bands[i].high1 = sample - bands[i].f * bands[i].mid1 - bands[i].low1;
|
||||
bands[i].mid1 += bands[i].high1 * bands[i].c;
|
||||
bands[i].low1 += bands[i].mid1;
|
||||
|
||||
bands[i].high2 = bands[i].low1 - bands[i].f * bands[i].mid2
|
||||
- bands[i].low2;
|
||||
bands[i].mid2 += bands[i].high2 * bands[i].c;
|
||||
bands[i].low2 += bands[i].mid2;
|
||||
bands[i].y = bands[i].high2 * bands[i].att;
|
||||
}
|
||||
}
|
||||
|
||||
/* Run a vocoder instance for a block of SampleCount samples. */
|
||||
void
|
||||
runVocoder(LADSPA_Handle Instance,
|
||||
unsigned long SampleCount)
|
||||
{
|
||||
VocoderInstance *vocoder = (VocoderInstance *)Instance;
|
||||
int i, j, numbands, pan;
|
||||
float a;
|
||||
LADSPA_Data x, c;
|
||||
float fl, fr;
|
||||
|
||||
numbands = (int)(*vocoder->ctrlBandCount);
|
||||
if (numbands < 1 || numbands > MAX_BANDS) numbands = MAX_BANDS;
|
||||
|
||||
/* initialize bandpass information if num_bands control has changed,
|
||||
or on first run */
|
||||
if (vocoder->num_bands != numbands)
|
||||
{
|
||||
vocoder->num_bands = numbands;
|
||||
|
||||
for(i=0; i < numbands; i++)
|
||||
{
|
||||
memset(&vocoder->bands_formant[i], 0, sizeof(struct bandpass));
|
||||
|
||||
a = 16.0 * i/(double)numbands; // stretch existing bands
|
||||
|
||||
if (a < 4.0)
|
||||
vocoder->bands_formant[i].freq = 150 + 420 * a / 4.0;
|
||||
else
|
||||
vocoder->bands_formant[i].freq = 600 * pow (1.23, a - 4.0);
|
||||
|
||||
c = vocoder->bands_formant[i].freq * 2 * M_PI / vocoder->SampleRate;
|
||||
vocoder->bands_formant[i].c = c * c;
|
||||
|
||||
vocoder->bands_formant[i].f = 0.4/c;
|
||||
vocoder->bands_formant[i].att =
|
||||
1/(6.0 + ((exp (vocoder->bands_formant[i].freq
|
||||
/ vocoder->SampleRate) - 1) * 10));
|
||||
|
||||
memcpy(&vocoder->bands_carrier[i],
|
||||
&vocoder->bands_formant[i], sizeof(struct bandpass));
|
||||
|
||||
vocoder->bands_out[i].decay = decay_table[(int)a];
|
||||
vocoder->bands_out[i].level =
|
||||
CLAMP (*vocoder->ctrlBandLevels[i], 0.0, 1.0);
|
||||
}
|
||||
}
|
||||
else /* get current values of band level controls */
|
||||
{
|
||||
for (i = 0; i < numbands; i++)
|
||||
vocoder->bands_out[i].level = CLAMP (*vocoder->ctrlBandLevels[i],
|
||||
0.0, 1.0);
|
||||
}
|
||||
|
||||
for (i=0; i < SampleCount; i++)
|
||||
{
|
||||
vocoder_do_bandpasses (vocoder->bands_carrier,
|
||||
vocoder->portCarrier[i], vocoder);
|
||||
vocoder_do_bandpasses (vocoder->bands_formant,
|
||||
vocoder->portFormant[i], vocoder);
|
||||
|
||||
vocoder->portOutput[i] = 0.0;
|
||||
vocoder->portOutput2[i] = 0.0;
|
||||
for (j=0; j < numbands; j++)
|
||||
{
|
||||
vocoder->bands_out[j].oldval = vocoder->bands_out[j].oldval
|
||||
+ (fabs (vocoder->bands_formant[j].y)
|
||||
- vocoder->bands_out[j].oldval)
|
||||
* vocoder->bands_out[j].decay;
|
||||
x = vocoder->bands_carrier[j].y * vocoder->bands_out[j].oldval;
|
||||
vocoder->portOutput[i] += x * vocoder->bands_out[j].level;
|
||||
vocoder->portOutput2[i] += x * vocoder->bands_out[j].level;
|
||||
}
|
||||
/* treat paning + main volume */
|
||||
pan = (int)(*vocoder->ctrlPan);
|
||||
fl = fr = 1.;
|
||||
if (pan != 0) { /* no paning, don't compute useless values */
|
||||
if (pan > 0) { /* reduce left */
|
||||
fl = (100.-pan)/100.;
|
||||
} else {
|
||||
fr = (100.+pan)/100.;
|
||||
}
|
||||
}
|
||||
/* apply volume and paning */
|
||||
vocoder->portOutput[i] *= vocoder->mainvol * fl;
|
||||
vocoder->portOutput2[i] *= vocoder->mainvol * fr;
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
/*****************************************************************************/
|
||||
|
||||
/* Throw away a vocoder instance. */
|
||||
void
|
||||
cleanupVocoder(LADSPA_Handle Instance)
|
||||
{
|
||||
VocoderInstance * Vocoder;
|
||||
Vocoder = (VocoderInstance *)Instance;
|
||||
free(Vocoder);
|
||||
}
|
||||
|
||||
/*****************************************************************************/
|
||||
|
||||
LADSPA_Descriptor * g_psDescriptor = NULL;
|
||||
|
||||
/*****************************************************************************/
|
||||
|
||||
/* _init() is called automatically when the plugin library is first
|
||||
loaded. */
|
||||
void
|
||||
_init() {
|
||||
char ** pcPortNames;
|
||||
LADSPA_PortDescriptor * piPortDescriptors;
|
||||
LADSPA_PortRangeHint * psPortRangeHints;
|
||||
int i;
|
||||
|
||||
g_psDescriptor = (LADSPA_Descriptor *)malloc(sizeof(LADSPA_Descriptor));
|
||||
|
||||
if (g_psDescriptor) {
|
||||
g_psDescriptor->UniqueID = LADSPA_UNIQUE_ID;
|
||||
g_psDescriptor->Label = strdup("vocoder-lmms");
|
||||
g_psDescriptor->Properties = LADSPA_PROPERTY_HARD_RT_CAPABLE;
|
||||
g_psDescriptor->Name = strdup("Vocoder for LMMS");
|
||||
g_psDescriptor->Maker = strdup("Achim Settelmeier (adapted to LADSPA by Josh Green, adapted to LMMS by Hexasoft)");
|
||||
g_psDescriptor->Copyright = strdup("GPL");
|
||||
g_psDescriptor->PortCount = PORT_COUNT;
|
||||
piPortDescriptors = (LADSPA_PortDescriptor *)calloc(PORT_COUNT,
|
||||
sizeof(LADSPA_PortDescriptor));
|
||||
g_psDescriptor->PortDescriptors
|
||||
= (const LADSPA_PortDescriptor *)piPortDescriptors;
|
||||
piPortDescriptors[PORT_FORMANT]
|
||||
= LADSPA_PORT_INPUT | LADSPA_PORT_AUDIO;
|
||||
piPortDescriptors[PORT_CARRIER]
|
||||
= LADSPA_PORT_INPUT | LADSPA_PORT_AUDIO;
|
||||
piPortDescriptors[PORT_OUTPUT]
|
||||
= LADSPA_PORT_OUTPUT | LADSPA_PORT_AUDIO;
|
||||
piPortDescriptors[PORT_OUTPUT2]
|
||||
= LADSPA_PORT_OUTPUT | LADSPA_PORT_AUDIO;
|
||||
piPortDescriptors[CTRL_BANDCOUNT]
|
||||
= LADSPA_PORT_INPUT | LADSPA_PORT_CONTROL;
|
||||
piPortDescriptors[CTRL_PAN]
|
||||
= LADSPA_PORT_INPUT | LADSPA_PORT_CONTROL;
|
||||
|
||||
pcPortNames = (char **)calloc(PORT_COUNT, sizeof(char *));
|
||||
g_psDescriptor->PortNames = (const char **)pcPortNames;
|
||||
pcPortNames[PORT_FORMANT] = strdup("Formant-in");
|
||||
pcPortNames[PORT_CARRIER] = strdup("Carrier-in");
|
||||
pcPortNames[PORT_OUTPUT] = strdup("Output-out");
|
||||
pcPortNames[PORT_OUTPUT2] = strdup("Output2-out");
|
||||
pcPortNames[CTRL_BANDCOUNT] = strdup("Number of bands");
|
||||
pcPortNames[CTRL_PAN] = strdup("Left/Right");
|
||||
|
||||
psPortRangeHints = ((LADSPA_PortRangeHint *)
|
||||
calloc(PORT_COUNT, sizeof(LADSPA_PortRangeHint)));
|
||||
g_psDescriptor->PortRangeHints
|
||||
= (const LADSPA_PortRangeHint *)psPortRangeHints;
|
||||
psPortRangeHints[PORT_FORMANT].HintDescriptor = 0;
|
||||
psPortRangeHints[PORT_CARRIER].HintDescriptor = 0;
|
||||
psPortRangeHints[PORT_OUTPUT].HintDescriptor = 0;
|
||||
psPortRangeHints[PORT_OUTPUT2].HintDescriptor = 0;
|
||||
psPortRangeHints[CTRL_BANDCOUNT].HintDescriptor
|
||||
= LADSPA_HINT_BOUNDED_BELOW | LADSPA_HINT_BOUNDED_ABOVE
|
||||
| LADSPA_HINT_INTEGER;
|
||||
psPortRangeHints[CTRL_BANDCOUNT].LowerBound = 1;
|
||||
psPortRangeHints[CTRL_BANDCOUNT].UpperBound = MAX_BANDS;
|
||||
psPortRangeHints[CTRL_PAN].HintDescriptor
|
||||
= LADSPA_HINT_BOUNDED_BELOW | LADSPA_HINT_BOUNDED_ABOVE
|
||||
| LADSPA_HINT_INTEGER;
|
||||
psPortRangeHints[CTRL_PAN].LowerBound = -100;
|
||||
psPortRangeHints[CTRL_PAN].UpperBound = +100;
|
||||
|
||||
for (i=CTRL_BAND1LVL; i < CTRL_BAND1LVL + MAX_BANDS; i++)
|
||||
{
|
||||
piPortDescriptors[i] = LADSPA_PORT_INPUT | LADSPA_PORT_CONTROL;
|
||||
pcPortNames[i] = malloc (sizeof ("Band 99 Level"));
|
||||
sprintf(pcPortNames[i], "Band %d Level", i - CTRL_BAND1LVL + 1);
|
||||
psPortRangeHints[i].HintDescriptor
|
||||
= LADSPA_HINT_BOUNDED_BELOW | LADSPA_HINT_BOUNDED_ABOVE;
|
||||
psPortRangeHints[i].LowerBound = 0;
|
||||
psPortRangeHints[i].UpperBound = 1;
|
||||
}
|
||||
|
||||
g_psDescriptor->instantiate = instantiateVocoder;
|
||||
g_psDescriptor->connect_port = connectPortToVocoder;
|
||||
g_psDescriptor->activate = activateVocoder;
|
||||
g_psDescriptor->run = runVocoder;
|
||||
g_psDescriptor->run_adding = NULL;
|
||||
g_psDescriptor->set_run_adding_gain = NULL;
|
||||
g_psDescriptor->deactivate = NULL;
|
||||
g_psDescriptor->cleanup = cleanupVocoder;
|
||||
}
|
||||
}
|
||||
|
||||
/*****************************************************************************/
|
||||
|
||||
/* _fini() is called automatically when the library is unloaded. */
|
||||
void
|
||||
_fini() {
|
||||
long lIndex;
|
||||
if (g_psDescriptor) {
|
||||
free((char *)g_psDescriptor->Label);
|
||||
free((char *)g_psDescriptor->Name);
|
||||
free((char *)g_psDescriptor->Maker);
|
||||
free((char *)g_psDescriptor->Copyright);
|
||||
free((LADSPA_PortDescriptor *)g_psDescriptor->PortDescriptors);
|
||||
for (lIndex = 0; lIndex < g_psDescriptor->PortCount; lIndex++)
|
||||
free((char *)(g_psDescriptor->PortNames[lIndex]));
|
||||
free((char **)g_psDescriptor->PortNames);
|
||||
free((LADSPA_PortRangeHint *)g_psDescriptor->PortRangeHints);
|
||||
free(g_psDescriptor);
|
||||
}
|
||||
}
|
||||
|
||||
/*****************************************************************************/
|
||||
|
||||
/* Return a descriptor of the requested plugin type. Only one plugin
|
||||
type is available in this library. */
|
||||
const LADSPA_Descriptor *
|
||||
ladspa_descriptor(unsigned long Index) {
|
||||
if (Index == 0)
|
||||
return g_psDescriptor;
|
||||
else
|
||||
return NULL;
|
||||
}
|
||||
|
||||
/*****************************************************************************/
|
||||
|
||||
/* EOF */
|
||||
Reference in New Issue
Block a user