From 3620122ad0cbb77ab809047c3bcf48b7b7c8090b Mon Sep 17 00:00:00 2001 From: Johannes Mueller Date: Wed, 2 Aug 2017 22:26:08 +0200 Subject: [PATCH] First draft of a-expander --- libs/plugins/a-exp.lv2/a-exp#stereo.ttl.in | 168 ++++ libs/plugins/a-exp.lv2/a-exp.c | 920 +++++++++++++++++++++ libs/plugins/a-exp.lv2/a-exp.ttl.in | 156 ++++ libs/plugins/a-exp.lv2/manifest.ttl.in | 13 + libs/plugins/a-exp.lv2/wscript | 51 ++ wscript | 1 + 6 files changed, 1309 insertions(+) create mode 100644 libs/plugins/a-exp.lv2/a-exp#stereo.ttl.in create mode 100644 libs/plugins/a-exp.lv2/a-exp.c create mode 100644 libs/plugins/a-exp.lv2/a-exp.ttl.in create mode 100644 libs/plugins/a-exp.lv2/manifest.ttl.in create mode 100644 libs/plugins/a-exp.lv2/wscript diff --git a/libs/plugins/a-exp.lv2/a-exp#stereo.ttl.in b/libs/plugins/a-exp.lv2/a-exp#stereo.ttl.in new file mode 100644 index 0000000000..6c79a0c094 --- /dev/null +++ b/libs/plugins/a-exp.lv2/a-exp#stereo.ttl.in @@ -0,0 +1,168 @@ +@prefix doap: . +@prefix foaf: . +@prefix lv2: . +@prefix rdfs: . +@prefix rsz: . +@prefix unit: . + + + a foaf:Person ; + foaf:name "Ardour Team" ; + foaf:homepage . + + + a lv2:Plugin, doap:Project, lv2:ExpanderPlugin ; + + lv2:optionalFeature ; + lv2:optionalFeature ; + lv2:optionalFeature ; + + lv2:port [ + a lv2:InputPort, lv2:ControlPort ; + lv2:index 0 ; + lv2:name "Attack" ; + lv2:symbol "att" ; + lv2:default 10.000000 ; + lv2:minimum 0.100000 ; + lv2:maximum 100.000000 ; + unit:unit unit:ms ; + ] , + [ + a lv2:InputPort, lv2:ControlPort ; + lv2:index 1 ; + lv2:name "Release" ; + lv2:symbol "rel" ; + lv2:default 80.000000 ; + lv2:minimum 1.000000 ; + lv2:maximum 2000.000000 ; + unit:unit unit:ms ; + ] , + [ + a lv2:InputPort, lv2:ControlPort ; + lv2:index 2 ; + lv2:name "Knee" ; + lv2:symbol "kn" ; + lv2:default 0.000000 ; + lv2:minimum 0.000000 ; + lv2:maximum 8.000000 ; + unit:unit unit:db ; + ] , + [ + a lv2:InputPort, lv2:ControlPort ; + lv2:index 3 ; + lv2:name "Ratio" ; + lv2:symbol "rat" ; + lv2:default 4.000000 ; + lv2:minimum 1.000000 ; + lv2:maximum 20.000000 ; + unit:unit [ + rdfs:label " " ; + unit:symbol " " ; + unit:render "%f " ; + ] ; + lv2:portProperty ; + ] , + [ + a lv2:InputPort, lv2:ControlPort ; + lv2:index 4 ; + lv2:name "Threshold" ; + lv2:symbol "thr" ; + lv2:default 0.000000 ; + lv2:minimum -60.000000 ; + lv2:maximum 0.000000 ; + unit:unit unit:db ; + ] , + [ + a lv2:InputPort, lv2:ControlPort ; + lv2:index 5 ; + lv2:name "Makeup" ; + lv2:symbol "mak" ; + lv2:default 0.000000 ; + lv2:minimum 0.000000 ; + lv2:maximum 30.000000 ; + unit:unit unit:db ; + ] , + [ + a lv2:OutputPort, lv2:ControlPort ; + lv2:index 6 ; + lv2:name "Gain Reduction" ; + lv2:symbol "gr" ; + lv2:default 0.000000 ; + lv2:minimum 0.000000 ; + lv2:maximum 45.000000 ; + unit:unit unit:db ; + ] , + [ + a lv2:OutputPort, lv2:ControlPort ; + lv2:index 7 ; + lv2:name "Output Level" ; + lv2:symbol "outlevel" ; + lv2:default -45.000000 ; + lv2:minimum -45.000000 ; + lv2:maximum 0.000000 ; + unit:unit unit:db ; + ] , + [ + a lv2:InputPort, lv2:ControlPort ; + lv2:index 8 ; + lv2:name "Sidechain" ; + lv2:symbol "sidech" ; + lv2:default 0.000000 ; + lv2:minimum 0.000000 ; + lv2:maximum 1.000000 ; + lv2:portProperty lv2:integer, lv2:toggled ; + ] , + [ + a lv2:InputPort, lv2:ControlPort ; + lv2:index 9 ; + lv2:name "Enable" ; + lv2:symbol "enable" ; + lv2:default 1 ; + lv2:minimum 0 ; + lv2:maximum 1 ; + lv2:portProperty lv2:integer, lv2:toggled ; + lv2:designation lv2:enabled; + ]; + + lv2:port [ + a lv2:InputPort, lv2:AudioPort ; + lv2:index 10 ; + lv2:symbol "lv2_audio_in_1" ; + lv2:name "Audio Input 1" ; + ] , + [ + a lv2:InputPort, lv2:AudioPort ; + lv2:index 11 ; + lv2:symbol "lv2_audio_in_2" ; + lv2:name "Audio Input 2" ; + ] , + [ + a lv2:InputPort, lv2:AudioPort ; + lv2:index 12 ; + lv2:symbol "lv2_sidechain_in" ; + lv2:name "Sidechain Input" ; + lv2:portProperty lv2:isSideChain ; + ], + [ + a lv2:OutputPort, lv2:AudioPort ; + lv2:index 13 ; + lv2:symbol "lv2_audio_out_1" ; + lv2:name "Audio Output 1" ; + ], + [ + a lv2:OutputPort, lv2:AudioPort ; + lv2:index 14 ; + lv2:symbol "lv2_audio_out_2" ; + lv2:name "Audio Output 2" ; + ] ; + + rdfs:comment """ +A powerful stereo expander +""" ; + + doap:name "a-Expander stereo" ; + doap:license ; + doap:maintainer ; + + lv2:microVersion 1 ; + lv2:minorVersion 1 . diff --git a/libs/plugins/a-exp.lv2/a-exp.c b/libs/plugins/a-exp.lv2/a-exp.c new file mode 100644 index 0000000000..d89ce7ad25 --- /dev/null +++ b/libs/plugins/a-exp.lv2/a-exp.c @@ -0,0 +1,920 @@ +/* a-exp + * Copyright (C) 2017 Johannes Mueller + * based on a-comp (C) 2016 Damien Zammit + * + * 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 +#include +#include +#include + +#ifdef LV2_EXTENDED +#include +#include "ardour/lv2_extensions.h" +#endif + +#include "lv2/lv2plug.in/ns/lv2core/lv2.h" + +#define AEXP_URI "urn:ardour:a-exp" +#define AEXP_STEREO_URI "urn:ardour:a-exp#stereo" + +#ifndef M_PI +# define M_PI 3.14159265358979323846 +#endif + +#ifdef COMPILER_MSVC +#include +#define isfinite_local(val) (bool)_finite((double)val) +#else +#define isfinite_local isfinite +#endif + +typedef enum { + AEXP_ATTACK = 0, + AEXP_RELEASE, + AEXP_KNEE, + AEXP_RATIO, + AEXP_THRESHOLD, + AEXP_MAKEUP, + + AEXP_GAINR, + AEXP_OUTLEVEL, + AEXP_SIDECHAIN, + AEXP_ENABLE, + + AEXP_A0, + AEXP_A1, + AEXP_A2, + AEXP_A3, + AEXP_A4, +} PortIndex; + +typedef struct { + float* attack; + float* release; + float* knee; + float* ratio; + float* thresdb; + float* makeup; + + float* gainr; + float* outlevel; + float* sidechain; + float* enable; + + float* input0; + float* input1; + float* sc; + float* output0; + float* output1; + + float srate; + float old_yl; + float old_y1; + float old_yg; + + float makeup_gain; + float tau; + +#ifdef LV2_EXTENDED + LV2_Inline_Display_Image_Surface surf; + bool need_expose; + cairo_surface_t* display; + LV2_Inline_Display* queue_draw; + uint32_t w, h; + + /* ports pointers are only valid during run so we'll + * have to cache them for the display, besides + * we do want to check for changes + */ + float v_knee; + float v_ratio; + float v_thresdb; + float v_gainr; + float v_makeup; + float v_lvl; + float v_lv1; + float v_lvl_in; + float v_lvl_out; +#endif +} AExp; + +static LV2_Handle +instantiate(const LV2_Descriptor* descriptor, + double rate, + const char* bundle_path, + const LV2_Feature* const* features) +{ + AExp* aexp = (AExp*)calloc(1, sizeof(AExp)); + + for (int i=0; features[i]; ++i) { +#ifdef LV2_EXTENDED + if (!strcmp(features[i]->URI, LV2_INLINEDISPLAY__queue_draw)) { + aexp->queue_draw = (LV2_Inline_Display*) features[i]->data; + } +#endif + } + + aexp->srate = rate; + aexp->old_yl=aexp->old_y1=aexp->old_yg=0.f; + aexp->tau = (1.0 - exp (-2.f * M_PI * 25.f / aexp->srate)); +#ifdef LV2_EXTENDED + aexp->need_expose = true; + aexp->v_lvl_out = -70.f; +#endif + + return (LV2_Handle)aexp; +} + +static void +connect_port(LV2_Handle instance, + uint32_t port, + void* data) +{ + AExp* aexp = (AExp*)instance; + + switch ((PortIndex)port) { + case AEXP_ATTACK: + aexp->attack = (float*)data; + break; + case AEXP_RELEASE: + aexp->release = (float*)data; + break; + case AEXP_KNEE: + aexp->knee = (float*)data; + break; + case AEXP_RATIO: + aexp->ratio = (float*)data; + break; + case AEXP_THRESHOLD: + aexp->thresdb = (float*)data; + break; + case AEXP_MAKEUP: + aexp->makeup = (float*)data; + break; + case AEXP_GAINR: + aexp->gainr = (float*)data; + break; + case AEXP_OUTLEVEL: + aexp->outlevel = (float*)data; + break; + case AEXP_SIDECHAIN: + aexp->sidechain = (float*)data; + break; + case AEXP_ENABLE: + aexp->enable = (float*)data; + break; + default: + break; + } +} + +static void +connect_mono(LV2_Handle instance, + uint32_t port, + void* data) +{ + AExp* aexp = (AExp*)instance; + connect_port (instance, port, data); + + switch ((PortIndex)port) { + case AEXP_A0: + aexp->input0 = (float*)data; + break; + case AEXP_A1: + aexp->sc = (float*)data; + break; + case AEXP_A2: + aexp->output0 = (float*)data; + break; + default: + break; + } +} + +static void +connect_stereo(LV2_Handle instance, + uint32_t port, + void* data) +{ + AExp* aexp = (AExp*)instance; + connect_port (instance, port, data); + + switch ((PortIndex)port) { + case AEXP_A0: + aexp->input0 = (float*)data; + break; + case AEXP_A1: + aexp->input1 = (float*)data; + break; + case AEXP_A2: + aexp->sc = (float*)data; + break; + case AEXP_A3: + aexp->output0 = (float*)data; + break; + case AEXP_A4: + aexp->output1 = (float*)data; + break; + default: + break; + } +} + +// Force already-denormal float value to zero +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 +activate(LV2_Handle instance) +{ + AExp* aexp = (AExp*)instance; + + *(aexp->gainr) = 0.0f; + *(aexp->outlevel) = -45.0f; + aexp->old_yl=aexp->old_y1=aexp->old_yg=0.f; +} + +static void +run_mono(LV2_Handle instance, uint32_t n_samples) +{ + AExp* aexp = (AExp*)instance; + + const float* const input = aexp->input0; + const float* const sc = aexp->sc; + float* const output = aexp->output0; + + float srate = aexp->srate; + float width = (6.f * *(aexp->knee)) + 0.01; + float cdb=0.f; + float attack_coeff = exp(-1000.f/(*(aexp->attack) * srate)); + float release_coeff = exp(-1000.f/(*(aexp->release) * srate)); + + float max = 0.f; + float lgaininp = 0.f; + float Lgain = 1.f; + float Lxg, Lxl, Lyg, Lyl, Ly1; + int usesidechain = (*(aexp->sidechain) <= 0.f) ? 0 : 1; + uint32_t i; + float ingain; + float in0; + float sc0; + + float ratio = *aexp->ratio; + float thresdb = *aexp->thresdb; + float makeup = *aexp->makeup; + float makeup_target = from_dB(makeup); + float makeup_gain = aexp->makeup_gain; + + const float tau = aexp->tau; + + if (*aexp->enable <= 0) { + ratio = 1.f; + thresdb = 0.f; + makeup = 0.f; + makeup_target = 1.f; + } + +#ifdef LV2_EXTENDED + if (aexp->v_knee != *aexp->knee) { + aexp->v_knee = *aexp->knee; + aexp->need_expose = true; + } + + if (aexp->v_ratio != ratio) { + aexp->v_ratio = ratio; + aexp->need_expose = true; + } + + if (aexp->v_thresdb != thresdb) { + aexp->v_thresdb = thresdb; + aexp->need_expose = true; + } + + if (aexp->v_makeup != makeup) { + aexp->v_makeup = makeup; + aexp->need_expose = true; + } +#endif + + float in_peak = 0; + aexp->v_gainr = 0.0; + + for (i = 0; i < n_samples; i++) { + in0 = input[i]; + sc0 = sc[i]; + ingain = usesidechain ? fabs(sc0) : fabs(in0); + in_peak = fmaxf (in_peak, ingain); + Lyg = 0.f; + Lxg = (ingain==0.f) ? -160.f : to_dB(ingain); + Lxg = sanitize_denormal(Lxg); + + if (2.f*(Lxg-thresdb) < -width) { + Lyg = thresdb + (Lxg-thresdb) * ratio; + Lyg = sanitize_denormal(Lyg); + } else if (2.f*(Lxg-thresdb) > width) { + Lyg = Lxg; + } else { + Lyg = Lxg + (1.f-ratio)*(Lxg-thresdb-width/2.f)*(Lxg-thresdb-width/2.f)/(2.f*width); + } + + Lxl = Lxg - Lyg; + + aexp->old_y1 = sanitize_denormal(aexp->old_y1); + aexp->old_yl = sanitize_denormal(aexp->old_yl); + Ly1 = fminf(Lxl, release_coeff * aexp->old_y1+(1.f-release_coeff)*Lxl); + Lyl = attack_coeff * aexp->old_yl+(1.f-attack_coeff)*Ly1; + Ly1 = sanitize_denormal(Ly1); + Lyl = sanitize_denormal(Lyl); + + cdb = -Lyl; + Lgain = from_dB(cdb); + + *(aexp->gainr) = Lyl; + if (Lyl > aexp->v_gainr) { + aexp->v_gainr = Lyl; + } + + lgaininp = in0 * Lgain; + + makeup_gain += tau * (makeup_target - makeup_gain) + 1e-12; + output[i] = lgaininp * makeup_gain; + + max = (fabsf(output[i]) > max) ? fabsf(output[i]) : sanitize_denormal(max); + + // TODO re-use local variables on stack + // store values back to aexp at the end of the inner-loop + aexp->old_yl = Lyl; + aexp->old_y1 = Ly1; + aexp->old_yg = Lyg; + } + + *(aexp->outlevel) = (max < 0.0056f) ? -45.f : to_dB(max); + aexp->makeup_gain = makeup_gain; + +#ifdef LV2_EXTENDED + const float old_v_lv1 = aexp->v_lv1; + const float old_v_lvl = aexp->v_lvl; + const float tot_rel_c = exp(-1000.f/(*(aexp->release) * srate) * n_samples); + const float tot_atk_c = exp(-1000.f/(*(aexp->attack) * srate) * n_samples); + aexp->v_lv1 = fmaxf (in_peak, tot_rel_c*old_v_lv1 + (1.f-tot_rel_c)*in_peak); + aexp->v_lvl = tot_atk_c*old_v_lvl + (1.f-tot_atk_c)*aexp->v_lv1; + + if (!isfinite_local (aexp->v_lvl)) { + aexp->v_lvl = 0.f; + } + const float v_lvl_in = (aexp->v_lvl < 0.001f) ? -60.f : to_dB(aexp->v_lvl); + const float v_lvl_out = (max < 0.001f) ? -60.f : to_dB(max); + if (fabsf (aexp->v_lvl_out - v_lvl_out) >= 1 || fabsf (aexp->v_lvl_in - v_lvl_in) >= 1) { + // >= 1dB difference + aexp->need_expose = true; + aexp->v_lvl_in = v_lvl_in; + const float relax_coef = exp(-(float)n_samples/srate); + aexp->v_lvl_out = fmaxf (v_lvl_out, relax_coef*aexp->v_lvl_out + (1.f-relax_coef)*v_lvl_out); + } + if (aexp->need_expose && aexp->queue_draw) { + aexp->need_expose = false; + aexp->queue_draw->queue_draw (aexp->queue_draw->handle); + } +#endif +} + + +static void +run_stereo(LV2_Handle instance, uint32_t n_samples) +{ + AExp* aexp = (AExp*)instance; + + const float* const input0 = aexp->input0; + const float* const input1 = aexp->input1; + const float* const sc = aexp->sc; + float* const output0 = aexp->output0; + float* const output1 = aexp->output1; + + float srate = aexp->srate; + float width = (6.f * *(aexp->knee)) + 0.01; + float cdb=0.f; + float attack_coeff = exp(-1000.f/(*(aexp->attack) * srate)); + float release_coeff = exp(-1000.f/(*(aexp->release) * srate)); + + float max = 0.f; + float lgaininp = 0.f; + float rgaininp = 0.f; + float Lgain = 1.f; + float Lxg, Lxl, Lyg, Lyl, Ly1; + int usesidechain = (*(aexp->sidechain) <= 0.f) ? 0 : 1; + uint32_t i; + float ingain; + float in0; + float in1; + float sc0; + float maxabslr; + + float ratio = *aexp->ratio; + float thresdb = *aexp->thresdb; + float makeup = *aexp->makeup; + float makeup_target = from_dB(makeup); + float makeup_gain = aexp->makeup_gain; + + const float tau = aexp->tau; + + if (*aexp->enable <= 0) { + ratio = 1.f; + thresdb = 0.f; + makeup = 0.f; + makeup_target = 1.f; + } + +#ifdef LV2_EXTENDED + if (aexp->v_knee != *aexp->knee) { + aexp->v_knee = *aexp->knee; + aexp->need_expose = true; + } + + if (aexp->v_ratio != ratio) { + aexp->v_ratio = ratio; + aexp->need_expose = true; + } + + if (aexp->v_thresdb != thresdb) { + aexp->v_thresdb = thresdb; + aexp->need_expose = true; + } + + if (aexp->v_makeup != makeup) { + aexp->v_makeup = makeup; + aexp->need_expose = true; + } +#endif + + float in_peak = 0; + aexp->v_gainr = 0.0; + + for (i = 0; i < n_samples; i++) { + in0 = input0[i]; + in1 = input1[i]; + sc0 = sc[i]; + maxabslr = fmaxf(fabs(in0), fabs(in1)); + ingain = usesidechain ? fabs(sc0) : maxabslr; + in_peak = fmaxf (in_peak, ingain); + Lyg = 0.f; + Lxg = (ingain==0.f) ? -160.f : to_dB(ingain); + Lxg = sanitize_denormal(Lxg); + + if (2.f*(Lxg-thresdb) < -width) { + Lyg = thresdb + (Lxg-thresdb) * ratio; + Lyg = sanitize_denormal(Lyg); + } else if (2.f*(Lxg-thresdb) > width) { + Lyg = Lxg; + } else { + Lyg = Lxg + (1.f-ratio)*(Lxg-thresdb-width/2.f)*(Lxg-thresdb-width/2.f)/(2.f*width); + } + + Lxl = Lxg - Lyg; + + aexp->old_y1 = sanitize_denormal(aexp->old_y1); + aexp->old_yl = sanitize_denormal(aexp->old_yl); + Ly1 = fminf(Lxl, release_coeff * aexp->old_y1+(1.f-release_coeff)*Lxl); + Lyl = attack_coeff * aexp->old_yl+(1.f-attack_coeff)*Ly1; + Ly1 = sanitize_denormal(Ly1); + Lyl = sanitize_denormal(Lyl); + + cdb = -Lyl; + Lgain = from_dB(cdb); + + *(aexp->gainr) = Lyl; + if (Lyl > aexp->v_gainr) { + aexp->v_gainr = Lyl; + } + + lgaininp = in0 * Lgain; + rgaininp = in1 * Lgain; + + makeup_gain += tau * (makeup_target - makeup_gain) + 1e-12; + + output0[i] = lgaininp * makeup_gain; + output1[i] = rgaininp * makeup_gain; + + max = (fmaxf(fabs(output0[i]), fabs(output1[i])) > max) ? fmaxf(fabs(output0[i]), fabs(output1[i])) : sanitize_denormal(max); + + // TODO re-use local variables on stack + // store values back to aexp at the end of the inner-loop + aexp->old_yl = Lyl; + aexp->old_y1 = Ly1; + aexp->old_yg = Lyg; + } + + *(aexp->outlevel) = (max < 0.0056f) ? -45.f : to_dB(max); + aexp->makeup_gain = makeup_gain; + +#ifdef LV2_EXTENDED + const float old_v_lv1 = aexp->v_lv1; + const float old_v_lvl = aexp->v_lvl; + const float tot_rel_c = exp(-1000.f/(*(aexp->release) * srate) * n_samples); + const float tot_atk_c = exp(-1000.f/(*(aexp->attack) * srate) * n_samples); + aexp->v_lv1 = fmaxf (in_peak, tot_rel_c*old_v_lv1 + (1.f-tot_rel_c)*in_peak); + aexp->v_lvl = tot_atk_c*old_v_lvl + (1.f-tot_atk_c)*aexp->v_lv1; + if (!isfinite_local (aexp->v_lvl)) { + aexp->v_lvl = 0.f; + } + const float v_lvl_in = (aexp->v_lvl < 0.001f) ? -60.f : to_dB(aexp->v_lvl); + const float v_lvl_out = (max < 0.001f) ? -60.f : to_dB(max); + if (fabsf (aexp->v_lvl_out - v_lvl_out) >= 1 || fabsf (aexp->v_lvl_in - v_lvl_in) >= 1) { + // >= 1dB difference + aexp->need_expose = true; + aexp->v_lvl_in = v_lvl_in; + const float relax_coef = exp(-2.0*n_samples/srate); + aexp->v_lvl_out = fmaxf (v_lvl_out, relax_coef*aexp->v_lvl_out + (1.f-relax_coef)*v_lvl_out); + } + if (aexp->need_expose && aexp->queue_draw) { + aexp->need_expose = false; + aexp->queue_draw->queue_draw (aexp->queue_draw->handle); + } +#endif +} + + +static void +deactivate(LV2_Handle instance) +{ + activate(instance); +} + +static void +cleanup(LV2_Handle instance) +{ +#ifdef LV2_EXTENDED + AExp* aexp = (AExp*)instance; + if (aexp->display) { + cairo_surface_destroy (aexp->display); + } +#endif + + free(instance); +} + + +#ifndef MIN +#define MIN(A,B) ((A) < (B)) ? (A) : (B) +#endif + +#ifdef LV2_EXTENDED +static float +exp_curve (const AExp* self, float xg) { + const float knee = self->v_knee; + const float ratio = self->v_ratio; + const float thresdb = self->v_thresdb; + const float makeup = self->v_makeup; + + const float width = 6.f * knee + 0.01f; + float yg = 0.f; + + if (2.f * (xg - thresdb) < -width) { + yg = thresdb + (xg - thresdb) * ratio; + } else if (2.f * (xg - thresdb) > width) { + yg = xg; + } else { + yg = xg + (1.f - ratio) * (xg - thresdb - width / 2.f) * (xg - thresdb - width / 2.f) / (2.f * width); + } + + yg += makeup; + + return yg; +} + + +static void +render_inline_full (cairo_t* cr, const AExp* self) +{ + const float w = self->w; + const float h = self->h; + + const float makeup_thres = self->v_thresdb + self->v_makeup; + + // clear background + cairo_rectangle (cr, 0, 0, w, h); + cairo_set_source_rgba (cr, .2, .2, .2, 1.0); + cairo_fill (cr); + + cairo_set_line_width(cr, 1.0); + + // draw grid 10dB steps + const double dash1[] = {1, 2}; + const double dash2[] = {1, 3}; + cairo_save (cr); + cairo_set_line_cap(cr, CAIRO_LINE_CAP_ROUND); + cairo_set_dash(cr, dash2, 2, 2); + cairo_set_source_rgba (cr, 0.5, 0.5, 0.5, 0.5); + + for (uint32_t d = 1; d < 7; ++d) { + const float x = -.5 + floorf (w * (d * 10.f / 70.f)); + const float y = -.5 + floorf (h * (d * 10.f / 70.f)); + + cairo_move_to (cr, x, 0); + cairo_line_to (cr, x, h); + cairo_stroke (cr); + + cairo_move_to (cr, 0, y); + cairo_line_to (cr, w, y); + cairo_stroke (cr); + } + cairo_set_source_rgba (cr, 0.5, 0.5, 0.5, 1.0); + cairo_set_dash(cr, dash1, 2, 2); + if (self->v_thresdb < 0) { + const float y = -.5 + floorf (h * ((makeup_thres - 10.f) / -70.f)); + cairo_move_to (cr, 0, y); + cairo_line_to (cr, w, y); + cairo_stroke (cr); + } + // diagonal unity + cairo_move_to (cr, 0, h); + cairo_line_to (cr, w, 0); + cairo_stroke (cr); + cairo_restore (cr); + + { // 0, 0 + cairo_set_source_rgba (cr, 0.5, 0.5, 0.5, 0.5); + const float x = -.5 + floorf (w * (60.f / 70.f)); + const float y = -.5 + floorf (h * (10.f / 70.f)); + cairo_move_to (cr, x, 0); + cairo_line_to (cr, x, h); + cairo_stroke (cr); + cairo_move_to (cr, 0, y); + cairo_line_to (cr, w, y); + cairo_stroke (cr); + } + + { // GR + const float x = -.5 + floorf (w * (62.5f / 70.f)); + const float y = -.5 + floorf (h * (10.0f / 70.f)); + const float wd = floorf (w * (5.f / 70.f)); + const float ht = floorf (h * (55.f / 70.f)); + cairo_rectangle (cr, x, y, wd, ht); + cairo_fill (cr); + + const float h_gr = fminf (ht, floorf (h * self->v_gainr / 70.f)); + cairo_set_source_rgba (cr, 0.95, 0.0, 0.0, 1.0); + cairo_rectangle (cr, x, y, wd, h_gr); + cairo_fill (cr); + cairo_set_source_rgba (cr, 0.5, 0.5, 0.5, 0.5); + cairo_rectangle (cr, x, y, wd, ht); + cairo_set_source_rgba (cr, 0.75, 0.75, 0.75, 1.0); + cairo_stroke (cr); + } + + // draw curve + cairo_set_source_rgba (cr, .8, .8, .8, 1.0); + cairo_move_to (cr, 0, h); + + for (uint32_t x = 0; x < w; ++x) { + // plot -60..+10 dB + const float x_db = 70.f * (-1.f + x / (float)w) + 10.f; + const float y_db = exp_curve (self, x_db) - 10.f; + const float y = h * (y_db / -70.f); + cairo_line_to (cr, x, y); + } + cairo_stroke_preserve (cr); + + cairo_line_to (cr, w, h); + cairo_close_path (cr); + cairo_clip (cr); + + // draw signal level & reduction/gradient + const float top = exp_curve (self, 0) - 10.f; + cairo_pattern_t* pat = cairo_pattern_create_linear (0.0, 0.0, 0.0, h); + if (top > makeup_thres - 10.f) { + cairo_pattern_add_color_stop_rgba (pat, 0.0, 0.8, 0.1, 0.1, 0.5); + cairo_pattern_add_color_stop_rgba (pat, top / -70.f, 0.8, 0.1, 0.1, 0.5); + } + if (self->v_knee > 0) { + cairo_pattern_add_color_stop_rgba (pat, ((makeup_thres -10.f) / -70.f), 0.7, 0.7, 0.2, 0.5); + cairo_pattern_add_color_stop_rgba (pat, ((makeup_thres - self->v_knee - 10.f) / -70.f), 0.5, 0.5, 0.5, 0.5); + } else { + cairo_pattern_add_color_stop_rgba (pat, ((makeup_thres - 10.f)/ -70.f), 0.7, 0.7, 0.2, 0.5); + cairo_pattern_add_color_stop_rgba (pat, ((makeup_thres - 10.01f) / -70.f), 0.5, 0.5, 0.5, 0.5); + } + cairo_pattern_add_color_stop_rgba (pat, 1.0, 0.5, 0.5, 0.5, 0.5); + + // maybe cut off at x-position? + const float x = w * (self->v_lvl_in + 60) / 70.f; + const float y = x + h*self->v_makeup; + cairo_rectangle (cr, 0, h - y, x, y); + if (self->v_ratio > 1.0) { + cairo_set_source (cr, pat); + } else { + cairo_set_source_rgba (cr, 0.5, 0.5, 0.5, 0.5); + } + cairo_fill (cr); + + cairo_pattern_destroy (pat); // TODO cache pattern +} + +static void +render_inline_only_bars (cairo_t* cr, const AExp* self) +{ + const float w = self->w; + const float h = self->h; + + cairo_rectangle (cr, 0, 0, w, h); + cairo_set_source_rgba (cr, .2, .2, .2, 1.0); + cairo_fill (cr); + + + cairo_save (cr); + + const float ht = 0.25f * h; + + const float x1 = w*0.05; + const float wd = w - 2.0f*x1; + + const float y1 = 0.17*h; + const float y2 = h - y1 - ht; + + cairo_set_source_rgba (cr, 0.5, 0.5, 0.5, 0.5); + + cairo_rectangle (cr, x1, y1, wd, ht); + cairo_fill (cr); + + cairo_rectangle (cr, x1, y2, wd, ht); + cairo_fill (cr); + + cairo_set_source_rgba (cr, 0.75, 0.0, 0.0, 1.0); + const float w_gr = (self->v_gainr > 60.f) ? wd : wd * self->v_gainr * (1.f/60.f); + cairo_rectangle (cr, x1+wd-w_gr, y2, w_gr, ht); + cairo_fill (cr); + + if (self->v_lvl_out > -60.f) { + if (self->v_lvl_out > 10.f) { + cairo_set_source_rgba (cr, 0.75, 0.0, 0.0, 1.0); + } else if (self->v_lvl_out > 0.f) { + cairo_set_source_rgba (cr, 0.66, 0.66, 0.0, 1.0); + } else { + cairo_set_source_rgba (cr, 0.0, 0.66, 0.0, 1.0); + } + const float w_g = (self->v_lvl_out > 10.f) ? wd : wd * (60.f+self->v_lvl_out) / 70.f; + cairo_rectangle (cr, x1, y1, w_g, ht); + cairo_fill (cr); + } + + cairo_set_source_rgba (cr, 1.0, 1.0, 1.0, 1.0); + + const float tck = 0.33*ht; + + cairo_set_line_width (cr, .5); + + for (uint32_t d = 1; d < 7; ++d) { + const float x = x1 + (d * wd * (10.f / 70.f)); + + cairo_move_to (cr, x, y1); + cairo_line_to (cr, x, y1+tck); + + cairo_move_to (cr, x, y1+ht); + cairo_line_to (cr, x, y1+ht-tck); + + cairo_move_to (cr, x, y2); + cairo_line_to (cr, x, y2+tck); + + cairo_move_to (cr, x, y2+ht); + cairo_line_to (cr, x, y2+ht-tck); + } + + cairo_stroke (cr); + + const float x_0dB = x1 + wd*(60.f/70.f); + + cairo_move_to (cr, x_0dB, y1); + cairo_line_to (cr, x_0dB, y1+ht); + + cairo_rectangle (cr, x1, y1, wd, ht); + cairo_rectangle (cr, x1, y2, wd, ht); + cairo_stroke (cr); + + cairo_set_line_width (cr, 2.0); + + // visualize threshold + const float tr = x1 + wd * (60.f+self->v_thresdb) / 70.f; + cairo_set_source_rgba (cr, 0.95, 0.95, 0.0, 1.0); + cairo_move_to (cr, tr, y1); + cairo_line_to (cr, tr, y1+ht); + cairo_stroke (cr); + + // visualize ratio + const float reduced_0dB = self->v_thresdb * (1.f - 1.f/self->v_ratio); + const float rt = x1 + wd * (60.f+reduced_0dB) / 70.f; + cairo_set_source_rgba (cr, 0.95, 0.0, 0.0, 1.0); + cairo_move_to (cr, rt, y1); + cairo_line_to (cr, rt, y1+ht); + cairo_stroke (cr); +} + +static LV2_Inline_Display_Image_Surface * +render_inline (LV2_Handle instance, uint32_t w, uint32_t max_h) +{ + AExp* self = (AExp*)instance; + + uint32_t h = MIN (w, max_h); + if (w < 200) { + h = 40; + } + + if (!self->display || self->w != w || self->h != h) { + if (self->display) cairo_surface_destroy(self->display); + self->display = cairo_image_surface_create (CAIRO_FORMAT_ARGB32, w, h); + self->w = w; + self->h = h; + } + + cairo_t* cr = cairo_create (self->display); + + if (w >= 200) { + render_inline_full (cr, self); + } else { + render_inline_only_bars (cr, self); + } + + cairo_destroy (cr); + + cairo_surface_flush (self->display); + self->surf.width = cairo_image_surface_get_width (self->display); + self->surf.height = cairo_image_surface_get_height (self->display); + self->surf.stride = cairo_image_surface_get_stride (self->display); + self->surf.data = cairo_image_surface_get_data (self->display); + + return &self->surf; +} +#endif + +static const void* +extension_data(const char* uri) +{ +#ifdef LV2_EXTENDED + static const LV2_Inline_Display_Interface display = { render_inline }; + if (!strcmp(uri, LV2_INLINEDISPLAY__interface)) { + return &display; + } +#endif + return NULL; +} + +static const LV2_Descriptor descriptor_mono = { + AEXP_URI, + instantiate, + connect_mono, + activate, + run_mono, + deactivate, + cleanup, + extension_data +}; + +static const LV2_Descriptor descriptor_stereo = { + AEXP_STEREO_URI, + instantiate, + connect_stereo, + activate, + run_stereo, + deactivate, + cleanup, + extension_data +}; + +LV2_SYMBOL_EXPORT +const LV2_Descriptor* +lv2_descriptor(uint32_t index) +{ + switch (index) { + case 0: + return &descriptor_mono; + case 1: + return &descriptor_stereo; + default: + return NULL; + } +} diff --git a/libs/plugins/a-exp.lv2/a-exp.ttl.in b/libs/plugins/a-exp.lv2/a-exp.ttl.in new file mode 100644 index 0000000000..5564cb4e5c --- /dev/null +++ b/libs/plugins/a-exp.lv2/a-exp.ttl.in @@ -0,0 +1,156 @@ +@prefix doap: . +@prefix foaf: . +@prefix lv2: . +@prefix rdfs: . +@prefix rsz: . +@prefix unit: . + + + a foaf:Person ; + foaf:name "Ardour Team" ; + foaf:homepage . + + + a lv2:Plugin, doap:Project, lv2:ExpanderPlugin ; + + lv2:optionalFeature ; + lv2:optionalFeature ; + lv2:optionalFeature ; + + lv2:port [ + a lv2:InputPort, lv2:ControlPort ; + lv2:index 0 ; + lv2:name "Attack" ; + lv2:symbol "att" ; + lv2:default 10.000000 ; + lv2:minimum 0.100000 ; + lv2:maximum 100.000000 ; + unit:unit unit:ms ; + ] , + [ + a lv2:InputPort, lv2:ControlPort ; + lv2:index 1 ; + lv2:name "Release" ; + lv2:symbol "rel" ; + lv2:default 80.000000 ; + lv2:minimum 1.000000 ; + lv2:maximum 2000.000000 ; + unit:unit unit:ms ; + ] , + [ + a lv2:InputPort, lv2:ControlPort ; + lv2:index 2 ; + lv2:name "Knee" ; + lv2:symbol "kn" ; + lv2:default 0.000000 ; + lv2:minimum 0.000000 ; + lv2:maximum 8.000000 ; + unit:unit unit:db ; + ] , + [ + a lv2:InputPort, lv2:ControlPort ; + lv2:index 3 ; + lv2:name "Ratio" ; + lv2:symbol "rat" ; + lv2:default 4.000000 ; + lv2:minimum 1.000000 ; + lv2:maximum 20.000000 ; + unit:unit [ + rdfs:label " " ; + unit:symbol " " ; + unit:render "%f " ; + ] ; + lv2:portProperty ; + ] , + [ + a lv2:InputPort, lv2:ControlPort ; + lv2:index 4 ; + lv2:name "Threshold" ; + lv2:symbol "thr" ; + lv2:default 0.000000 ; + lv2:minimum -60.000000 ; + lv2:maximum 0.000000 ; + unit:unit unit:db ; + ] , + [ + a lv2:InputPort, lv2:ControlPort ; + lv2:index 5 ; + lv2:name "Makeup" ; + lv2:symbol "mak" ; + lv2:default 0.000000 ; + lv2:minimum 0.000000 ; + lv2:maximum 30.000000 ; + unit:unit unit:db ; + ] , + [ + a lv2:OutputPort, lv2:ControlPort ; + lv2:index 6 ; + lv2:name "Gain Reduction" ; + lv2:symbol "gr" ; + lv2:default 0.000000 ; + lv2:minimum 0.000000 ; + lv2:maximum 45.000000 ; + unit:unit unit:db ; + ] , + [ + a lv2:OutputPort, lv2:ControlPort ; + lv2:index 7 ; + lv2:name "Output Level" ; + lv2:symbol "outlevel" ; + lv2:default -45.000000 ; + lv2:minimum -45.000000 ; + lv2:maximum 0.000000 ; + unit:unit unit:db ; + ] , + [ + a lv2:InputPort, lv2:ControlPort ; + lv2:index 8 ; + lv2:name "Sidechain" ; + lv2:symbol "sidech" ; + lv2:default 0.000000 ; + lv2:minimum 0.000000 ; + lv2:maximum 1.000000 ; + lv2:portProperty lv2:integer, lv2:toggled ; + ] , + [ + a lv2:InputPort, lv2:ControlPort ; + lv2:index 9 ; + lv2:name "Enable" ; + lv2:symbol "enable" ; + lv2:default 1 ; + lv2:minimum 0 ; + lv2:maximum 1 ; + lv2:portProperty lv2:integer, lv2:toggled ; + lv2:designation lv2:enabled; + ]; + + lv2:port [ + a lv2:InputPort, lv2:AudioPort ; + lv2:index 10 ; + lv2:symbol "lv2_audio_in_1" ; + lv2:name "Audio Input 1" ; + ] , + [ + a lv2:InputPort, lv2:AudioPort ; + lv2:index 11 ; + lv2:symbol "lv2_sidechain_in" ; + lv2:name "Sidechain Input" ; + lv2:portProperty lv2:isSideChain ; + ], + [ + a lv2:OutputPort, lv2:AudioPort ; + lv2:index 12 ; + lv2:symbol "lv2_audio_out_1" ; + lv2:name "Audio Output 1" ; + ] ; + + rdfs:comment """ +A powerful mono expander +""" ; + + doap:name "a-Expander" ; + doap:license ; + doap:maintainer ; + + lv2:microVersion 1 ; + lv2:minorVersion 1 . diff --git a/libs/plugins/a-exp.lv2/manifest.ttl.in b/libs/plugins/a-exp.lv2/manifest.ttl.in new file mode 100644 index 0000000000..96a4330368 --- /dev/null +++ b/libs/plugins/a-exp.lv2/manifest.ttl.in @@ -0,0 +1,13 @@ +@prefix lv2: . +@prefix rdfs: . +@prefix pset: . + + + a lv2:Plugin ; + lv2:binary ; + rdfs:seeAlso . + + + a lv2:Plugin ; + lv2:binary ; + rdfs:seeAlso . diff --git a/libs/plugins/a-exp.lv2/wscript b/libs/plugins/a-exp.lv2/wscript new file mode 100644 index 0000000000..affd2675b7 --- /dev/null +++ b/libs/plugins/a-exp.lv2/wscript @@ -0,0 +1,51 @@ +#!/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-exp.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-exp.ttl', 'a-exp#stereo.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-exp.c', + name = 'a-exp', + cflags = [ '-fPIC', bld.env['compiler_flags_dict']['c99'] ], + includes = [ '../../ardour' ], + target = '../../LV2/%s/a-exp' % bundle, + install_path = '${LV2DIR}/%s' % bundle, + uselib = 'CAIRO', + use = 'LV2_1_0_0' + ) + obj.env.cshlib_PATTERN = module_pat + +# vi:set ts=4 sw=4 et: diff --git a/wscript b/wscript index 1b61e5f752..4901794fb7 100644 --- a/wscript +++ b/wscript @@ -242,6 +242,7 @@ children = [ 'libs/waveview', 'libs/plugins/reasonablesynth.lv2', 'libs/plugins/a-comp.lv2', + 'libs/plugins/a-exp.lv2', 'libs/plugins/a-delay.lv2', 'libs/plugins/a-eq.lv2', 'libs/plugins/a-reverb.lv2',