Add a-Delay plugin
This commit is contained in:
parent
83e1d9fff3
commit
de4cb2f8af
470
libs/plugins/a-delay.lv2/a-delay.c
Normal file
470
libs/plugins/a-delay.lv2/a-delay.c
Normal file
@ -0,0 +1,470 @@
|
|||||||
|
/* a-delay
|
||||||
|
* Copyright (C) 2016 Damien Zammit <damien@zamaudio.com>
|
||||||
|
*
|
||||||
|
* 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 2
|
||||||
|
* 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.
|
||||||
|
*/
|
||||||
|
|
||||||
|
#include <math.h>
|
||||||
|
#include <stdlib.h>
|
||||||
|
#include <stdio.h>
|
||||||
|
|
||||||
|
#include "lv2/lv2plug.in/ns/lv2core/lv2.h"
|
||||||
|
#include "lv2/lv2plug.in/ns/ext/atom/atom.h"
|
||||||
|
#include "lv2/lv2plug.in/ns/ext/time/time.h"
|
||||||
|
#include "lv2/lv2plug.in/ns/ext/atom/forge.h"
|
||||||
|
#include "lv2/lv2plug.in/ns/ext/urid/urid.h"
|
||||||
|
|
||||||
|
#define ADELAY_URI "urn:ardour:a-delay"
|
||||||
|
|
||||||
|
// 8 seconds of delay at 96kHz
|
||||||
|
#define MAX_DELAY 768000
|
||||||
|
|
||||||
|
#ifndef M_PI
|
||||||
|
# define M_PI 3.1415926
|
||||||
|
#endif
|
||||||
|
|
||||||
|
typedef enum {
|
||||||
|
ADELAY_INPUT = 0,
|
||||||
|
ADELAY_OUTPUT,
|
||||||
|
|
||||||
|
ADELAY_BPM,
|
||||||
|
|
||||||
|
ADELAY_INV,
|
||||||
|
ADELAY_SYNC,
|
||||||
|
ADELAY_TIME,
|
||||||
|
ADELAY_DIVISOR,
|
||||||
|
ADELAY_WETDRY,
|
||||||
|
ADELAY_LPF,
|
||||||
|
ADELAY_GAIN,
|
||||||
|
|
||||||
|
ADELAY_DELAYTIME,
|
||||||
|
} PortIndex;
|
||||||
|
|
||||||
|
|
||||||
|
typedef struct {
|
||||||
|
LV2_URID atom_Blank;
|
||||||
|
LV2_URID atom_Object;
|
||||||
|
LV2_URID atom_Sequence;
|
||||||
|
LV2_URID atom_Long;
|
||||||
|
LV2_URID atom_Int;
|
||||||
|
LV2_URID atom_Float;
|
||||||
|
LV2_URID atom_Double;
|
||||||
|
LV2_URID time_beatUnit;
|
||||||
|
LV2_URID time_beatsPerMinute;
|
||||||
|
LV2_URID time_Position;
|
||||||
|
} DelayURIs;
|
||||||
|
|
||||||
|
typedef struct {
|
||||||
|
float* input;
|
||||||
|
float* output;
|
||||||
|
|
||||||
|
const LV2_Atom_Sequence* atombpm;
|
||||||
|
|
||||||
|
float* inv;
|
||||||
|
float* sync;
|
||||||
|
float* time;
|
||||||
|
float* divisor;
|
||||||
|
float* wetdry;
|
||||||
|
float* lpf;
|
||||||
|
float* gain;
|
||||||
|
|
||||||
|
float* delaytime;
|
||||||
|
|
||||||
|
float srate;
|
||||||
|
float bpm;
|
||||||
|
float beatunit;
|
||||||
|
int beatuniti;
|
||||||
|
int bpmvalid;
|
||||||
|
|
||||||
|
uint32_t posz;
|
||||||
|
float tap[2];
|
||||||
|
float z[MAX_DELAY];
|
||||||
|
int active;
|
||||||
|
int next;
|
||||||
|
float fbstate;
|
||||||
|
float lpfold;
|
||||||
|
float divisorold;
|
||||||
|
float gainold;
|
||||||
|
float invertold;
|
||||||
|
float timeold;
|
||||||
|
float delaytimeold;
|
||||||
|
float syncold;
|
||||||
|
float wetdryold;
|
||||||
|
float delaysamplesold;
|
||||||
|
|
||||||
|
float A0, A1, A2, A3, A4, A5;
|
||||||
|
float B0, B1, B2, B3, B4, B5;
|
||||||
|
float state[4];
|
||||||
|
|
||||||
|
DelayURIs uris;
|
||||||
|
LV2_Atom_Forge forge;
|
||||||
|
LV2_URID_Map* map;
|
||||||
|
} ADelay;
|
||||||
|
|
||||||
|
static inline void
|
||||||
|
map_uris(LV2_URID_Map* map, DelayURIs* uris)
|
||||||
|
{
|
||||||
|
uris->atom_Blank = map->map(map->handle, LV2_ATOM__Blank);
|
||||||
|
uris->atom_Object = map->map(map->handle, LV2_ATOM__Object);
|
||||||
|
uris->atom_Sequence = map->map(map->handle, LV2_ATOM__Sequence);
|
||||||
|
uris->atom_Long = map->map(map->handle, LV2_ATOM__Long);
|
||||||
|
uris->atom_Int = map->map(map->handle, LV2_ATOM__Int);
|
||||||
|
uris->atom_Float = map->map(map->handle, LV2_ATOM__Float);
|
||||||
|
uris->atom_Double = map->map(map->handle, LV2_ATOM__Double);
|
||||||
|
uris->time_beatUnit = map->map(map->handle, LV2_TIME__beatUnit);
|
||||||
|
uris->time_beatsPerMinute = map->map(map->handle, LV2_TIME__beatsPerMinute);
|
||||||
|
uris->time_Position = map->map(map->handle, LV2_TIME__Position);
|
||||||
|
}
|
||||||
|
|
||||||
|
static LV2_Handle
|
||||||
|
instantiate(const LV2_Descriptor* descriptor,
|
||||||
|
double rate,
|
||||||
|
const char* bundle_path,
|
||||||
|
const LV2_Feature* const* features)
|
||||||
|
{
|
||||||
|
int i;
|
||||||
|
ADelay* adelay = (ADelay*)calloc(1, sizeof(ADelay));
|
||||||
|
if (!adelay) return NULL;
|
||||||
|
|
||||||
|
for (i = 0; features[i]; ++i) {
|
||||||
|
if (!strcmp(features[i]->URI, LV2_URID__map)) {
|
||||||
|
adelay->map = (LV2_URID_Map*)features[i]->data;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
if (!adelay->map) {
|
||||||
|
fprintf(stderr, "a-delay.lv2 error: Host does not support urid:map\n");
|
||||||
|
free(adelay);
|
||||||
|
return NULL;
|
||||||
|
}
|
||||||
|
|
||||||
|
map_uris(adelay->map, &adelay->uris);
|
||||||
|
lv2_atom_forge_init(&adelay->forge, adelay->map);
|
||||||
|
|
||||||
|
adelay->srate = rate;
|
||||||
|
adelay->bpmvalid = 0;
|
||||||
|
|
||||||
|
return (LV2_Handle)adelay;
|
||||||
|
}
|
||||||
|
|
||||||
|
static void
|
||||||
|
connect_port(LV2_Handle instance,
|
||||||
|
uint32_t port,
|
||||||
|
void* data)
|
||||||
|
{
|
||||||
|
ADelay* adelay = (ADelay*)instance;
|
||||||
|
|
||||||
|
switch ((PortIndex)port) {
|
||||||
|
case ADELAY_INPUT:
|
||||||
|
adelay->input = (float*)data;
|
||||||
|
break;
|
||||||
|
case ADELAY_OUTPUT:
|
||||||
|
adelay->output = (float*)data;
|
||||||
|
break;
|
||||||
|
case ADELAY_BPM:
|
||||||
|
adelay->atombpm = (const LV2_Atom_Sequence*)data;
|
||||||
|
break;
|
||||||
|
case ADELAY_INV:
|
||||||
|
adelay->inv = (float*)data;
|
||||||
|
break;
|
||||||
|
case ADELAY_SYNC:
|
||||||
|
adelay->sync = (float*)data;
|
||||||
|
break;
|
||||||
|
case ADELAY_TIME:
|
||||||
|
adelay->time = (float*)data;
|
||||||
|
break;
|
||||||
|
case ADELAY_DIVISOR:
|
||||||
|
adelay->divisor = (float*)data;
|
||||||
|
break;
|
||||||
|
case ADELAY_WETDRY:
|
||||||
|
adelay->wetdry = (float*)data;
|
||||||
|
break;
|
||||||
|
case ADELAY_LPF:
|
||||||
|
adelay->lpf = (float*)data;
|
||||||
|
break;
|
||||||
|
case ADELAY_GAIN:
|
||||||
|
adelay->gain = (float*)data;
|
||||||
|
break;
|
||||||
|
case ADELAY_DELAYTIME:
|
||||||
|
adelay->delaytime = (float*)data;
|
||||||
|
break;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
static inline float
|
||||||
|
sanitize_denormal(float value) {
|
||||||
|
if (!isnormal(value)) {
|
||||||
|
value = 0.f;
|
||||||
|
}
|
||||||
|
return value;
|
||||||
|
}
|
||||||
|
|
||||||
|
static inline float
|
||||||
|
from_dB(float gdb) {
|
||||||
|
return (exp(gdb/20.f*log(10.f)));
|
||||||
|
}
|
||||||
|
|
||||||
|
static inline float
|
||||||
|
to_dB(float g) {
|
||||||
|
return (20.f*log10(g));
|
||||||
|
}
|
||||||
|
|
||||||
|
static void clearfilter(LV2_Handle instance)
|
||||||
|
{
|
||||||
|
ADelay* adelay = (ADelay*)instance;
|
||||||
|
|
||||||
|
adelay->state[0] = adelay->state[1] =
|
||||||
|
adelay->state[2] = adelay->state[3] = 0.f;
|
||||||
|
}
|
||||||
|
|
||||||
|
static void
|
||||||
|
activate(LV2_Handle instance)
|
||||||
|
{
|
||||||
|
ADelay* adelay = (ADelay*)instance;
|
||||||
|
|
||||||
|
int i;
|
||||||
|
for (i = 0; i < MAX_DELAY; i++) {
|
||||||
|
adelay->z[i] = 0.f;
|
||||||
|
}
|
||||||
|
adelay->posz = 0;
|
||||||
|
adelay->tap[0] = 0;
|
||||||
|
adelay->tap[1] = 0;
|
||||||
|
adelay->active = 0;
|
||||||
|
adelay->next = 1;
|
||||||
|
adelay->fbstate = 0.f;
|
||||||
|
|
||||||
|
clearfilter(adelay);
|
||||||
|
|
||||||
|
adelay->lpfold = 0.f;
|
||||||
|
adelay->divisorold = 0.f;
|
||||||
|
adelay->gainold = 0.f;
|
||||||
|
adelay->invertold = 0.f;
|
||||||
|
adelay->timeold = 0.f;
|
||||||
|
adelay->delaytimeold = 0.f;
|
||||||
|
adelay->syncold = 0.f;
|
||||||
|
adelay->wetdryold = 0.f;
|
||||||
|
adelay->delaysamplesold = 1.f;
|
||||||
|
}
|
||||||
|
|
||||||
|
static void lpfRbj(LV2_Handle instance, float fc, float srate)
|
||||||
|
{
|
||||||
|
ADelay* adelay = (ADelay*)instance;
|
||||||
|
|
||||||
|
float w0, alpha, cw, sw, q;
|
||||||
|
q = 0.707;
|
||||||
|
w0 = (2. * M_PI * fc / srate);
|
||||||
|
sw = sin(w0);
|
||||||
|
cw = cos(w0);
|
||||||
|
alpha = sw / (2. * q);
|
||||||
|
|
||||||
|
adelay->A0 = 1. + alpha;
|
||||||
|
adelay->A1 = -2. * cw;
|
||||||
|
adelay->A2 = 1. - alpha;
|
||||||
|
adelay->B0 = (1. - cw) / 2.;
|
||||||
|
adelay->B1 = (1. - cw);
|
||||||
|
adelay->B2 = adelay->B0;
|
||||||
|
|
||||||
|
adelay->A3 = 1. + alpha;
|
||||||
|
adelay->A4 = -2. * cw;
|
||||||
|
adelay->A5 = 1. - alpha;
|
||||||
|
adelay->B3 = (1. - cw) / 2.;
|
||||||
|
adelay->B4 = (1. - cw);
|
||||||
|
adelay->B5 = adelay->B3;
|
||||||
|
}
|
||||||
|
|
||||||
|
static float runfilter(LV2_Handle instance, float in)
|
||||||
|
{
|
||||||
|
ADelay* a = (ADelay*)instance;
|
||||||
|
|
||||||
|
float out;
|
||||||
|
in = sanitize_denormal(in);
|
||||||
|
|
||||||
|
out = a->B0/a->A0*in + a->B1/a->A0*a->state[0] + a->B2/a->A0*a->state[1]
|
||||||
|
-a->A1/a->A0*a->state[2] - a->A2/a->A0*a->state[3] + 1e-20;
|
||||||
|
|
||||||
|
a->state[1] = a->state[0];
|
||||||
|
a->state[0] = in;
|
||||||
|
a->state[3] = a->state[2];
|
||||||
|
a->state[2] = out;
|
||||||
|
return out;
|
||||||
|
}
|
||||||
|
|
||||||
|
static void
|
||||||
|
update_bpm(ADelay* self, const LV2_Atom_Object* obj)
|
||||||
|
{
|
||||||
|
const DelayURIs* uris = &self->uris;
|
||||||
|
|
||||||
|
// Received new transport bpm/beatunit
|
||||||
|
LV2_Atom *beatunit = NULL, *bpm = NULL;
|
||||||
|
lv2_atom_object_get(obj,
|
||||||
|
uris->time_beatUnit, &beatunit,
|
||||||
|
uris->time_beatsPerMinute, &bpm,
|
||||||
|
NULL);
|
||||||
|
// Tempo changed, update BPM
|
||||||
|
if (bpm && bpm->type == uris->atom_Float) {
|
||||||
|
self->bpm = ((LV2_Atom_Float*)bpm)->body;
|
||||||
|
}
|
||||||
|
// Time signature changed, update beatunit
|
||||||
|
if (beatunit && beatunit->type == uris->atom_Int) {
|
||||||
|
int b = ((LV2_Atom_Int*)beatunit)->body;
|
||||||
|
self->beatunit = (float)b;
|
||||||
|
}
|
||||||
|
if (beatunit && beatunit->type == uris->atom_Double) {
|
||||||
|
double b = ((LV2_Atom_Double*)beatunit)->body;
|
||||||
|
self->beatunit = (float)b;
|
||||||
|
}
|
||||||
|
if (beatunit && beatunit->type == uris->atom_Float) {
|
||||||
|
self->beatunit = ((LV2_Atom_Float*)beatunit)->body;
|
||||||
|
}
|
||||||
|
if (beatunit && beatunit->type == uris->atom_Long) {
|
||||||
|
long int b = ((LV2_Atom_Long*)beatunit)->body;
|
||||||
|
self->beatunit = (float)b;
|
||||||
|
}
|
||||||
|
self->bpmvalid = 1;
|
||||||
|
}
|
||||||
|
|
||||||
|
static void
|
||||||
|
run(LV2_Handle instance, uint32_t n_samples)
|
||||||
|
{
|
||||||
|
ADelay* adelay = (ADelay*)instance;
|
||||||
|
|
||||||
|
const float* const input = adelay->input;
|
||||||
|
float* const output = adelay->output;
|
||||||
|
|
||||||
|
float srate = adelay->srate;
|
||||||
|
|
||||||
|
uint32_t i;
|
||||||
|
float in;
|
||||||
|
int delaysamples;
|
||||||
|
unsigned int tmp;
|
||||||
|
float inv;
|
||||||
|
float xfade;
|
||||||
|
int recalc;
|
||||||
|
if (*(adelay->inv) < 0.5) {
|
||||||
|
inv = -1.f;
|
||||||
|
} else {
|
||||||
|
inv = 1.f;
|
||||||
|
}
|
||||||
|
|
||||||
|
recalc = 0;
|
||||||
|
if (*(adelay->inv) != adelay->invertold) {
|
||||||
|
recalc = 1;
|
||||||
|
}
|
||||||
|
if (*(adelay->sync) != adelay->syncold) {
|
||||||
|
recalc = 1;
|
||||||
|
}
|
||||||
|
if (*(adelay->time) != adelay->timeold) {
|
||||||
|
recalc = 1;
|
||||||
|
}
|
||||||
|
if (*(adelay->divisor) != adelay->divisorold) {
|
||||||
|
recalc = 1;
|
||||||
|
}
|
||||||
|
if (*(adelay->lpf) != adelay->lpfold) {
|
||||||
|
lpfRbj(adelay, *(adelay->lpf), srate);
|
||||||
|
}
|
||||||
|
if (*(adelay->gain) != adelay->gainold) {
|
||||||
|
recalc = 1;
|
||||||
|
}
|
||||||
|
|
||||||
|
if (recalc) {
|
||||||
|
if (*(adelay->sync) > 0.5f && adelay->bpmvalid) {
|
||||||
|
*(adelay->delaytime) = adelay->beatunit * 1000.f * 60.f / (adelay->bpm * *(adelay->divisor));
|
||||||
|
} else {
|
||||||
|
*(adelay->delaytime) = *(adelay->time);
|
||||||
|
}
|
||||||
|
delaysamples = (int)(*(adelay->delaytime) * srate) / 1000;
|
||||||
|
adelay->tap[adelay->next] = delaysamples;
|
||||||
|
}
|
||||||
|
|
||||||
|
xfade = 0.f;
|
||||||
|
for (i = 0; i < n_samples; i++) {
|
||||||
|
in = input[i];
|
||||||
|
adelay->z[adelay->posz] = in; // + feedb / 100. * fbstate;
|
||||||
|
adelay->fbstate = 0.f;
|
||||||
|
int p = adelay->posz - adelay->tap[adelay->active]; // active line
|
||||||
|
if (p<0) p += MAX_DELAY;
|
||||||
|
adelay->fbstate += adelay->z[p];
|
||||||
|
|
||||||
|
if (recalc) {
|
||||||
|
xfade += 1.0f / (float)n_samples;
|
||||||
|
adelay->fbstate *= (1.-xfade);
|
||||||
|
int p = adelay->posz - adelay->tap[adelay->next]; // next line
|
||||||
|
if (p<0) p += MAX_DELAY;
|
||||||
|
adelay->fbstate += adelay->z[p] * xfade;
|
||||||
|
}
|
||||||
|
output[i] = from_dB(*(adelay->gain)) * ((100.-*(adelay->wetdry)) / 100. * in + *(adelay->wetdry) / 100. * -inv * runfilter(adelay, adelay->fbstate));
|
||||||
|
if (++(adelay->posz) >= MAX_DELAY) {
|
||||||
|
adelay->posz = 0;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
adelay->lpfold = *(adelay->lpf);
|
||||||
|
adelay->divisorold = *(adelay->divisor);
|
||||||
|
adelay->gainold = *(adelay->gain);
|
||||||
|
adelay->invertold = *(adelay->inv);
|
||||||
|
adelay->timeold = *(adelay->time);
|
||||||
|
adelay->syncold = *(adelay->sync);
|
||||||
|
adelay->wetdryold = *(adelay->wetdry);
|
||||||
|
adelay->delaytimeold = *(adelay->delaytime);
|
||||||
|
adelay->delaysamplesold = delaysamples;
|
||||||
|
if (recalc) {
|
||||||
|
tmp = adelay->active;
|
||||||
|
adelay->active = adelay->next;
|
||||||
|
adelay->next = tmp;
|
||||||
|
}
|
||||||
|
|
||||||
|
if (adelay->atombpm) {
|
||||||
|
LV2_Atom_Event* ev = lv2_atom_sequence_begin(&(adelay->atombpm)->body);
|
||||||
|
while(!lv2_atom_sequence_is_end(&(adelay->atombpm)->body, (adelay->atombpm)->atom.size, ev)) {
|
||||||
|
if (ev->body.type == adelay->uris.atom_Blank || ev->body.type == adelay->uris.atom_Object) {
|
||||||
|
const LV2_Atom_Object* obj = (LV2_Atom_Object*)&ev->body;
|
||||||
|
if (obj->body.otype == adelay->uris.time_Position) {
|
||||||
|
update_bpm(adelay, obj);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
ev = lv2_atom_sequence_next(ev);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
static void
|
||||||
|
cleanup(LV2_Handle instance)
|
||||||
|
{
|
||||||
|
free(instance);
|
||||||
|
}
|
||||||
|
|
||||||
|
static const void*
|
||||||
|
extension_data(const char* uri)
|
||||||
|
{
|
||||||
|
return NULL;
|
||||||
|
}
|
||||||
|
|
||||||
|
static const LV2_Descriptor descriptor = {
|
||||||
|
ADELAY_URI,
|
||||||
|
instantiate,
|
||||||
|
connect_port,
|
||||||
|
activate,
|
||||||
|
run,
|
||||||
|
NULL,
|
||||||
|
cleanup,
|
||||||
|
extension_data
|
||||||
|
};
|
||||||
|
|
||||||
|
LV2_SYMBOL_EXPORT
|
||||||
|
const LV2_Descriptor*
|
||||||
|
lv2_descriptor(uint32_t index)
|
||||||
|
{
|
||||||
|
switch (index) {
|
||||||
|
case 0:
|
||||||
|
return &descriptor;
|
||||||
|
default:
|
||||||
|
return NULL;
|
||||||
|
}
|
||||||
|
}
|
||||||
153
libs/plugins/a-delay.lv2/a-delay.ttl.in
Normal file
153
libs/plugins/a-delay.lv2/a-delay.ttl.in
Normal file
@ -0,0 +1,153 @@
|
|||||||
|
@prefix atom: <http://lv2plug.in/ns/ext/atom#> .
|
||||||
|
@prefix doap: <http://usefulinc.com/ns/doap#> .
|
||||||
|
@prefix foaf: <http://xmlns.com/foaf/0.1/> .
|
||||||
|
@prefix lv2: <http://lv2plug.in/ns/lv2core#> .
|
||||||
|
@prefix rdfs: <http://www.w3.org/2000/01/rdf-schema#> .
|
||||||
|
@prefix rsz: <http://lv2plug.in/ns/ext/resize-port#> .
|
||||||
|
@prefix unit: <http://lv2plug.in/ns/extensions/units#> .
|
||||||
|
@prefix rdf: <http://www.w3.org/1999/02/22-rdf-syntax-ns#> .
|
||||||
|
|
||||||
|
<http://ardour.org/credits.html>
|
||||||
|
a foaf:Person ;
|
||||||
|
foaf:name "Ardour Team" ;
|
||||||
|
foaf:homepage <http://ardour.org/> .
|
||||||
|
|
||||||
|
<urn:ardour:a-delay>
|
||||||
|
a lv2:Plugin, doap:Project, lv2:DelayPlugin ;
|
||||||
|
|
||||||
|
lv2:optionalFeature <http://lv2plug.in/ns/lv2core#hardRTCapable>;
|
||||||
|
|
||||||
|
lv2:requiredFeature <http://lv2plug.in/ns/ext/options#options> ,
|
||||||
|
<http://lv2plug.in/ns/ext/urid#map> ;
|
||||||
|
|
||||||
|
lv2:port [
|
||||||
|
a lv2:InputPort, lv2:AudioPort ;
|
||||||
|
lv2:index 0 ;
|
||||||
|
lv2:symbol "in_1" ;
|
||||||
|
lv2:name "Audio Input 1" ;
|
||||||
|
] ;
|
||||||
|
|
||||||
|
lv2:port [
|
||||||
|
a lv2:OutputPort, lv2:AudioPort ;
|
||||||
|
lv2:index 1 ;
|
||||||
|
lv2:symbol "out_1" ;
|
||||||
|
lv2:name "Audio Output 1" ;
|
||||||
|
] ;
|
||||||
|
|
||||||
|
lv2:port [
|
||||||
|
a lv2:InputPort, atom:AtomPort ;
|
||||||
|
lv2:index 2 ;
|
||||||
|
lv2:name "BPM Input" ;
|
||||||
|
lv2:symbol "bpm_in" ;
|
||||||
|
rsz:minimumSize 2048 ;
|
||||||
|
atom:bufferType atom:Sequence ;
|
||||||
|
atom:supports <http://lv2plug.in/ns/ext/time#Position> ;
|
||||||
|
] ;
|
||||||
|
|
||||||
|
lv2:port [
|
||||||
|
a lv2:InputPort, lv2:ControlPort ;
|
||||||
|
lv2:index 3 ;
|
||||||
|
lv2:name "Invert" ;
|
||||||
|
lv2:symbol "inv" ;
|
||||||
|
lv2:default 0.000000 ;
|
||||||
|
lv2:minimum 0.000000 ;
|
||||||
|
lv2:maximum 1.000000 ;
|
||||||
|
lv2:portProperty lv2:toggled ;
|
||||||
|
] ,
|
||||||
|
[
|
||||||
|
a lv2:InputPort, lv2:ControlPort ;
|
||||||
|
lv2:index 4 ;
|
||||||
|
lv2:name "Sync BPM" ;
|
||||||
|
lv2:symbol "sync" ;
|
||||||
|
lv2:default 0.000000 ;
|
||||||
|
lv2:minimum 0.000000 ;
|
||||||
|
lv2:maximum 1.000000 ;
|
||||||
|
lv2:portProperty lv2:toggled ;
|
||||||
|
] ,
|
||||||
|
[
|
||||||
|
a lv2:InputPort, lv2:ControlPort ;
|
||||||
|
lv2:index 5 ;
|
||||||
|
lv2:name "Time" ;
|
||||||
|
lv2:symbol "time" ;
|
||||||
|
lv2:default 160.000000 ;
|
||||||
|
lv2:minimum 1.000000 ;
|
||||||
|
lv2:maximum 8000.000000 ;
|
||||||
|
unit:unit unit:ms ;
|
||||||
|
lv2:portProperty <http://lv2plug.in/ns/ext/port-props#logarithmic> ;
|
||||||
|
] ,
|
||||||
|
[
|
||||||
|
a lv2:InputPort, lv2:ControlPort ;
|
||||||
|
lv2:index 6 ;
|
||||||
|
lv2:name "Divisor" ;
|
||||||
|
lv2:symbol "div" ;
|
||||||
|
lv2:default 4 ;
|
||||||
|
lv2:minimum 1 ;
|
||||||
|
lv2:maximum 48 ;
|
||||||
|
lv2:portProperty <http://lv2plug.in/ns/ext/port-props#hasStrictBounds> ;
|
||||||
|
lv2:portProperty lv2:enumeration ;
|
||||||
|
lv2:portProperty lv2:integer ;
|
||||||
|
lv2:scalePoint [ rdfs:label "a - Whole note"; rdf:value 1 ] ;
|
||||||
|
lv2:scalePoint [ rdfs:label "b - Half note"; rdf:value 2 ] ;
|
||||||
|
lv2:scalePoint [ rdfs:label "c - ♩"; rdf:value 4 ] ;
|
||||||
|
lv2:scalePoint [ rdfs:label "d - ♪"; rdf:value 8 ] ;
|
||||||
|
lv2:scalePoint [ rdfs:label "e - ♬"; rdf:value 16 ] ;
|
||||||
|
lv2:scalePoint [ rdfs:label "f - 32nd note"; rdf:value 32 ] ;
|
||||||
|
lv2:scalePoint [ rdfs:label "g - ♩³ (Triplet)"; rdf:value 6 ] ;
|
||||||
|
lv2:scalePoint [ rdfs:label "h - ♪³ (Triplet)"; rdf:value 12 ] ;
|
||||||
|
lv2:scalePoint [ rdfs:label "i - ♬³ (Triplet)"; rdf:value 24 ] ;
|
||||||
|
lv2:scalePoint [ rdfs:label "j - 32nd note (Triplet)"; rdf:value 48 ] ;
|
||||||
|
] ,
|
||||||
|
[
|
||||||
|
a lv2:InputPort, lv2:ControlPort ;
|
||||||
|
lv2:index 7 ;
|
||||||
|
lv2:name "Dry/Wet" ;
|
||||||
|
lv2:symbol "drywet" ;
|
||||||
|
lv2:default 50.000000 ;
|
||||||
|
lv2:minimum 0.000000 ;
|
||||||
|
lv2:maximum 100.000000 ;
|
||||||
|
unit:unit unit:pc ;
|
||||||
|
] ,
|
||||||
|
[
|
||||||
|
a lv2:InputPort, lv2:ControlPort ;
|
||||||
|
lv2:index 8 ;
|
||||||
|
lv2:name "LPF" ;
|
||||||
|
lv2:symbol "lpf" ;
|
||||||
|
lv2:default 6000.000000 ;
|
||||||
|
lv2:minimum 20.000000 ;
|
||||||
|
lv2:maximum 20000.000000 ;
|
||||||
|
unit:unit unit:hz ;
|
||||||
|
lv2:portProperty <http://lv2plug.in/ns/ext/port-props#logarithmic> ;
|
||||||
|
] ,
|
||||||
|
[
|
||||||
|
a lv2:InputPort, lv2:ControlPort ;
|
||||||
|
lv2:index 9 ;
|
||||||
|
lv2:name "Output Gain" ;
|
||||||
|
lv2:symbol "gain" ;
|
||||||
|
lv2:default 0.000000 ;
|
||||||
|
lv2:minimum -60.000000 ;
|
||||||
|
lv2:maximum 0.000000 ;
|
||||||
|
unit:unit unit:db ;
|
||||||
|
] ,
|
||||||
|
[
|
||||||
|
a lv2:OutputPort, lv2:ControlPort ;
|
||||||
|
lv2:index 10 ;
|
||||||
|
lv2:name "Delaytime" ;
|
||||||
|
lv2:symbol "delaytime" ;
|
||||||
|
lv2:default 0.000000 ;
|
||||||
|
lv2:minimum 1.000000 ;
|
||||||
|
lv2:maximum 8000.000000 ;
|
||||||
|
unit:unit unit:ms ;
|
||||||
|
] ;
|
||||||
|
|
||||||
|
rdfs:comment """
|
||||||
|
A simple delay plugin
|
||||||
|
""" ;
|
||||||
|
|
||||||
|
doap:name "a-Delay" ;
|
||||||
|
doap:license "GPL v2+" ;
|
||||||
|
doap:maintainer <http://ardour.org/credits.html>
|
||||||
|
|
||||||
|
# ui:ui <urn:ardour:a-delay#ui>;
|
||||||
|
|
||||||
|
lv2:microVersion 1 ;
|
||||||
|
lv2:minorVersion 1 .
|
||||||
20
libs/plugins/a-delay.lv2/manifest.ttl.in
Normal file
20
libs/plugins/a-delay.lv2/manifest.ttl.in
Normal file
@ -0,0 +1,20 @@
|
|||||||
|
@prefix lv2: <http://lv2plug.in/ns/lv2core#> .
|
||||||
|
@prefix rdfs: <http://www.w3.org/2000/01/rdf-schema#> .
|
||||||
|
@prefix pset: <http://lv2plug.in/ns/ext/presets#> .
|
||||||
|
@prefix ui: <http://lv2plug.in/ns/extensions/ui#> .
|
||||||
|
|
||||||
|
<urn:ardour:a-delay>
|
||||||
|
a lv2:Plugin ;
|
||||||
|
lv2:binary <a-delay@LIB_EXT@> ;
|
||||||
|
rdfs:seeAlso <a-delay.ttl> .
|
||||||
|
|
||||||
|
#<urn:ardour:a-delay#ui>
|
||||||
|
# a ui:GtkUI ;
|
||||||
|
# ui:binary <a-delay-ui@LIB_EXT@> ;
|
||||||
|
# rdfs:seeAlso <a-delay.ttl> .
|
||||||
|
|
||||||
|
<urn:ardour:a-delay#preset001>
|
||||||
|
a pset:Preset ;
|
||||||
|
lv2:appliesTo <urn:ardour:a-delay> ;
|
||||||
|
rdfs:label "Zero" ;
|
||||||
|
rdfs:seeAlso <presets.ttl> .
|
||||||
38
libs/plugins/a-delay.lv2/presets.ttl.in
Normal file
38
libs/plugins/a-delay.lv2/presets.ttl.in
Normal file
@ -0,0 +1,38 @@
|
|||||||
|
@prefix lv2: <http://lv2plug.in/ns/lv2core#> .
|
||||||
|
@prefix pset: <http://lv2plug.in/ns/ext/presets#> .
|
||||||
|
|
||||||
|
<urn:ardour:a-delay#preset001>
|
||||||
|
lv2:port [
|
||||||
|
lv2:symbol "inv" ;
|
||||||
|
pset:value 0.000000 ;
|
||||||
|
] ,
|
||||||
|
[
|
||||||
|
lv2:symbol "sync" ;
|
||||||
|
pset:value 0.000000 ;
|
||||||
|
] ,
|
||||||
|
[
|
||||||
|
lv2:symbol "time" ;
|
||||||
|
pset:value 160.000000 ;
|
||||||
|
] ,
|
||||||
|
[
|
||||||
|
lv2:symbol "div" ;
|
||||||
|
pset:value 3 ;
|
||||||
|
] ,
|
||||||
|
[
|
||||||
|
lv2:symbol "drywet" ;
|
||||||
|
pset:value 50.000000 ;
|
||||||
|
] ,
|
||||||
|
[
|
||||||
|
lv2:symbol "lpf" ;
|
||||||
|
pset:value 6000.000000 ;
|
||||||
|
] ,
|
||||||
|
[
|
||||||
|
lv2:symbol "gain" ;
|
||||||
|
pset:value 0.000000 ;
|
||||||
|
] ,
|
||||||
|
[
|
||||||
|
lv2:symbol "delaytime" ;
|
||||||
|
pset:value 0.000000 ;
|
||||||
|
] .
|
||||||
|
|
||||||
|
|
||||||
52
libs/plugins/a-delay.lv2/wscript
Normal file
52
libs/plugins/a-delay.lv2/wscript
Normal file
@ -0,0 +1,52 @@
|
|||||||
|
#!/usr/bin/env python
|
||||||
|
import os
|
||||||
|
import re
|
||||||
|
import shutil
|
||||||
|
import waflib.extras.autowaf as autowaf
|
||||||
|
import waflib.Options as Options, waflib.Utils as Utils
|
||||||
|
|
||||||
|
# Mandatory variables
|
||||||
|
top = '.'
|
||||||
|
out = 'build'
|
||||||
|
|
||||||
|
def options(opt):
|
||||||
|
autowaf.set_options(opt)
|
||||||
|
|
||||||
|
def configure(conf):
|
||||||
|
conf.load('compiler_c')
|
||||||
|
autowaf.configure(conf)
|
||||||
|
if Options.options.lv2:
|
||||||
|
autowaf.check_pkg(conf, 'lv2', atleast_version='1.0.0',
|
||||||
|
uselib_store='LV2_1_0_0')
|
||||||
|
autowaf.check_pkg(conf, 'cairo', uselib_store='CAIRO', atleast_version='1.12.0')
|
||||||
|
|
||||||
|
def build(bld):
|
||||||
|
bundle = 'a-delay.lv2'
|
||||||
|
module_pat = re.sub('^lib', '', bld.env.cshlib_PATTERN)
|
||||||
|
module_ext = module_pat[module_pat.rfind('.'):]
|
||||||
|
|
||||||
|
if bld.is_defined ('HAVE_LV2'):
|
||||||
|
# Build RDF files
|
||||||
|
for i in ['manifest.ttl', 'a-delay.ttl', 'presets.ttl']:
|
||||||
|
bld(features = 'subst',
|
||||||
|
source = i + '.in',
|
||||||
|
target = '../../LV2/%s/%s' % (bundle, i),
|
||||||
|
install_path = '${LV2DIR}/%s' % bundle,
|
||||||
|
chmod = Utils.O644,
|
||||||
|
LIB_EXT = module_ext)
|
||||||
|
|
||||||
|
# Build plugin library
|
||||||
|
obj = bld(features = 'c cshlib',
|
||||||
|
source = 'a-delay.c',
|
||||||
|
name = 'a-delay',
|
||||||
|
cflags = [ '-fPIC', bld.env['compiler_flags_dict']['c99'] ],
|
||||||
|
includes = [ '../../ardour' ],
|
||||||
|
target = '../../LV2/%s/a-delay' % bundle,
|
||||||
|
install_path = '${LV2DIR}/%s' % bundle,
|
||||||
|
uselib = 'CAIRO',
|
||||||
|
use = 'LV2_1_0_0'
|
||||||
|
)
|
||||||
|
obj.env.cshlib_PATTERN = module_pat
|
||||||
|
obj.env.cxxshlib_PATTERN = module_pat
|
||||||
|
|
||||||
|
# vi:set ts=4 sw=4 et:
|
||||||
1
wscript
1
wscript
@ -220,6 +220,7 @@ children = [
|
|||||||
'libs/canvas',
|
'libs/canvas',
|
||||||
'libs/plugins/reasonablesynth.lv2',
|
'libs/plugins/reasonablesynth.lv2',
|
||||||
'libs/plugins/a-comp.lv2',
|
'libs/plugins/a-comp.lv2',
|
||||||
|
'libs/plugins/a-delay.lv2',
|
||||||
'gtk2_ardour',
|
'gtk2_ardour',
|
||||||
'export',
|
'export',
|
||||||
'midi_maps',
|
'midi_maps',
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user