Add 'blip', an LV2 port of the LADSPA 'blop' collection.

git-svn-id: http://svn.drobilla.net/lad/trunk/plugins/blip.lv2@3525 a436a847-0d15-0410-975c-d299462d15a1

1 files changed, 182 insertions, 0 deletions

diff --git a/src/lp4pole.c b/src/lp4pole.c
new file mode 100644
index 0000000..d72cb98
--- /dev/null
+++ b/src/lp4pole.c
@@ -0,0 +1,182 @@
+/*
+  An LV2 plugin simulating a 4 pole low pass resonant filter.
+  Copyright 2011 David Robillard
+  Copyright 2003 Mike Rawes
+
+  This 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 software 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 software.  If not, see <http://www.gnu.org/licenses/>.
+*/
+
+#include <stdlib.h>
+#include "lv2/lv2plug.in/ns/lv2core/lv2.h"
+#include "lp4pole_filter.h"
+#include "common.h"
+
+#define LP4POLE_CUTOFF    0
+#define LP4POLE_RESONANCE 1
+#define LP4POLE_INPUT     2
+#define LP4POLE_OUTPUT    3
+
+typedef struct {
+	float*         cutoff;
+	float*         resonance;
+	float*         input;
+	float*         output;
+	LP4PoleFilter* lpf;
+} Lp4pole;
+
+static void
+cleanup(LV2_Handle instance)
+{
+	Lp4pole* plugin = (Lp4pole*)instance;
+
+	lp4pole_cleanup(plugin->lpf);
+
+	free(instance);
+}
+
+static void
+connect_port(LV2_Handle instance,
+             uint32_t   port,
+             void*      data)
+{
+	Lp4pole* plugin = (Lp4pole*)instance;
+
+	switch (port) {
+	case LP4POLE_CUTOFF:
+		plugin->cutoff = data;
+		break;
+	case LP4POLE_RESONANCE:
+		plugin->resonance = data;
+		break;
+	case LP4POLE_INPUT:
+		plugin->input = data;
+		break;
+	case LP4POLE_OUTPUT:
+		plugin->output = data;
+		break;
+	}
+}
+
+static LV2_Handle
+instantiate(const LV2_Descriptor*     descriptor,
+            double                    sample_rate,
+            const char*               bundle_path,
+            const LV2_Feature* const* features)
+{
+	Lp4pole* plugin = (Lp4pole*)malloc(sizeof(Lp4pole));
+
+	if (plugin) {
+		plugin->lpf = lp4pole_new(sample_rate);
+		if (!plugin->lpf) {
+			free(plugin);
+			plugin = 0;
+		}
+	}
+	return (LV2_Handle)plugin;
+}
+
+static void
+activate(LV2_Handle instance)
+{
+	Lp4pole* plugin = (Lp4pole*)instance;
+
+	lp4pole_init(plugin->lpf);
+}
+
+static void
+runLp4pole_faraia_oa(LV2_Handle instance,
+                     uint32_t   sample_count)
+{
+	Lp4pole* plugin = (Lp4pole*)instance;
+
+	/* Cutoff Frequency (array of floats of length sample_count) */
+	float* cutoff = plugin->cutoff;
+
+	/* Resonance (array of floats of length sample_count) */
+	float* resonance = plugin->resonance;
+
+	/* Input (array of floats of length sample_count) */
+	float* input = plugin->input;
+
+	/* Output (pointer to float value) */
+	float* output = plugin->output;
+
+	/* Instance data */
+	LP4PoleFilter* lpf = plugin->lpf;
+
+	float in;
+	float co;
+	float res;
+
+	for (uint32_t s = 0; s < sample_count; ++s) {
+		co  = cutoff[s];
+		res = resonance[s];
+		in  = input[s];
+
+		lp4pole_set_params(lpf, co, res);
+
+		output[s] = lp4pole_run(lpf, in);
+	}
+}
+
+static void
+runLp4pole_fcrcia_oa(LV2_Handle instance,
+                     uint32_t   sample_count)
+{
+	Lp4pole* plugin = (Lp4pole*)instance;
+
+	/* Cutoff Frequency (float value) */
+	float cutoff = *(plugin->cutoff);
+
+	/* Resonance (float value) */
+	float resonance = *(plugin->resonance);
+
+	/* Input (array of floats of length sample_count) */
+	float* input = plugin->input;
+
+	/* Output (pointer to float value) */
+	float* output = plugin->output;
+
+	/* Instance data */
+	LP4PoleFilter* lpf = plugin->lpf;
+
+	float in;
+
+	lp4pole_set_params(lpf, cutoff, resonance);
+
+	for (uint32_t s = 0; s < sample_count; ++s) {
+		in        = input[s];
+		output[s] = lp4pole_run(lpf, in);
+	}
+}
+
+static const LV2_Descriptor descriptor = {
+	"http://drobilla.net/plugins/blip/lp4pole",
+	instantiate,
+	connect_port,
+	activate,
+	runLp4pole_fcrcia_oa,
+	NULL,
+	cleanup,
+	NULL,
+};
+
+LV2_SYMBOL_EXPORT const LV2_Descriptor*
+lv2_descriptor(uint32_t index)
+{
+	switch (index) {
+	case 0:  return &descriptor;
+	default: return NULL;
+	}
+}